Problem mit Critical Section

[DoktorD]

Aha. Jetzt hab ichs verstanden.

Schickt das, wenn ich das dann so mache? Mit DebugString wird die oben gezeigte Funktion aufgerufen die dann ins RichEdit schreibt.

Delphi-Quellcode:

procedure CThread1.Execute;
begin
  inherited;

  while not Terminated do
  begin
    Synchronize(LogString);
  end;
end;

procedure CThread1.LogString;
begin
  DebugString('Thread 1.1');
  DebugString('Thread 1.2');
  DebugString('Thread 1.3');
end;