都是全局变量的错。 如何定义一个全局变量在哪定义,form1,form2,form3中都能用。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 定義一個公用的 unit , 在裹面聲明, 然後,每個 form都 uses 就可 定義一個公用的 unit怎么定义 new-- unit然后 在他的interface中定义变量和函数,在每个form中uses 这个unit 如果是数据库开发的话可以把公共变量定义到dm的单元中,例如unit Datam;interfaceuses SysUtils, Classes, DB, DBTables,UserClass,Dialogs;type Tdm = class(TDataModule) db: TDatabase; QryPub: TQuery; private { Private declarations } public { Public declarations } end;var dm: Tdm; //公共变量 LogUser:Tuser; //公共函数,过程//----登陆 、注销function Login(Id,Password:string):Tuser;function LogOut(fuser:Tuser):boolean;//----加密、解密算法Function Encrypt(S:string):String;Function Decrypt(s:string):string;implementation{$R *.dfm}函数\过程.... 如果仅仅是全局变量你可以在窗口的public里定义,也可以定义一个unit 里边专门存放公用的变量和函数 MSSQL中数据库中的区域表如何设计 求教:堆栈的一个错误问题! 请教大家一个算法的问题! ADO与MySQL 调用方法时,Delphi6中一种不可思议方式!!!! Access 和 MSSqlServer数据库转换 如何用程序模拟鼠标的按键活动 如何取到opendialog1.FileName不包括路径的文件名?(急) 有什么工具可以查看软件在开发时都用了什么控件吗? IBM钱箱 直接连POS机的 现有一个vb编的ocx,想要import入delphi,请教 有关strtoint
然後,
每個 form都 uses 就可
然后 在他的interface中定义变量和函数,
在每个form中uses 这个unit
unit Datam;interfaceuses
SysUtils, Classes, DB, DBTables,UserClass,Dialogs;type
Tdm = class(TDataModule)
db: TDatabase;
QryPub: TQuery;
private
{ Private declarations }
public
{ Public declarations }
end;var
dm: Tdm;
//公共变量
LogUser:Tuser;
//公共函数,过程//----登陆 、注销
function Login(Id,Password:string):Tuser;
function LogOut(fuser:Tuser):boolean;
//----加密、解密算法
Function Encrypt(S:string):String;
Function Decrypt(s:string):string;
implementation{$R *.dfm}函数\过程
....