Tema: Formato en un TEdit
Ver Mensaje Individual
  #1  
Antiguo 25-05-2007
Avatar de Maury Manosalva
Maury Manosalva Maury Manosalva is offline
Miembro
  
Registrado: ago 2005
Posts: 101
Reputación: 20
Maury Manosalva Va por buen camino
Formato en un TEdit
Hola a todos buen dia, tengo la siguiente pregunta: tengo la siguiente consulta
Código Delphi [-]
with DMDatos.QryConsultas do
   begin
   close;
   SQL.Clear;
   consulta := 'SELECT sum(pesmaterial)as peso, sum(pesmaterial*cosmaterial) as totales FROM tabdetentrmat t where t.identrada = '+chr(39)+frmEntradas.txtPrimaryKey.Text+char(39);
   SQL.Add(consulta);
   Open;
   frmEntradas.txtTotCanMat.Text := FloatToStr(DMDatos.qryConsultas.FieldValues['Peso']);
   frmEntradas.txtCosTotMat.Text := FloatToStr(DMDatos.qryConsultas.FieldValues['totales']);
   frmEntradas.txtTotGenCanMat.Text := FloatToStr(DMDatos.qryConsultas.FieldValues['Peso']);
   frmEntradas.txtTotGenCosMat.Text := FloatToStr(DMDatos.qryConsultas.FieldValues['totales']);

el campo "pesmaterial" es es Decimal(9,3), pero cuando hago esto:

frmEntradas.txtTotCanMat.Text := FloatToStr(DMDatos.qryConsultas.FieldValues['Peso']);

me aparece en la caja de texto, ejemplo: 52534, y debe ser 52,354, que debo hacer para que tome este formato.

Gracias por sus respuestas.

Maury
Responder Con Cita