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