Непонятно почему идет загрузка
Запускаю проект попадает в модуль инициализации
initialization
fsRegisterLanguage('C++Script', CPP_GRAMMAR);
потом в
initialization
fsRegisterLanguage('BasicScript', BASIC_GRAMMAR);
далее в
initialization
fsRegisterLanguage('JScript', JS_GRAMMAR);
И в окне Call stack всего две записи
|00A8541A|Pr_.exe |fs_icpp.pas| |Initialization |157[1]|
|00AACA70|Pr_.exe|Pr_.dpr| | |124[0]|
|7C90DC9A|ntdll.dll | | |NtSetInformationThread| |
Ничего не понимаю... Почему они грузятся..
initialization
fsRegisterLanguage('C++Script', CPP_GRAMMAR);
потом в
initialization
fsRegisterLanguage('BasicScript', BASIC_GRAMMAR);
далее в
initialization
fsRegisterLanguage('JScript', JS_GRAMMAR);
И в окне Call stack всего две записи
|00A8541A|Pr_.exe |fs_icpp.pas| |Initialization |157[1]|
|00AACA70|Pr_.exe|Pr_.dpr| | |124[0]|
|7C90DC9A|ntdll.dll | | |NtSetInformationThread| |
Ничего не понимаю... Почему они грузятся..
Комментарии
так как на датамодуле лежит компонент
fsPascal: TfsPascal;
Остальных язывых нет проверил.
почему идет загрузка их?
Открыл демку main добавил в проект модуль unit fs_tree;
program FRDemo;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {ReportData: TDataModule},
fs_tree in '..\..\FastScript\fs_tree.pas';
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TReportData, ReportData);
Application.Run;
end.
Чтобы не вылетело ставим заглушку в
procedure fsRegisterLanguage(const Name, Grammar: String);
--- самом начале.
if Languages = nil then
Languages := TStringList.Create;
Запускаю на выполнение. Ставим точку остановки в процедуре
и смотрим какие языки попадают
Все языковые модули подключаются в frxClass.
Речь идет о Fast Report в Delphi 2009.
Fr4\Demos\Main\frdemo.dpr
Открыл демку main добавил в проект модуль unit fs_tree;
ADD File to Proeject Shift F11
Выбрали файл Fr4\FastScript\fs_tree;
И запустите проект на выполнение.
Цикл инициализации юнитов Unit1 -> frxClass -> fs_icpp и тд.
Стек вызовов естественно будет указывать на приложение, т.к. инициализация юнитов происходит в RTL библиотеке.
fs_tree.pas тут не причем....
Вы попробуйте так сделать.
И посмотрите какие будут ошибки.
И при закрытие приложения- Оно не закрывается.
У меня RS2009 версии 12.0.3170.16989 и текущая сборка FR, я все больше склоняюсь к тому, что у Вас часть исходников либо старая , либо модифицированная.