[poli-smen]

Сообщение от FlasheR

не подскажете новичку? 1 строка ведь)) я думаю не сложно это

Код:

function GetNum(str: String): Integer;
var
  i: Integer;
begin
  Result:=0;
  i:=1;
  while not (str[i] in ['0'..'9']) do Inc(i);

  while str[i] in ['0'..'9'] do
  begin
    Result:=Result*10 + (Ord(str[i])-Ord('0'));
    Inc(i);
  end;
end;
.....
      value :=  GetNum(st);