Код: Выделить всё
var
fr:variant;
v:variant;
port :longint;
speed :longint;
password :widestring;
cashsection :longint;
printtax :boolean;
protocol :longint;
devid:widestring;
begin
fr:=CreateOleObject('MercuryCom.FPDrv1C2');
v:=VarArrayCreate([0, 5], varvariant);
port :=2;
speed :=115200;
password :=StringToOleStr('0000');
cashsection :=1;
printtax :=false;
protocol :=11;
v[0]:=port;
v[1]:=speed;
v[2]:=password;
v[3]:=cashsection;
v[4]:=printtax;
v[5]:=protocol;
result:=fr.Devicetest(v, devid); //при выполнении вываливается ошибка "Несовпадение типов"
end;
ПОМОГИТЕ кто чем сможет!!!!
Решил проблему ... В данном коде вместо
Код: Выделить всё
result:=fr.Devicetest(v, devid); //при выполнении вываливается ошибка "Несовпадение типов"
Код: Выделить всё
result:=fr.Devicetest(Olevariant(v), devid);