Ok, danke für die Hilfe.
Ich habe aber immer noch einen Fehler im Programm und finde den nicht.
Mein Code sieht so aus. In Datei ist der string mit den Trennzeichen gespeichert und fotonummer ist ein integer arraay, in dem die einzelnen zahlen dann stehen sollen.
Wo ist nur der Fehler?
procedure TForm1.Umspeichern(Datei: string);
var
i, zahl: integer;
begin
Explode( 'x', Datei, 0);
for i:=1 to length(ergeb) do begin
try
fotonummer[i] := strtoint(ergeb[i]);
except
end;
end;
for i:=1 to length(fotonummer) do begin
showmessage(inttostr(fotonummer[i]));
end
end;