TfsScript.Create - FItems.Duplicates := dupAccept;

отредактировано 23:45 Раздел: FastScript
Здесь же было посоветовано, для корректной работы с OLE обьектами установить такое
constructor TfsScript.Create(AOwner: TComponent);
begin
inherited;
FItems := TStringList.Create;
FItems.Sorted := True;
FLines := TStringList.Create;
FMacros := TStringList.Create;
FStatement := TfsStatement.Create(Self, '', '');
FSyntaxType := 'PascalScript';
FUnitLines := TStringList.Create;
Add('__StringHelper', TfsStringHelper.Create);
Add('__ArrayHelper', TfsArrayHelper.Create('__ArrayHelper', -1, fvtVariant, ''));
FItems.Duplicates := dupAccept;
Вот это добавить
end;

Возникают траблы на рекурсивных методах - как такое избежать

Invalid variant type

Вот здесь получается не соответствие обьектов (количество)

procedure RestoreLocalVariables(Item: TfsCustomVariable);
var
i: Integer;
begin
with TfsProcVariable(Item) do
for i := 0 to Prog.Count - 1 do
if (Prog.Items is TfsVariable) or (Prog.Items is TfsParamItem) then
Prog.Items.Value := Temp;

Temp := nil;
end;


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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.