percorrer String
a;00:1A:73:DE:02:6A;10.60.0.3;loja;1500;200;
tenho esta string acima....
e gostaria de pegar uma string que esta entre ´;´ delimitador
e jogando para um memo ou stringlist e dando quebra de linha(enter)?
tenho esta string acima....
e gostaria de pegar uma string que esta entre ´;´ delimitador
e jogando para um memo ou stringlist e dando quebra de linha(enter)?
Guigosnet
Curtidas 0
Respostas
Altingon
02/07/2008
Percorra a string e pergunte se é direfente de ;
Basicamente é isso...espero ter ajudado
for i:=0 to lenght(variavel) do if variavel[i] <> ; then aux := aux + variavel[i];
Basicamente é isso...espero ter ajudado
GOSTEI 0
Joaoshi
02/07/2008
Colega, vê se ajuda:
procedure TForm2.Button1Click(Sender: TObject); var nPosicao:Integer; sProcura:String; nContador:Integer; begin Memo1.Clear; sProcura := ´a;00:1A:73:DE:02:6A;10.60.0.3;loja;1500;200;´; nPosicao := 0; nContador := 1; While nContador < Length(sProcura) do begin nPosicao := PosEx(´;´,sProcura,nContador); if nPosicao > 0 then begin Memo1.Lines.add(Copy(sProcura,nContador,nPosicao - nContador)); nContador := nPosicao; end; Inc(nContador); end; end;
GOSTEI 0
Emerson Nascimento
02/07/2008
procedure TForm1.Button1Click(Sender: TObject); var Lista: TStringList; begin Edit1.Text := ´a;00:1A:73:DE:02:6A;10.60.0.3;loja;1500;200´; Memo1.Clear; Lista := TStringList.Create; Lista.Delimiter := ´;´; Lista.DelimitedText := Edit1.Text; Memo1.Lines.AddStrings(Lista); end;
GOSTEI 0