Список созданных объектов

Денис А.

Добрый день!
Как мне перебрать все компоненты(визуальные и невизуальные), созданные в скрипте(объявленные в разделе VAR) можно даже в строковом виде их имена.
Пример скрипта:

var
t:TTable;
i:integer;
q:TQuery;
b:TButton
begin
...
// somecode...
...
end;

Мне в основной программе надо получить строковый список (TStrings)вида:

"table:TTable"
"q:TQuery"
"b:TButton"
То есть, допустим, у меня есть строка, с именем объекта в скрипте,
например "table" как мне узнать, какого типа этот объект? Как он объявлен в VAR?
Просто я предполагаю, что имена объектов объявленных в скрипте и их типы , где то хранятся в памяти(??) основной программы, так ли это и, если так, то как мне это получить?

AlexTZ

var
i: Integer;
v: TfsCustomVariable;

for i := 0 to fsScript1.Count - 1 do
begin
v := fsScript1.Items;
ShowMessage('Name: ' + v.Name + '; Type: ' + v.TypeName);
end

Денис А.

Спасибо

Денис А.

Не получилось. Вывело мне только те объекты, которые я добавлял в скрипт через fsScript1.AddObject()

А мне нужно получить типы переменных/объектов объявленных в разделе VAR
скрипта. Возможно это?

AlexTZ

Возможно, но надо сначала сделать fsScript1.Compile.