Список созданных объектов
Добрый день!
Как мне перебрать все компоненты(визуальные и невизуальные), созданные в скрипте(объявленные в разделе VAR) можно даже в строковом виде их имена.
Пример скрипта:
var
t:TTable;
i:integer;
q:TQuery;
b:TButton
begin
...
// somecode...
...
end;
Мне в основной программе надо получить строковый список (TStrings)вида:
"table:TTable"
"q:TQuery"
"b:TButton"
То есть, допустим, у меня есть строка, с именем объекта в скрипте,
например "table" как мне узнать, какого типа этот объект? Как он объявлен в VAR?
Просто я предполагаю, что имена объектов объявленных в скрипте и их типы , где то хранятся в памяти(??) основной программы, так ли это и, если так, то как мне это получить?
Как мне перебрать все компоненты(визуальные и невизуальные), созданные в скрипте(объявленные в разделе VAR) можно даже в строковом виде их имена.
Пример скрипта:
var
t:TTable;
i:integer;
q:TQuery;
b:TButton
begin
...
// somecode...
...
end;
Мне в основной программе надо получить строковый список (TStrings)вида:
"table:TTable"
"q:TQuery"
"b:TButton"
То есть, допустим, у меня есть строка, с именем объекта в скрипте,
например "table" как мне узнать, какого типа этот объект? Как он объявлен в 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
А мне нужно получить типы переменных/объектов объявленных в разделе VAR
скрипта. Возможно это?