Ver Mensaje Individual
  #4  
Antiguo 27-05-2015
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 oscjae.

No había visto tu mensaje, disculpas por la demora de la respuesta.

El motivo de esas líneas es crear los campos y poder usar por ejemplo:
Código Delphi [-]
procedure TForm1.tu_DataSetCalcFields( DataSet: TDataSet );
begiin
  with DataSet do  
    FieldByName('CalcFld').AsFloat := PI * ( Fields[0].Value + Fields[1].Value );

Pueden quitarse sin ningún problema y hay que referirse a los campos por su nombre:
Código Delphi [-]
procedure TForm1.tu_DataSetCalcFields( DataSet: TDataSet ); 
begin
  with DataSet do  
    FieldByName('CalcFld').AsFloat := PI * ( FieldByName('CAMPO1').Value + FieldByName('CAMPO2').Value );

Saludos
__________________
Daniel Didriksen

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