建一个公共单元public.unitvar
......
......
解决方案 »
- 请那位哥子帮解释一下这两句,不好意思(别人会的我也想弄懂,但是又太笨)
- spcomm接收串口数据的问题?
- 有关在dggrid中数字现示格式的问题
- 求获取本机IP函数
- 请问我连接access数据库,使用下列语句为什么报错?急!!!谢谢!
- 在Delphi中访问Oracle数据库的一个问题。
- 控件名字存在string型变量中,我如何对控件操作?看我的代码,没有实现,达人帮忙啊,我在线等
- 如何在StringGrid或DrawGrid的中单元格内插入图片?(24小时等候)
- 浙江大华DVR用SDK 进行回调函数抓图
- 用Delphi程序实现Internet上下载图片
- 请教TMessage的Result小问题。谢谢
- ADO 与 DATA MODUAL
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm2 = class(TForm)
private
{ Private declarations }
public
.....................//在此申明就可
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.DFM}end.
2.
unit unt_gl
interface
//全局变量定义;
x:integer;
//全局函数声明;
implementation
全局函数定义;
end.
3. 另一个单元文件中:
interface
uses
unt_gl.....
也可在
implementation
uses
unt_gl.....
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;
.....................//我是在这申明的
implementation{$R *.DFM}end.
unit UPublic;interfaceuses
Windows, Messages, SysUtils, Classes, Controls,Consts, Graphics,Dialogs,
DBCtrls, StdCtrls, ExtCtrls, ComCtrls, DBTables,UFm_Wait,Forms,DB;var __Ksbm,__Ksmc,__HospitalName,__Czyxm,__PCNO,__HospitalBM,__AppName:String;
__SBSXH,__SBJYSXH,__SBSJPH,__SBGRBM,__SBKH:String;//
在该单元中,声明pubic变量就行了
你的软件可能要有一个主窗体吧?只要其他单元引用主窗体单元,用FormMain.yourvar(在主窗体的public部分声明)或yourvar(在主窗体的var部分声明)就可以了!
图例:----------------------------
| Unit main; |
| …… |
| 声明yourvar |
| -------------------- |
| | Unit unit1; | |
| | …… | |
| | use main; | |
| | …… | |
| | 引用yourvar | |
| -------------------- |
| …… |
-----------------------------
窗的跨度表示存活期!