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

Комментарии

• AlexTZ

  April 2005 отредактировано 12:29

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

  April 2005 отредактировано 12:29

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

  написал:

  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_

  April 2005 отредактировано 12:29

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

  написал:

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

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