würde es ein bissl beschleunigen, wenn nicht für jede Stelle mit der großen Zahl gerechnet würde
(praktisch die Umkehrung des IntToStr)
Delphi-Quellcode:
Result := 0;
i2 := 0;
i3 := 1;
for i := 1 to Length(n) do
begin
if not (n[i] in ['0'..'9']) then
raise EConvertError.CreateResFmt(@SInvalidInteger, [S]);
i2 := i2 * 10 + (Ord(n[i]) - Ord('0'));
i3 := i3 * 10;
if (i3 = 1000000000) or (i = Length(n)) then
begin
Result := Result * i3 + i2;
i2 := 0;
i3 := 1;
end;
end;
[edit] i2 durch i3 ersetzt (siehe gammatester)