Localizar um texto no memo ou richedit , Mas Copiar a linha de baixo da coluna x até a coluna y
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
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
Curtidas 0
Respostas
Marcelo Diniz
12/11/2010
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;
GOSTEI 0
Marcelo Diniz
12/11/2010
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
GOSTEI 0
Aldo Junior
12/11/2010
Blz. Marcelo
Legal, eu já estava quase lá, com esta ajuda a coisa vai andar rsrsrs
Obrigado,
valeu
Abç
Legal, eu já estava quase lá, com esta ajuda a coisa vai andar rsrsrs
Obrigado,
valeu
Abç
GOSTEI 0
Marcelo Diniz
12/11/2010
Blz. Marcelo
Legal, eu já estava quase lá, com esta ajuda a coisa vai andar rsrsrs
Obrigado,
valeu
Abç
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!
GOSTEI 0