Variable aufspallten

[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