Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Отчёт в QuickRep

Автор: AlexanderI 19.4.2005, 19:40

Есть таблица Paradox. С полями А1, А2, А3, А4 ....... В них записаны числа. 23, 45, 675 и т.д.
Из этой таблици я делаю отчёт с помощью QuickRep1.
Т.е. печатаются все данные таблици.
Как бы сделать так, чтобы если число целое, то оно выводилось с нулём после запятой.
Т.е. например если в таблице число 657, то на отчёт бы оно выводилось как 657,0 .

- Может поля в базе прописать както ? Хотя если в базу записать число 678,0 то оно записывается как 678.
- Может както QuickRep настроить или прочитать данные когда последовательно генирятся SUB в QuickRep (вопрос как) ?

Автор: AlexanderI 19.4.2005, 21:16

Решил проблему с помощью:

Код

procedure TForm4.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
tmp: string;
begin
//Добавляем ",0"
tmp := '';
// F10
tmp := Form1.Table3.FieldByName('F10').AsString;
if pos(',',tmp) = 0 then
  begin
  tmp := tmp + ',0';
  //StrtoFloat(tmp);
  end;
  QRLabel4.Caption := tmp;
end;

Теперь стоит другая проблема, Числа по длине разные, и хотелось бы выстоить их по последней цифре. Кто знает как бы жто сделать?

Автор: AlexanderI 19.4.2005, 22:29

Оказывается нужно было Alignment := taRightJustify; установить.