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

frmEntradas.txtTotCanMat.Text := FormatFloat('#,##0.00', DMDatos.qryConsultas.FieldValues['Peso']);

Funciono Perfecto
 

Muchas gracias.

Funciono bien.:)