RES: RES: RES: [delphi-br] Quebra String

2007-02-28 Por tôpico Tiago de Assis Pimenta 
João, deu certo cara ... valeu a todos que me ajudaram.
 
Tiago de Assis Pimenta
 
MSN:  <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: terça-feira, 27 de fevereiro de 2007 23:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Quebra String



Tiago de Assis Pimenta wrote:

> [snip] 
>
write(impressora,format('%-40s',[wraptext(qrhistserv.fieldbyname('servico').
> asstring,39)]));
> 
> write(impressora,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
> 
>
write(impressora,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname
> ('precoun').value)]));
> 
>
write(impressora,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname
> ('total').value)]));
> writeln(impressora);
> qrhistserv.next;
> end;
> 
> Só que acho que esta acontecendo o seguinte. 
> 
> Como a string tem mais de 40 caracteres ele dá pau na formatação. Acho que
é
> isso.

Você precisa pegar uma linha por vez. Use o StringList para ajudar:

VStringList := TStringList.Create;
try
VStringList.Text := WrapText('texto', VColunas);
VStringList.Count == total de linhas
VStringList[0] == primeira linha
VStringList[1] == segunda linha
//etc.
finally
VStringList.Free;
end;

Depois você monta o corpo do relatório, levando em conta que você 
precisará abrir linhas caso o .Count seja maior do que um. Ex.:

Mensagem Qtd Unit Total
== =  =
Mensagem que não cabe em uma 2 10,00 20,00
única linha
Mensagem que cabe em uma linha 150 2,00 300,00

--
João Morais


 


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: RES: [delphi-br] Quebra String

2007-02-27 Por tôpico Joao Morais 
Tiago de Assis Pimenta wrote:

> [snip] 
> write(impressora,format('%-40s',[wraptext(qrhistserv.fieldbyname('servico').
> asstring,39)]));
>  
> write(impressora,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
>  
> write(impressora,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname
> ('precoun').value)]));
>  
> write(impressora,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname
> ('total').value)]));
> writeln(impressora);
> qrhistserv.next;
>   end;
>  
> Só que acho que esta acontecendo o seguinte. 
>  
> Como a string tem mais de 40 caracteres ele dá pau na formatação. Acho que é
> isso.

Você precisa pegar uma linha por vez. Use o StringList para ajudar:

VStringList := TStringList.Create;
try
   VStringList.Text := WrapText('texto', VColunas);
   VStringList.Count == total de linhas
   VStringList[0] == primeira linha
   VStringList[1] == segunda linha
   //etc.
finally
   VStringList.Free;
end;

Depois você monta o corpo do relatório, levando em conta que você 
precisará abrir linhas caso o .Count seja maior do que um. Ex.:

Mensagem  Qtd  Unit  Total
==  =    =
Mensagem que não cabe em uma2 10,00  20,00
única linha
Mensagem que cabe em uma linha150  2,00 300,00

--
João Morais

RES: RES: [delphi-br] Quebra String

2007-02-27 Por tôpico Tiago de Assis Pimenta 
João, já tinha feito assim.
 
Olha o código de como tava tentando fazer.
 
write(impressora,format('%-40s',['DISCRIMANACAO']));
write(impressora,format('%-10s',['QTDE']));
write(impressora,format('%-18s',['PRECO UNITARIO']));
writeln(impressora,format('%-10s',['PRECO TOTAL']));
writeln(impressora,'
===');
qrhistserv.first;
while not qrhistserv.eof  do
  begin
 
write(impressora,format('%-40s',[wraptext(qrhistserv.fieldbyname('servico').
asstring,39)]));
 
write(impressora,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
 
write(impressora,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname
('precoun').value)]));
 
write(impressora,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname
('total').value)]));
writeln(impressora);
qrhistserv.next;
  end;
 
Só que acho que esta acontecendo o seguinte. 
 
Como a string tem mais de 40 caracteres ele dá pau na formatação. Acho que é
isso.
 
Tiago de Assis Pimenta
 
MSN:  <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
 

  _____  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: terça-feira, 27 de fevereiro de 2007 16:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Quebra String



Tiago de Assis Pimenta wrote:

