distintos Formatos numéricos en una misma columna de un dbgrid

[juank1971]

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]

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;