怎样定义一个在整个工程都能用的全局变量(50分)

  • 主题发起人 主题发起人 xxxfffcn
  • 开始时间 开始时间
X

xxxfffcn

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样定义一个在整个工程都能用的全局变量
怎样在用到一个表单时才创建它。关闭时释放它呢??
怎样识别一台机子是简体还是繁体呢?
怎样在图片框中动态改变图片呢,图片格式是jpg
急!
 
在interface部分声明变量
interface
-------
-------
var
ss:string;
implementation
---------
加左图片
image1.Picture.LoadFromFile('c:/sss.jpg');
 
第一个声明变量的好象不行。
希望具体一点解答好吗?
 
应该是不行的吧。只能在该单元中能用。
 
把定义的全局变量放到公用的数据模板中,这样创建一次就可以了!
 
哪是公用的数据模板?
怎么搞???
我是一个小小的菜鸟。
 
新建一个单元,
unit Unit2;

interface
var
aa:string;//在这里定义一个变量变
implementation

end.
//然后在需要用的单元里的uses语句后引用该单元
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls ,unit2;//在这里引用它
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
aa:='aaa';
Edit1.Text:=aa;
end;
这样你就可以在该unit1里任意地方使用这个变量了,在其它地方也一样

在需要用到一个窗体时,创建它,首先你要点菜单的project-->Options,将要动态创建的窗体从左边的列表框中移到右边的列表框中。
然后在要创建它的地方这样写
form1:=Tform1.Create(Self);
form1.ShowModal;
要任意加载jpg格式的图片,首先也得在uses引用单元后面,加一个
uses
jpg;
然后就象楼上说的那样
image1.Picture.LoadFromFile('c:/sss.jpg');
 
多人接受答案了。
 
后退
顶部