alexteam, типа сделал то что попросили?)
LAV45, вот так будет наиболее быстро и с проверками на размер строки:
delphi Код:
function GetInt(const s: string): Integer;
var
r: array[0..3] of Char absolute Result;
i, c: Integer;
begin
Result := 0;
c := Length(s);
if c > 4 then c := 4;
for i := 4 - c to 3 do r[i] := s[4 - i];
end;