Funktionen in Array

[zeras]

Hallo,

ich habe ein Programm geschrieben, welche mittels einer Case Anweisung nach und nach verschiedene Funktionen ausführt.
In der Case Schleife wurde der Wert immer um eins erhöht und so wurde die nächste Funktion ausgeführt.
Nun muss ich das Programm erweitern, wo teilweise andere Funktionen nötig sind und die Reihenfolge kann auch anders sein.
Ich hatte mir das so gedacht, dass ich verschiedene Arrays habe, wo u.a. die Funktionen deklariert sind. Dann steppe ich durch das ganzze Array durch. Bei der neuen Version fülle ich dann das Array mit anderen Funktionen und anderer Reihenfolge.
Habt ihr da einen Tipp?
Ich hoffe, dass ist ein wenig verständlich.
Hier ein wenig Code:

Delphi-Quellcode:

   case Sequence of
      tCreate                : res := SiCreate;

      tWait4Start            : res := SiWait4Start;

      tGetMaschine           : res := SiGetMaschine;

      tTempPfadDel           : res := SiTempPfadDel;

[samso]

Deine Idee kann man so formulieren:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function A: Integer;
begin
  Result := 1;
end;

function B: Integer;
begin
  Result := 2;
end;

function C: Integer;
begin
  Result := 3;
end;

function D: Integer;
begin
  Result := 4;
end;

type
  TMyFunction = function: Integer;

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

begin
  SetLength(Steps, 4);
  Steps[0] := A;
  Steps[1] := B;
  Steps[2] := C;
  Steps[3] := D;

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

end.

[Redeemer]

Fehlt da nicht ein of object ?

[samso]

Zitat von Redeemer:

Fehlt da nicht ein of object ?

Nöh, das sind normale Funktionen und keine Methoden.

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