помогите, пожалуйста, написать копирующий конструктор для списка списков
уже много времени пытаюсь написать и ничего не выходит
даже не знаю, что делать: во вторник последний день сдачи проги 
| Код |
type
ListItem=record
nomer,vilet1,vilet2,prilet2,prilet1:integer;
mesto,pyt:string[20];
end;
pListItem2=^ListItem2;
listItem2=record
n:plistItem2;
l:tpassajir;
info:listItem;
end;
inform=record
I,O,F,GR:string[20];
end;
paslist=^tpaslist;
TpasList=record
g_inform:inform;
next:pasList;
table=class
private
pstart:pListItem2;
colvo:word;
head:pasList;
fCount:word;
public
constructor creat(Mytb:table);overload;
|
очень прошу вас, помогите, пожалуйста
Добавлено через 2 минуты и 26 секунд
пыталась написать, вот что получилось:
| Код |
constructor table.creat(mytb:table);
var tmp, tmp1,tmp2,pstart2:pListItem2; b,m,il:integer; iy:inform;
begin
pStart2:=nil;
colvo:=mytb.colvo;
tmp:=mytb.pstart;
// b:=colvo;
tmp1:=pstart2;
m:=0;
for b:=0 to colvo-1 do begin
new(tmp1);
tmp1^.n:=pstart2;
pstart2:=tmp1;
tmp:=mytb.get(b+1);
tmp1^.info.nomer:=tmp^.info.nomer;
tmp1^.info.vilet1:=tmp^.info.vilet1;
tmp1^.info.vilet2:=tmp^.info.vilet2;
tmp1^.info.prilet2:=tmp^.info.prilet2;
tmp1^.info.prilet1:=tmp^.info.prilet1;
tmp1^.info.mesto:=tmp^.info.mesto;
tmp1^.info.pyt:=tmp^.info.pyt;
for m:=0 to tmp^.l.GetLen-1 do begin
iy:=tmp^.l.getrec(m);
tmp1^.l:=tpassajir.create;
tmp1^.l.add(iy.i,iy.O,iy.f,iy.gr);
end;
tmp:=tmp^.n;
end;
pstart:=pstart2;
end;
|
но это не работает( |