База данных в delphi

[neomax38]

Требуется небольшая помощь) надо разобраться в программе)
Первым делом интересно где здесь код контекстного меню?
Далее не понятны некоторые процедуры)

[ByAlex]

Сообщение от neomax38

Требуется небольшая помощь) надо разобраться в программе)
Первым делом интересно где здесь код контекстного меню?
Далее не понятны некоторые процедуры)

Сейчас посмотрим!

[ByAlex]

Все же просто - контекстное меню - это PopupMenu1, его пункты начинаются с N20 до N22! А там уже и процедуры обработки событий!

[Serge_Bliznykov]

Первым делом интересно где здесь код контекстного меню?

модуль U1.pas

  { настраиваем всплывающее меню }
  PopupMenu1.AutoPopup := true;
  N20.Enabled := true;  //Пункт меню "Добавить"
  N21.Enabled := false; //Пункт меню "Изменить"
  N22.Enabled := false; //Пункт меню "Удалить"
  { настраиваем кнопки }
  Button1.Enabled := true;  //Кнопка "Добавить"
  Button2.Enabled := false; //Кнопка "Изменить"
  Button3.Enabled := false; //Кнопка "Удалить"

кнопки(пункты меню), текст и действия на нажатия определены в DesignTime (в этом же U1.pas)


ДОБАВЛЕНО
не обновил страницу перед тем, как писать ответ. поэтому меня опередили...

[neomax38]

Сообщение от Serge_Bliznykov

модуль U1.pas


кнопки(пункты меню), текст и действия на нажатия определены в DesignTime (в этом же U1.pas)


ДОБАВЛЕНО
не обновил страницу перед тем, как писать ответ. поэтому меня опередили...

Сообщение от ByAlex

Все же просто - контекстное меню - это PopupMenu1, его пункты начинаются с N20 до N22! А там уже и процедуры обработки событий!

Спасибки)
Еще мне интересны вот вырезки из процедур типа:

 found := false;
  p_back := nil;
  current := p_first;

или

current^.next := nil;
      if (p_first = nil) then
        p_first := current
      else
        if (p_first^.next = nil) then
          p_first^.next := current;
      if (p_back <> nil) then
        p_back^.next := current;
      p_back := current;
    end;

Интересно бы понять что это и зачем) Там таких много)

[ByAlex]

Это стеки!

[neomax38]

Сообщение от ByAlex

Это стеки!

Типа «последним пришёл — первым вышел»?
Было бы интересно понять как работают)