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

procedure TForm1.Button1Click(Sender: TObject);
var
st: TStringlist;
begin
st := TStringlist.create;
st.assign(Combobox1.items);
st.savetofile('C:\test.txt');
st.free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
st: TStringlist;
begin
st := TStringlist.create;
st.loadfromfile('C:\test.txt');
combobox1.Items.assign(st);
st.free;
end;					

1:

ComboBox1.Items.Add('Neuer Eintrag');					

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

AssignFile(myfile,'c:\daten.dat');
{$I-}
Reset(myfile);
{$I+}
IF IOResult=0 then
while not EOF(myfile) do
begin
  Read(myfile,datensatz);
  ListBox1.Items.Add(datensatz.name);
end;
CloseFile(myfile);					

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

VAR  datei: FILE OF Tdatensatz;
     i : INTEGER;
begin
  AssignFile(datei,'C:\daten.dat');
  ReWrite(datei);
  for i:=0 TO High(datensatz) DO Write(datei,datensatz[i]);
  CloseFile(datei);
end;					

1:
2:
3:
4:

TDatensatz = RECORD
                      name : STRING
                      nummern : ARRAY OF INteger;
                    END;					

1:
2:
3:
4:

TDatensatz = RECORD
                      name : STRING[120];
                      nummer : Array[0..20] Of INteger;
                    END;