como insertar el caracter 251

[ecfisa]

Hola DarkBlue.

No sé como tenes organizado el reporte, pero suponiendo que tengas:

• TQuickRep
• TQRSubDetail (propiedad DataSet = tu TDataSet)
• TQRLabel (dentro del TQRSubDetail)

Una forma podría ser:

Código Delphi [-]
procedure TForm1.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRLabel1.Font.Charset:= SYMBOL_CHARSET;
  QRLabel1.Caption:= Chr(StrToInt(DataSet.FieldByName('CAMPO').AsString));
end;

Un saludo.