fsScript.Clear

lvi · June 2005

Вот код скрипта
var
Excel, Book, Sheet: Variant;

begin
Excel := CreateOLEObject('Excel.Application');
Book := Excel.WorkBooks.Open('file.xls');
Sheet := Book.ActiveSheet;
Sheet := nil;
Book.Close;
Book := nil;
Excel := nil;
end.

Поле запуска на исполнение (уже есть откопилированный)

FileStream:= TFileStream.Create(FmEditorRun.ExeFileName, fmOpenRead);
FsScript.SetILCode(FileStream);
FileStream.Free;
FsScript.Execute;

Всегда производиться

fsScript.Clear;

В прошлых версиях из процессов в данном случае исчезал Excel
Теперь же вообще остаётся - сколько раз выполнишь - столько и будет экземпляров

lvi · June 2005

Вот как это реализовано по новому
procedure TfsScript.Clear;
begin
while FItems.Count > 0 do
begin
FItems.Objects[0].Free;
FItems.Delete(0);
end;
FStatement.Clear;
FUnitLines.Clear;
end;
Где FItems - TStringList

Вот по старому

procedure TfsScript.Clear;
begin
while FItems.Count > 0 do
begin
TObject(FItems[0]).Free;
FItems.Delete(0);
end;
FStatement.Clear;
FUnitLines.Clear;
end;
где FItems - TList

AlexTZ · June 2005

Реализация не имеет значения, такое же поведение наблюдается и в старой версии. Пробовал лечить - не помогает.

lvi · June 2005

Извиняюсь конечно - но дело в том , что на прошлых версиях - конкретно FastScript v1.5 - всё сказанное выше работает корректно

AlexTZ · June 2005

В fs_iinterpreter.pas надо поправить:

constructor TfsScript.Create(AOwner: TComponent);
begin
inherited;
FItems := TStringList.Create;
FItems.Sorted := True;
// add
FItems.Duplicates := dupAccept;
...

lvi · June 2005

ОГРОМНОЕ СПАСИБО

Просто сказка теперь, помогло.

fsScript.Clear

Комментарии

Оставить комментарий