Преобразовать строку в число

[hon]

У меня такая задача: преобразовать строку в вещественное число. Делаю так:

function StrToFloat(Str: string): real;
var
  I, Code: Integer;
begin
  { Get text from command line }
  Val(Str, I, Code);
  { Error during cnversion to integer? }
  if code <> 0 then
    Writeln('Error at positon: ', Code)
  else
    StrToFloat:=I;
end;

Все работает нормально, если отправить целое число. Но стоит отправить вещественное, например: '10.5' (например StrToFloat('10.5')), как выскакивает Error at position: 3 (порядковый номер точки). Где ошибка?

[Luuzuk]

В русской локали разделителем целой и дробной части является запятая, а не точка. Замените точку на запятую, и будет вам мешочек щастья)

[hon]

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

Замените точку на запятую, и будет вам мешочек щастья)

Не помогает. Тоже самое. Ошибка там же.

[badnum23]

У вас I переменная типа Integer, а надо сделать Real

[hon]

badnum23, спасибо. Получилось.