远
远帆
Unregistered / Unconfirmed
GUEST, unregistred user!
我在DLL中使用variant传递string数据失败，提示地址错误。可是无法用F7跟踪。好像是生
存期自动管理错误。不知如何解决？
下面是一段例子代码：
DLL project中
procedure x(var d:Variant);
begin
d:='test';
end;
exports
x;
begin
end.
测试project中：
procedure x(var d:Variant);External 'project1.dll';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
d:Variant;
begin
x(d);
Edit1.Text:=d;
end;
存期自动管理错误。不知如何解决？
下面是一段例子代码：
DLL project中
procedure x(var d:Variant);
begin
d:='test';
end;
exports
x;
begin
end.
测试project中：
procedure x(var d:Variant);External 'project1.dll';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
d:Variant;
begin
x(d);
Edit1.Text:=d;
end;