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