Variable aufspallten

[Bjoerk]

[Klugscheiß]
Zu Lernzwecken kann man es ausnahmsweise ja mal ganz genau nehmen. Die Procedure von -187- könnte man etwas abändern, da dort ein leerer Eintrag in die Liste am Schluß aufgenommen wird. Deshalb wäre hier eine while Schleife (Prüfung am Anfang) geeigneter als eine repeat Schleife (Prüfung am Ende).
[/Klugscheiß]

Delphi-Quellcode:

var
  Pos1: Integer;
  Input,Temp: String;
begin
  Input:=Edit1.Text;
  if Input<>'' then // Input[0] würde zu einem Fehler führen, siehe unten 
  begin
    Pos1:=Length(Input);
    if Input[Pos1]<>';' then Input:=Input+';'; // am Schluß ist ein ; erforderlich
    while Pos(';',Input)>0 do // enthält input ein ;
    begin
      Pos1:=Pos(';',Input); // wo ?
      Temp:=Copy(Input,1,Pos1-1); // strings beginnen in Delphi mit 1
      ListBox1.Items.Add(Temp);
      Delete(Input,1,Pos1); // du bevorzugst delete
      //oder Input:=Copy(Input,Pos1+1,Length(Input)-Pos1);
    end;
  end;
end;