TBigUInt - Noch ein Datentyp für große Zahlen

[Blup]

Vorschlag für StrToInt:

Delphi-Quellcode:

uses
  SysConst;

function StrToInt(const S: String): TBigUInt;
var
  n: String;
  i: Integer;
  c: char;
begin
  {Leerzeichen am Anfang und Ende entfernen}
  n := Trim(s);

  if Length(n) = 0 then
    raise EConvertError.CreateResFmt(@SInvalidInteger, [S]);

  Result := 0;
  for i := 1 to Length(n) do
  begin
    c := n[i];
    if (c < '0') or (c > '9') then
      raise EConvertError.CreateResFmt(@SInvalidInteger, [S]);

    Result := Result * 10 + (Ord(c) - Ord('0'));
  end;
end;

Auf jeden Fall sollten auch negative Zahlen unterstützt werden, sonst ist der Typ zu sehr eingeschränkt.

Edit: n[1] durch n[i] ersetzt
gut das einer aufpasst