inttostr & strtoint selber schreiben.

[Evian]

Zitat von sakura:

P.S.2: Was ist mit negativen Zahlen?

...ups!!!

Edit: ok hier mit vorzeichen:

Delphi-Quellcode:

function s2i(str: String):Integer;
VAR
i,x : INTEGER;
BEGIN
  result := 0;
  x := 1;
  for i := length(str) downto 1 DO
  BEGIN
    if str[i] = '-' then
    result := result * -1 else
    BEGIN
      result := result + ((ord(str[i])- 48)*x);
      x := x * 10;
    END;
  END;
END;

function i2s(int: Integer):String;
VAR
vorz : char;
BEGIN
  result := '';
  vorz := chr(32);
  if int < 0 THEN
  BEGIN
    int := int * -1;
    vorz := '-';
  END;
  while (int <> 0)DO
  BEGIN
    result := chr((int mod 10)+48)+result;
    int := int DIV 10;
  END;
  result := vorz + result;
END;