"Zeichen" im Integer

[JasonDX]

Zitat von 3_of_8:

Jason, warum schreibst du statt $A, $64,... nicht einfach 10, 100,...? Zur Verwirrung?

Nein, weil ich das array eigentlich mal in den Code-Block schieben wollte, damit ich nicht auf ein Sprach-abhaengiges array zurueckgreifen haette muessen. Hat aber nicht zu ganz geklappt, und hab aus Gewohnheit die Hex-Werte kopiert... Wenn ich Leute Verwirren will, sieht das anders aus
Na ja, das mit dem Array hatte dann auch zur folge, dass dann das geschriebene nichmehr kompiliert... warum auch immer Delphi was dagegen hat, nen Zeiger in ein 32-Bit-Register zu schreiben

Egal, es geht auch ohne assembler:

Delphi-Quellcode:

function DecIntLength(x: integer): byte; 
const 
  m: packed array[0..9] of integer = (10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000, 1000000000, 0); 
var
  i: byte;
begin
  result := 0;
  i := 0;
  if (x < 0) then
  begin
    inc(result);
    x := -x;
  end;
  repeat
    inc(i);
  until ((m[i] = 0) or (m[i] > x))
  inc(result, i);
end;

Zitat von xZise:

Und das ganze jetzt für den Int64

Einfach alle integers durch int64 ersetzen, und folgendes fuer m nehmen:
m: packed array[0..17] of integer = (10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000, 1000000000, 10000000000, 100000000000, 1000000000000, 10000000000000, 100000000000000, 1000000000000000, 10000000000000000, 100000000000000000, 0); Wie gesagt: nicht probiert...

greetz
Mike