Exception при присвоении переменной значения

_Maxx_

Здравствуйте.
В отчете имеется элемент TfrxMemoView. В нем текст "[REPORTNAME]" (без кавычек). REPORTNAME объявленая как переменная в категории "Пользовательские". При попытке присвоить переменной значение

написал:

frxReport.Variables := Title; // типа String

вылетает исключение:

написал:

Были обнаружены следующие ошибки:
Could not convert variant of type (Array Variant) into type (String)

Попробовал объявить Title как Variant, не помогло.
В чем может быть проблема?

Версия FR 3.11.

AlexTZ

Правильно так:
frxReport.Variables := '''' + Title + '''';

_Maxx_

Забыл сказать, что ошибка вылетает при построении отчета:

написал:

procedure TReportForm.PrepareReport(Title: String);
begin
if Title <> '' then
    begin
    Title := StringReplace(Title, #13#10, '', [rfReplaceAll]);
    Title := StringReplace(Title, #13#10, '''#10''', [rfReplaceAll]);
    Title := ') + '''];';
    frxReport.Variables := '' + Title + ''; // здесь все OK даже без ''
    end;

if not frxReport.PrepareReport then // а exception вылетает здесь!
    raise Exception.Create('Ошибка!');
    frxReport.ShowPreparedReport;
end;

Ошибка вылетает при вызове frxReport.PrepareReport. Если присвоение переменной закометировать, то отчет подготавливается без ошибок.

При Exception - меня выбрасывает в frxClass (строка 4429):

написал:

  try
    if CompareText(ExprStr, 'TOTALPAGES#') = 0 then
      FValue := '[TotalPages#]' else
      FValue := Report.Calc(ExprStr);
    if FHideZeros and (TVarData(FValue).VType <> varString) and
      (TVarData(FValue).VType <> varOleStr) and (FValue = 0) then
      Result := '' else
      Result := FormatData(FValue, Format); // <-- Вот здесь стоит указатель
  finally
    if Format <> nil then
      Format.Free;
  end;

где ExprStr содержит "REPORTNAME", а вот переменная FValue принадлежит типу (Variant array of Variant), и при вызове метода FormatData вылетает Exception.

_Maxx_

Можно найти непосредственно объект Memo, и напарямую ему присвоить текст:

написал:

        (frxReport.FindObject('TitleMemo') as TfrxMemoView).Text := Title;

но хочется все таки сделать это через переменную... чтобы присвоив значение переменной - оно отобразилось в Memo.