Array [1..5] of Function

[Glühwürmchen]

Ok,
sieht so einfach aus, aber die Übertragung gelingt mir nicht.

So habe ich es versucht:

Delphi-Quellcode:

11  type
12    TValidatefunction = function(const aNeuerWert: String): Boolean;
13      function PosDstExists(const aPosDst: String): Boolean;
14
15    TValidatefunctions = array[1..1] of TValidatefunction;
16
17  type
18    TPrjFrmEditPopupBase = class(TPrjFrmEditBase)
19      cxLabelBeschreibung: TcxLabel;
...

Die erste ValidierungsFunktion ist:

Delphi-Quellcode:

310  function PosDstExists(const aPosDst: String): Boolean;
311  var
312    tbl: TClass_TBLPOSITION;
313
314  begin
315    result := TRUE;
...

Ich dachte mir, wo ein Array ist, braucht es auch eine Initialisierung:

Delphi-Quellcode:

333  initialization
334    TValidatefunctions[1] := PosDstExists;
335  end.

So unsicher wie ich mich dabei fühle, ist es kein Wunder, dass mir der Compiler das gleich mal um die Ohren schlägt:
[Fehler] PrjFormEditPopupBase.pas(15): Unbekannte Anweisung: 'TValidatefunctions'
[Fehler] PrjFormEditPopupBase.pas(15): Deklaration erwartet, aber '=' gefunden
[Fehler] PrjFormEditPopupBase.pas(334): Undefinierter Bezeichner: 'TValidatefunctions'
[Fehler] PrjFormEditPopupBase.pas(334): Ausdruck erwartet, aber 'CONST' gefunden
[Fehler] PrjFormEditPopupBase.pas(334): '=' erwartet, aber ')' gefunden
[Fehler] PrjFormEditPopupBase.pas(335): Inkompatible Typen: 'String' und 'Boolean'