Динамические списки - вывести список организаций и товаров

@GProst · Регистрация: 31.01.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужна помощь. На форме fmReport размещены 2 Memo, просто для проверки правильности работы программы (а работает она неправильно =)). В датамодуле dm хранятся таблицы (tblClient,tblProduct, там есть поля 'Name'). Мне нужно запомнить все имена организаций в tblClient и все названия товаров в tblProduct (вообще суть программы не в этом, но если эта часть не работает, то все остальное тем более не будет). В мемо1 - список организаций, в мемо2- список товаров.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
procedure TfmReport.N1Click(Sender: TObject);
type
     ukaz=^spis;
     spis = record
      inf:string[20];
      types:byte;
      id1:byte;
      id2:byte;
      flag:boolean;
      kol1:byte;
      kol2:byte;
      gor:byte;
      next:ukaz;
     end;
var  q,l,p,t,g:ukaz; 
     i,j:integer;
begin
 fmDateRange.ShowModal;
 if fmDateRange.ModalResult=mrOk then
  begin
 
  //создаю список организаций
    dm.tblClient.RecNo:=1;
      new(p);
      p^.inf:=dm.tblClient.FieldByName('Name').asString;
      p^.id1:=1;
      l:=p;
      j:= dm.tblClient.RecordCount;
  
      for i:=2 to j do  begin
         dm.tblClient.RecNo:=i;
         new(q);
         q^.inf:=dm.tblClient.FieldByName('Name').asString;
         q^.id1:=i;
         l^.next:=q;
         l:=q;
      end;
 
 
 
   //создаю список товаров
     dm.tblProduct.RecNo:=1;
       new(t);
      t^.inf:=dm.tblProduct.FieldByName('Name').asString;
      t^.id1:=1;
      l:=t;
      j:=dm.tblProduct.RecordCount;
      for i:=2 to j do  begin
         dm.tblProduct.RecNo:=i;
         new(q);
         q^.inf:=dm.tblProduct.FieldByName('Name').asString;
         q^.id1:=i;
         l^.next:=q;
         l:=q;
      end;
 
 
      //вывожу список организаций в Memo1
     l:=p;
     i:=0;
     Memo1.Lines[0]:= l^.inf;
   while l<>nil do begin
        l:=l^.next;
        i:=i+1;
        if l<>nil then
        Memo1.Lines.Add(l^.inf);
     end;
 
   //вывожу список товаров в Memo2
     l:=t;
     i:=0;
     Memo2.Lines[0]:= l^.inf;
   while l<>nil do begin
        l:=l^.next;
        i:=i+1;
        if l<>nil then
        Memo2.Lines.Add(l^.inf);
     end;
 
 
  //освобождаю память
      l:=p;
      while l<>nil do begin
        q:=l;
        l:=l^.next;
        dispose(q);
     end;
 
       l:=t;
       while l<>nil do begin
        q:=l;
        l:=l^.next;
        dispose(q);
     end;
 
 end;
 
end;

Так вот,
при первом нажатии кнопки ОК всё идёт так как надо (в конце процедуры я освобождаю память), но уже при втором нажатии начинается зацикливание (в мемо1 начинает беспрерывно добавляться название первой организации, до мемо2 не доходит вообще), причем я вообще не понимаю как это может быть, видимо проблема в том, что я не знаю как нужно обращаться с памятью в Делфи (я только на 2-ом курсе учусь на программиста, но препод толком у нас ничего не объяснял весь семестр, приходится искать информацию самому, но времени мало). В общем нужна помощь как избавиться от этой ошибки. Заранее спасибо.

Одиночка · 31.01.2013, 03:41

Просто говоря при создании списков ты их не замыкаешь. Т.е. не ставишь Nil в next последней записи списка. В первый раз память пуста и там Nil = 0 уже есть. При следующем выполнеии в этой памяти уже мусор и ссылки указывают неизвестно куда. В твоём коде можно после строк 38 и 55 вставить:

Delphi
1
         l^.next:=Nil;

Кроме того нужно, наверное, учитывать ситуацию, когда не будет ни одной записи. Или такой ситуации не будет? При выдаче в Memo, в этом случае, у тебя будет исключение обращения к памяти. Вот так надёжнее будет:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    //создаю список организаций
      p:=Nil;
      j:= dm.tblClient.RecordCount;
      for i:=1 to j do
      begin
         dm.tblClient.RecNo:=i;
         new(q);
         q^.inf:=dm.tblClient.FieldByName('Name').asString;
         q^.id1:=i;
         q^.next:=Nil;
         If p=Nil Then p:=q Else
         l^.next:=q;
         l:=q;
      end;
 
      //вывожу список организаций в Memo1
     l:=p;
     while l<>nil do
     begin
        Memo1.Lines.Add(l^.inf);
        l:=l^.next;
     end;

Ну и ещё мне кажется, что вместо RecNo лучше использовать Next в конце цикла.

@GProst · 31.01.2013, 04:12 **[ТС]**

Одиночка, спасибо вам большое=)) почему то сам об этом не додумался, столько просидел. Всё работает, спасибо за советы, а записи в таблицах будут хотя бы 1.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@GProst 0 / 0 / 0 Регистрация: 31.01.2013 Сообщений: 4
	31.01.2013, 04:12 [ТС]
	Одиночка, спасибо вам большое=)) почему то сам об этом не додумался, столько просидел. Всё работает, спасибо за советы, а записи в таблицах будут хотя бы 1. 0