Hi Luzifer,
ich würde es über einen String machen:
Delphi-Quellcode:
procedure TeileZahl(Zahl: Integer; var Ziffern: array of Integer);
var
sTemp: String;
i: Integer;
begin
sTemp := IntTOStr(Zahl);
for i := 1 to Length(Zahl) do
Ziffern[i] := StrToInt(Zahl[i]);
end;
Im Ziffern-Array sind dann die einzelnen Ziffern drin.