Ver Mensaje Individual
  #9  
Antiguo 22-11-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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 )
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 22-11-2017 a las 20:40:03.
Responder Con Cita