1:
2:
3:
4:
5:
6:
7:
8:
9:

var 
 f: file of mytype; // mytype darf keine "dynamisch angelegten" variablen wie ansistrings, dynamische arrays und interfaces enthalten. 
 a: mytype;
begin
  assignfile(f, 'myfile.ext');
  rewrite(f);
  write(f, a);
  closefile(f);
end;                    

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:

procedure TForm5.Button1Click(Sender: TObject);
var speicher:tspieler;
    i:byte;
begin
  savedialog1.filter:= 'Highscore (*.hsc)\*.hsc';
  savedialog1.defaultext:= 'hsc';
  spieler1.spielerzeit:=inttostr(min)+' : '+inttostr(sec);
  if savedialog1.Execute then
  begin
    assignfile(dateivar,savedialog1.filename);
    if fileexists(savedialog1.filename) then reset(dateivar)
    else rewrite(dateivar);
    if filesize(dateivar)<>0 then
    begin
      seek(dateivar,filesize(dateivar)-1);
      for i:= filesize(dateivar)-1 downto 0 do
      begin
        read(dateivar,speicher);
        if spieler1.spielerpunkte > speicher.spielerpunkte  then
        begin
         seek(dateivar,i);
         spieler1.spielerrang:=filesize(dateivar)-1-i;
         write(dateivar,spieler1);
        end
        else write(dateivar,spieler1);
      end;
    end
    else
    begin
      spieler1.spielerrang:=1;
      write(dateivar,spieler1);
    end;
    closefile(dateivar);
  end;
end;