Для таких же целей есть стандартные функции val и str из pascal, которые перекочевали в delphi, но о наличии которых в нём многие не подозревают. Писал я как-то одну консольную программу, вот и встал лицом к лицу с этой задачей. Для удобства написал аналоги дельфийский функция с использованием val и str.
StrToInt
function StrToInt(s:string):integer;
var
t:integer;
c:integer;
begin
val(s,t,c);
if c=0 then
Result:=t
else
Result:=0;
end;
TryStrToInt
function TryStrToInt(s:string;var i:integer):boolean;
var
t:integer;
c:integer;
begin
val(s,t,c);
if c=0 then begin
i:=t;
Result:=True;
end else
Result:=False;
end;
IntToStr
function IntToStr(i:integer):string;
var
s:string;
begin
Str(i,s);
Result:=s;
end;
R106276538945
Z160640024212
410011190732605
