Как правильно сделать копию структуры?

← →
gosha73 (2007-04-06 18:23) [0]

Привет друзья.
Раньше никогда не задавался таким вопросом, но сейчас возникла необходимость создавать копию структуры. Подскажите каким образом параметры одной структуры можно скопировать в те же самые параметры второй структуры. Я это делаю буквально приравнивая каждый параметр, может есть другой способ?

TMyRec = record Index: integer; sName: string; Value: Cardinal; .... end; ... var Rec1: TMyRec; Rec2: TMyRec; ..
Собственно вот если я заполнил параметрами Rec1, то как не мучаясь можно присвоить структуре Rec2 все параметры Rec1?
При этом Rec2 := Rec1, почему-то не хочет копировать их.

← →
Loginov Dmitry © (2007-04-06 18:27) [1]

var Rec1, Rec2: TMyRec;

← →
Loginov Dmitry © (2007-04-06 18:29) [2]

Хотя и так должно копироваться ...

← →
gosha73 (2007-04-06 18:32) [3]

Так уже работает, спасибо.
А каким образом можно скопировать структуры при наличии только их указателей. К примеру:

TMyRec = record Index: integer; sName: string; Value: Cardinal; .... end; pMyRec = ^TMyRec; var Rec1, Rec2: pMyRec; begin New(Rec1); New(Rec2); ... end;

В данном случае уже нельзя будет присваивать параметры как в прошлый раз обычным Rec2 := Rec1, поскольку тут уже указатели, как в таком случае скопировать параметры?

← →
Sapersky (2007-04-06 18:35) [4]

Rec2^ := Rec1^;

← →
gosha73 (2007-04-06 18:37) [5]

Хм, а ведь логично :) Спасибо.

Как правильно сделать копию структуры? Найти похожие ветки