Delphi-Quellcode:
procedure TraceDebug(Msg: PWideChar);
var
FileName: string;
begin
FileName := ExtractFilePath(ParamStr(0)) + 'Debug.txt';
AssignFile(txtTracer, FileName);
if FileExists(FileName) then
Reset(txtTracer)
else
Rewrite(txtTracer);
Append(txtTracer);
WriteLn(txtTracer, Msg);
CloseFile(txtTracer);
end;
txtTracer: TextFile; // global
Bekomme einen Ein und Ausgabe Fehler bei Reset.
Die Datei ist gerade mal 11 KB groß und ist vorhanden. (unter 'Dokumente' abgelegt)
Wo liegt der Fehler?