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

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

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

Код

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;

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

Это сообщение отредактировал(а) Girder - 19.7.2005, 22:18

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