Zahl in einzelne Stellen zerlegen ohne Stringkonvertierung!

[himitsu]

nimm mal statt TByteArray ein TByteDynArray


[add]

Delphi-Quellcode:

Uses Types;  // für TByteDynArray

Function NumberToDigits(Number: Cardinal): TByteDynArray;
  Var n: Integer;

  Begin
    SetLength(Result, 10);
    n := 0;
    ASM
      PUSH  EDI
      MOV   EDI, &Result
      MOV   EDI, [EDI]
      MOV   ECX, 10
      MOV   EAX, &Number
      @@Loop:
      XOR   EDX, EDX
      IDIV  ECX
      MOV   [EDI], DL
      INC   EDI
      INC   &n
      TEST  EAX, EAX
      JNZ   @@Loop
      POP   EDI
    End;
    SetLength(Result, n);
  End;