这个登陆代码用delphi怎么写啊?

来源：百度知道 编辑：UC知道 时间：2024/06/18 06:23:23
一起有3个控件,一个user文本框,一个password文本框,一个按钮控件

单击按妞后,把2个文本框内容保存到C:\1.txt 文本文件中.

请问代码该怎么实现呀?

procedure TForm1.Button1Click(Sender: TObject);
var username,password:String;
f:TextFile;
begin
username:=Edit1.Text;//假定Edit1 是你的user输入框
password:=Edit2.Text;//假定Edit2 是你的密码输入框
AssignFile(F,'c:\1.txt');
Rewrite(f);
Writeln(f,username+' '+password);
CloseFile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
var username,password:String;
f:TextFile;

username:=Edit1.Text;//假定Edit1 是你的user输入框
password:=Edit2.Text;//假定Edit2 是你的密码输入框
AssignFile(F,'c:\1.txt');
Rewrite(f);
Writeln(f,username+' '+password);
CloseFile(f);
end; procedure TForm1.Button1Click(Sender: TObject);
var username,password:String;
f:TextFile;
begin
username:=Edit1.Text;//假定Edit1 是你的user输入框
password:=Edit2.Text;//假定Edit2 是你的密码输入框
AssignFile(F,'c:\1.txt');
Rewrite(f);
Writeln(f,usernam