Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: 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 вся ветка

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
15-1174989221
zdm
2007-03-27 13:53
2007.04.29
шашки


15-1175650845
SerJaNT
2007-04-04 05:40
2007.04.29
Еще один вопрос


2-1176159599
frog33
2007-04-10 02:59
2007.04.29
Цвет выделения ListView


15-1175709413
Pazitron_Brain
2007-04-04 21:56
2007.04.29
Подскажите книгу


4-1164690019
Wolfram
2006-11-28 08:00
2007.04.29
Как вызвать стандартное приглашение к перезагрузке?