Formato de porcentajes para campos

[[basti]]

Puedes usar los eventos OnGetText y OnSetText del campo.

Algo así:

Código Delphi [-]
procedure TForm1.Table1PorcentajeGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
    Text := FloatToStr(Sender.asFloat * 100) + '%'
end;

procedure TForm1.Table1PorcentajeSetText(Sender: TField;
  const Text: String);
begin
  Sender.AsFloat := StrToFloat(Text) / 100;
end;