Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   distintos Formatos numéricos en una misma columna de un dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=96600)

juank1971 12-02-2024 22:23:26

distintos Formatos numéricos en una misma columna de un dbgrid
 
Hola Amigos:
Hace tiempo ni pasaba por el foro, espero el DELPHI siga vivo y mas que nunca jeje.

Quisiera formatear una columna de un dbgrid conectado a un daset el campo "VALOR" es float en la base de datos firebird,
Pero quisiera en la misma columna llamada "VALOR" mostrar números con dos decimales en algunas filas y en otras filas de esa "misma columna" mostrar números enteros, y en otras filas mostrar números con un solo decimal.

Alguna idea , es para DELPHI 6

juank1971 13-02-2024 04:14:17

voy a probar que debe estar cerca de onGetText del dbgrid la solución

Casimiro Notevi 13-02-2024 10:49:12

¿Y cuál es la condición para mostrar un formato u otro?

juank1971 13-02-2024 15:24:12

Saludos, un código de otra columna, si el código es p1 de la columna CODIGO el formato de la columna VALOR es dos decimales, si el código de la fila es p2 el formato de la misma columna VALOR pero de la fila donde esta en CODIGO p2 es entero sin decimales.

juank1971 13-02-2024 15:26:52

creo esto me funciona correcto lo que quiero :

Código Delphi [-]
procedure TDM.QueryVALORGetText(Sender: TField; var Text: string; DisplayText: boolean);
begin
  if QueryCODIGO.AsString = 'P1' then
  begin
     if Sender.AsString <> '' then
        Text := Format('%8.2f', [Sender.AsFloat]);
  end
  else
     Text := Sender.AsString;

end;


La franja horaria es GMT +2. Ahora son las 18:43:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi