Zahlen teilen

[alcaeus]

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.