Variable aufspallten

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