как парсить frp файлы?

Комментарии

• -=Den=-

  December 2006 отредактировано 22:47

  Приблезительно так :

  var
    Memo:TfrMemoView;
    Page:TfrPage;
    idx:Integer;
  begin  
    frReport1.LoadPreparedReport(edInput.FileName);
    
    for idx := 0  to frReport1.EMFPages.Count - 1 do
    begin
      frReport1.EMFPages.ObjectsToPage(idx);
      Page := frReport1.EMFPages[idx].Page;
      Memo := Page.FindObject('Memo1') as TfrMemoView;
      if Memo <> nil  then
        Memo.Memo.Text := '542354';
    end;
    frReport1.ShowPreparedReport();
  
• MEV

  January 2007 отредактировано 22:47

  -=Den=-, большое спасибо!
  Кста, с прошедшими праздниками!