Hallo Community,
verschiedene Berechnungsfunktionen z.B. MyFunk_1 rufe ich über Procedurpointer auf:
[DELPHI]
Type
TDynExtendedVektor = TArray<Extended>;
TFuncProc = Procedure (X : Extended;
CONST Koeff_Vektor : TDynExtendedVektor;
VAR Y: Extended;
VAR dYdKoeff_Vektor: TDynExtendedVektor);
Procedure MyFunk_1(X: Extended; CONST Koeff_Vektor: TDynExtendedVektor;
VAR y: Extended;
VAR dYdKoeff_Vektor: TDynExtendedVektor);
VAR
a : TDynExtendedVektor ABSOLUTE Koeff_Vektor;
dyda : TDynExtendedVektor ABSOLUTE dYdKoeff_Vektor;
Z, S, T: Extended;
Was mache ich falsch?
Du verwendest "absolute" ohne jede Notwendigkeit, nur um etwas Tipparbeit zu sparen. Böser Andreas
Versuchs mal ohne.