DLL 中给 Form的ListView写值 输出函数不写 stdcall 就报错~为什么??
squir 2007-08-27 11:37:31 ------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;
这是咋回事情???