Account(const Account &rhs)
{
  member_data1 = rhs.member_data1;
  ....
}

引言: 我不知那些屬性和那些值要轉過去

引言: 您好： 參考http://delphi.ktop.com.tw/topic.php?TOPIC_ID=43193 此篇文章很長看完應該有妳要的 ~~應無所住而生其心~~

uses typInfo;    function CloneProperty2(SourceComp, TargetComp: TObject): Boolean;
var
  i: Integer;
  Properties : PPropList;
begin
  Result := True;
  try
    for i := 0 to GetPropList(SourceComp, Properties) - 1 do
    begin
      if LowerCase(Properties[i].Name) = 'name' then continue;
      if not IsPublishedProp(SourceComp, Properties[I].Name) then Continue;
      if not IsPublishedProp(TargetComp, Properties[I].Name) then Continue;
      if PropType(SourceComp, Properties[I].Name) <> PropType(TargetComp, Properties[I].Name) then
        Continue;
      case PropType(SourceComp, Properties[i].Name) of
      tkClass:
        SetObjectProp(TargetComp, Properties[i],
        GetObjectProp(SourceComp, Properties[i]));
      tkMethod:
        SetMethodProp(TargetComp, Properties[I], GetMethodProp(SourceComp,
          Properties[I]));
      else
        SetPropValue(TargetComp, Properties[i].Name, GetPropValue(SourceComp,
        Properties[i].Name));
      end;
    end;
  except
    Result := False;
  end;
end;

#include     bool CloneProperty2(TObject *SourceComp, TObject *TargetComp)
{
  int i;
  PPropList Properties;      Result = True;
  try
  {
    for (i = 0 ; i <= GetPropList(SourceComp, Properties) - 1; i   ) 
    {
      if (LowerCase(Properties[i]->Name) == "name") 
            continue;
      if (!IsPublishedProp(SourceComp, Properties[I]->Name))
            Continue;
      if (!IsPublishedProp(TargetComp, Properties[I]->Name))
            Continue;
      if (PropType(SourceComp, Properties[I]->Name) != PropType(TargetComp, Properties[I]->Name)) 
            Continue;
      switch(PropType(SourceComp, Properties[i]->Name))
      {
      case tkClass:
        SetObjectProp(TargetComp, Properties[i],
        GetObjectProp(SourceComp, Properties[i]));
        break;
      case tkMethod:
        SetMethodProp(TargetComp, Properties[I], GetMethodProp(SourceComp,
          Properties[I]));
          break;
      default:
        SetPropValue(TargetComp, Properties[i]->Name, GetPropValue(SourceComp,
        Properties[i]->Name));
        break;
      };
    }
  }
  catch(...)
  {
    Result = False;
  }
}  

引言: 您好, GetPropList應該是自訂函式, 請您找找原始DELPHI程式碼, 應該有GetPropList 這個函式。 您所提供的原程式只有uses typInfo; 也就是說只有include tpeInfo.hpp 。 <>< face="Verdana, Arial, Helvetica">引言: anpino大大 你的程式段有點Error但改一下就可以compile了 可是GetPropList在Link時還是會Error耶~~ 除了 include tpeInfo.hpp 以外，還要做什麼嗎??

引言: 我是有找到原始DELPHI程式碼，請問要如何讓它在BCB上執行？