VPF::копирующий конструктор - Форум программистов

irris

Дата 19.5.2007, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.5.2007

Репутация: нет
Всего: нет

помогите, пожалуйста, написать копирующий конструктор для списка списков
уже много времени пытаюсь написать и ничего не выходит
даже не знаю, что делать: во вторник последний день сдачи проги smile

Код


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;

очень прошу вас, помогите, пожалуйста smile

Добавлено через 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;

но это не работает(

Snowy

Дата 20.5.2007, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Ты, часом, разделом не ошибся?
ЗЫ. Для копирования объектов обычно используют не конструктор, а Assign ;-)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »