Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c