您好，请教一个问题，谢谢(100分)

W

wjlsmail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #1

Form1 := TForm1.Create(self);
Form1.Caption := '1234';
if Assigned(Form1) then
Application.Terminate;

Form1中已经放置了几个控件，同时这儿也显式的给了Caption，为何还判断为 Nil ?
怎样Form1才能不是 Nil ?

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #2

这是什么代码?哪来的?怎么不全部贴出来?

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #3

这代码逻辑有问题，正常应该是先判断后赋值，因为窗体Create时有可能发生异常

 

Z

zikao419

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #4

不明白

 

S

skyweb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #5

Assigned(Form1)为True, 表示Form1不为Nil, 你大概理解反了

 

W

wjlsmail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #6

procedure TForm1.Button1Click(Sender: TObject);
begin
//没有任何目的，因为我正在学习，只是做个测试而已，以下为全部，窗体
//中一个Label,一个Button,一个OpenDialog

Form1 := TForm1.Create(self);
Form1.Caption := '1234';
if Assigned(Form1) then
Application.Terminate;

OpenDialog1.FileName := 'dd.txt';
OpenDialog1.InitialDir := 'c:/';
OpenDialog1.Filter := '*.txt';
if OpenDialog1.Execute then
Label1.Caption := OpenDialog1.FileName;
end;

 

W

wjlsmail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #7

欢迎大家指导，谢谢

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #8

Form1 := TForm1.Create(self); //这里有问题，因为Form1赋值，你重新创建
//一个窗体赋值会把原来窗体变量冲掉
Form1.Caption := '1234';
if Assigned(Form1) then //这里, 好像应该是 not Assigned(Form1)
Application.Terminate; //不过,建议你不要再类的方法里引用实例的变量

 

T

taninsh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #9

看不懂你的测试目的

 

W

wjlsmail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #10

taninsh 您好，我的测试没有任何别的目的，只是想知道：
在什么样的情况下 ，Form1才不被视为 Nil

tseug 您好， 这两个程序都不能通过：
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1 := TForm1.Create(self);
Form1.Caption := '1234';

if Assigned(Form1) then
Application.Terminate;
end;
-----------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
//没有任何目的，因为我正在学习，只是做个测试而已，以下为全部，窗体
//中一个Label,一个Button,一个OpenDialog

if Assigned(Form1) then
Application.Terminate;
OpenDialog1.FileName := 'dd.txt';
OpenDialog1.InitialDir := 'c:/';
OpenDialog1.Filter := '*.txt';
if OpenDialog1.Execute then
Label1.Caption := OpenDialog1.FileName;
end;

谢谢大家的指导，望继续赐教，谢谢

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #11

procedure TForm1.Button1Click(Sender: TObject);
var
Form1:TForm1;
begin
//没有任何目的，因为我正在学习，只是做个测试而已，以下为全部，窗体
//中一个Label,一个Button,一个OpenDialog
Form1 := TForm1.Create(self);
Form1.Caption := '1234';

if Assigned(Form1) then
Application.Terminate;
OpenDialog1.FileName := 'dd.txt';
OpenDialog1.InitialDir := 'c:/';
OpenDialog1.Filter := '*.txt';
if OpenDialog1.Execute then
Label1.Caption := OpenDialog1.FileName;
end;

 

W

wjlsmail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #12

ysai 您好， 您也许弄错了。 请看题，谢谢您得回复

谢谢大家的指导，望继续赐教，谢谢

 

J

jxyghm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #13

你的form1肯定不是nil

 

J

jxyghm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #14

首先Form1是一个Tform1类型的变量，在工程里有Application.create(form1,Tform1);
给Form1实例化，他的buttonclick又Form1:= Tform1.create(self);
和Application.create(form1,Tform1);一样的作用，此时相当于给一个变量改变值而已

if Assigned(Form1) then 如果为True 说明Form1<>nil
if not assigned(form1) then 如果为True 说明Form1=nil
如果在工程里这样
Application.Initialize;
if Assigned(Form1) then 这里Form1 为nil
Application.terminate;
Application.CreateForm(TForm1, Form1);
Application.Run;

 

W

wjlsmail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #15

jxyghm： 您好，谢谢您的精彩回复。我看到，在Delphi的帮助中是这样解释 Assigned的：
function Assigned(const P): Boolean;
Assigned returns False if P is nil, True otherwise.

我原来一直以为Assigned 返回 True时P为Nil ,看了帮助才知道我错了：），谢谢您，谢谢大家

 

W

wjlsmail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #16

多人接受答案了。