Registriert seit: 5. Mai 2008
940 Beiträge
FreePascal / Lazarus
|
AW: Array [1..5] of Function
17. Okt 2012, 20:22
Kein Problem:
Delphi-Quellcode:
type
TExecutefunction = function(const aFensterbeschriftung: String; const aZellenwertAlt, aBeschreibung: String;
var vZellenwertNeu: String; var vModalResult: TModalResult;
const aChoiceValues: TStringList; const aControlIsTextEdit: Boolean = TRUE) : TFormEditPopup of object;
TExecutefunctions = array[1..5] of TExecutefunction;
|