F�rum Localizar um texto no memo ou richedit , Mas Copiar a linha de baixo da coluna x at� a coluna y #390378

12/11/2010

Ola Pessoal Estou aqui precisando de ajuda de novo, Iniciante eh Chato mesmo.
Olha preciso que no meu memo eu Localize um texto, mas o que eu preciso esta na linha de baixo, tipo localiza mas copia a linha de baixo da coluna x com tamanho de 50 caracteres, Veja abaixo o exemplo:

Nome do Cliente: (texto a ser localizado)Astrogildo Aparecido ( texto a ser copiado para um DBEdit)

Por enquanto agrade�o
Aldo Pinatti Junior

Aldo Junior

Curtir t�pico

+ 0

Responder

Posts

17/11/2010

Marcelo Diniz

procedure TForm1.btn1Click(Sender: TObject);var i, ipos, linha,tamanho : Integer;buffer : string;begin  for I := 0 to m1.Lines.Count - 1 do   if Pos('NOME',m1.Lines.Text) > 0 then   begin      linha := i + 1;      tamanho := Length(m1.Lines.Strings[linha]);      edt1.Text := Copy(m1.Lines.Strings[linha],0,tamanho);      Break;   end;
end;

Responder

Gostei + 0

17/11/2010

Marcelo Diniz

C�digo fonte do exemplo acima para download no link abaixo:link: http://www.ligteltelecom.com.br/delphi/ACHAR_E_COPIAR_TEXTO_NO_TMEMO.rar

Responder

Gostei + 0

18/11/2010

Aldo Junior

Blz. Marcelo

Legal, eu j� estava quase l�, com esta ajuda a coisa vai andar rsrsrs

Obrigado,
valeu
Ab�

Responder

Gostei + 0

22/11/2010

Marcelo Diniz

Blz. Marcelo

Legal, eu j� estava quase l�, com esta ajuda a coisa vai andar rsrsrs

Obrigado,
valeu
Ab�

Favor encerrar este t�pico se o mesmo foi resolvido!

Responder

Gostei + 0