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