Trennen von einzelnen Wörtern

[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, '|'));

......