Zahlen teilen

[Shaman]

Hoi

Machs doch grad richtig mathematisch

Delphi-Quellcode:

type
  TDigit = 0..9;
  TDigits = array of TDigit;

procedure NumToDigits(Number: Integer; var Digits: TDigits);
var
  I: Integer;
begin
  if Number = 0 then
  begin
    SetLength(Digits, 1);
    Digits[0]:= 0;
  end else
  begin
    Number:= Abs(Number);
    SetLength(Digits, Trunc(Ln(Number) / Ln(10)) + 1);
    I:= 0;
    repeat
      Digits[I]:= Number mod 10;
      Number:= Number div 10;
      Inc(I);
    until Number = 0;
  end;
end;

Edit: Man könnte auch noch DivMod nehmen, dann gehts noch mehr ab

Gruss
Shaman