Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
26. Apr 2009
Ich dachte dabei an den Fall: aNumber = 0. Aber das ist sowieso nicht ganz korrekt. Es müsste eine Repeat-Until Schleife sein. Und dann hättest Du Recht.
Function NumberToDigits (aNumber : Cardinal) : TByteArray;
Var
n : Integer;
Begin
n := 0;
SetLength (Result, 10);
Repeat
Result := aNumber mod 10;
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
26. Apr 2009
Und sukkzessives Zerteilen geht so:
Function NumberToDigits (aNumber : Cardinal) : TByteArray;
Var
n : Integer;
Begin
n := 0;
SetLength (Result, 10);
While aNumber <> 0 do Begin
Result := aNumber mod 10;