Trennen von einzelnen Wörtern

[Quick_silver]

Wie kann ich eine Reihe von Wörtern aus einem String trennen die mit | getrennt sind? Ich kann sie auch mit , " " ; oder so trennen!

[sakura]

Willst Du die einzelnen Wörter in eine Stringliste laden oder die einfach eins nach dem anderen abarbeiten?

...:cat:...

[Quick_silver]

Eigentlich egal ich muß nur x Zahlen die ich von nem Script bekomme auflisten!

[sakura]

Dann nutze folgende Funktion

Delphi-Quellcode:

function Fetch(var List: string; Delimiter: Char): string;
var
  P: Integer;
begin
  P := Pos(Delimiter, List);
  if P > 0 then
  begin
    Result := Copy(List, 1, Pred(P));
    Delete(List, 1, P);
  end else begin
    Result := List;
    List := '';
  end;
end;

Einsatzbeispiel mit Woerter für die Liste Deiner Zahlen getrennt durch |.

Delphi-Quellcode:

while Woerter <> '' do
  ShowMessage(Fetch(Woerter, '|'));

...:cat:...

[Luckie]

Lad dir den Text in eine Stringliste, dann ersetzt du alle "|" durch Kommas mit StringReplace und dann kannst du mit der Eigenschaft CommaText arbeiten. Wäre so jetzt auf die Schnelle das einfachste, denke ich.

[Quick_silver]

Thx :dancer: Danke :dancer2:
:bouncing4: :bounce1: :bounce2: