pra quebrar um texto use #13 [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 -------Mensagem original------- De: Patricia Santana Data: 09/09/05 11:56:54 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Quebra de Linha no componente Memo Osmar, o retorno de uma função preenche o componete memo, porém em uma única linha. Então, Criei um outro componente memo ( Memo2) que irá receber as informações que preciso, ou seja, em várias linha : Data + Hora + Texto. 25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO10/05/2005 14:42EM CLASSIFICAÇÃO Criei um laço para percorrer todo conteúdo do memo. i := 0; while i < Memo1.Lines.Count do Na primeira vez que percorrer o laço consigo pegar as informações da seguinte forma : Linha := copy(Memo2.Lines.Strings[i],1,Length(Memo2.Lines.Strings[i])); Data := copy( Linha, 1, 10); Hora := copy(Linha, 11, 5); Texto := copy( Linha, 16, Length(Linha)); Mas a variável texto irá receber o conteúdo do restande da linha com o restante do texto, ou seja não consegui quebrá-lo ... O texto é assim: Data - Hora - Texto ; Data - Hora - Texto; Data - Hora - Texto....... Como quebrar o texto antes da segunda data? Atribuindo assim a primeira linha do Memo2 Como quebrar o texto antes da terceira data ? Atribuindo assim a segunda linha do Memo2 E assim sucessivamente..... Muito obrigada pela atenção..... Osmar de Souza Júnior <[EMAIL PROTECTED]> escreveu: Não sei como você está preenchendo o Memo, porque quando você usa um método Add(Text) ou Append(Text) do próprio TMemo, ele adiciona a quebra automaticamente. Se você está fazendo assim: Memo1.Lines.Text := '25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO'; Então terá que adicionar as quebras com os caracteres #13 (Carriage Return) e #10 (Line Feed) - acho que é isso: Memo1.Lines.Text := '25/05/2005 13:19AGUARDANDOAUTOR' + #13#10 + '18/05/2005 08:57EXPEDIÇÃO DE MANDADO' + #13#10 + '10/05/2005 14:42EM CLASSIFICAÇÃO' + #13#10 + '09/05/2005 16:26PROTOCOLADO'; Acho que é isso. []s. --- Em delphi-br@yahoogrupos.com.br, Patricia Santana escreveu > Bom dia a todos!!! > > Tenho o seguinte texto dentro de um componente memo : > > 25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO > > Onde este texto está em uma única linha. > Preciso quebrar esta linha para de forma que fique assim: > > 25/05/2005 13:19AGUARDANDOAUTOR > 18/05/2005 08:57EXPEDIÇÃO DE MANDADO > 10/05/2005 14:42EM CLASSIFICAÇÃO > 09/05/2005 16:26PROTOCOLADO > > Data + Hora + Andamento. > > Obs : Estou utilizando o Delphi 5.0 > > Como faço isso no Delphi? > > Desde de já agradeço > Patricia Santana > > __________________________________________________ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > > [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 --------------------------------- Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! [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
[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
