[nixel]

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

Если версия Дельфи не позволяет яно указать, что Edit может воспринимато только цифры, то имеется обходной путь:

Код:

procedure TForm1FormCreate(Sender: TObject);
var
  I : Integer;
begin
  // Устанавливаем для всех Edit-ов только цифры,
  //   в старших версиях дельфи имеется в свойствах контрола.
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) then
      with (Components[i] as TEdit) do
        SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER);
end;

и тогда в коде не потребуется делать дополнительные проверки.

и как это должно помочь обойти проблему деления на ноль и пустой строки?