String von ; Trennen (über TStringList)

[Christian18]

Hallo,

ich hab nochmal eine Frage zu TSTringLists. Ich möchte gerne, dass ein Leerzeichen nicht als Delimiter erkannt wird. Ich hab hier mal ein Bsp.

Delphi-Quellcode:

procedure TForm1.trennen(s : String);
  var l : TStringList;
begin
  // String von ; trennen
  l:=TStringList.Create();
  l.Delimiter:=';';
  l.DelimitedText:=s;

  // Zerlegten String ausgeben
  ShowMessage(l[0]);
end;

procedure TForm1.Button1Click(Sender: TObject);
  var s : String;
begin
  // Parameter setzen
  s:='Fa. Mustermann;Musterstr. 1a;50937;Köln';

  trennen(s);
end;

normaler weise sollte das Programm als ersten teil des strings "Fa. Misutermann" ausgeben. das macht er aber nicht. er gibt nur "Fa." aus. wie kann ich es mit einer tstringlist machen, dass das programm auch wirklich diesen String ausgibt "Fa. Mustermann". Oder hat jemand vieleicht eine andere idee wie ich das machen kann???