es würde so gehen:
Delphi-Quellcode:
var
List: TStringList;
Antwort: String;
begin
List := TStringList.Create;
Antwort := 'Hallo das ist'#13'ein'#13'Test';
List.Delimiter := #13;
List.StrictDelimiter := True;
List.DelimitedText := Antwort;
showmessage(List[0]);
FreeAndNil(List);
end;
ansonsten versuch mal das:
Delphi-Quellcode:
var
List: TStringList;
Antwort: String;
begin
List := TStringList.Create;
Antwort := 'Hallo das ist'#13'ein'#13'Test';
List.Text := Antwort;
showmessage(List[0]);
FreeAndNil(List);
end;
edit: [ quote]-Tag mit [ delphi]-Tag vertauscht...