E/A Fehler bei Reset

[venice2]

Zitat:

Wenn ja, warum dann ohne jegliche Synchronisation? (z.B. CriticalSection oder Dergleichen)

Delphi-Quellcode:

initialization

InitializeCriticalSection(CritSect);

finalization

DeleteCriticalSection(CritSect);

Delphi-Quellcode:

procedure TraceDebug(Msg: PWideChar);
var
  FileName: string;
  txtTracer: TextFile;
begin
  EnterCriticalSection(CritSect);
  try
    FileName := ExtractFilePath(ParamStr(0)) + 'Debug.txt';

    AssignFile(txtTracer, FileName);
    if FileExists(FileName) then
      Append(txtTracer)
    else
    Rewrite(txtTracer);

    WriteLn(txtTracer, Msg);
  finally
    CloseFile(txtTracer);
    LeaveCriticalSection(CritSect);
  end;
end;

global.
  CritSect: TRTLCriticalSection;

funktioniert jetzt.
Danke @himitsu bist der beste

Muss jetzt nur noch 'send to Clipboard' und 'send to Printer' hinzufügen dann bin ich fertig.
Ich brauche es nicht aber vielleicht mal jemand anderes.