1

Есть процедура добавления нового элемента в начало списка. Kак мне задать его значение в начале, чтобы не ноль было. Процедура:

введите сюда код

procedure DobBNach(var L:TDList);
var
NewHead : ^TElem;
begin
  new(NewHead);
  NewHead^.PNext := L.PFirst;
  L.PFirst := NewHead;
end;    
2
  • Кого - "его"? Мать любит дочь.
    – user176262
    18 дек 2018 в 5:43
  • Новый элемент который я добавляю в список с помощью этой процедуры. 18 дек 2018 в 5:46

1 ответ 1

0
procedure DobBNach(aData: TData; var L: TDList);
var
  NewHead: ^TElem;
begin
  new(NewHead);
  NewHead^.Data := aData;
  NewHead^.PNext := L.PFirst;
  L.PFirst := NewHead;
end;   

...
DobBNach(123, list);
3
  • Все работает спасибо вам за помощь. 18 дек 2018 в 6:05
  • Это я сглупил извините за предыдущие комментарии. 18 дек 2018 в 6:05
  • @ДенисЛобанов На здоровье. Молодец, что разобрались. Успехов!
    – user176262
    18 дек 2018 в 6:06

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.