Populate Array of procedure of object

[TiGü]

Workaround:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Generics.Collections;

type
  TUpdateProcedure = procedure of object;
  TUpdateProcedures = TArray<TUpdateProcedure>;

  IModelUpdater = interface
    ['{DB8D4B0F-31EA-4A93-AA06-E49FFA71BA47}']
  end;

  TReloAdapter = class(TInterfacedObject, IModelUpdater)
  private
    UpdateViewProcedures: TUpdateProcedures;
    procedure UpdateView001;
    procedure UpdateView002;
  public
    constructor Create;
  end;

var
  ReloAdapter: TReloAdapter;

constructor TReloAdapter.Create;
var
  UpdateProcedureList: TList<TUpdateProcedure>;
begin
  UpdateProcedureList:= TList<TUpdateProcedure>.Create();
  UpdateProcedureList.AddRange([UpdateView001, UpdateView002]);
  UpdateViewProcedures := UpdateProcedureList.ToArray;
  UpdateProcedureList.Free;
end;

procedure TReloAdapter.UpdateView001;
begin

end;

procedure TReloAdapter.UpdateView002;
begin

end;

begin
  try
    ReloAdapter := TReloAdapter.Create;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[hzzm]

Zitat von TiGü:

Workaround: UpdateProcedureList:= TList<TUpdateProcedure>.Create();

Danke. Ich hab jetzt alles auf TList's umgebogen. Komisch, dass das nicht auch mit Arrays geht. Naja, was solls...

[TiGü]

Nach dem Workaround kommt die Lösung:

Delphi-Quellcode:

type
  TMaker<T> = class
    class function MakeArray(const AArray: array of T): TArray<T>;
  end;

class function TMaker<T>.MakeArray(const AArray: array of T): TArray<T>;
begin
  SetLength(Result, Length(AArray));
  TArray.Copy<T>(AArray, Result, Low(AArray), Low(Result), Length(AArray));
end;

constructor TReloAdapter.Create;
begin
  UpdateViewProcedures := TMaker<TUpdateProcedure>.MakeArray([UpdateView001, UpdateView002]);
end;

[hzzm]

Zitat von TiGü:

Nach dem Workaround kommt die Lösung

Du krasser Fuchs.
Aber mal im Ernst, sollte das nicht grundsaetzlich in 'System' oder so mit aufgenommen werden, anstatt dass die User sich da mega einen abtricksen muessen?

[TiGü]

Zitat von hzzm:

Zitat von TiGü:

Nach dem Workaround kommt die Lösung

Du krasser Fuchs.
Aber mal im Ernst, sollte das nicht grundsaetzlich in 'System' oder so mit aufgenommen werden, anstatt dass die User sich da mega einen abtricksen muessen?

Ja, natürlich.
Aber allein schon das array of T und TArray<T> nicht miteinander kompatibel sind, ist ja schon ein Unding.

[Stevie]

Ich habs mal reported: https://quality.embarcadero.com/browse/RSP-20036