Zitat:
Welcher Fehler-Code?
Ein und Ausgabe . Oder was meinst du sonst.
Zitat:
Außerdem ist dringend davon abzuraten AssignFile mehrmals hintereinander auszuführen.
Ja ist Original nicht so war ein copy\paste Fehler hier im Forum.
Delphi-Quellcode:
procedure TraceDebug(Msg: PWideChar);
var
FileName: string;
begin
FileName := ExtractFilePath(ParamStr(0)) + 'Debug.txt';
AssignFile(txtTracer, FileName);
if FileExists(FileName) then
Append(txtTracer)
else
Rewrite(txtTracer);
WriteLn(txtTracer, Msg);
CloseFile(txtTracer);
end;
Es bleibt beim Fehler. EInOutError E/A-Fehler 32