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 UNITARIO PRECO TOTAL ============================================================================ ============ TESTANDO A FUNCAO PARA A QUEBRA DESSA STRING EM VARIAS LINHAS1 100,00 100,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: <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: 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]