Запись, чтение и вывод записей

[Impuls1989]

Доброго времени суток уважаемые эксперты. Возникла необходимость написать несколько проектов на паскале. Объясню что мне необходимо:
По своей сути мне нужно записи записывать в файл и выводить их на экран. Хотелось бы этот процесс автоматизировать, а именно, я передаю указатель на запись в процедуру - процедура пишет в файл. Аналогично с чтением и выводом на экран. Все бы хорошо, но структура записи может быть разной (одинакова в пределах файла), а процедуры я хочу сделать универсальными. И так вопросы:
1. Могу ли я разыменовывать указатель на запись так, чтобы потом записывать в файл как непрерывный поток байтов.
2. Могу ли я разыменовывать указатель на запись так, чтобы потом прочитать из файла как непрерывный поток байтов.
3. Есть ли что-нибудь похожее на Delphi-овый array of const (дабы передать в функцию вывода массив с нужными данными)
4. Есть ли что-нибудь похожее на Delphi-овый as и is (дабы узнать тип переменной, или преобразовать к нужному типу)

[Impuls1989]

Ну же. Хоть какой-нибудь ответ. Кто-нибудь может сказать что-нибудь полезное?

[mss]

1,2 - Можешь. Разыменование указателей присутствует во всех ипостасях Паскаля.

3,4 - Зависит от ипостаси Паскаля. К примеру, в Турбо этим даже не пахнет.

[Impuls1989]

Сообщение от mss

1,2 - Можешь. Разыменование указателей присутствует во всех ипостасях Паскаля.

3,4 - Зависит от ипостаси Паскаля. К примеру, в Турбо этим даже не пахнет.

Т.е. С чтением-записью проблем не будет? А если не секрет. Каким образом нужно передавать запись в функцию?

procedure WrieData(data:^pointer);
var f:file;
begin
   ...
   Writeln(f, &data);
end;

Так будет выглядеть процедура записи? Или я что-то путаю? Мне в процедуру нужно передавать указатель на несколько разных видов записей.

Насчет 2-3. Может знаете какой-то более хитрый способ создания универсальных процедур, способных принимать разные виды записей? Буду признатлен.

[mss]

procedure WriteData(var Data; Size: Integer);
begin
  BlockWrite(F, Data, Size);
end;

или

procedure WriteData(Data: Pointer; Size: Integer);
begin
  BlockWrite(F, Data^, Size);
end;

Важно: запись НЕ должна содержать поля типов данных с управляемым временем жизни, такие как String, только generic-типов !

По поводу "универсальности" - она возможна лишь при поддержке конкретной Паскаль-ипостасью RTTI - информации о типах времени выполнения.

[Impuls1989]

Сообщение от mss

Важно: запись НЕ должна содержать поля типов данных с управляемым временем жизни, такие как String, только generic-типов !

По поводу "универсальности" - она возможна лишь при поддержке конкретной Паскаль-ипостасью RTTI - информации о типах времени выполнения.

А если string[100] например - тут ведь длина строки определена четко, и под нее выделяется конкретное число байт.
Насчет полной универсальности - это понятно что нельзя...

А по поводу "красивого" вывода так никаких идей и не возникает?