Записи, Удаленей информации полей записи Опции

[TS*]

Какой существует более простой способ стирания информации с полей записи одного елемента "массива записей", чем присваивание этому елементу значений не заполненого елемента этого же "массива записей"?

[volvo]

совсем коротко (если num_rec - размер массива ДО удаления элемента):

procedure del_item(j:byte);
begin
  move(note[j+1], note[j], (num_rec - j)*sizeof(note[1]));
  dec(num_rec);
end;

- полный аналог твоего кода, только вот выполняться будет в несколько раз быстрее... И не надо ничего ничему присваивать... Просто не обращай на последние "недействительные" элементы внимания. Не зря же у тебя есть num_rec... Если же так хочется их все же обнулить, то создай константу с пустой записью EmptyRec и делай:

procedure del_item(j:byte);
begin
  move(note[j+1], note[j], (num_rec - j)*sizeof(note[1]));
  note[num_rec] := EmptyRec; dec(num_rec);
end;

[TS*]

Благодарю!