Ich habe mit der XML-Datenanbindung eine Klasse zur Verwaltung von Programmeinstellungen erstellt.

In der eigentlichen Anwendung habe ich nun 3 ExecApps-Funktionen, die bis auf den Funktionskopf identisch sind.

zusammenfalten · markieren

Delphi-Quellcode:

interface

...

type
  TfrmMain = class(TForm)
    procedure btnPreBackupClick(Sender: TObject);
    procedure btnBackupClick(Sender: TObject);
    procedure btnPostBackupClick(Sender: TObject);
    private
      function ExecApps(AppType : IXMLPreBackupType;
                         SelectedOption : TExitMode) : Integer; overload;
      function ExecApps(AppType : IXMLBackupType;
                         SelectedOption : TExitMode) : Integer; overload;
      function ExecApps(AppType : IXMLPostBackupType;
                         SelectedOption : TExitMode) : Integer; overload;
    public
      ...
    end;
    
implementation

function TfrmMain.ExecApps(AppType : IXMLBackupType;
                           SelectedOption : TExitMode) : Integer;
begin
  if (AppType.Count = 0) then
    begin
      Exit;
    end;
    
  ...
end;

function TfrmMain.ExecApps(AppType : IXMLPreBackupType;
                           SelectedOption : TExitMode) : Integer;
begin
  if (AppType.Count = 0) then
    begin
      Exit;
    end;
    
  ...
end;

function TfrmMain.ExecApps(AppType : IXMLPostBackupType;
                           SelectedOption : TExitMode) : Integer;
begin
  if (AppType.Count = 0) then
    begin
      Exit;
    end;
    
  ...
end;

...

procedure TfrmMain.btnPreBackupClick(Sender: TObject);
begin
  if ExecApps(FXMLConfig.Types.Prebackup, SelectedOption) then
    begin
      ...
    end;
end;

procedure TfrmMain.btnBackupClick(Sender: TObject);
begin
  if ExecApps(FXMLConfig.Types.Backup, SelectedOption) then
    begin
      ...
    end;
end;

procedure TfrmMain.btnPostBackupClick(Sender: TObject);
begin
  if ExecApps(FXMLConfig.Types.Postbackup, SelectedOption) then
    begin
      ...
    end;
end;

IXMLBackupType, IXMLPreBackupType, IXMLPostBackupType sind von IXMLNodeCollection abgeleitet.

Der obige Code funktioniert soweit, ist aber natürlich 3-fach vorhanden und muss entsprechend gepflegt werden.

Jetzt dachte ich, ich könnte die 3 ExecApps-Funktionen zusammenfassen um die Pflege zu vereinfachen:

zusammenfalten · markieren

Delphi-Quellcode:

interface

...

type
  TfrmMain = class(TForm)
    procedure btnPreBackupClick(Sender: TObject);
    procedure btnBackupClick(Sender: TObject);
    procedure btnPostBackupClick(Sender: TObject);
    private
      function ExecApps<T>(AppType : T;
                            SelectedOption : TExitMode) : Integer;
    public
      ...
    end;
    
implementation

function TfrmMain.ExecApps<T>(AppType : T;
                              SelectedOption : TExitMode) : Integer;
begin
  if (AppType.Count = 0) then // E2003 Undeklarierter Bezeichner: 'Count'
    begin
      Exit;
    end;
end;

...

procedure TfrmMain.btnPreBackupClick(Sender: TObject);
begin
  if ExecApps<IXMLPreBackupType>(FXMLConfig.Types.Prebackup, SelectedOption) then
    begin
      ...
    end;
end;

procedure TfrmMain.btnBackupClick(Sender: TObject);
begin
  if ExecApps<IXMLBackupType>(FXMLConfig.Types.Backup, SelectedOption) then
    begin
      ...
    end;
end;

procedure TfrmMain.btnPostBackupClick(Sender: TObject);
begin
  if ExecApps<IXMLPostbackupType>(FXMLConfig.Types.Postbackup, SelectedOption) then
    begin
      ...
    end;
end;

Leider erhalte ich beim Zugriff auf AppType.Count in TfrmMain.ExecApps<T> den Fehler E2003 Undeklarierter Bezeichner: 'Count'.

Weiß jemand was ich falsch mache?

Probiere Mal in der Deklaration:

markieren

Delphi-Quellcode:

    private
      function ExecApps<T: IXMLNodeCollection>(AppType : T; SelectedOption : TExitMode) : Integer;

sonst könnte "T" ja auch ein Integer oder sonstwas sein, das keine Eigenschaft "Count" hat.

Wozu hierfür überhaupt Generics?

Diese 3 Interfaces scheinen doch, für dieses ExecApps, eine gemeinsame Funktion zu besitzen?

Warum haben sie dann nicht alle einen gemeinsamen Vorfahren, oder daneben einen gemeinsamen Typen, welcher hier als Parameter genutzt wird?

Zitat von himitsu:

Diese 3 Interfaces scheinen doch, für dieses ExecApps, eine gemeinsame Funktion zu besitzen?

Warum haben sie dann nicht alle einen gemeinsamen Vorfahren, oder daneben einen gemeinsamen Typen, welcher hier als Parameter genutzt wird?

Diese Interfaces wurden vom XML-Datenanbindungs-Wizard generiert. Wie einen Beitrag vorher beschrieben muss ich wohl die XML-Struktur nochmal ändern. Irgendwas ist hier faul.

Zitat von himitsu:

Diese 3 Interfaces scheinen doch, für dieses ExecApps, eine gemeinsame Funktion zu besitzen?

XML-Struktur etwas geändert und im XML-Datenanbindungs-Wizard vor dem Generieren die Werte für IXMLBackupType, IXMLPreBackupType, IXMLPostBackupType auf IXMLBackupType geändert und jetzt brauche ich nur noch eine Funktion.

@Olli73 und @himitsu
Danke für eure Hilfe und Denkanstösse.

Zitat von Olli73:

Probiere Mal in der Deklaration:

Danke, das funktioniert.

Jetzt habe ich noch an anderen Stellen den gleichen Fehler, der die gleiche Ursache hat.

Aber ich glaube ich muss die Struktur meiner XML-Datei noch mal überdenken damit das überhaupt mit Generics funktionieren kann.