Funktionen in Array

[zeras]

Danke, das werde ich dieser Tage mal probieren.
Sieht aber so aus, dass ich es nutzen kann.

[Rollo62]

Die Statemachine mit Funktionen, s.u., ist dafür zu gebrauchen,
oder besser gleich eine State-Machine-Klasse,
z.B. die hier

[freimatz]

Wo siehst du hier States? Für mich riecht das eher nach "pipes and filters".
Das von samso scheint mir als erstes der richtige Ansatz zu sein.

[zeras]

Ich habe nun die Idee von Samso übernommen, aber festgestellt, dass ich durch Erweiterungen des Programms nun auch Parameter an die Funktionen übergeben muss.

Delphi-Quellcode:

function A(var x1: String; x2: integer; x3: String; x4: String; var x5: String): Boolean;
begin
  Result := True;
end;

function B(var x1: String; x2: integer; x3: String; x4: String; var x5: String): Boolean;
begin
  Result := True;
end;


type
  TMyFunction = function(var x1: String; x2: integer; x3: String; x4: String; var x5: String): Boolean;

var
  Steps: array of TMyFunction;
  Step: Integer;
  res: Integer;

begin
  SetLength(Steps, 2);
  Steps[0] := A; <-- wie muss ich die Funktion hier schreiben, da sie Parameter hat?
  Steps[1] := B;

  for Step := 0 to High(Steps) do
    res := Steps[Step];

end.

[dummzeuch]

Zitat von zeras:

Ich habe nun die Idee von Samso übernommen, aber festgestellt, dass ich durch Erweiterungen des Programms nun auch Parameter an die Funktionen übergeben muss.

Delphi-Quellcode:

function A(var x1: String; x2: integer; x3: String; x4: String; var x5: String): Boolean;
begin
  Result := True;
end;

function B(var x1: String; x2: integer; x3: String; x4: String; var x5: String): Boolean;
begin
  Result := True;
end;


type
  TMyFunction = function(var x1: String; x2: integer; x3: String; x4: String; var x5: String): Boolean;

var
  Steps: array of TMyFunction;
  Step: Integer;
  res: Integer;

begin
  SetLength(Steps, 2);
  Steps[0] := A; <-- wie muss ich die Funktion hier schreiben, da sie Parameter hat?
  Steps[1] := B;

  for Step := 0 to High(Steps) do
    res := Steps[Step];

end.

Die Parameter musst Du erste beim Aufruf übergeben:

Delphi-Quellcode:

  for Step := 0 to High(Steps) do
    res := Steps[Step](x1,x2,x3,x4,x5);

[zeras]

Danke Thomas,

im Beispiel oben (Konsolenprogramm) und den Infos von dir geht es, in meiner Umgebung bekomme ich den Fehler
E2009: Inkompatible Typen: 'Reguläre Prozedur und Methodenzeiger'.

Ich muss mal sehen, was in meinem Programm anders ist, als im Beispielprojekt.

Irgendwie hängt das mit den Funktionen zusammen, da diese noch im private Abschnitt deklariert sind, weil das alles im einem Thread läuft und ich Synchronize benutzen muss.

[dummzeuch]

Zitat von zeras:

im Beispiel oben (Konsolenprogramm) und den Infos von dir geht es, in meiner Umgebung bekomme ich den Fehler
E2009: Inkompatible Typen: 'Reguläre Prozedur und Methodenzeiger'.

In Deinem Programm sind vermutlich die Funktionen Methoden eines Objekts, dann musst Du die folgende Deklaration ändern:

Delphi-Quellcode:

type
  TMyFunction = function(var x1: String; x2: integer; x3: String; x4: String; var x5: String): Boolean of object;

[freimatz]

Oder vielleicht "TMyFunction = function" -> "TMyFunction = reference to function". Dann ist es egal.