Question

delphi给引用对象赋值问题

var
Form1: TForm1;
WorkSpaceApp:Variant;

procedure TForm1.FormCreate(Sender: TObject);
begin
WorkSpaceApp:=getactiveoleobject('Workspace.Application');
TagVar:=WorkSpaceApp.System.findobject('Fix32.IFIXLE.TEST.F_CV');
end;

procedure TForm1.tmr2Timer(Sender: TObject);
begin
//用这个 label1.Caption := TagVar;可以读到值，但想用TagVar:=12;发现没有成功
label1.Caption := TagVar;
end;

Answer 1

是不是变量类型不一致或是溢出？

Answer 2

TagVar.Value := "75";
这个可以不？

追问

这个后来已经试出来了！可是有个新的问题，TagVar:=WorkSpaceApp.System.findobject('Fix32.IFIXLE.TEST.F_CV');在有些子程序中代码里会报错 “尚未调用CoInitialize”，

追答

那你最好在窗体（表单）
创建的时候CoInitialize(nil);

窗体销毁时CoUninitialize();

估计你是用了ado控件才有这个问题

Answer 3

TagVar是局部变量还是全局变量？