percorrer String

02/07/2008

19

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


Responder

Posts

02/07/2008

Altingon

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


Responder

02/07/2008

Joaoshi

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;



Responder
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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira