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:
37:
38:
39:
40:
41:
42:

Type
MyFileType = Record
 Integer1 : Integer;
 String1 : String[255];
 Array1 : array[1..2] of Integer;
end;

procedure Save(const Daten : MyFileType; const FileName : String);
Var
 F : File of MyFileType;
begin
 AssignFile(F, FileName);
 rewrite(F);
 Write(F, Daten);
 closefile(F);
end;

procedure Load(var Daten : MyFileType; const FileName : String);
Var
 F : File of MyFileType;
begin
 AssignFile(F, FileName);
 reset(F);
 Read(F, Daten);
 closefile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
 Daten : MyFileType;
begin
 with Daten do
 begin
  Integer1 := 1;
  String1 := 'Hallo';
  Array1[1] := 123;
  Array1[1] := 234;
 end;
 Save(Daten, 'datei.txt');
 Load(Daten, 'datei.txt');
 ShowMessage(Daten.String1);
end;