超超超超值的问题，不过要求Delphi和C++都精通啊

Question

TmwKeyStroke = class(TComponent)
.....
procedure Assign(Source: TPersistent); override;
.....
procedure TmwKeyStroke.Assign(Source: TPersistent);
begin
  if Source is TmwKeyStroke then
  begin
    Key := TmwKeyStroke(Source).Key;
    Shift := TmwKeyStroke(Source).Shift;    Key2 := TmwKeyStroke(Source).Key2;
    Shift2 := TmwKeyStroke(Source).Shift2;    Command := TmwKeyStroke(Source).Command;
  end else
    inherited Assign(Source);
end;怎么翻译成CBuilder的代码啊

Answer 1

呵呵，对cbuilder不怎么懂，不过努力试试，顺便给你顶一下…………

Answer 2

void __fastcall Assign(TPersistent *Source)
{
  if (Source->ClassNameIs("TmwKeyStroke"))
  {
    Key = ((TmwKeyStroke*)Source)->Key;
    Shift = ((TmwKeyStroke*)Source)->Shift;    Key2 = ((TmwKeyStroke*)Source)->Key2;
    Shift2 = ((TmwKeyStroke*)Source)->Shift2;    Command = ((TmwKeyStroke*)Source)->Command;
  }
  else
    TComponent::Assign(Source);
}