MultiThreading

[Edelfix]

Würde ich so eins zu eins in ChatGPT eingeben. "Danke!" könnte man weg lassen.

[DerMondistunsereSonne]

Spitzenantwort, ich nutze kein ChatGPT und habe gestern im Radio erfahren, dass Höflichkeiten bei der Verwendung sehr viele Ressourcen binden.

[Edelfix]

Kann sein das ich dich falsch verstanden habe. Was genau ist deine Frage?

[Uwe Raabe]

Delphi-Quellcode:

unit uMyList;

interface

function MyList: TStringList;

implementation

uses 
  System.Threading;

var
  InternalFuture: IFuture<TStringList>;
  InternalList: TStringList;

function MyList: TStringList;
begin
  Result := InternalFuture.Value;
end;

initialization
  InternalList := TStringList.Create;
  InternalFuture := TTask.Future<TStringList>(
    function: TStringList
    begin
      Result := InternalList;
      for var I := 1 to 10000000 do
        Result.Add(I.ToString);
    end);
finalization
  InternalList.Free;
  InternalList := nil;
end;

Der Zugriff im Form auf MyList wartet bei Bedarf auf die Fertigstellung.

[DerMondistunsereSonne]

Danke Uwe, ich probiere es mal damit.

@Edelfix Wie man so etwas am geschicktesten angeht.

[DerMondistunsereSonne]

Hat funktioniert, vielen Dank!

[MyRealName]

Wäre da nicht eher ein TDictionary<Integer,String> besser ?