Nun habe ich doch noch nachgeschaut und das wesentlich rauskopiert:
Delphi-Quellcode:
type
t_GetTabellenWert = FUNCTION (Lastfall: t_Lastfall; LineCount: Integer;
VAR Werte: t_ARRAYLastkombination;
VAR Einheit: String;
VAR VorwertGrafik: String;
VAR GrafikFile: String): Boolean;
...
var GetTabellenWert : t_GetTabellenWert;
begin
...
CASE Nachweistyp OF
ntZug_Stahlbruch : GetTabellenWert := GetWerte_Zug_Stahlbruch;
ntZug_Betonausbruch : GetTabellenWert := GetWerte_Zug_Betonausbruch;
ntZug_Herausziehen : GetTabellenWert := GetWerte_Zug_Herausziehen;
ntZug_Spalten : GetTabellenWert := GetWerte_Zug_Spalten;
ntZug_Druckkraft : GetTabellenWert := GetWerte_Zug_Druckkraft;
ntQuer_Stahlbruch : GetTabellenWert := GetWerte_Quer_Stahlbruch;
ntQuer_Kantenbruch : GetTabellenWert := GetWerte_Quer_Kantenbruch;
ntQuer_Betonausbruch : GetTabellenWert := GetWerte_Quer_Betonausbruch;
ntQuer_Herausziehen : GetTabellenWert := GetWerte_Quer_Herausziehen;
ntBiegung : GetTabellenWert := GetWerte_Biegung;
END;
...
end;
Ist zwar jetzt mit Case, aber da sollte auch ein Array realisierbar sein.
GetWerte_Zug_Stahlbruch, ... sind die Funktionen, die von den Parametern
t_GetTabellenWert entsprechen.