2. И, я конечно не смею надеятья, немножко доработать DPLElement чтобы можно было добавлять статические методы на те грани которые не описаны, если Sub=doWrite,,Read, то на _event и _data можно бы было добавить методы в секции [Methods]
3. И в codegen строка 136. функция ArrayToRes.
if p = '' then p := '0';
а почему собственно p:='0'? В случае с VarArray по крайне мере должно быть вроде p:='_data_Empty'.
Galkov, ':=' как называется эти символы ? Вот и SetData это присваивание TData; Только в случае a:=b; полного присваивания не происходит. Поэтому спец типы присваиваются (или копируются) отдельно. Создается полная индентичность данных. т.е. при "смерти" src, dst продолжает жить и здравствовать. Вот собственно идея такова. Правда надо доописать все остальные типы данных. Вот Вам существующий пример того самого
function THIBitmapArray.DataToPointer;
var bmp:PBitMap;
begin
if Data.Data_type = data_bitmap then
begin
bmp := NewBitmap(0,0);
bmp.Assign(PBitmap( data.idata) );
Result := integer(bmp);
end
else result := 0;
end;
Поиск
Друзья
Администрация