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

Fighter

Дата 5.4.2008, 16:47 (ссылка)

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

Загрузка ...

Опытный

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

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

Как узнать, что, например, моя переменная a является типом integer. Оператор is в данном случае не работает. Оператор is работает только с TComponent и т.д.

lukas

Дата 5.4.2008, 17:52 (ссылка)

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

Загрузка ...

Опытный

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

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

Никак...

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Alexeis

Дата 5.4.2008, 17:53 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Код


procedure ShowBasicVariantType(varVar: Variant);
var
  typeString : string;
  basicType  : Integer;

begin
  // Получение основного типа Variant :
  // это означает, исключение массива или косвенных модификаторов
  basicType := VarType(varVar) and VarTypeMask;

  // Установка строки для согласования типа
  case basicType of
    varEmpty     : typeString := 'Empty';
    varNull      : typeString := 'Null';
    varSmallInt  : typeString := 'SmallInt';
    varInteger   : typeString := 'Integer';
    varSingle    : typeString := 'Single';
    varDouble    : typeString := 'Double';
    varCurrency  : typeString := 'Currency';
    varDate      : typeString := 'Date';
    varOleStr    : typeString := 'OleStr';
    varDispatch  : typeString := 'Dispatch';
    varError     : typeString := 'Error';
    varBoolean   : typeString := 'Boolean';
    varVariant   : typeString := 'Variant';
    varUnknown   : typeString := 'Unknown';
    varByte      : typeString := 'Byte';
    varWord      : typeString := 'Word';
    varLongWord  : typeString := 'LongWord';
    varInt64     : typeString := 'Int64';
    varStrArg    : typeString := 'StrArg';
    varString    : typeString := 'String';
    varAny       : typeString := 'Any';
    varTypeMask  : typeString := 'TypeMask';
  end;

  // Показ типа Variant
  ShowMessage('Тип данных = ' + typeString);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i : Integer;
 v : Variant;
begin
  i := 5;
  v := i;
  ShowBasicVariantType(v);
end;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

lukas

Дата 5.4.2008, 22:01 (ссылка)

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

Загрузка ...

Опытный

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

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

а ну да... у варианта можно узнать... smile

Код


case varVar.VType of
 // то что написал Alexeis

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Poseidon

Дата 6.4.2008, 16:30 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Проверят string число там или нет

Код


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

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

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

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