Zahl in einzelne Stellen zerlegen ohne Stringkonvertierung!

[Amateurprofi]

Zitat von alzaimar:

Und sukkzessives Zerteilen geht so:

Delphi-Quellcode:

Function NumberToDigits (aNumber : Cardinal) : TByteArray; 
Var
  n : Integer;

Begin
  n := 0;
  SetLength (Result, 10);
  While aNumber <> 0 do Begin
    Result[n] := aNumber mod 10;
    aNumber := aNumber div 10;
    Inc (n);
  End;
  SetLength (Result, n + 1);
End;
..
// Beispiel
Var
  B : TByteArray;

Begin
  B := NumberToDigits (1234); // --> B = (4,3,2,1), also B[0] = 4, B[1] = 3 usw

Dann hast Du in einem Abwasch gleich die ganze Zahl unterteilt.

@alzaimar:
In der letzten Zeile von NumberToDigits sollte es wohl besser heißen
SetLength (Result, n);