Ich versuch es dir nochmal zu erklären
Ich habe eine Index-Datei, in der die Dateinamen der Datensätze für mein Adressverzeichnis drinstehen. Wenn der Benutzer sich das Programm runterlädt, ist meistens noch keine Index-Datei dabei. Diese soll beim Erstellen des ersten Eintrages miterstellt werden. Dann soll der Dateiname in die Index-Datei getan werden. Und zwar wollte ich das so machen:
Delphi-Quellcode:
var
datei: textfile;
begin
assignfile(datei,'Eintrage.txt'); //Das ist die Index-Datei
rewrite(datei);
writeln(datei, edit1.text+' '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen
closefile(datei);
end;
Geht das so, wenn die Datei noch nicht existiert und erstellt werden soll?
Existiert die Index-Datei doch schon, dann soll einfach nur eine Zeile angefügt werden:
Delphi-Quellcode:
var
datei2: textfile;
begin
assignfile(datei2,'Eintrage.txt'); //Das ist die Index-Datei
append(datei2);
writeln(datei2, edit1.text+' '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen
closefile(datei2);
end;
Um das zu verbinden will ich das so machen:
Delphi-Quellcode:
var
datei, datei2: textfile;
begin
if fileexists('Eintrage.txt') then
begin
assignfile(datei2,'Eintrage.txt'); //Das ist die Index-Datei
append(datei2);
writeln(datei2, edit1.text+' '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen
closefile(datei2);
end
else
begin
assignfile(datei,'Eintrage.txt'); //Das ist die Index-Datei
rewrite(datei);
writeln(datei, edit1.text+' '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen
closefile(datei);
end;
end;
Soweit mitgekommen?
Bei mir funktioniert das ganze mit Append aber nicht, wenn Eintrage.txt total leer ist.