Multi/Dualthreading - Laufzeit: Strings Thread -> VCL

[Dax]

Zitat von xZise:

Edit #1

PS: Es gibt die Funktion "TryEnter". Scheiße! Warum funktioniert die Hilfe nicht. Tuts damit? Und reicht dann das?

Delphi-Quellcode:

procedure TSearchThread.SetFile(AFile: string);
begin
  if FCritical.TryEnter then
  begin
    //try
    FFile := AFile;
    //finally
    FCritical.Leave;
    //end;
  end;
end;

Ja, das müsste funktionieren - allerdings solltest du den kommentiert eingefügten Resourcenschutzblock immer dazuschreiben.