> João a função funcionou perfeitamente, só que esbarrei em outra duvida
aqui.
> 
> Ela quebra a string em quantas linhas forem necessária, só que o
alinhamento
> da qtde , preço unitário e preço total depois fica diferente para quando
não
> passa de 40 caracteres.
> 
> Dai pensei em mandar imprimir a qtde em uma determinada coluna,
independendo
> de qtos caracteres tem antes, tipo assim, a qtde começa na coluna 30 e
> termina na 35 por ex. e assim por diante eu faria com o preço unitário e
> total.
> 
> Andei olhando tanto no help do delphi quanto em sites para ver se o format
> fazia isso, mas acho que não, ou se tem como fazer com ele não intendi
como.
> 
> Tem como fazer isso que estou pensando ?

Format('%-30s', [VarSuaString]) faz com que VarSuaString ocupe pelo 
menos 30 caracteres, e alinha o texto à esquerda. Para alinhar à 
direita, retire o sinal de menos.

--
João Morais


 


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Quebra String

2007-02-27 Por tôpico Joao Morais 
Tiago de Assis Pimenta wrote:

> João a função funcionou perfeitamente, só que esbarrei em outra duvida aqui.
>  
> Ela quebra a string em quantas linhas forem necessária, só que o alinhamento
> da qtde , preço unitário e preço total depois fica diferente para quando não
> passa de 40 caracteres.
>  
> Dai pensei em mandar imprimir a qtde em uma determinada coluna, independendo
> de qtos caracteres tem antes, tipo assim, a qtde começa na coluna 30 e
> termina na 35 por ex. e assim por diante eu faria com o preço unitário e
> total.
>  
> Andei olhando tanto no help do delphi quanto em sites para ver se o format
> fazia isso, mas acho que não, ou se tem como fazer com ele não intendi como.
>  
> Tem como fazer isso que estou pensando ?

Format('%-30s', [VarSuaString]) faz com que VarSuaString ocupe pelo 
menos 30 caracteres, e alinha o texto à esquerda. Para alinhar à 
direita, retire o sinal de menos.

--
João Morais

RES: [delphi-br] Quebra String

2007-02-27 Por tôpico Tiago de Assis Pimenta 
João a função funcionou perfeitamente, só que esbarrei em outra duvida aqui.
 
Ela quebra a string em quantas linhas forem necessária, só que o alinhamento
da qtde , preço unitário e preço total depois fica diferente para quando não
passa de 40 caracteres.
 
Um exemplo para ilustar como ficou.
 


DISCRIMANACAO   QTDE
PRECO UNITARIOPRECO TOTAL


TESTANDO A FUNCAO PARA A QUEBRA DESSA 
STRING EM VARIAS LINHAS1 100,00100,00
 
Dai pensei em mandar imprimir a qtde em uma determinada coluna, independendo
de qtos caracteres tem antes, tipo assim, a qtde começa na coluna 30 e
termina na 35 por ex. e assim por diante eu faria com o preço unitário e
total.
 
Andei olhando tanto no help do delphi quanto em sites para ver se o format
fazia isso, mas acho que não, ou se tem como fazer com ele não intendi como.
 
Tem como fazer isso que estou pensando ?
 
Grato 
 
Tiago de Assis Pimenta
 
