Question

delphi 跳转后 edit.text

unit Unit3;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject); var
user : string ;
password : string ; //密码
password1: string; //确认密码
//conini: tinifile;
begin

user := form3.Edit1.Text ; password:=form3.Edit2.text;
password1:=form3.Edit3.text;

//conini:=tinifile.create('C:\Documents and Settings\Administrator\桌面\1\5\wj.ini');

if user ='' then begin
showmessage('空');
end
else
showmessage(user);
if password<>password1 then
begin
showmessage('两次输入的密码不同，请重新输入！');
form3.Edit2.Text:='';
form3.Edit3.Text:='';
end;

end;
procedure TForm3.Button2Click(Sender: TObject);begin
form3.edit1.Text := '' ; form3.edit2.Text := '';
form3.edit3.Text := '';

end;
end.

//跳转页面代码 form1
procedure TForm1.N2Click(Sender: TObject);var
form3: tform3;
begin
form3:=tform3.create(self) ;
form3.Show ;

end;

form3 上始终报空 无论页面上填什么 这是怎么回事 ？？？？

Answer 1

//跳转页纳猛迹知橡面洞并代码 form1
procedure TForm1.N2Click(Sender: TObject);var
form3: tform3;
你这里定义的form3是个临时变量，你应该取消这里的var form3:tform3;语句，直接uses unit3使用里面在接口部分定义的form3

追问

xiexie 才学这个 不太懂

Answer 2

你这实际上就是游正验证两个文本框的字符是否相等,用得着搞这么复信物杂吗,只滑磨液一句代码就行了:
if edit1.text<> edit2.text then//复杂一点,去掉首尾空格,trim(edit1.text)<>trim(edit2.text)
showmessage('两次输入的密码不同，请重新输入！');
在edit2的退出事件中写上这句代码就够了.