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;

[TDR]

Vielen Dank
der 2. Code ist mir auch ein bisschen lieber.
Musste ihn aber etwas ab ändern weil sonst das in der Listbox stande (war auch beim 1.code so)

Zitat:

$127.0.0.1

Delphi-Quellcode:

if SMessage<>'' then
    begin
      Pos1:=Length(SMessage);
      if SMessage[Pos1]<>';' then SMessage:=SMessage+';'; 
      while Pos(';',SMessage)>0 do 
      begin
        Pos1:=Pos(';',SMessage); 
        Temp:=Copy(SMessage,2,Pos1-2); 
        ListBox1.Items.Add(Temp);
        Delete(SMessage,1,Pos1); 
          
    end;

Input = SMessage


Aber trotzdem VIELEN VIELEN DANK