percorrer String

Delphi

02/07/2008

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)?


Guigosnet

Guigosnet

Curtidas 0

Respostas

Altingon

Altingon

02/07/2008

Percorra a string e pergunte se é direfente de ;

for i:=0 to lenght(variavel) do
  if variavel[i] <> ; then
    aux := aux + variavel[i];

Basicamente é isso...espero ter ajudado


GOSTEI 0
Joaoshi

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

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
POSTAR