oi Otto. desculpe pelo senhor. foi apenas questão de educação
...riririrriri.estou tentando usar a sua rotina de justificação mas está
dando erro. estou enviando os fontes da rotina . caso vc tenha tempo disponível
e tenha condições de dar uma olhada eu ficaria agradecida. Muito obrigada,
debora da silva costa
[EMAIL PROTECTED]
- Original Message -
From: Otto Júnior
To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED]
Sent: Tuesday, March 08, 2005 10:55 AM
Subject: Re: [delphi-br] justificacao
oi, tudo bem, vê se isso ajudar vc.
pode ser melhorado isso ai, se alguém melhorar por favor enviar a rotina.
sem mais
Otto Júnior
Natal/RN
Aqui to colocando a primeira linha na coluna 3 e na 2 linha na 1 posição.
Memo1.Text := QuebraLinha( Mensagem, 3, 1, 80 );
declare a variaval
gxLinha : Array[ 1..5 ] Of String;
Procedure QuebraLinha( fStr: String; PosIniLinha1, PosIniLinha2 : Integer;
PosFinLinha : Integer );
Begin
gxLinha[ 1 ] := Copy( fStr, 1, PosFinLinha - PosIniLinha1 );
gxLinha[ 2 ] := Copy( fStr, PosFinLinha - PosIniLinha1 + 1, Length(
fStr ) );
If Length( gxLinha[ 2 ] ) 0 Then
Begin
While gxLinha[ 1 ][ Length( gxLinha[ 1 ] ) ] ' ' Do
Begin
Insert( gxLinha[ 1 ][ Length( gxLinha[ 1 ] ) ], gxLinha[ 2 ], 1 );
Delete( gxLinha[ 1 ], Length( gxLinha[ 1 ] ), 1 );
End;
gxLinha[ 3 ] := Copy( gxLinha[ 2 ], PosFinLinha - PosIniLinha2,
Length( fStr ) );
If Length( gxLinha[ 3 ] ) 0 Then
Begin
While gxLinha[ 2 ][ Length( gxLinha[ 2 ] ) ] ' ' Do
Begin
Insert( gxLinha[ 2 ][ Length( gxLinha[ 2 ] ) ], gxLinha[ 3 ],
1 );
Delete( gxLinha[ 2 ], Length( gxLinha[ 2 ] ), 1 );
End;
End;
End;
End;
--
Esta mensagem foi verificada pelo sistema de anti-virus e
acredita-se estar livre de perigo.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html