MSN:   [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Quebra String



Tiago de Assis Pimenta wrote:

> Galera, boa tarde, estou com o seguinte problema.
> 
> Preciso quebrar um string em varias linhas, as condições são as seguintes,
> cada linha não pode passar de 40 caracteres.
> 
> Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40
> caracteres, ele pula para a proxima linha e assim sucessivamente.
> 
> Agora a duvida, como faço isso por exemplo, se o limite de caracter der no
> meio de uma palavra ? Vai fica estranho !!!
> 
> Então tava pensando em pular a linha só quando achar um espaço em branco.
> 
> Sera que alguem tem outra ideia para me ajudar ???

SysUtils.WrapText

--
João Morais



 


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: RES: RES: [delphi-br] Quebra String

2007-02-25 Por tôpico Eduardo 
Lamentável 

Acho que não sou eu quem estou na lista errada.

Mas não responderei mais sobre este assunto.

Eduardo

Tiago de Assis Pimenta escreveu:
>
> Por acaso vc esta 24 do meu lado para saber o que eu fiz ou deixei de 
> fazer
> ?
>
> Acho que essa lista aqui é para ajudar todos sem nenhum tipo de cobrança.
>
> Então cara, se quer ajudar ajude, agora se quer dar lição de moral, vc 
> ta na
> lista errada.
>
> Vc não tem nada a ver com a minha vida, mas vou responder para vc, eu 
> vi sim
> a função no help do delphi, só que não intendi a sintaxe.
>
> Por isso eu perguntei para o "JOÃO" como funcionava. Agora além de vc se
> intrometer na minha duvida vc quer me dar lição de moral ?
>
> Se encherga amigo.
>
> Tiago de Assis Pimenta
>
> MSN: <mailto:[EMAIL PROTECTED] 
> <mailto:tiagopimenta%40hotmail.com>> [EMAIL PROTECTED] 
> <mailto:tiagopimenta%40hotmail.com>
> SKYPE: tiagopimenta_skype
> GTALK: tiagopimenta
>
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Eduardo
> Enviada em: domingo, 25 de fevereiro de 2007 11:02
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: RES: RES: [delphi-br] Quebra String
>
> Você nem se deu ao trabalho de testar a função no delphi.
>
> Se você tivesse feito isso você não teria mandado o email.
>
> A função é simples demais para qualquer pergunta.
>
> Foi isso que eu quis dizer com o sem comentário.
>
> Eduardo
>
> Tiago de Assis Pimenta escreveu:
> >
> > Sem comentário ?
> >
> > qq vc quiz dizer com isso ?
> >
> > Tiago de Assis Pimenta
> >
> > MSN: <mailto:tiagopimenta@ <mailto:tiagopimenta%40hotmail.com> 
> hotmail.com
>
> > <mailto:tiagopimenta%40hotmail.com>> tiagopimenta@
> <mailto:tiagopimenta%40hotmail.com> hotmail.com
> > <mailto:tiagopimenta%40hotmail.com>
> > SKYPE: tiagopimenta_skype
> > GTALK: tiagopimenta
> >
> >
> > _
> >
> > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> 
> os.com.br
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> os.com.br
> > <mailto:delphi-br%40yahoogrupos.com.br>] Em
> > nome de Eduardo
> > Enviada em: domingo, 25 de fevereiro de 2007 10:32
> > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> os.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> > Assunto: Re: RES: [delphi-br] Quebra String
> >
> > Abra o delphi.
> >
> > WrapText("Com o cursor aqui tecla ctrl+shsift+espaço")
> >
> > Depois leia o q vai aparecer.
> >
> > Sem comentário.
> >
> > Eduardo
> >
> > Tiago de Assis Pimenta escreveu:
> > >
> > > Não intendi João, tem como me explicar o que seria esse
> > SysUtils.WrapText
> > >
> > >
> > > Tiago de Assis Pimenta
> > >
> > > MSN: <mailto:tiagopimenta@ <mailto:tiagopimenta%40hotmail.com>
> > hotmail.com
> >
> > > <mailto:tiagopimenta%40hotmail.com>> tiagopimenta@
> > <mailto:tiagopimenta%40hotmail.com> hotmail.com
> > > <mailto:tiagopimenta%40hotmail.com>
> > > SKYPE: tiagopimenta_skype
> > > GTALK: tiagopimenta
> > >
> > >
> > > _
> > >
> > > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> > os.com.br
> > > <mailto:delphi-br%40yahoogrupos.com.br>
> > > [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> > os.com.br
> > > <mailto:delphi-br%40yahoogrupos.com.br>] Em
> > > nome de Joao Morais
> > > Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02
> > > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> > os.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> > > Assunto: Re: [delphi-br] Quebra String
> > >
> > > Tiago de Assis Pimenta wrote:
> > >
> > > > Galera, boa tarde, estou com o seguinte problema.
> > > >
> > > > Preciso quebrar um string em varias linhas, as condições são as
> > > seguintes,
> > > > cada linha não pode passar de 40 caracteres.
> > > >
> > > > Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou
> > > em 40
> > > > cara

