Использование val для Stringgrid.

[Человек Панда]

Здравстуйте.Работаю в Stringgrid,использую val(st,x,code) для проверки правильности ввода числа.Если ввожу целое число,то все нормально,если пытаюсь вещественное-сразу ошибка.В чем может быть ошибка?Вот код этого участка

function TProizvektor.proverkavvoda(X: TStringGrid;Y:boolean):boolean;
var len:integer;//длина строки
    s:string;//проверка верной записи числа
    number,code:Integer;//для функции val();
begin
len := length(X.cells[X.col, X.row]); //проверка длины ввода
  if len >9 then
      begin
      MessageDlgpos('Число не должно содержать более 9 символов',mterror,[mbOK],0,700,300);
      X.cells[X.col, X.row]:='';
      y:=False; //ввод неверный
      end
  else
      begin  //проверка на ввод числа
      s:=X.Cells[x.Col,x.Row];
      Val(s,number,code);
      if code=0 then  Y:=true //верный ввод
      else
          begin
          MessageDlgpos('Введите число',mterror,[mbOK],0,700,300);
          y:=False; //ввод неверный
          X.cells[X.col, X.row]:='';  //очищаем для следующего ввода
          end;
      end;
result:=y;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Пепел Феникса]

наследие паскаля, применяйте StrToInt для целых чисел, а StrToFloat для вещественных.

ЗЫ: ошибка потому что val работает с целыми.

[Serge_Bliznykov]

var len:integer;//длина строки
    s:string;//проверка верной записи числа
    number,code:Integer;//для функции val();

      begin  //проверка на ввод числа
      s:=X.Cells[x.Col,x.Row];
      Val(s,number,code);

Ещё вопросы есть?! (функция VAL не может преобразовать вещественное число, если для результата задана переменная целого типа...)

Сообщение от Пепел Феникса

ЗЫ: ошибка потому что val работает с целыми.

Пепел Феникса, ну не надо обижать отличный "классический" оператор Паскаля!!

program ProjectVal1;
{$APPTYPE CONSOLE}
uses SysUtils;
var s : string;
  code : integer;
  vvv : double;
begin
  s := '12.456';
  val(s, vvv, code);
  if code = 0 then
    WriteLn('Successful! Now number is ',vvv:15:7)
  else
    WriteLn('Oh! No! Error!(wrong symbol at position ',Code);
  Readln;
end.

[Пепел Феникса]

он перегруженный? не знал

[Человек Панда]

Огромное всем спасибо,как же это я не усмотрел сам!