Число?

← →
Officeman © (2007-01-25 08:00) [0]

Как програмно сделать простую проверку?

т.з.

Импортирую данные из файла Excel таблиц "example.xls"
Два поля: Наименование товара, Цена

При чтении значений поля ЦЕНА.
необходимо проверять через тип значения

Если Число(x)=true Тогда
//Делаем его целым (десятичные 0,5 округляем до 1 )
Иначе пропускаем

пробовал так
STE := StrToIntDef(WorkSheet.Cells[x,2],0); STR := IntToStr(STE);
но если попадается ТЕКСТ с поле ЦЕНА (например: #ЗНАЧ! или другое)
то цикл прерывается с ОШИБКОЙ "valid type".

← →
Elen © (2007-01-25 08:48) [1]

> STE := StrToIntDef(WorkSheet.Cells[x,2],0);

Попробуй
if TryStrToInt(WorkSheet.Cells[x,2],ste) then STR := IntToStr(STE);

← →
Officeman © (2007-01-25 09:17) [2]

2Elen,
не работает.
при встрече текста в поле цена. вылетает с ошибкой

← →
Alx2 © (2007-01-25 09:32) [3]

>Если Число(x)=true Тогда

Честно говоря, раздражает подобное. А-ля
- Скажите, утверждение "соль есть в вашем магазине" равно истине?

А по вопросу - что если обернуть конвертирование в try ... except?

← →
iXT © (2007-01-25 09:35) [4]

Что есть STE?

← →
Officeman © (2007-01-25 09:40) [5]

2Alx2, так тоже не работает

2iXT, StrToIntDef неужели ни о чем не говорит?

← →
Elen © (2007-01-25 09:41) [6]

> Officeman

Могу еще Val посоветовать или действительно как сказал Alx2 try...Except

Или еще попробуй так :
STE := StrToIntDef(VarToStr(WorkSheet.Cells[x,2]),0); STR := IntToStr(STE);
Ибо по-моему Cells имеет тип OleVariant.

← →
Alx2 © (2007-01-25 09:43) [7]

>Officeman © (25.01.07 09:40)

Может, просто из-под среды выбивает с включенным Stop on Delphi exceptions?

← →
Officeman © (2007-01-25 10:21) [8]

2Elen, это всё пробовал. не работает.
пробовал даже так:

STR1:=VarToStr(WorkSheet.Cells[x,2]); a:=true; For i:=1 to Length(STR1) do begin If not ((STR1[i]) in (["0".."9","."])) then begin a:=false; end end; if a then begin Memo4.Lines.Add(WorkSheet.Cells[x,2]) end;

так же вылетает с ошибкой при встрече ТЕКСТ в поле ЦЕНА
контент ошибки: "invalid variant type convertion"

какаето мелочь. немогу догнать почему так.

← →
Elen © (2007-01-25 10:34) [9]

> так же вылетает с ошибкой при встрече ТЕКСТ в поле ЦЕНА

Попробуй Try...Except... End. Он не должен дать ошибку при запуске проги не из под Делфи. Запусти Экзешник отдельно (см. [7])

← →
Elen © (2007-01-25 10:36) [10]

> Officeman

Да еще может попробуй :
STE := StrToInt(VarToStrDef(WorkSheet.Cells[x,2],0)); STR := IntToStr(STE);

← →
iXT © (2007-01-25 10:50) [11]

Чудес не бывает. Смотри драйвер hands.sys

← →
Elen © (2007-01-25 10:52) [12]

> Смотри драйвер hands.sys

И что в нем?

> И что в нем?

У каждого свое :)

Удалено модератором

> Естъ такой Чувство Юмор, Йа?

Это не "Чувство Юмор", это один из драйверов, которые ответственны за то, что некто вместо изучения основ начинает методом тыка подставлять разные функции в код в надежде, что всё заработает. Ещё рекомендую проверить драйвер head.drv...

Удалено модератором
Примечание: Создание пустых сообщений

Удалено модератором

try
Value := StrToFloat(St);
except
end;
И не забудь снять галочку в настройках дебаггера: Stop on Delphi exceptions, иначе все равно будет вылетать при работе в среде.

Число? Найти похожие ветки