------DLL---------
library TestDLL;uses
ShareMem,
SysUtils,ComCtrls,
Classes;
procedure Filllistview(lv:TListView);stdcall;//这里不写stdcall程序就报错!!!
var lt : TListItem;
begin
if not Assigned(lv) then exit;
lt := lv.Items.Add;
lt.Caption := 'tests';
lt.SubItems.Add('ABCDEFG');
end;
{$R *.res}
exports
Filllistview;
begin
end.
----------------------
而Form里直接写就没错!
procedure TForm1.Button11Click(Sender: TObject);
var lt : TListItem;
begin
lt := ListView1.Items.Add;
lt.Caption := 'tests';
lt.SubItems.Add('ABCDEFG');
end;
这是咋回事情???
library TestDLL;uses
ShareMem,
SysUtils,ComCtrls,
Classes;
procedure Filllistview(lv:TListView);stdcall;//这里不写stdcall程序就报错!!!
var lt : TListItem;
begin
if not Assigned(lv) then exit;
lt := lv.Items.Add;
lt.Caption := 'tests';
lt.SubItems.Add('ABCDEFG');
end;
{$R *.res}
exports
Filllistview;
begin
end.
----------------------
而Form里直接写就没错!
procedure TForm1.Button11Click(Sender: TObject);
var lt : TListItem;
begin
lt := ListView1.Items.Add;
lt.Caption := 'tests';
lt.SubItems.Add('ABCDEFG');
end;
这是咋回事情???
我现在做的DLL就是处理界面的好多控件,在退出主程序的时候,
有报错~Invalid Opinter Operate ???
不会有问题的!