delphi - 如何确保所有属性都已重置

Question

我上课给信用卡收费；每次处理交易时，我只需更改卡号和日期之类的属性并提交。

碰巧是属性设置不正确，交易使用的是旧卡号。可怕。

因此，为防止再次发生这种情况，我想确保该类中的所有属性都恢复为默认值。我在考虑诸如处置创建的类并重新创建它的事情。但是我不确定如何在Delphi中做到这一点。

这是我当前的代码：

if frmPayAware = nil then  
  Application.CreateForm(TfrmPayAware, frmPayAware);
  frmPayAware.ProcessCredit(eExpDate.Text,FTrack,eNameOnCard.Text,eCardNum.Text,0);

Answer 1

您可以创建一个清除所有属性的清除方法。或者，您可以为每次使用创建表单：

var
  frm : TfrmPayAware;
begin
  frm := TfrmPayAware.Create(nil);
  try
    frm.ProcessCredit(eExpDate.Text,FTrack,eNameOnCard.Text,eCardNum.Text,0);
  finally
    frm.Release;
  end;
end;

就个人而言，我更喜欢后一种方法，因为这样可以确保每次使用表单时，表单都处于相同状态（刚创建）。

免费与发布
释放，将消息CM_RELEASE发布到表单。如果处理了该消息（在处理了所有其他消息之后），则调用Free。