[cmurua71]

Me refiero a algo así, pero necesito que el Array sea un atributo constante privado de una clase, y no sé donde declarar (o cómo) las constantes de una clase.

Te paso el codigo que me funciona, pero me gustaria saber como hacerlo de una manera ¨mas elegante¨ por asi decirlo

Código Delphi [-]
 INTERFACE
 
     TTemperaturaAmbiente = Class(TParametro)
 
     Private
 
     TempToVolt:array[0..9] of double;
 
     Public
       Constructor Create();
       Function GetValue(): double; Override;
       Function GetVolt(): double; Override;
       Function toVTermK():double;
     End;
 
 IMPLEMENTATION
 
 {########## TTemperaturaAmbiente ################}
 {--------------------------------------------------------}
   Constructor TTemperaturaAmbiente.Create;
   Begin
     TempToVolt[0] := -1.7600413686E-2;
     TempToVolt[1] := 3.8921204975E-2;
     TempToVolt[2] := 1.8558770032E-5;
     TempToVolt[3] := -9.9457592874E-8;
     TempToVolt[4] := 3.1840945719E-10;
     TempToVolt[5] := -5.6072844889E-13;
     TempToVolt[6] := 5.6075059059E-16;
     TempToVolt[7] := -3.2020720003E-19;
     TempToVolt[8] := 9.7151147152E-23;
     TempToVolt[9] := -1.2104721275E-26;
   End;
 
 {--------------------------------------------------------}
   Function TTemperaturaAmbiente.GetVolt;
   Begin
        Result := (((MaxVolt-MinVolt)/(Power(2,NumBits)))*(Fuente.getFromBuffer(Ubicacion)/Multiplicador))+MinVolt;
   End;
 {--------------------------------------------------------}
   Function TTemperaturaAmbiente.GetValue;
   Begin
        Result := (Self.GetVolt*Pendiente)+Ordenada;
   End;
 {--------------------------------------------------------}
   Function TTemperaturaAmbiente.toVTermK():double;
   Var
     Aux: Double;
     i:Integer;
 
   Begin
     Aux:= 0;
     For i:=0 to 9 do
       Aux:=Aux+(TempToVolt[i]*Power(Self.GetValue,i));
     Result:= Aux;
   End;
 {--------------------------------------------------------}

Gracias

Carlos