Einzelnen Beitrag anzeigen

Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#1

String von ; Trennen (über TStringList)

  Alt 12. Mai 2005, 08:25
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???
  Mit Zitat antworten Zitat