Datei beim Programmstart erstellen lassen

[Oovas]

Versuch es mal so:

Delphi-Quellcode:

...
 var f : TextFile;
 var Ueberschrift: String;
...

// Datei definieren und erstellen
 AssignFile(F, DateinameUndPfad);
 {$IOCHECKS OFF}
 ReWrite(F);
 {$IOCHECKS ON}
 if IOResult = 0 then
 begin
   Ueberschrift := 'Hallo';
   Writeln(F, Ueberschrift);
 end
 else
 begin
   ShowMessage('Datei konnte nicht erstellt werden.');
 end;

...
//Datei schließen
CloseFile(F);