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
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