1:
2:
3:
4:

procedure TForm1.cmdsaveClick(Sender: TObject);
begin
     listbox1.items.SaveToFile('film.dat');
end;					

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

procedure TForm1.cmdaddClick(Sender: TObject);
begin
Listbox1.Items.Add(txtname.text+' , '+txtjahr.text+' , Sprache:'+txtsprache.text);
txtname.text:=' ';
txtjahr.text:=' ';
txtsprache.text:=' ';
txtname.SetFocus;
end;					

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

//Textdatei beschreiben
procedure DatenSpeichern(Dateiname, Filmtitel, Kritik: string);
var
 f: textfile; //Dateivariable
begin
 AssignFile(s, Dateiname); // Dateivariable mit Datei verknüpfen
 Rewrite(f); // Datei öffnen: wenn vorhanden überschreiben, sonst erstellen
 // Alternativ: Append(f); Öffnet die Datei, um Daten ans Ende hinzuzufügen
 WriteLn(f, Filmtitel); // Erste Zeile schreiben
 WriteLn(f, Kritik); // zweite Zeile schreiben
 CloseFile(f); // Datei schließen
end;					

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

// Textdatei auslesen
procedure DatenLaden(Dateiname, var Filmtitel, Kritik: string);
var
 f: textfile; //Dateivariable
begin
 AssignFile(s, Dateiname); // Dateivariable mit Datei verknüpfen
 Rewrite(f); // Datei öffnen: wenn vorhanden überschreiben, sonst erstellen
 // Alternativ: Append(f); Öffnet die Datei, um Daten ans Ende hinzuzufügen
 ReadLn(f, Filmtitel); // Erste Zeile in Variable lesen
 ReadLn(f, Kritik); // zweite Zeile in Variable lesen
 CloseFile(f); // Datei schließen
end;