StrToFloat

[romanzi]

Вот такие вот ошибочки.
Понять не могу в чём дело?
Беру число из сайта.

Всего 3 символа - 0.1

  if StrToFloat(now) > StrToFloat(user) then
    begin
       button2.Enabled := true;
       button3.Enabled := true;
    end;

[Serge_Bliznykov]

косяк у Вас! Дело в том, что в настройках вашей винды (смотри настройку русской локали) стоит разделитель целой и дробной части [ , ] // запятая.


когда нам понадобилось защититься от этой ситуации (на разных машинах пользователи вводили числа с различными разделителями + разные локальные настройки на клиентских машинах),
то использовали такие "костыли"

function StrToFloatProtected(s: string) : double;
var repl_char : char;
begin
  if DecimalSeparator = '.' then repl_char := ',' else repl_char := '.';
  StrReplace(S, repl_char , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]);
  StrReplace(S, ' ' , '', [rfIgnoreCase, rfReplaceAll]);
  try
    Result := StrToFloat(S)
  except
    Result := 0;
  end;
end;

p.s. StrReplace - это процедура из JclStrings
можно просто заменить на функцию StringReplace:

function StrToFloatProtected(s: string) : double;
var repl_char : char;
begin
  if DecimalSeparator = '.' then repl_char := ',' else repl_char := '.';
  s := StringReplace(s, repl_char , DecimalSeparator, [rfReplaceAll, rfIgnoreCase]);
  s := StringReplace(s, ' ' , '', [rfReplaceAll, rfIgnoreCase]);
  try
    Result := StrToFloat(S)
  except
    Result := 0;
  end;
end;

[Arigato]

Флаг rfIgnoreCase тут лишний.

[Serge_Bliznykov]

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

Флаг rfIgnoreCase тут лишний.

согласен!

[Utkin]

p.s. StrReplace - это процедура из JclStrings

В новых версиях делфи есть хелпер для строки, там полно подобных методов. Чем-то с# напоминает.

[BDA]

У меня возникло чувство по 2 скрину, что там еще есть пробел, т.е. Вы пытаетесь преобразовать строку "0.1 " в число.
UPD
Проверил - ошибался.