Миграция Fr2.5 -> Fr4

Комментарии

• -=Serg=-

  April 2007 отредактировано 04:34

  http://www.fast-report.com/en/forum/index.php?showtopic=3719
  правда по английски...
• IL_S

  May 2007 отредактировано 04:34

  Переносил отчеты с FR2 (2.56 последняя с сайта) в FR4 (4.2 стабильная) наткнулся на злобную ошибку:
  
  fr_class.pas,
  procedure TfrView.SaveToFR3Stream(Stream: TStream);
  ...

    WriteStr(' Frame.Typ="' + IntToStr(FTyp) +
      '" Frame.Width="' + FloatToStr(FrameWidth) +
      '" Frame.Color="' + IntToStr(FrameColor) +
      '" Frame.Style="' + IntToStr(FrameStyle) +
      '" GapX="' + IntToStr(gapx) + '" GapY="' + IntToStr(gapy) +
      '" TagStr="' + StrToXML(Tag) + '" Memo.text="' + StrToXML(Memo.Text) + '"');
  

  ...
  Memo.text записывается в файл именно так, text с маленькой буквы, а в
  frxXMLSerializer.pas,
  procedure TfrxXMLSerializer.XMLToObj(const s: String; Obj: TPersistent);
  ...

            if Name = 'Text' then
            begin
              if Obj1 is TStrings then
              begin
                TStrings(Obj1).Text := frxXMLToStr(Value);
                continue;
              end
              else if Obj1 is TWideStrings then
              begin
                TWideStrings(Obj1).Text := frxXMLToStr(Value);
                continue;
              end
              else if Obj1 is TfrxCustomMemoView then
              begin
                TfrxCustomMemoView(Obj1).Text := Utf8Decode(frxXMLToStr(Value));
                continue;
              end
            end
  

  Text ожидается с большой буквы...
  
  В результате текст с Мемо не переносился - очень мило...