Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Узнать число или текст

Автор: Palladin 10.5.2009, 13:32

собстно прогоняюсь по массиву компонентов 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 бла-бла-бла

Автор: Keeper89 10.5.2009, 13:47

Код


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

Автор: Palladin 10.5.2009, 14:06

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