Threads mit Callback im Mainthread

[himitsu]

PS: Darum auch aufpassen, dass man sowas nicht in einer Schleife nutzt, sondern dann nochmal in einer Methode mit Parametern kapselt,
da das geheime Variableninterface dann ja von außen immer wieder überschrieben wird, also auch innerhalb der mehreren Anonymen sich der Inahlt ändern würde.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  X: Integer;
begin
  for var i := 1 to 3 do begin
    X := Random(100);
    TThread.ForceQueue(nil, procedure
      begin
        ShowMessage(X.ToString);  // alle zeigen den gleichen "letzten" Zufallswert
      end);
  end;
end;