Цитата:
|
Сообщение от Abikutin
...Процедура добавления в конец.
Код:
procedure AddLast(var Ocher: TOcher; var Data : TInfo);
var NewElem:PElem;
begin
new(NewElem);
NewElem^.Info := Data;
NewElem^.Next := Ocher.First;
Ocher.first := NewElem;
end; ... |
First - это первый, Last последний, не тот указатель используется, скорее всего из-за этого