关于Delphi中的记录类型！

[jerrymousenet2]

我想把一个记录类型变量赋给另外一个同类型的记录类型变量，要如何做呢？在C++中可以用操作符重载。在Delphi中有没有类似的方法呢？
Example:
以下为记录定义语句：
TWMDrawItem = packed record
Msg: Cardinal;
Ctl: HWND;
DrawItemStruct: PDrawItemStruct;
Result: Longint;
end;

PDrawItemStruct = ^TDrawItemStruct;
tagDRAWITEMSTRUCT = packed record
CtlType: UINT;
CtlID: UINT;
itemID: UINT;
itemAction: UINT;
itemState: UINT;
hwndItem: HWND;
hDC: HDC;
rcItem: TRect;
itemData: DWORD;
end;
TDrawItemStruct = tagDRAWITEMSTRUCT;
//使用语句如下：
procedure TMyButton.CNDrawItem(var Message: TWMDrawItem);
var
DrawItemsStruct: DrawItemStruct;
begin
DrawItemStruct := Message.DrawItemStruct^;//两个同类型的记录类型进行赋值，编译是不能通过的。
//为了简化一下书写才想这样做，另外我也想证实一下是否在Delphi中也能象C++中类似的操作。
end;

[ylbug]

var
p:PDrawItemStruct;
begin
p:=Message.DrawItemStruct^
ebd;

[jerrymousenet2]

ylbug(臭虫) 的方法是可以的，但是我想直接对两个结构赋值要如何做呢？

[jerrymousenet2]

hgf_hb(酸书生)你这样是不成的。请大家多讨论。在线等待。

[hgf_hb]

可以这样
record2:=record1;
就可以了

[jerrymousenet2]

up