RES: RES: RES: [delphi-br] Quebra String

2007-02-25 Por tôpico Tiago de Assis Pimenta 
Por acaso vc esta 24 do meu lado para saber o que eu fiz ou deixei de fazer
?
 
Acho que essa lista aqui é para ajudar todos sem nenhum tipo de cobrança.
 
Então cara, se quer ajudar ajude, agora se quer dar lição de moral, vc ta na
lista errada.
 
Vc não tem nada a ver com a minha vida, mas vou responder para vc, eu vi sim
a função no help do delphi, só que não intendi a sintaxe.
 
Por isso eu perguntei para o "JOÃO" como funcionava. Agora além de vc se
intrometer na minha duvida vc quer me dar lição de moral ?
 
Se encherga amigo.
 
Tiago de Assis Pimenta
 
MSN:  <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo
Enviada em: domingo, 25 de fevereiro de 2007 11:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Quebra String



Você nem se deu ao trabalho de testar a função no delphi.

Se você tivesse feito isso você não teria mandado o email.

A função é simples demais para qualquer pergunta.

Foi isso que eu quis dizer com o sem comentário.

Eduardo

Tiago de Assis Pimenta escreveu:
>
> Sem comentário ?
>
> qq vc quiz dizer com isso ?
>
> Tiago de Assis Pimenta
>
> MSN: <mailto:tiagopimenta@ <mailto:tiagopimenta%40hotmail.com> hotmail.com

> <mailto:tiagopimenta%40hotmail.com>> tiagopimenta@
<mailto:tiagopimenta%40hotmail.com> hotmail.com 
> <mailto:tiagopimenta%40hotmail.com>
> SKYPE: tiagopimenta_skype
> GTALK: tiagopimenta
>
>
> _
>
> De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Eduardo
> Enviada em: domingo, 25 de fevereiro de 2007 10:32
> Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: RES: [delphi-br] Quebra String
>
> Abra o delphi.
>
> WrapText("Com o cursor aqui tecla ctrl+shsift+espaço")
>
> Depois leia o q vai aparecer.
>
> Sem comentário.
>
> Eduardo
>
> Tiago de Assis Pimenta escreveu:
> >
> > Não intendi João, tem como me explicar o que seria esse 
> SysUtils.WrapText
> >
> >
> > Tiago de Assis Pimenta
> >
> > MSN: <mailto:tiagopimenta@ <mailto:tiagopimenta%40hotmail.com> 
> hotmail.com
>
> > <mailto:tiagopimenta%40hotmail.com>> tiagopimenta@
> <mailto:tiagopimenta%40hotmail.com> hotmail.com
> > <mailto:tiagopimenta%40hotmail.com>
> > SKYPE: tiagopimenta_skype
> > GTALK: tiagopimenta
> >
> >
> > _
> >
> > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> 
> os.com.br
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> os.com.br
> > <mailto:delphi-br%40yahoogrupos.com.br>] Em
> > nome de Joao Morais
> > Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02
> > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> os.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> > Assunto: Re: [delphi-br] Quebra String
> >
> > Tiago de Assis Pimenta wrote:
> >
> > > Galera, boa tarde, estou com o seguinte problema.
> > >
> > > Preciso quebrar um string em varias linhas, as condições são as
> > seguintes,
> > > cada linha não pode passar de 40 caracteres.
> > >
> > > Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou
> > em 40
> > > caracteres, ele pula para a proxima linha e assim sucessivamente.
> > >
> > > Agora a duvida, como faço isso por exemplo, se o limite de caracter
> > der no
> > > meio de uma palavra ? Vai fica estranho !!!
> > >
> > > Então tava pensando em pular a linha só quando achar um espaço em
> > branco.
> > >
> > > Sera que alguem tem outra ideia para me ajudar ???
> >
> > SysUtils.WrapText
> >
> > --
> > João Morais
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
> ___
> Yahoo! Mail - Sempre a melhor opção para você!
> Experimente já e veja as novidades.
> http://br.yahoo. <http://br.yahoo.
<http://br.yahoo.com/mailbeta/tudonovo/> com/mailbeta/tudonovo/ 
> <http://br.yahoo. <http://br.yahoo.com/mailbeta/tudonovo/>
com/mailbeta/tudonovo/>>
> com/mailbeta/tudonovo/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo. <http://br.yahoo.com/mailbeta/tudonovo/>
com/mailbeta/tudonovo/




 


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: RES: [delphi-br] Quebra String

