简单问题

Question

procedure tform1.bitbtnclick(sender:tobject);
varpwdfile:textfile;
pwdstr:string;
begin
ifcheckbox1.checked=true then
assignfile((pwdfile,'d:\data\管理员.cfg')
else
assignfile(pwdfile,'d:\data\学生.cfg');
reset(pwdfile);
readln(pwdfile,pwdstr);
closefile(pwdfile);
times:=times+1;
if edit1.text=pwdstr then
begin
if checkbox1.checked=truethenform5.show;
elseform7.show;
end
else
begin
if messagedlg('错误',mtcomfirmation,[mbyes,mbno],0)=mryes then
close
else if times<3 then edit1.setfocus
else
begin
messagedlg('错误',mtinformation,[mbok],0);
application.terminate;
end;
end;
end;
这是一段登陆窗口源程序,问cfg文件如何生成，TEXTFILE生成CFG文件用笔记本能打开。

Answer 1

你可以用ini啊...如果要操作文本文件,最简单的方法是用一个richedit,进行操作(visiable为false就行了).

Answer 2

这是那本教材的例子
你自己在记事本里写用户和密码，保存成ini文件，一个管理员，一个学生的
这样一般能用记事本打开，如果不行，你到文件夹选项改他的打开方式

Answer 3

cfg只是后缀名而已，你就把文本.txt的txt后缀名改为cfg就可以了！！这个密码文件是要用加密文件加密才安全。

Answer 4

生成cfg文件，要求不能用笔记本打开，否则密码泄露