Código Delphi [-] procedure TfrmImprimirRecibo.FormCreate(Sender: TObject); begin { ImporteRecibo es el nombre del componente aTexto Numero propiedad de aTexto qRboProfesor es un query cuyo field rp_Importe es un campo de una tabla Importe.Caption es qrLabel := importe recibido es el valor del campo pasado a texto--- espero que sea claro, fijate el evento que uso } ImporteRecibo.Numero := dmQuerys.qRboProfesor.FieldByName('RP_Importe').Value; Importe.Caption := ImporteRecibo.AsString; end;
procedure TfrmImprimirRecibo.FormCreate(Sender: TObject); begin { ImporteRecibo es el nombre del componente aTexto Numero propiedad de aTexto qRboProfesor es un query cuyo field rp_Importe es un campo de una tabla Importe.Caption es qrLabel := importe recibido es el valor del campo pasado a texto--- espero que sea claro, fijate el evento que uso } ImporteRecibo.Numero := dmQuerys.qRboProfesor.FieldByName('RP_Importe').Value; Importe.Caption := ImporteRecibo.AsString; end;