VPF::Узнать число или текст - Форум программистов

Palladin

Дата 10.5.2009, 13:32 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

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

собстно прогоняюсь по массиву компонентов DBEdit, если к примеру стоит буква или какаянить абривиатура, то я инкрементирую определенную переменную, но так же в DBEdit может быть число как целое так и вещественное(через точку), как узнать что мне попалось число, что-то как-то анвскидку ничего быстренького приудмать не получилось, вот код:

Код


       for i:=1 to 62 do
        if(GetDBEdit(i).Text='Â') then sum_vihodnie:=sum_vihodnie+1 else
        if(GetDBEdit(i).Text='Á') then sum_baddays:=sum_baddays+1 else
        if(GetDBEdit(i).Text='Î') then sum_summertime:=sum_summertime+1 else
        if(GetDBEdit(i).Text='ÎÆ') then sum_child:=sum_child+1 else
        if(GetDBEdit(i).Text='Ñ') then sum_workwork:=sum_workwork+1 else
        if(GetDBEdit(i).Text='Ó')or(GetDBEdit(i).Text='ÓÁ') then sum_lesson:=sum_lesson+1 else
        if(GetDBEdit(i).Text='тут надо проверить число ли') then бла-бла-бла

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

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Keeper89

Дата 10.5.2009, 13:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Код


var
  A: Real;
  nums, errCode: Integer;
for i:=1 to 62 do  
begin
  //...
  Val(GetDBEdit(i).Text,  A, errCode);
  if errCode = 0 then Inc(nums);
  //...
end

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Palladin

Дата 10.5.2009, 14:06 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

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

Жесть, как можно было забыть про Val=) спс '+'

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

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

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