Ist dir aufgefallen, wie oft du
ExtractFilePath(ParamStr(0))geschrieben hast ?
Also schnell eine Funktion draus machen:
Delphi-Quellcode:
function ApplicationPath: string;
begin
Result := ExtractFilePath(ParamStr(0));
end;
Zitat:
AssignFile(Datei, ExtractFilePath(ParamStr(0)) + 'K.TXT');
Erase(Datei);
Das ist natürlich alter Quark aus der Pascalära.
Dateien löscht man so:
DeleteFile(const FileName: string); // aus
Unit SysUtils
Schau mal auf
www.delphipraxis.net/topic21144.html.
Dort wird gezeigt, wie man Dateien ohne Batchdatei verkettet.