VPF::Проверка типа данных в Edit - Форум программистов

Martin_8

Дата 12.12.2008, 17:03 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте. Помогите советом в следующей ситуации.
Есть поле Edit. В его пользователь может вводить либо целые, либо дробные числа. Как определить, какое число пользователь ввёл в Edit, ведь там же число хранится в виде строки.

Можно конечно искать в этой строке точку или запятую для определения, что число дробное.
Но, наверняка, это можно сделать как-то проще и элементарнее.
Подскажите пожалуйста, как ?

Rodman

Дата 12.12.2008, 17:15 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

TryStrToFloat

и другие TryStrTo....

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

CRM с функцией АвтоОбзвона

Лотереи мира

Poseidon

Дата 12.12.2008, 17:22 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(Martin_8 @ 12.12.2008, 17:03

)

Можно конечно искать в этой строке точку или запятую для определения, что число дробное. Но, наверняка, это можно сделать как-то проще и элементарнее.

На самом деле это самый простой и правильный вариант.

Код


if pos(DecimalSeparator, Edit1.Text) = 0 then
  /// целое
else // дробное

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Rrader

Дата 12.12.2008, 17:54 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Poseidon, а если по ошибке ввели несколько точек (запятых)?
Rodman, +1

Добавлено через 1 минуту и 41 секунду
Я бы так предложил: проверяем, есть ли DecimalSeparator. Если есть - делаем TryStrToFloat, если нет, делаем Val и смотрим в Code

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

Let's do this quickly!
Rest in peace, Vit!

Martin_8

Дата 12.12.2008, 23:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Rrader @ 12.12.2008, 17:54

)

а если по ошибке ввели несколько точек (запятых)?

Такие нюансы обрабатывается отдельно.

Всем спасибо за помощь и оперативность. Как всегда vingrad и его форумчане выручили. smile

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