VPF::Проверка на float - Форум программистов

conio

Дата 16.11.2007, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 22.8.2007

Репутация: нет
Всего: нет

День добрый ...
не подскажите функцию которая проверяет строку на float

желательно булевую...

если нет то подскажите как перехватить сообщение об ошибке(в случае если строка не может конвертнуться в float) функции StrToFloat();

Moid

Дата 16.11.2007, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 27.3.2006

Репутация: нет
Всего: 3

В таких случаях используется
TRY ...
Примеры смотри в хелпе

--------------------

"Всё должно быть сделано настолько простым, насколько это возможно, но не проще" (с) А.Эйнштейн

Rennigth

Дата 16.11.2007, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Цитата(conio @ 16.11.2007, 13:37

)

День добрый ...
не подскажите функцию которая проверяет строку на float

желательно булевую...

Код


TryStrToFloat/StrToFloatDef

Это сообщение отредактировал(а) Rennigth - 16.11.2007, 13:58

--------------------

(* Honesta mors turpi vita potior *)

conio

Дата 16.11.2007, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 22.8.2007

Репутация: нет
Всего: нет

Код


float p;
try
  p := StrToFloat(s);
 finally
  ShowMessage('Ошибка');
end

Выполняя try сгенериться ошибка!

А мне нужно чтобы выдавалось только мое сообщение о ошибке без ошибки которое сгенериться в try

Это сообщение отредактировал(а) Alexeis - 16.11.2007, 14:32

Rennigth

Дата 16.11.2007, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Цитата(conio @ 16.11.2007, 13:58

)

А мне нужно чтобы выдавалось только мое сообщение о ошибке без ошибки которое сгенериться в try

Код


  try
    p := StrToFloat(s);
  except
    on E: EConvertError do
      raise EConvertError.Create('Ошибка конвертации');
  end;

но лучше :

Код


  if not TryStrToFloat(s, p)  then
    raise EConvertError.Create('Ошибка конвертации'); //или еще что

--------------------

(* Honesta mors turpi vita potior *)

conio

Дата 16.11.2007, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 22.8.2007

Репутация: нет
Всего: нет

Спасибо огромное за помощь!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »