Fórum Copy limitado automaticamente #278018
19/04/2005
0
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!!
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
Curtir tópico
+ 0
Responder
Posts
19/04/2005
Aroldo Zanela
Colega,
Existem n formas de implementar isto, a de menor esforço é utilizando a classe TStringList:
Exemplo:
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)