[icWasya]

Есть ещё старая ламповая функция VAL

Код:

var
  i:integer;
  s:string;
  c:integer;



  s:='$' + 'ab0' + 'qwerty';

  val(s,i,c);
  if c <> 0  then begin // значит в строке есть неправильный символ
     s := copy(s,1,c);
     val(s,i,c);
  end;