Variable aufspallten

[TDR]

Hallo liebe Delphiuser,

Ich habe folgendes Problem.

In verschiedenen Programmen von mir habe ich eine Variable die folgendermaßen aussieht:

§1.Variable;§2.Variable;§3.Variable; usw.

Hab ihr eine Idee wie ich diese variablen jetzt aufspalten kann, dass sie danach z.B. einzeln in einer Listbox stehen

Ich hoffe ihr könnt mir helfen

Vielen Dank im Voraus

[DeddyH]

Mit PosEx nach dem nächsten "§" suchen und ab da bis zum nächsten ";" kopieren.

[edit] Alternativ kannst Du aber auch mit einer TStringlist arbeiten, indem Du deren Delimiter auf "§" oder ";" setzt, je nachdem, was herauskommen soll. [/edit]

[-187-]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pos1: Integer;
  Input,Temp: String;
begin
  Input:=Edit1.Text;
  repeat
    Pos1:=Pos(';',Input);
    Temp:=Copy(Input,0,Pos1-1);
    ListBox1.Items.Add(Temp);
    Input:=Copy(Input,Pos1+1,Length(Input));
  until
    Pos1=0;
end;

Viel Spass!

[TDR]

Vielen Vielen Dank
Hat super geklappt

[himitsu]

Explode und die TStringList kann sowas auch aufsplitten (TStrings.Delimiter).

[Luckie]

Wenn du selbst die Variable erstellst, warum nimmst du dann nicht gleich ein Array oder ähnliches?