2007-02-25 Por tôpico Eduardo 
Você nem se deu ao trabalho de testar a função no delphi.

Se você tivesse feito isso você não teria mandado o email.

A função é simples demais para qualquer pergunta.

Foi isso que eu quis dizer com o sem comentário.

Eduardo

Tiago de Assis Pimenta escreveu:
>
> Sem comentário ?
>
> qq vc quiz dizer com isso ?
>
> Tiago de Assis Pimenta
>
> MSN: <mailto:[EMAIL PROTECTED] 
> <mailto:tiagopimenta%40hotmail.com>> [EMAIL PROTECTED] 
> <mailto:tiagopimenta%40hotmail.com>
> SKYPE: tiagopimenta_skype
> GTALK: tiagopimenta
>
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Eduardo
> Enviada em: domingo, 25 de fevereiro de 2007 10:32
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: RES: [delphi-br] Quebra String
>
> Abra o delphi.
>
> WrapText("Com o cursor aqui tecla ctrl+shsift+espaço")
>
> Depois leia o q vai aparecer.
>
> Sem comentário.
>
> Eduardo
>
> Tiago de Assis Pimenta escreveu:
> >
> > Não intendi João, tem como me explicar o que seria esse 
> SysUtils.WrapText
> >
> >
> > Tiago de Assis Pimenta
> >
> > MSN: <mailto:tiagopimenta@ <mailto:tiagopimenta%40hotmail.com> 
> hotmail.com
>
> > <mailto:tiagopimenta%40hotmail.com>> tiagopimenta@
> <mailto:tiagopimenta%40hotmail.com> hotmail.com
> > <mailto:tiagopimenta%40hotmail.com>
> > SKYPE: tiagopimenta_skype
> > GTALK: tiagopimenta
> >
> >
> > _
> >
> > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> 
> os.com.br
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> os.com.br
> > <mailto:delphi-br%40yahoogrupos.com.br>] Em
> > nome de Joao Morais
> > Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02
> > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
> os.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> > Assunto: Re: [delphi-br] Quebra String
> >
> > Tiago de Assis Pimenta wrote:
> >
> > > Galera, boa tarde, estou com o seguinte problema.
> > >
> > > Preciso quebrar um string em varias linhas, as condições são as
> > seguintes,
> > > cada linha não pode passar de 40 caracteres.
> > >
> > > Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou
> > em 40
> > > caracteres, ele pula para a proxima linha e assim sucessivamente.
> > >
> > > Agora a duvida, como faço isso por exemplo, se o limite de caracter
> > der no
> > > meio de uma palavra ? Vai fica estranho !!!
> > >
> > > Então tava pensando em pular a linha só quando achar um espaço em
> > branco.
> > >
> > > Sera que alguem tem outra ideia para me ajudar ???
> >
> > SysUtils.WrapText
> >
> > --
> > João Morais
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
> ___
> Yahoo! Mail - Sempre a melhor opção para você!
> Experimente já e veja as novidades.
> http://br.yahoo. <http://br.yahoo.com/mailbeta/tudonovo/ 
> <http://br.yahoo.com/mailbeta/tudonovo/>>
> com/mailbeta/tudonovo/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  



___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/

RES: RES: [delphi-br] Quebra String

2007-02-25 Por tôpico Tiago de Assis Pimenta 
Sem comentário ?
 
qq vc quiz dizer com isso ?
 
Tiago de Assis Pimenta
 
MSN:  <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo
Enviada em: domingo, 25 de fevereiro de 2007 10:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Quebra String



Abra o delphi.

WrapText("Com o cursor aqui tecla ctrl+shsift+espaço")

Depois leia o q vai aparecer.

Sem comentário.

Eduardo

Tiago de Assis Pimenta escreveu:
>
> Não intendi João, tem como me explicar o que seria esse SysUtils.WrapText
>
>
> Tiago de Assis Pimenta
>
> MSN: <mailto:tiagopimenta@ <mailto:tiagopimenta%40hotmail.com> hotmail.com

