IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Копирующий конструктор, Для класса со списком списков.
сообщение
Сообщение #1


Гость






Возникла небольшая трудность.
В программе необходимо использовать копирующий конструктор класса, а котором одно из полей - указатель на начало двунаправленного списка.
Код

type PAL=^Al;
    Al=record
       numb:string[5];
       name:string;
       adress:string;
       next:pal;
    end;
    PIL=^Il;
    Il=record
       ind:string;
       next:pil;
       Ablist:pal;
    end;

    TPhInd=class(TObject)
       inl:pil;
      .............
       constructor create(TPI:TPhInd); overload;
    end;
implementation
.......


Помогите пожалуйста это сделать.
Спасибо.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата(-QDe5n1K- @ 12.04.05 14:18)
а котором одно из полей - указатель на начало двунаправленного списка.

blink.gif Сколько не искал - не нашел ни одного указателя на двунаправленный список...

А вообще-то, я бы использовал копирующий конструктор самого списка:
Код
constructor tlist.copy(var l: tlist);
var p: ptitem;
begin
 first := nil; last := nil;
 p := l.first;
 while p <> nil do
   begin
     append(p^.info);
     p := p^.next;
   end;
end;

ну, а потом в твоем конструкторе просто:
Код
constructor PhInd.create(TPI:TPhInd);
begin
 ...
 new(inl, copy(TPI^));
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Да блин, не двунаправленный, а список списков smile.gif Всегда оговариваюсь smile.gif
Сейчас попробую...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Огроиное спасибо, все получилось.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






а ты не мог бы выложить то,что получилось, а то мне тоже надо это написать и не получается(
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 20:54
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name