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
