Copy limitado automaticamente

Delphi

19/04/2005

Ola a Todos ! gostaria de saber se algum de vc´s ja passou por isso presiso do seguinte:
Memo1.lines.add(´1JUNIOR03002396´)
Copy(memo1.Lines.Text,1,1)
Copy(memo1.Lines.Text,2,7)
Copy(memo1.Lines.Text,8,8)

gostaria de fazer automaticamente a separação das strings com virgula ou alguma coisa assim pra não ter que ficar preso no numero que eu colocar dentro do Copy

Valeu!!


Luisjunior

Luisjunior

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

19/04/2005

Colega,

Existem n formas de implementar isto, a de menor esforço é utilizando a classe TStringList:

Exemplo:

var LineData: String;
Explode: TStringList;
begin
Explode := TStringList.Create;
  Explode.Delimiter:= ´;´;
LineData := ´1;JUNIOR;03002396´;
  Explode.DelimitedText := LineData;
  ShowMessage(Explode.Text);
end;



GOSTEI 0
POSTAR