|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
удаление динамической переменной
Делаю прогу, которая отображает текущую информацию о книгах в библиотеке. Сделал добавление книги
Код:
type TPkniga=^Tkniga; Tkniga=record nomer:integer; avtor:string; nazva:string; god:integer; kol:integer; next:TPkniga; end; var Form1: TForm1; curr:TPkniga; head:TPkniga; a:integer; found: boolean; pre: TPKniga; procedure TForm1.Button1Click(Sender: TObject); begin if (length(edit1.text)=0) or (length(edit2.Text)=0) or (length(edit3.Text)=0) or (length(edit4.Text)=0)or(length(edit5.Text)=0)then begin showmessage('Çàïîëíèòå ïóñòûå ïîëÿ'); exit; end; new(curr); curr^.nomer:=strtoint(edit1.Text); curr^.avtor:=edit2.Text; curr^.nazva:=edit3.Text; curr^.god:=strtoint(edit4.Text); curr^.kol:=strtoint(edit5.Text); curr^.next:=head; head:=curr; edit1.Text:=''; edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; edit5.Text:=''; end; Как теперь сделать удаление книги с помощью dispose? |
#2
|
||||
|
||||
Код:
Dispose(curr); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |