Hallo zusammen,
mir ist es schon fast peinlich das Problem zu schildern, da a.)es mein erster Post ist und b.) AssignFile eigentlich simpel genug sein sollte.
Bei folgendem Abschnitt schmeisst er mir eine
Exception sobald das AssignFile aufgerufen wird. FLogFile ist dabei vom Typ TextFile. Der Pfad der in xLogFile steht ist auch vorhanden. Das ganze auf Windows 7. Sehe ich den Wald vor lauter Bäumen nicht? Vielen Dank schoneinmal fürs Lesen und evtl. wenn jemand eine Lösung hat, dann auch für eben jene
Delphi-Quellcode:
constructor TFileLogObject.Create;
var xLogFile: String;
begin
inherited Create;
xLogFile := GetCurrentDir + '\' + gcLogFileDir + FormatDateTime('yyyy-mm-dd', now) + gcLogFileExtension;
AssignFile(FLogFile, xLogFile);
if not FileExists(xLogFile) then
Rewrite(FLogFile)
else
Append(FLogFile);
end;