Получение указателя на объект TfsScript

Комментарии

• Georgy

  April 2004 отредактировано 06:37

  Такой вариант устраивает?

  with fsGlobalUnit.AddClass(TfsScript, 'TComponent') do
  begin
    AddProperty('Parent', 'TfsScript', GetProp, SetProp);
    AddMethod('procedure Clear', CallMethod);
    AddMethod('procedure Execute', CallMethod);
    AddMethod('function Compile: Boolean', CallMethod);
    AddMethod('function Run: Boolean', CallMethod);
  end;
  Script := TfsScript.Create(Self);
  fsGlobalUnit.AddObject('fsGlobalUnit', fsGlobalUnit);
  fsGlobalUnit.AddObject('Script', Script);
  
• raybot

  April 2004 отредактировано 06:37

  Да, спасибо огромное !!!