1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

Interface
..
type
  TDepp = class
    Name: string;
  end;
..
implementation
..
procedure save;
var
  d: TDepp;
  f: file of TDepp;
begin
  d:= TDepp.create;
  d.name:='f*** OFF!!!';
  assignfile(f,'c:\Test\Depp.dat');
  rewrite(f);
  write(f,d);
  closefile(f);
  d.free;
end;

procedure Load;
var
  d: TDepp;
  f: file of TDepp;
begin
  d:= TDepp.create; // offensichtlich optional ?!?
  assignfile(f,'c:\Test\Depp.dat');
  Reset(f);
  Read(f,d);
  showmessage(d.name); // -> Zugriffsverletzung, oder Ausgabe von ''
  CloseFile(f);
  d.free; // offensichtlich optional ?!?
end;					

1:
2:
3:

 TDepp = class 
    Name: string; 
  end;					

1:
2:
3:

tDepp = packed record
  Name : string[75];
end;