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.