我想在动态连接库里定义一个全局变量,可是编译不能通过,以下是源代码:
library ReportDll;uses
sharemem,
SysUtils,
Classes,
Forms,
WinTypes,
dbtables,
rxquery,
db,
........{$R *.RES}var
db:TDatabase;procedure Init;
begin
db:=TDatabase.Create(nil);
db.AliasName:='main';
db.DatabaseName:='main1';
db.LoginPrompt:=false;
....
end;
怎么写才正确??????
library ReportDll;uses
sharemem,
SysUtils,
Classes,
Forms,
WinTypes,
dbtables,
rxquery,
db,
........{$R *.RES}var
db:TDatabase;procedure Init;
begin
db:=TDatabase.Create(nil);
db.AliasName:='main';
db.DatabaseName:='main1';
db.LoginPrompt:=false;
....
end;
怎么写才正确??????
SysUtils,
Classes,
DBTables;{$R *.res}
var
db :tdatabase;
procedure unit1;
begin
db:=TDatabase.Create(nil);
db.AliasName:='main';
db.DatabaseName:='main1';
db.LoginPrompt:=false;
end;
beginend.
定义在public当中还不够吗