Проблема при вызове "моей" функции из скрипта (delphi 2009)
Здравствуйте.
Проблема в том, что при каждом вызове "моей" (одной и той же) функции из скрипта почему-то происходит выделение памяти приложению.
По окончанию выполнения скрипта память не освобождается.
Пример:
Добавление функции в скрипт:
Когда выполняется скрипт прикладного назначения с вызовом в цикле (по таблице базы данных) нескольких "моих" функций, происходит очень быстрое "Out of memory".
Прошу помочь советом: как с этим бороться ?
До свидания.
С уважением, roamer.
Проблема в том, что при каждом вызове "моей" (одной и той же) функции из скрипта почему-то происходит выделение памяти приложению.
По окончанию выполнения скрипта память не освобождается.
Пример:
#language PascalScript
Var
i:integer;
BEGIN
for i:=0 to 25000 do
begin
Application_ProcessMessages; //моя процедура
end;
END.
Добавление функции в скрипт:
fsScript1.AddMethod('procedure Application_ProcessMessages;', CallMethod_BaseFunc);
function TForm_FS_common.CallMethod_BaseFunc(Instance: TObject; ClassType: TClass;
const MethodName: String; var Params: Variant): Variant;
begin
Result:=0;
if WideUpperCase(MethodName) = WideUpperCase('Application_ProcessMessages') then begin
Application.ProcessMessages;
end;
end;
Когда выполняется скрипт прикладного назначения с вызовом в цикле (по таблице базы данных) нескольких "моих" функций, происходит очень быстрое "Out of memory".
Прошу помочь советом: как с этим бороться ?
До свидания.
С уважением, roamer.
Комментарии