PostHeaderIconDelphi. Процедура VarCast( var Dest: Variant; const Source: Variant; VarType: Integer );

Процедура VarCast( var Dest: Variant; const Source: Variant; VarType: Integer );

Модуль: System

Описание
Процедура приводит тип переменной Variant к заданному Variant-типу. Исходное значение передается в параметре Source, результирующее значение записывается в переменную Dest. Тип результирующего значения определяется параметром VarType, который должен соответствовать одному из значений поля VarType типа TVarData, за исключением varArray и varByRef. (Список значений TVarData.VarType см. в описании функции VarType). При невозможности успешного выполнения данной процедуры возникает исключение EVariantError.

Данная процедура аналогична функции VarAsType.

Пример
var
   VString, VDateTime: Variant;
begin
   VString:= '28.02 10:45';
   VarCast(VDateTime, VString, varDate);
   MessageDlg( VDateTime, mtInformation, [mbOk], 0);
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.