1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
TAn_bis_Ao = array of real;

type
THornerSchema= class(TObject)
private
fWertDerWerteTabelle:     real;
fErgebnisDerWerteTabelle: real;
fAn_bis_Ao: Array of TAn_bis_Ao;
function HornerSchema(An_bis_Ao: Array of real): real;

protected
public
property WertDerWerteTabelle: real read fWertDerWerteTabelle write fWertDerWerteTabelle;
property ErgebnisDerWerteTabelle: real read fErgebnisDerWerteTabelle write fErgebnisDerWerteTabelle;
property my_An_bis_Ao_Array: TAn_bis_Ao read fAn_bis_Ao write fAn_bis_Ao;  // Fehler !???

published
end;					

1:
2:
3:
4:
5:
6:

  private
    function getx(i: integer): real;
    procedure setx(i: integer; const Value: real);
  public
    property x[i: integer]: real read getx write setx;
  end;					

1:

fAn_bis_Ao: TAn_bis_Ao;