Hallo zusammen!
Ich bin neu hier im Forum und versuche mich gerade wieder intensiver in Delphi einzuarbeiten.
Ich habe folgendes kleines Problem. Ein ganz simples Programm fragt die DVDNummer und den Filmtitel ab,
das ganze soll jetzt in eine Textdatei geschrieben werden. Funktioniert soweit auch ganz gut, aber leider geht das ganze auch nur ein einziges Mal, dann gibts einen EInOutError mit Code 105.
So sieht der Code aus:
Delphi-Quellcode:
var
Form1: TForm1;
DVDNummer : String;
Filmtitel, s : String;
datei : TextFile;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
DVDNummer := Edit1.Text;
Filmtitel := Edit2.Text;
AssignFile(datei, 'Filme.txt');
FileMode := fmOpenWrite;
// Prüfen ob die Datei besteht, ansonsten wird die Datei angelegt.
if not FileExists('Filme.txt') then
begin
Rewrite(datei);
ShowMessage('Datei war nicht vorhanden, wurde aber erstellt...');
end
else
begin
Reset(datei);
end;
writeln(datei, DVDNummer + ',' + Filmtitel);
CloseFile(datei);
Edit1.Clear;
Edit2.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
AssignFile(datei, 'Filme.txt');
Reset(datei);
while not EOF(datei) do
begin
Readln(datei, s);
ListBox1.Items.Add(s);
end;
CloseFile(datei);
except
on e: EInOutError do
ShowMessage('#' + IntToStr(e.errorcode));
end;
Die Datei wird richtig angelegt, wenn sie nicht existiert und es werden die beiden Abfragen auch korrekt eingetragen. Soll dann z.B. ein weiterer Eintrag gemacht werden, bricht es mit E/A Code 105 ab.
Danke schon mal im Voraus...