unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1; // 全局变量(其它单元内也可存取)
globalvar: string; // 全局变量(其它单元内也可存取)implementation
var localvar: integer; // 全局变量(限本单元内存取)
{$R *.DFM}end.
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1; // 全局变量(其它单元内也可存取)
globalvar: string; // 全局变量(其它单元内也可存取)implementation
var localvar: integer; // 全局变量(限本单元内存取)
{$R *.DFM}end.
解决方案 »
- 数据类型问题,请问这个语句有什么错误?
- 请介绍一本好一点的delphi的数据库编程的书籍
- 紧急求助啊?高分香送,高手帮忙啊~~~十万火急啊
- CoInitialize 这个函数在DELPHI里怎么用!
- Error creating form:Access violation at address 40003c4c in module 'vcl50.bpl'.Read of address 4874656c.
- 按Ctrl+Shift+C生成函数头的时候它说:
- 大家请看过来,有新高点迎接
- 关于在韩文XP下显示Delphi编写的中文程式的解决方法
- 请问:在dephi中在哪定义全局变量和全局的数据库的连接(sql数据库)
- 有没有哈尔滨的朋友,进来留一下联系方式。哈尔滨的程序员好像少的可怜
- 类型转换出错,请各位大虾指教指教,急
- 请教哪里有Rational Rose的下载
你来得可真早!
应该在Private里定义。这是最简单的、直接的做法。
在public中也可用,引用: 类名.变量名
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
v:string; //form内的全局变量,直接调用
public
{ Public declarations }
v2:string; //应用程序内的全局变量,在其他窗体内这样调Form1.v2
end;
var
Form1: TForm1;
V3: string; //应用程序的全局变量,直接调用
implementation
var V4: integer; // Form内的全局变量
{$R *.DFM}
end.