Uso de Componente TArtFormula

[Neftali [Germán.Estévez]]

Pues a mi me funciona perfectamente esta función y el proyecto:

Código Delphi [-]
function XDiferencia(var Calc : TFormulaCalc):TCalcItem;
var
   V1,V2,V3ouble;
begin
   Form2.Prueba:='En Esta Linea da el Error,, si quiero accesar ha algo de este formulario (Varibales, Otras Funciones, Otros Objetos,Etc';
   V1 := Calc.ItemN(1);
   V2 := Calc.ItemN(0);
   SetN(result,V1-V2);
end;

Siempre y cuando elimines la primera línea:

Código Delphi [-]
   Form2.Prueba:='...

Puesto que la variable Form2 no está asignada en ese momento. De ahí el AV.

Un saludo.

AÑADO: No conocía este componente y me parece muy bueno. ;-)

[Efren2006]

Empezado por Neftali

Pues a mi me funciona perfectamente esta función y el proyecto:


Código Delphi [-]
function XDiferencia(var Calc : TFormulaCalc):TCalcItem;
var
V1,V2,V3ouble;
</SPAN>begin
Form2.Prueba:='En Esta Linea da el Error,, si quiero accesar ha algo de este formulario (Varibales, Otras Funciones, Otros Objetos,Etc';
V1 := Calc.ItemN(1);
V2 := Calc.ItemN(0);
SetN(result,V1-V2);
end;





Siempre y cuando elimines la primera línea:


Código Delphi [-]
Form2.Prueba:='...





Puesto que la variable Form2 no está asignada en ese momento. De ahí el AV.

Un saludo.

AÑADO: No conocía este componente y me parece muy bueno. ;-)

Efectivamente el problema es ese... Necesito Acceder a unas Funciones, Procedures y/o Propiedades de ese formulario, ya que en mi proyecto original debo accesar a Bases de Datos, Valores , Etc.

Gracias

[Neftali [Germán.Estévez]]

Empezado por Efren2006

Efectivamente el problema es ese... Necesito Acceder a unas Funciones, Procedures y/o Propiedades de ese formulario, ya que en mi proyecto original debo accesar a Bases de Datos, Valores , Etc.

En ese caso deberás asegurarte de que el formulario está creado, o crearlo si no lo está.

[Efren2006]

Empezado por Neftali

En ese caso deberás asegurarte de que el formulario está creado, o crearlo si no lo está.

Disculpen por el Tiempo ,, estaba fullllllllllllll.

Efectivamente Amigo neftali la ventana si esta creada, pero el problema era que la funcion no la reconoce, entonces para resolver el problema hice lo siguiente;

Cree una Variable del mismo tipo del Formulario;

Código Delphi [-]
 
 
var
  DataPer: TDataPer;
  XDataPer:TDataPer;
implementation
{$R *.dfm}

Luego en la Funcion Coloque esto:

Código Delphi [-]
  
 
 if TComponent(Calc.Parent).Owner is TDataPer then
   Begin
   XDataPer:=TDataPer(TComponent(Calc.parent).Owner);
   ..
   ..
   end;
..

Ya con ese Objeto del mismo tipo de la ventana que lo llama, puedo acceder a todas las funciones y Propiedades del Mismo