![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как установить RunParams в XE2 из эксперта (ToolsAPI)
ZeroDivide © (2011-12-13 14:00:00)var
blalblabla: IOTAProject;
....
blalblabla := GetActiveProject;
blalblabla.ProjectOptions.Values['RunParams'] := ''; // - Не работает
// AV в CoreIDE160.bpl
ZeroDivide (2011-12-13 14:03:00) [1]Да blalblabla Assigned... ProjectOptions тоже...
перебор массива опций проекта возвращает опцию с именем RunParams, т.е.
blalblabla.ProjectOptions.GetOptionNames[n].Name
//А вот тут опять AV в CoreIDE160.bpl
blalblabla.ProjectOptions.Values[a.ProjectOptions.GetOptionNames[n].Name]
ZeroDivide (2011-12-13 14:03:00) [2]Да blalblabla Assigned... ProjectOptions тоже...
перебор массива опций проекта возвращает опцию с именем RunParams, т.е.
blalblabla.ProjectOptions.GetOptionNames[n].Name
//А вот тут опять AV в CoreIDE160.bpl
blalblabla.ProjectOptions.Values[blalblabla.ProjectOptions.GetOptionNames[n].Nam e]