Для таких же целей есть стандартные функции 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;
