FastScript 2 FIBPlus

romb

Интеграция FastScript 2 FIBPlus + демо
Пример представляет собой небольшую IDE на основе FastScript и FIBPlus. В папке \Data содержатся примеры скриптов для Delphi. Для использования примера необходима стандартная база данных "employee.gdb".

Исходные тексты файла интеграции fs_ifibrtti.pas находятся тут

awex

with AddClass(TFIBTransaction, 'TComponent') do
begin

with AddClass(TpFIBTransaction, 'TFIBTransaction') do
begin
>> AddProperty('InTransaction', 'Boolean', GetProp);
>> AddMethod('procedure StartTransaction', CallMethod);
>> AddMethod('procedure Commit', CallMethod);
>> AddMethod('procedure CommitRetaining', CallMethod);
>>> AddMethod('procedure Rollback', CallMethod);
>>> AddMethod('procedure RollbackRetaining', CallMethod);
>>> Определение этих методов в наследнике уже не нужно
>>>> Их нужно определять и "импортить" для TFIBTransaction
end;
Zheltkov Aleksei, 14.04.2005 01:24:54