inttostr & strtoint selber schreiben.

[Amateurprofi]

hallo evian

wie wäre diese version von s2i

Delphi-Quellcode:

FUNCTION S2I(const s:string):integer;
var i:integer; neg:boolean;
begin
   result:=0;
   if Length(s)=0 then exit;
   neg:=s[1]='-';
   for i:=Integer(neg)+1 to Length(s) do result:=result*10+Ord(s[i])-48;
   if neg then result:=-result;
end;

setzt voraus, das s ein korrekter dezimalstring ist.