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'