Thema: Delphi String zerlegen

Einzelnen Beitrag anzeigen

Benutzerbild von Uncle Cracker
Uncle Cracker

Registriert seit: 30. Mär 2003
Ort: Freital
694 Beiträge
 
#1

String zerlegen

  Alt 8. Apr 2004, 15:06
Also, ich habe einen String der Folgendermaßen aussieht: "Text;1;Zahl;2;Wert;3;Zeichen"

Die einzelnen Strings sind also durch ";1;", ";2;", ";3;", usw. geteielt. Nun meine Frage:

Wie bekomme ich es hin, dass ich die einzelnen Strings bekomme, also Text, Zahl, Wert, Zeichen?

Ich habe es so versucht, aber das klappt leider nicht wirklich, nur beim ersten String

Code:
procedure TForm1.Button1Click(Sender: TObject);
var Str1: String;
    MyStr: string='Text;1;Zahl;2;Wert;3;Zeichen';
begin
  Memo1.Clear;
  Str1 := MyStr;
  Delete(Str1, pos(';1;', Str1), length(Str1));
  Memo1.Lines.Add(Str1);
end;
Wenn ich in dieser Funktion jetzt anstatt ";1;" ";2;" einsetze, funktioniert es leider nicht mehr

Vielleicht kann mir jemand helfen und mir verraten was ich für einen Fehler gemacht habe, warum es nicht funktioniert?


Danke UC
I wish it was legal to marry software because I'm madly in love with Delphi...
  Mit Zitat antworten Zitat