Delphi.Чтение типизированного файла.

112357

Привет, подскажите плиз..
1. Возможно ли записывание в типизированный файл
не записей
type
vasya = record
par: ...
end
а классов
type
vasya = class
par:....
end
?
2. Если да.. то как потом считать с тип. файла.. что-то не дает значение ..
CCompany = class
public
constructor Create(Name:string; Password:string);
destructor Destroy; override;
procedure MAddRoller(Duration:integer; ID:integer; NameCompany:string; Theme:string);
procedure MAddOrder(Channel:CChannel; ID:integer; LeastRating:integer; LargestRating:integer; Quantity:integer);
procedure MChooseRoller(No:integer; Auditory:string; Order:boolean);
procedure MRemoveRoller(ID: integer);
var
AName:string;
ARollerList:TList;
APassword:string;
end;
var
Company1: CCompany;
CompanyFile: file of CCompany;
CompanyFileName: string[80];
....
implementation
...
procedure TForm4.Button1Click(Sender: TObject);
begin
CompanyFileName:= 'Company.dat';
assignfile(CompanyFile, CompanyFileName);
reset(CompanyFile);
while not EOF(CompanyFile) do
begin
read(CompanyFile, Comapany1);
...
end;
closefile(CompanyFile);
end;

gopnik1994

а хелп почитать?

112357

Она даже записыывает в файл что-то не то.. хелп читал.. не помогло видимо..

yolki

назовём тип скалярным, если это
1. Simple type (см хелп)
2. [packed] record из скалярных типов
file of TYPE имеет внятный смысл только если TYPE - скалярный
Автору рекомендую заботать концепцию "сериализация объектов" "Serialization"