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.