Для решения такой проблемны (только с классами), я создавал один объект-базовый. А остальные его наследовали. В функцию передавалась переменная базового типа, а там уже приведение типов или что угодно.
в вашем случае достаточно создать 2 нужных класса. В функцию передавать переменную типа TObject. Внутри разбираетесь какой тип передан - и выполняете нужные действия. Единственный минус, что чтение с файла нужно будет ручками делать. File of тип данных - тут уже не подходит.
|