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

//
#laden des file

#Settings := SettingsFile;

Settingsfile := Settings;
//
#speichern des file
#                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var MyRecord: TMyRecord; //beliebiges Record
const SettingsFilename='c:\MySettings.dat';

procedure LoadRecord;
var fs: TFileStream;
begin
  if not FileExists(SettingsFilename) then exit;
  FS:=TFileStream(SettingsFilename, fmOpenRead or fmShareDenyNone); //Datei öffnen
  FS.Read(MyRecord, SizeOf(MyRecord)); //Einlesen des Records
  FS.Free;
end;

procedure SaveRecord;
var fs: TFileStream;
begin
  FS:=TFileStream(SettingsFilename, fmCreate or fmShareExclusive); //Datei öffnen
  FS.Write(MyRecord, SizeOf(MyRecord)); //Speichern des Records
  FS.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

f : FILE OF MyRecord;
begin
  TRY
    AssignFile(f, 'C:\Test.DAT');
    {$i-}
    Reset(f);
    {$i+}
    IF IORESULT = 0 THEN BEGIN // Kein fehler beim öffnen
       TRY
          Read(f, MyOptionsset);
       EXCEPT
         ShowMessage('Fehler beim besen');
       END; // TRY EXCEPT
       CloseFile(f);
    END;
[...]                    

1:
2:

IF NOT EOF(f) THEN
  Read(f, MyVariable);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure cast_set_file;
var filename: string;
begin
  FileName := ExtractFilePath(Application.ExeName) + 'settings.dat';
  AssignFile(savefile, FileName);

  IF FileExists(FileName) THEN // Wenn die Datei existiert...
    Reset(savefile) // ...Öffnen
  ELSE // ansonsten...
    ReWrite(savefile); // ...Anlegen und Öffnen
 
end;                    

1:

CloseFile(savefile);                    

1:
2:
3:
4:
5:

procedure load_settings;
begin 
seek(savefile, 0);
read(savefile, Settings);      
end;                    

1:
2:
3:
4:
5:

procedure save_settings;
begin       
seek(savefile, 0);
write(savefile, Settings);    
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:

procedure settings_to_form;
var
i: integer;
begin
        {
 for i := 1 to 16 do begin
   optionsform.ValueList.Cells[1,  i] := colortostring(settings.Colors.graph[i]);
 end;

 optionsform.Colorbox1.Selected := settings.Colors.x_axis;
 optionsform.Colorbox2.Selected := settings.Colors.y_axis;
 optionsform.Colorbox3.Selected := settings.Colors.x_axis_marks;
 optionsform.Colorbox4.Selected := settings.Colors.y_axis_marks;
 optionsform.Colorbox5.Selected := settings.Colors.x_axis_numbers;
 optionsform.Colorbox6.Selected := settings.Colors.y_axis_numbers;
 optionsform.Colorbox7.Selected := settings.Colors.zero;
 optionsform.Colorbox8.Selected := settings.Colors.dots;

 optionsform.check_dots.Checked    := settings.General.show_dots;
 optionsform.check_numbers.Checked := settings.General.show_numbers;
 optionsform.x_dest_edit.text      := floattostr(settings.General.mark_distance_x);
 optionsform.y_dest_edit.text      := floattostr(settings.General.mark_distance_y);
 optionsform.Edit_zoom_x.Text      := floattostr(settings.General.zoom_x);
 optionsform.Edit_Zoom_y.Text      := floattostr(settings.General.zoom_y);
 optionsform.Edit_mov_x.Text       := inttostr(settings.General.mov_x);
 optionsform.Edit_mov_y.Text       := inttostr(settings.General.mov_y);

end;                    

1:
2:
3:

Cast_set_file;
Load_Settings;
settings_to_form;                    

1:
2:

save_settings;
Destroy_set_file;                    

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

function load_settings : Boolean;
begin 
  Result := FALSE;
  seek(savefile, 0);
  IF NOT EOF(saveFile) THEN BEGIN
    read(savefile, Settings);   
    Result := TRUE;
  END;
end;                    

1:
2:
3:

Cast_set_file;
IF Load_Settings THEN
  settings_to_form;