[madhamster]

Проблема в следующем, есть к примеру 2 структуры

Код:

type TUser = record

  user_id   : Integer;
  user_name : String[16];
  user_mail : String[32];
  user_age  : Integer;
  cat_id    : integer;

end;

и

Код:

type TCat = record

  cat_id   : Integer;
  cat_name : String[16];
  user_date : String[16];

end;

У меня не получается написать процедуру по чтению файла. В качестве аргументов желательно должны передаватся 1 название файла, 2 название структуры которую использовать для выборки.

Проблема возникает в том как обльявлять локальную файловую переменную функции.

var F :File of //здесь должен быть тип но он должен зависить от структуры которую использую. Наверняка нужно использовать указатели но я перебробовал разные комбинации не получается. Как можно реализовать такую функцию.