Populate Array of procedure of object

[Der schöne Günther]

Minimalbeispiel:

Delphi-Quellcode:

type
   TMyClass = class
      public procedure p(); virtual; abstract;
   end;

type
   TUpdateProcedure  = procedure of object;
   TUpdateProcedures = TArray<TUpdateProcedure>;
var
   updateProcedures: TUpdateProcedures;
   instance: TMyClass;
begin
   // updateProcedures := TUpdateProcedures.Create(nil); // << F2084 Interner Fehler: C2477
   // updateProcedures := [nil]; // << F2084 Interner Fehler: C2477

   updateProcedures := TUpdateProcedures.Create(); // geht
   updateProcedures := []; // geht

   //updateProcedures := TUpdateProcedures.Create(instance.p); // E2010 Inkompatible Typen: 'TUpdateProcedure' und 'procedure, untyped pointer or untyped parameter'
   //updateProcedures := [instance.p]; // E2010 Inkompatible Typen: 'TUpdateProcedure' und 'procedure, untyped pointer or untyped parameter'
end.

[hzzm]

Vielen Dank fuer Eure Antworten.

Zitat von Zacherl:

Das Problem ist, dass procedure of Object nicht gleich procedure ist. Letzteres ist ein einfacher Funktions-Zeiger, während Ersteres ein Methodenzeiger ist, welcher an eine Instanz gebunden ist. Habe grade leider kein Delphi zum Testen zu Hand, aber probier es mal mit RelodAdapterInstance.UpdateView1 , etc. Also mit einer konkreten Objektinstanz.

Mein Code hat es nicht eindeutig gezeigt; in meinem Fall waere das dann Self.UpdateView001. Das aendert leider nichts. Selbst die Deklaration als Procedure; anstatt Procedure of object; bringt die exakt gleichen Probleme (gleicher Compiler-Fehler).

Zitat von Der schöne Günther:

Minimalbeispiel:

Delphi-Quellcode:

updateProcedures := TUpdateProcedures.Create(); // geht
   updateProcedures := []; // geht

Ja, das geht beides. Aber dann

Delphi-Quellcode:

updateProcedures := TUpdateProcedures.Create(); // geht
   updateProcedures := [UpdateView001, UpdateView002]; // geht nicht

'TUpdateProcedure' und 'procedure, untyped pointer or untyped parameter'

Vielleicht liegt mein Fehler in der Struktur, deshalb nochmal vollstaendiger:

Delphi-Quellcode:

type
  TUpdateProcedure = Procedure of object;
  TUpdateProcedures = TArray<TUpdateProcedure>;
  TReloAdapter = class(TInterfacedObject, IModelUpdater)
  private
    UpdateViewProcedures: TUpdateProcedures;
    procedure UpdateView001;
    procedure UpdateView002;
  public
    constructor Create;
  end;

var
  ReloAdapter: TReloAdapter;

implementation

constructor TReloAdapter.Create;
begin
  UpdateViewProcedures := TUpdateProcedures.Create(); // geht
  UpdateViewProcedures := [UpdateView001, UpdateView002]; // geht nicht
end;

[Der schöne Günther]

Das war auch kein Lösungsvorschlag, ich wollte nur dass Leute die schlauer sind als wir auf den ersten Blick sehen wo der Compiler noch mitmacht und wo er aussteigt.

Warum er damit ein Problem hat weiß ich ehrlich gesagt auch nicht.

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