Добавление в список

[ManU]

Как мне организовать процедуру добавления элемента в двухсвязный список из edit'a по нажатию button1.
Вот моя процедура:

//ukstr-указатель на начало;ukzv-указатель на текущий эл-т;
//ukhv- указатель на конец;
begin
//создание головы
New(ukstr);
Ukstr^.sled:=nil; Ukstr^.pred:=nil;
elem:=strtoint(edit1.Text);
begin
New(ukzv^.sled);
Ukzv^.sled^.pred:=Ukzv;
Ukzv:=Ukzv^.sled;
ukzv^.sled:=nil;
Ukzv^.element:=elem;
end;
Ukhv:=ukzv;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
soz(ukstr,ukzv);
edit1.Text:='0';
end;

[s.Creator]

посмотри может подойдет
ukazatel.zip

[ManU]

Конечно подойдет, спасибо

[puporev]

Чобы из Эдита не стирать числа вручную, я бы дописал

InsertAfterCurrent(i);
  Edit1.text:='';
  Edit1.SetFocus;