TPath.Combine, TPath.GetTempPath threadsicher?

[Sir Rufo]

Ganz einfach das hier:

Delphi-Quellcode:

var
   FName : String;
   error : boolean;
begin
   ...
  error := False; // damit das auf jeden Fall initialisiert ist
   try
     error := CopyStream2File('42',FName); // <- das erzeugt eine Exception
   except
     MyError('Fehler...'); // <- Ja wird ausgeführt
   end;

   if not Error then // <- Was für einen Wert hat jetzt Error? Richtig: False - äh, aber das ist doch Falsch! Eben darum
     Play(FName)
   
end;

Und wenn wir diese initiale Zuweisung von error := False; weglassen, dann haben wir einen Zufallsgenerator. Mal wird Play(FName) ausgeführt und mal nicht, obwohl es immer einen Fehler gibt. Dadurch kommen dann solche Gerüchte über Auswirkungen von Erdstrahlen oder Sonnenflecken auf die Programme auf.