Stringlist.text wieder teilen ?

[Dani]

Delphi-Quellcode:

procedure foo;
begin
  With TStringlist.Create do
   try
    Add('1');
    Add('2');
    Add('3');
    ShowMessage(Text);
    Clear;
    Text := '1' + #13#10 + '2' + #13#10 + '3';
    ShowMessage(Text);
    ShowMessage(Strings[0]);
    ShowMessage(Strings[1]);
    ShowMessage(Strings[2]);
   finally
    Free;
   end;;
end;