VPF::IsNumeric в VBA и его аналог в Delphi - Форум программистов

Amina

Дата 5.5.2006, 19:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте, уважаемые гуру! Подскажите пожалуйста, у меня есть макрос в VBA, хочу перенести его в Дельфи, там есть функция IsNumeric, есть ли подобная функция в Дельфях? Документ Excel щелрывается с помошью компоненты F1Book, вот и нужна проверка определенных ячеек
Если Ячейка=IsNumeric то
...
иначе
...
заранее спасибо!

Дата 5.5.2006, 20:43 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Можно через TryStrToInt

Poseidon

Дата 5.5.2006, 21:40 (ссылка)

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

Загрузка ...

Delphi developer

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

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

А что делает IsNumeric в VBA?
Если она проверяет, является-ли передаваемое значение числом, то можно воспользоваться типом Variant и применить VarType.

Код

if (VarType(x) and varTypeMask = varInteger) then

где x: variant. Применимо к твоему примеру, х - это ячейка

Хотя если учесть, что в ячейке хранится текст, то можно применить функцию IsInteger

Код

function IsInteger(const Value: string; var OutResult: Integer): Boolean;
var
  Code: Integer;
begin
  Val(Value, OutResult, Code);
  Result := (Code = 0);
end;

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

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

~FoX~

Дата 6.5.2006, 08:52 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

В F1 он вроде так обзывается FormatNumberDlg

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

…множественность никогда не следует полагать без необходимости…

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