No hay respuestas en este tema

[red_dragon]

Bueno el componente en cuestion es ArtFormula, lo encuentran en http://artsoft.nm.ru...ks.html#formula sirve como evaluador de expresiones en tiempo de ejecucion, descargado de la pagina no tiene soporte para llamar datos de una tabla o base de datos, sin embargo el autor de este componente proporciona codigo para que esta funcionalidad se incluya en el componente, lo malo es que intente agregar a los archivos pas que viene con el componente y no le encuentro solucion. El codigo adicional en cuestion es este:

El autor dice que hay que crear un nuevo modulo para acceder a los datos de Firebird. Por ejem para un tsqltable seria asi.

delphi

FBTables : array of TSQLTable;
 
function mytable(var Calc : TFormulaCalc):TCalcItem;
begin
 setN(result,trunc(Calc.topn));
end;
 
function mytableopen(var Calc : TFormulaCalc):TCalcItem;
var i,p : integer;
begin
 p := -1;
 for i := 0 to high(FBTables) do
 begin
  if FBTables[i] = nil then
  begin
   p := i;
   break;
  end;
 end;
 if p = -1 then
 begin
  p := high(FBTables)+1;
  setlength(FBTables,p+1);
 end;
 FBTables[p] := TSQLTable.Create(Self);
 < ... initialization of FBTables[p] ... >
 setN(result,p);
end;
 
 
function mytableclose(var Calc : TFormulaCalc):TCalcItem;
var current:integer;
begin
 current := trunc(Calc.TopN);
 FBTables[current].close;
 Freeandnil(Files[current]);
 setN(result,0);
end;
 
function mytablenext(var Calc : TFormulaCalc):TCalcItem;
var current:integer;
begin
 current := trunc(Calc.TopN);
 FBTables[current].next;
 if FBTables[current].eof then setN(result,0)
 else setN(result,1);
end;
 
function mytablefield(var Calc : TFormulaCalc):TCalcItem;
var current:integer;
begin
 current := trunc(Calc.ItemN(1));
 SetS(result,FBTables[current].fieldbyname(Calc.topS).asstring);
end;
 
 
 
 module := Formula.AddUserFunction('table',1,mytable,true);
 Formula.AddModuleFunction(module,'open',1,mytableopen);
 Formula.AddModuleFunction(module,'close',0,mytableclose);
 Formula.AddModuleFunction(module,'next',0,mytablenext);
 Formula.AddModuleFunction(module,'field',1,mytablefield);

Despues.

delphi

$mytable := table.open('table_name');
$n := 1;
while $n=1 do
 if table($mytable).field('field')="AFECTED" then B3=50 else B3=0 endd;
 $n := table($mytable).next;
wend;
 
table($mytable).close;

Alguna idea de como deben ir y en que archivos para que la funcionalidad de sacar datos de Tsqltable o Tsqlquery se adicione con estos codigos a ese componente, desde ya gracias por vuestra respuesta.