rewrite命令在创建一个新文件时，如果该文件已经存在，是否会创建一个新文件

[tb2lb]

rewrite命令在创建一个新文件时，如果该文件已经存在，是否会创建一个新文件
下面程序建立一个新文件：pwdfile,并将edit1.text的指写入，是否正确，为何执行后文件未写入
rewrite(pwdfile);
writeln(pwdfile,edit.text)

[helpwo]

复盖

[纯冰糖]

覆盖了，重新写入新的内容了

[tb2lb]

我试过了，发现文件确实覆盖了，但内容没写入，是空白的，这是何故
procedure TForm9.BitBtn1Click(Sender: TObject);
var
pwdfile:textfile;
begin
if edit2.text=edit1.Text then
begin
case radiogroup1.ItemIndex of
0:assignfile(pwdfile,'d:\works\data\xuesheng.txt');
1:assignfile(pwdfile,'d:\works\data\guanli.txt');
end;
rewrite(pwdfile);
{reset(pwdfile); }
label4.Caption:=edit1.text;
writeln(pwdfile,edit1.text);
{ form9.Close;}
end
else
begin
showmessage('两次的密码输入不一致，请重新输入！');
edit1.setfocus;
end;
end;