Подключенные классы (баги)

Rayden

при попытке использовать не стандарные классы (компоненты) напримел сам чегонить наваял подключил к FastScript
пример кода скрипта:

var
Своя компонетна :ТСвояКомпонента;
begin
СвояКомпонетна.Create(nil);
end

получается что компилятор FastScript сообщаяет Stack Overflow там то... или приложенице вообще вылетает (постоит потормозит и вылетает)

AlexTZ

Правильно так:

var
Своя компонента :ТСвояКомпонента;
begin
СвояКомпонента := TСвояКомпонента.Create(nil);
end

Rayden

Ну я совбственно так и делал, опечатолся просто.

Rayden

Для понатности приведу несколько строк кода может я чего забыл ?,да кстати я на с++ пишу

fsGlobalUnit()->AddClass(__classid(TIDGenerator),"TIDGenerator");
/

---

/
Script->Clear();
Script->Lines->Clear();
Script->Parent = fsGlobalUnit();


из скрипта:
var
MyID :TIDGenerator;

begin
MyID := TIDGenerator.Create(nil); // собственно тут и виснет
end.

AlexTZ

Второй параметр - это имя РОДИТЕЛЬСКОГО класса, а не собственного! Отсюда и stack overflow.

---

fsGlobalUnit()->AddClass(__classid(TIDGenerator),"TIDGenerator");

Rayden

AlexTZ написал:

Второй параметр - это имя РОДИТЕЛЬСКОГО класса, а не собственного! Отсюда и stack overflow.

---

fsGlobalUnit()->AddClass(__classid(TIDGenerator),"TIDGenerator");

т.е. ядолжен добавлять не
fsGlobalUnit()->AddClass(__classid(TIDGenerator),"TIDGenerator");
а как
fsGlobalUnit()->AddClass(__classid(TIDGenerator),"TComponent");
объясните как правильно это сделать plz.

AlexTZ

Да, именно так.