Глава 16 Использование компонента TQREXPR - часть 2

STR(Table1.DEN) + ‘.’ + STR(Table1.MES) + ‘.’ + STR(Table1.GOD)

(возможно проще ввести его вручную). Затем нажмите кнопку OK, чтобы закрыть окно редактора формул. С помощью Инспектора объектов установите в свойство AutoSize компонента QRExpr1 значение False, измените размеры компонента так, чтобы он мог отображать примерно 10 символов, и установите выравнивание вправо (свойство Alignment = taRightJustify). Запустите режим предварительного просмотра содержимого отчета (рис.11). Как видим, дата отпуска товара приобрела более привычный вид.

Рис. 11. Результат вычисления выражения появился в отчете.

Замечание.

Другим способом составления значения даты из трех полей могло бы быть создание вычисляемого поля (например, SumData) и определение алгоритма вычисления его значения в таком обработчике события OnCalcFields:

procedure TForm1.TableCalcFields(DataSet: TDataSet);

begin

  Table1SumData.Value := Table1DEN.AsString + ‘.’ +

  Table1MES.AsString + ‘.’ + Table1GOD.AsString;

end;