MultiThreading

[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 ?

[DerMondistunsereSonne]

Ist es inzwischen auch geworden, hatte mich zwischendurch vertan.

[QuickAndDirty]

Ist das nicht ein Problem?
Beim Zugriff auf die MyList aus dem GUI thread heraus, würde schließlich im der GUI Thread angehalten werden(freeze), um auf die Fertigstellung des Futures zu warten.

[Uwe Raabe]

Zitat von QuickAndDirty:

Ist das nicht ein Problem?
Beim Zugriff auf die MyList aus dem GUI thread heraus, würde schließlich im der GUI Thread angehalten werden(freeze), um auf die Fertigstellung des Futures zu warten.

Das ist offenbar so gewollt:

Zitat von DerMondistunsereSonne:

Und zu guter Letzt: Wenn in dem Form die Liste verwendet wird, soll geschaut werden, ob sie sich noch im Aufbau befindet, dann warten, sonst benutzen.

Mit ein klein wenig mehr Aufwand und Umbau ließe sich das aber auch ohne Freeze realisieren. Ob das bei den genannten 5 Sekunden nötig ist, kann sicher diskutiert werden.