Parameterliste einer Funktion zuweisen

[blablab]

Hallo!

Ich habe mehrere Sortier-Algorithmen und möchte diese gerne in einer Funktion kapseln. Deshalb möchte ich, dass alle Sortier-Algorithmen vom Typ TSortierAlgorithm sind:

Delphi-Quellcode:

type
   TSortAlgorithm = procedure(ParameterlisteX);

Aber wie weise ich den einzelnen Algorithmen diese spezielle Parameterlist zu. Ich kann einfach die Parameterliste jedes Mal abschreiben:

Delphi-Quellcode:

procedure A(ParameterlisteX);
begin
   ...
end;

procedure B(ParameterlisteX);
begin
   ...
end;

procedure C(ParameterlisteX);
begin
   ...
end;

Am liebsten wärs mir aber, wenn man das irgendwie zuweisen könnte. In etwa so:

Delphi-Quellcode:

procedure A := TSortAlgorithm;
begin
   ...
end;

procedure B := TSortAlgorithm;
begin
   ...
end;

procedure C := TSortAlgorithm;
begin
   ...
end;

Gibt es da eine Möglichkeit?

Grüße
blablab

[himitsu]

procedure A(Proc: TSortAlgorithm);

Ansonsten Nein, sowas geht leider nicht. (hab ich mir auch schon gewünscht)

Du kannst aber deine Parameter in ein Parameter-Objekt legen oder notfalls auch in einen Record.

Delphi-Quellcode:

type 
  TSortParam = class {oder =record}
    ParameterX: Integer; 
    ParameterY: String; 
    ParameterZ: Sonstwas; 
  end;

procedure A(Param: TSortParam);  // beim Record das CONST nicht vergessen
begin
   ...
end;

procedure B(Param: TSortParam);
begin
   ...
end;

[BUG]

Oder anders:

Delphi-Quellcode:

type
  TSortAlgorithm = class
  public
    property ParameterX: Integer;
    property ParameterY: String;
    property ParameterZ: Sonstwas;
    procedure sort; virtual abstract;
  end;

Von TSortAlgorithm kannst du jetzt zB. TBubblesort ableiten und implementierst dafür die Sort-Prozedur.

[blablab]

Vielen Dank!