> <mailto:tiagopimenta%40hotmail.com>> tiagopimenta@
<mailto:tiagopimenta%40hotmail.com> hotmail.com 
> <mailto:tiagopimenta%40hotmail.com>
> SKYPE: tiagopimenta_skype
> GTALK: tiagopimenta
>
>
> _
>
> De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Joao Morais
> Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02
> Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Quebra String
>
> Tiago de Assis Pimenta wrote:
>
> > Galera, boa tarde, estou com o seguinte problema.
> >
> > Preciso quebrar um string em varias linhas, as condições são as 
> seguintes,
> > cada linha não pode passar de 40 caracteres.
> >
> > Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou 
> em 40
> > caracteres, ele pula para a proxima linha e assim sucessivamente.
> >
> > Agora a duvida, como faço isso por exemplo, se o limite de caracter 
> der no
> > meio de uma palavra ? Vai fica estranho !!!
> >
> > Então tava pensando em pular a linha só quando achar um espaço em 
> branco.
> >
> > Sera que alguem tem outra ideia para me ajudar ???
>
> SysUtils.WrapText
>
> --
> João Morais
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 





___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo. <http://br.yahoo.com/mailbeta/tudonovo/>
com/mailbeta/tudonovo/ 


 


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Quebra String

2007-02-25 Por tôpico Eduardo 
Abra o delphi.

WrapText("Com o cursor aqui tecla ctrl+shsift+espaço")

Depois leia o q vai aparecer.

Sem comentário.

Eduardo

Tiago de Assis Pimenta escreveu:
>
> Não intendi João, tem como me explicar o que seria esse SysUtils.WrapText
>
>
> Tiago de Assis Pimenta
>
> MSN:  > [EMAIL PROTECTED] 
> 
> SKYPE: tiagopimenta_skype
> GTALK: tiagopimenta
>
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] Em
> nome de Joao Morais
> Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: Re: [delphi-br] Quebra String
>
> Tiago de Assis Pimenta wrote:
>
> > Galera, boa tarde, estou com o seguinte problema.
> >
> > Preciso quebrar um string em varias linhas, as condições são as 
> seguintes,
> > cada linha não pode passar de 40 caracteres.
> >
> > Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou 
> em 40
> > caracteres, ele pula para a proxima linha e assim sucessivamente.
> >
> > Agora a duvida, como faço isso por exemplo, se o limite de caracter 
> der no
> > meio de uma palavra ? Vai fica estranho !!!
> >
> > Então tava pensando em pular a linha só quando achar um espaço em 
> branco.
> >
> > Sera que alguem tem outra ideia para me ajudar ???
>
> SysUtils.WrapText
>
> --
> João Morais
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  






___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/

Re: RES: [delphi-br] Quebra String

2007-02-25 Por tôpico Joao Morais 
Tiago de Assis Pimenta wrote:

> Não intendi João, tem como me explicar o que seria esse SysUtils.WrapText

WrapText é uma função que quebra uma string em linhas de um comprimento 
especificado por você. Veja sua sintaxe e maiores detalhes no help.

--
João Morais

RES: [delphi-br] Quebra String

2007-02-24 Por tôpico Tiago de Assis Pimenta 
Não intendi João, tem como me explicar o que seria esse SysUtils.WrapText
 
 
Tiago de Assis Pimenta
 
MSN:   [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
 


  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Quebra String



Tiago de Assis Pimenta wrote:

> Galera, boa tarde, estou com o seguinte problema.
> 
> Preciso quebrar um string em varias linhas, as condições são as seguintes,
> cada linha não pode passar de 40 caracteres.
> 
> Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40
> caracteres, ele pula para a proxima linha e assim sucessivamente.
> 
> Agora a duvida, como faço isso por exemplo, se o limite de caracter der no
> meio de uma palavra ? Vai fica estranho !!!
> 
> Então tava pensando em pular a linha só quando achar um espaço em branco.
> 
> Sera que alguem tem outra ideia para me ajudar ???

SysUtils.WrapText

--
João Morais



 


[As partes desta mensagem que não continham texto foram removidas]