各位兄弟，用CopyMemory处理过记录型的指针吗？能不能给出一段示范性代码？

Question

多多指教！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
type
  TRecordNo1 = record
    rChar: Char;
    rInteger: Integer;
  end;
  TRecordNo2 = record
    rString: string; //只能看成指针
    rForm: TForm; //只能看成指针
  end;
var
  vRecordNo1A, vRecordNo1B: TRecordNo1;
  vRecordNo2A, vRecordNo2B: TRecordNo2;
begin
  vRecordNo1A.rChar := 'A';
  vRecordNo1A.rInteger := 123456;
  CopyMemory(@vRecordNo1B, @vRecordNo1A, SizeOf(TRecordNo1));
  ShowMessage(Format('%s,%d', [vRecordNo1B.rChar, vRecordNo1B.rInteger]));  vRecordNo2A.rString := 'A';
  vRecordNo2A.rForm := Self;
  CopyMemory(@vRecordNo2B, @vRecordNo2A, SizeOf(TRecordNo2));
  ShowMessage(Format('%p,%p', [Pointer(vRecordNo2A.rString), Pointer(vRecordNo2B.rForm)]));
end;