Здравствуйте, Аноним, Вы писали:

А>Здравствуйте, DarkMaster

А>Как я уже писал, у меня D5 на конструкцию Dispose(PMyRecord(FList.Items[i])) ругается инвалидным приведением типов.
А>А что касается трепета при передаче типа, я имел в виду, что у меня эта процедура освовождения списков освобождает
А>массивы нескольких десятков типов. Единственный вариант, который просматривается, — это подвешивать к каждому типу
А>record'а некий идентификатор, котрый и передавать в DisposeList вместе с массивом, а в самой процедуре громоздить
А>некий "могучий" case. А с учётом нежелания Dispose съедать приведение типов, придется освобождать рекорд через
А>присваивание его указателю соответствующего типа. Или это можно сделать как-то проще?

Насчет ругани не знаю — у Д6 самая старая, а ставить Д5 для проверки — неохота. Ну а для освобождения структур в одном месте и по-простому:
1) Переведи структуры на классы
2) Все классы отнаследуй от одного предка для унификации.
3) Используй TObjectList вместо TList — второй за собой все обьекты в нем и уберет.