überladene Operator und dyn. Array's

[Mr.borland]

du musst den zugriffs- operator Items realisieren; probiere es mal so:

Delphi-Quellcode:

type  TPolynom = record
    private
     function  GetCoef(idx:Integer):double;
     procedure PutCoef(Idx: Integer; value:double);
    public

      A: array of Double;
      Grad:integer;
         // usw.
      property  Items[Idx: Integer]: double read GetCoef write PutCoef; default;
end;
var  FX,FZ: TPolynom;

dann kannst du auch schreiben und lesen der koefizienten wie folgt realisieren

Delphi-Quellcode:

  setLength(FX.A,10);
  setLength(FZ.A,10);

  FX.Grad := 1;
  FX.A[0] := -2;
  FX.A[1] := 1; //x-2
  FZ := FX;
  FZ[0] := -4;

grüsse