wir verwenden eine generische Liste aus Punkten um eine Funktion darzustellen . Im Sample Code die Definition der Kurve und der TestCode :
Delphi-Quellcode:
TCurve =
class(TList<TPointF>)
private
....
public
end;
var
i: Integer;
aTPointF: TPointF;
aCurve: TCurve;
begin
aCurve := TCurve.Create;
for i := -10
to 10
do
begin
aTPointF.X := i;
aTPointF.Y := -10 + i * i - i;
aCurve.Add(aTPointF)
// -> AV
end;
end;
diese Code Sequenz habe ich schon in mehreren Anwendungen erfolgreich verwendet.
jetzt bekomme ich eine Fehlermeldung bei aCurve.Add ().
in der
Unit System.types :
Delphi-Quellcode:
// Calculate the needed size of the heap object
Inc(PByte(typeInfo), PDynArrayTypeInfo(typeInfo).name);