如何复制对象？

发布于 2025-01-27 18:11:08 字数 495 浏览 5 评论 0原文

我在Delphi 11中。

我需要创建一个新的实例tidmessage和tidsmtp，只需通过从另一个tidmessage和TIDSMTP。除了手动分配您需要一个属性外，最好的方法是什么？

var 
  newIdMessage : TIDMessage;
  newIDSmtp : TIDSmtp;
begin
  newIdMessage := TIDMessage.create;
  newIdSmtp := TIDSmtp.create;

  // something like this:
  newIdMessage.copyPropertiesFrom(form1.IdMessage1);
  newIdSmtp.copyPropertiesFrom(form1.IdSmtp1);
end;

原文

I'm on Delphi 11.

I need to create a new instance of a TIdMessage and TIDSmtp, simply by copying all properties from another TIdMessage and TIDSmtp. What's the best way to do it besides manually assigning the properties you need one by one?

var 
  newIdMessage : TIDMessage;
  newIDSmtp : TIDSmtp;
begin
  newIdMessage := TIDMessage.create;
  newIdSmtp := TIDSmtp.create;

  // something like this:
  newIdMessage.copyPropertiesFrom(form1.IdMessage1);
  newIdSmtp.copyPropertiesFrom(form1.IdSmtp1);
end;

分享到QQ

分享到微博