Добавление элемента в список после заданного элемента

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "File2.h"
#include "ЛР6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
bool made;
Node *first = NULL;
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
 
void __fastcall TForm7::Button1Click(TObject *Sender)
{
/* Метод для инициализации списка из одного элемента */
Memo1->Lines->Clear();
first = init(first, &made, Edit1);
outp(first, 1, Memo1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm7::Button2Click(TObject *Sender)
{ /* Метод для идобавления элемента после заданного */
add(first,Edit3->Text,Edit2);
Memo1->Lines->Clear();
outp(first, 1, Memo1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm7::Button3Click(TObject *Sender)
{ /* Метод для удаления первого элемента из списка */
dell(first);
Memo1->Lines->Clear();
outp(first, 1, Memo1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm7::Button4Click(TObject *Sender)
{ /* Метод для удаления списка (освобождение паямяти) */
disp(first);
Close();
}
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "File2.h"
void outp(Node *p, int t, TMemo *mem)
{ /* * * * * * * * * * * * * * * * * * * * * * * *
Вывод списка в окно Mem
p - указатель на первый элемент списка
* * * * * * * * * * * * * * * * * * * * * * * */
Node *q;
q = p;
if(q!=NULL) {
mem->Lines->Add(q->inf);
outp(q->next, t+1, mem);
}
}
Node *init(Node *first, bool *pmade, TEdit *Edt)
{ /* * * * * * * * * * * * * * * * * * * * * * *
Инициализация списка из одного элемента
first - указатель на первый элемент списка
* * * * * * * * * * * * * * * * * * * * * * */
if(*pmade) {
ShowMessage("Список был уже создан ранее!");
return first;
}
if(Edt->Text.IsEmpty()) {
ShowMessage("Неверный ввод! Повторите.");
return NULL;
}
first = new(Node);
first->inf = Edt->Text;
first->next = NULL;
*pmade = true;
return first;
}
void add(Node *first, AnsiString key, TEdit *Edt)
{/*Добавление элемента посел заданного элемента
key - элемент после которого нужно добавить элемент а*/
Node *q,*a;
q=first;
 
while(q!=NULL)
    {
    if (q->inf==key)
        {
        a=new(Node);
        a->inf=Edt->Text;
        if (q->next=NULL)
            {
            q->next=a;
            a->next=NULL;
            }
        else {q->next=a;}
        }
    }
}
void disp(Node *p)
{ /* * * * * * * * * * * * * * * * * * * * * * * *
освобождение памяти из под списка
p - указатель на первый элемент списка
* * * * * * * * * * * * * * * * * * * * * * * */
Node *q, *r;
q = p;
if(q!=NULL) {
r = q->next;
delete q;
disp(r);
}
p = NULL;
}
void dell(Node *&first)
{//Удаление первого элемента
 Node* x=first;
 ShowMessage("Будет удален элемент '" + first->inf + "' Нажми ОК");
 first=first->next;
 delete x;
}