Как узнать тип переменной 1С во внешней компоненте Ключевые слова: Delphi, ВК, переменная, тип, узнать, OLE, OleVariant
uses Variants;
...
var t: TVarType;
...
v:=GetNParam(paParams,0); //1-й параметр метода
t:= VarType(v); //Получаем тип переменной
//MessageBox(0, pchar(IntToStr(t)), '*', 0);
Case t of
varInteger: begin
MessageBox(0, 'Целое число', '*', 0);
varDouble: begin
MessageBox(0, 'Дробное число', '*', 0);
end;
varOleStr: begin
MessageBox(0, 'Строка', '*', 0);
end;
varDate: begin
MessageBox(0, 'Дата', '*', 0);
end;
varDispatch: begin
MessageBox(0, 'Ссылка', '*', 0);
end;
|