Memo

Yasik

Есть следующая проблема
Пример
Есть форма например Form1 на ней есть Label1, Caption которого меняется взависимости от значения переменной.
Мне надо присвоить значение Caption етого Label1, в репорте например Memo1, увы некак невыходит.
Подскажыте пожалуйста как сделать.
Если можна кусок кода.
Спасибо

kot

В репорте в Memo1 в проперти Memo поставь свою переменную, например [LabelCaption]. В ФастРепорте тогда на событие OnGetValue перехватывай имя переменной и подставляй значение.

procedure TForm1.frReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  if ParName = 'LabelCaption' then
    ParValue := Form1.Label1.Caption
end;

Vano

2 Yasik:

В программе пишешь:

frVariables['LabelCaption']:=Label1.Caption;

Затем в отчёте у Memo1 пишешь:

[LabelCaption]