Fórum ajuda Por favor nesse codigo. #453690
31/08/2013
0
Raí Jales
Curtir tópico
+ 0Posts
31/08/2013
Marco Salles
pesquise por DelimitedText , ExtractStrings , po para Delphi mais novos Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
Gostei + 0
31/08/2013
Marco Salles
pesquise por DelimitedText , ExtractStrings , para Delphi mais novos pesquise por Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
Gostei + 0
31/08/2013
Raí Jales
pesquise por DelimitedText , ExtractStrings , para Delphi mais novos pesquise por Expressões Regulares
caso não consiga desenvolver sozinho , volte e retorno . OK ?
[]sds
amigão obrigado foi de grande ajuda consegui resolver com o seu conselho, fiz conforme o metodo abaixo caso alguem precise, criando um string list, abrindo meu texto em um memo delimitando no caratcter que queria e quebrando-o no mesmo assim após jogando num outro memo 1 copiando as linhas nos edits :D obrigado marco salles li foi um artigo seu se nao me engano kkkkk :D
procedure TForm1.Button4Click(Sender: TObject);
var
Lst:TStrings;
begin
Lst:=TStringList.Create;
Lst.delimiter:='^';
Lst.QuoteChar:='^';
Lst.StrictDelimiter:=true;
Lst.DelimitedText:=memo1.Text;
memo2.Text := lst.Text;
edit1.Text := memo2.Lines[0];
edit2.Text := memo2.Lines[1];
edit3.Text := memo2.Lines[2];
edit4.Text := memo2.Lines[3];
edit5.Text := memo2.Lines[4];
edit6.Text := memo2.Lines[5];
end;
Gostei + 0
31/08/2013
José
Gostei + 0
31/08/2013
Marco Salles
[]sds
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)