Связывание 2-ух динамических списков(указатели,pascal)

[Loner]

Суть проблемы в том ,что нужно свзять 2 динамических списка

dopz=record;
  den: string[2]  ;
  mes: string[2] ;
  god :string[4];
  company:string[20];
  srok:string[20];
  end;
  dopinf=^inf;
  inf=record
  dataz:dopz
  end;

и

apt = record;
        numb: integer;
        name: string[20];
        proiz: string[20];
        str:string[20];
        kol: string [20];
        cena: string[20];

    end;

    AP = ^apteka;
    apteka = record
         data :apt;
         ukaz:dopinf;
         next: ap;
         prev: ap;
    end;

мне нужно чтобы второй список содержал указатель на 1 список.

Следовательно при работе с ним, зная указатель на n запись 2 списка я мог легко выйти на n запись 1 списка.


Это вообще можно реализовать?

В общем из моих набросок..работает...но как обратится к 1-ому списку через 2?

[Serge_Bliznykov]

я не хочу Вас расстраивать, но у Вас УЖЕ есть связь...

    apteka = record
         data :apt;
         ukaz:dopinf;
         next: ap;
         prev: ap;
    end;

Вот только 1-й список - это НЕ СПИСОК, это указатель на ОДИН элемент (с дополнительной информацией, судя по имени)...

[Loner]

Походу я совсем запутался.

Попробуем ещё раз.


У меня есть 2 списка
В 1 списке хранится дополнительная информация о записи из 2 списка.


Зная указатель на n запись 2 списка..я хочу вывести на экран дополнительную информацию взятую из 1 списка.

Если я опять лажанул..

можете поправить указатели (код) так чтобы получить наглядный пример?(

вот что я хочу получить..

[DiemonStar]

возникает резонный вопрос: зачем вам два списка при отношении один-к-одному? Не проще ли сделать один список такого рода:

    AP = ^apteka;
    apteka = record
         data: apt;
         ukaz: inf;
         next: ap;
         prev: ap;
    end;

з.ы. непонятно только зачем столько вложенности в записях сделано. тип inf вообще лишний.

[Loner]

у меня выделяется(new трялляля) память под хранение данных для 1 списка.

[Loner]

2 списка должны существовать отдельно.и между ними 1 свазь
В каждой записи 2 списка должен существовать указатель на n-ую запись из 1 списка.

[Serge_Bliznykov]

да поймите же сами и перестаньте путаться и других путать!
Нет у Вас никакого "1-го списка"! Есть ОТДЕЛЬНЫЕ элементы (динамические), накак друг с другом не связанные.
я бы ОЧЕНЬ-ОЧЕНЬ рекомендовал Вам воспользоваться советом из пост #4


если же Вам нравится играть в коробочку, в которой лежит ссылка на указатель на другую коробочку, ну тогда давайте процедуру заполнения 2-го списка, я там допишу выделение памяти и заполнение дополнительной информации, так пойдёт?!

[Loner]

if   head=nil then begin
 New (u); //Второй список
     with u^.data do begin
          Name := edit_name.text;
          proiz :=  edit_proiz.text;
          str := edit_str.text;
          kol := edit_kol.text;
          cena :=edit_cena.text;
          numb := 1;
          u^.next := nil;
     end;
     new(u2); //первый список
      with u2^.dataz do begin
     den := edit_den.text;
     mes :=  edit_mes.text;
     god := edit_god.text;
     company := edit_company.text;
     srok :=edit_srok.text;
     end;
     u^.ukaz:=u2; вот тут..всё закидывает(вроде)
     
     head := u;
     tail := u;

..Допустим зная указатель U как обратиться например к полю "год" из 1 списка

Пробывал так

procedure wrt;//метод тыка (ошибка.попытка разыменовать нулевой указатель)
var ukazz:dopinf;
begin
ukazz:=u^.ukaz;
writeln(ukazz^.dataz.company);
end;

[Loner]

если же Вам нравится играть в коробочку, в которой лежит ссылка на указатель на другую коробочку
Да,вот это интересует

[Loner]

UPD/// Нашёл решение проблемы.Тему можно закрыть.Всем спасибо за участие.=)