好郁闷啊,谁来救救我啊,没分给了,用完了

Question

if  fileexists(FilePath) then
  begin
    assignfile(password,FilePath);
    reset(password);
    read(password,FileContent);
  end;  if FileContent <> editOld.Text then
  begin
     showMessage('您输入的旧密码不正确！请重新输入');
     editOld.Text := '';
     editOld.SetFocus;
  end
  else if  editNew.Text <> editNew1.Text then
  begin
    showMessage('您两次输入的新密码不一致，请检查！！');
    editNew.Text := '';
    editNew1.Text := '';
    editNew.SetFocus;
  end
  else
  begin
    FileClose();
    //assignfile(password,FilePath);
    rewrite(password);
    //Append(password);
    write(password,editnew.text);
    closefile(password);
    showMessage('密码设置成功！');
    close;
  end;开始修改时成功了,后来我故意把旧密码输错一次,
然后再叔如正确的旧密码,write(password,editnew.text);就出错了,找不出来哪里的错

Answer 1

没有  FileClose();这句话