ladrus
ladrus
Подробная информация
- Имя пользователя
- ladrus
- Присоединился
- Посещений
- 0
- Был на сайте
- Группы
- Members
Комментарии
-
А де ты видел такое описание событий procedure ButtonClick(Sender: TButton); попробуй procedure ButtonClick(Sender: TObject);
-
Обьявляешь ListStack: TStringList; В блоках initialization ListStack := TStringList.Create; finalization ListStack.Free; procedure TfsScript.RunLine(const UnitName, Index: String); ListStack.Add(Index); ListStack.Add(UnitName); .. Это …
-
Не помогает.
-
Необходимо чистить после выполнения, или при загрузке скрипта, иначе вообще происходит задвоение кода.
-
Ситуация даже веселее, как только я обращаюсь к каким то подэлементам XML всё - не удаляется обьект var i, j: Integer; Xml: Variant; begin Xml := CreateOleObject('Microsoft.XmlDom'); Xml.appendChild(Xml.createElement('ROOT')); for i := …
-
Огромное спасибо
-
Вот там описано, я на подобное нарывался. Но там по всем OLE обьектам в скрипте. http://www.fast-report.com/en/forum/?p=/discussion/2196
-
Нашёл уже сам FormatЧЬДElement(IXMLDOMElement(IDispatch(Params[0])))