Klar geht der Code - ich würde ihn aber anders schreiben - wenn ich es nicht sogar ganz anders machen würde:
Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
const
INDEX_FILENAME = 'Eintrage.txt';
var
tf: TextFile;
fileName: string;
begin
fileName := Edit1.Text + ' ' + Edit2.Text + '.txt';
AssignFile(tf, INDEX_FILENAME);
if FileExists(INDEX_FILENAME)
then Append(tf)
else Rewrite(tf);
WriteLn(tf, fileName);
CloseFile(tf);
end;
Die von dir verwendeten Dateioperationen sind veraltet und stammen aus einer Zeit, als es noch keine Netzwerke und vor allem kein Multitasking gab. Unter Windows ist es gang und gäbe, dass du beim Testen eine Datei bearbeitest, die du nebenher in einem Editor offen hältst. Da musst du dann noch jede Menge Code zur Fehlerprüfung einbauen.
Du solltest die Standardnamen deiner Komponenten auf der Form möglichst schnell abändern - Edit1 ist einfach kein guter Name...
Grüße vom marabu