if Table1.FieldByName(BooleanFieldName).Value then
  QRLabel1.Caption := '是'
else
  QRLabel1.Caption := '否';  

• 您在TDataSet新增一個calculated欄位 cFieldName,再將TQRDBText指向這個欄位

  procedure TForm1.Query1CalcFields(DataSet: TDataSet);
  begin
    if DataSet.FieldByName('FieldName').AsBoolean = True then
      DataSet.FieldByName('cFieldName').AsString := '是'
    else
      DataSet.FieldByName('cFieldName').AsString := '否';
  end;
  

• 利用TQRLabel元件

  procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
  begin
    if DataSet.FieldByName('FieldName').AsBoolean = True then
      QRLabel1.Caption := '是'
    else
      QRLabel1.Caption := '否';
  end;