darmoedina
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Здравствуйте Пытаюсь перенести pascal код с 2.47 на Designer 3.20. Смысл в том чтобы отобразить на первых страницах отчета (содержание) страницы где описан необходимый товар. - прайс лист. Вот что написано v2: Код: procedure Page2OnBeforePrint(Sender: TfrxComponent); begin with Page2, Engine do begin idt:=0; end end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin with Band2, Engine do begin tt:=[ADOQuery4."idpart"]; ar[[ tt ]] :=[page#]; end end; procedure Band3OnBeforePrint(Sender: TfrxComponent); begin with Band3, Engine do begin tt:=[ADOQuery4."idtip"]; art[[ tt ]] :=[page#]; idt:=idt+1; aridt[[ tt ]] :=[idt]; end end; procedure Band4OnBeforePrint(Sender: TfrxComponent); begin with Band4, Engine do begin tt:=[ADOQuery4."idsubpart"]; ars[[ tt ]] :=[page#]; end end; procedure Memo18OnBeforePrint(Sender: TfrxComponent); begin with Memo18, Engine do begin ttt:=[ADOQuery5."idtip"]; end end; procedure Memo22OnBeforePrint(Sender: TfrxComponent); begin with Memo22, Engine do begin ttt:=[ADOQuery5."idtip"]; end end; begin end. | С первой процедурой всё нормально, а во второй не хочет брать [page#] ругается "']' expected" пишу так: Код: var tt: integer; ar : Array of integer; procedure GroupHeader2OnBeforePrint(Sender: TfrxComponent); begin with GroupHeader2, Engine do begin tt :=[page#]; end end; begin end. | И еще как объявить(синтаксис) глобальные массивы чтобы можно было с ними работать и в коде и ссылки на них давать из самого designerа? Пожалуста помогите | Всего записей: 44 | Зарегистр. 07-06-2006 | Отправлено: 10:44 11-09-2006 | Исправлено: darmoedina, 10:46 11-09-2006 |
|