agregar campo a consulta sql

[ecfisa]

Hola.

Paradox no soporta funciones "tan sofisticadas", creo que la sugerencia de movorack es tu solución.

Un ejemplo sobre la tabla Country.db que viene con Delphi.

Código Delphi [-]
...
implementation {$R *.dfm}

const
   MAX_RND = 100;
type
  TQueryEx = class(TQuery);

procedure TForm1.FormCreate(Sender: TObject);
var
  fld: TField;
begin
  Randomize;
  Query1.SQL.Text := 'SELECT * FROM COUNTRY';
  TQueryEx(Query1).FieldDefs.Update;
  TQueryEx(Query1).CreateFields;
  fld := TIntegerField.Create(Query1);
  fld.FieldName  := 'RNDFLD';
  fld.Calculated := True;
  fld.DataSet    := Query1;
  Query1.Open;
end;

procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
  Query1.FieldByName('RNDFLD').AsInteger := Random(MAX_RND) + 1; // 1 - MAX_RND
end;

end.

Podes ahorrarte el código de creación si lo realizas en tiempo de diseño.

Saludos

Edito: (También te recomiendo migrar a otro gestor de base de datos )