Size: a a a

2021 December 15

КС

Катерина Свиридова... in Delphi & Lazarus
Это локальная переменная. Так что пустышка само то)
procedure TSkUniFltGrid.DefineProperties(Filer: TFiler);
begin
end;
источник

ПП

Пушистое Пельмешко... in Delphi & Lazarus
локальная? Хм, покаж код оригинальной DefineProperties
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Большой код, но не совсем. Так что сюда
procedure TUniCustomDBGrid.DefineProperties(Filer: TFiler);
var
 StoreIt : Boolean;
 vState : TUniDBGridColumnsState;
 O1, O2 : TComponent;
begin
 if csSubComponent in ComponentStyle then
   StoreIt := False
 else
 begin
   if Filer.Ancestor = nil then
     StoreIt := ColumnsCustomized
   else
   begin
     // Note: To be fixed AV at design time when child is open and you change a property in a parent column
     // Error reading TVCLDBColumn.Editor: Access violation at address 5017A312 in module 'rtl180.bpl'. Read of address 00000008.
     // workaround: open parent only when working with columns
     vState := Columns.State;
     if vState <> TUniCustomDBGrid(Filer.Ancestor).Columns.State then
       StoreIt := True
     else
     begin
       O1 := Self.OwnerForm;
       O2 := TUniCustomDBGrid(Filer.Ancestor);
       if Assigned(O2) then O2 := TUniCustomDBGrid(O2).OwnerForm;
       StoreIt := (vState = csCustomized) and
         (not CollectionsEqual(Columns, TUniCustomDBGrid(Filer.Ancestor).Columns, O1, O2));
     end;
   end;
 end;
 Filer.DefineProperty('Columns', ReadColumns, WriteColumns, StoreIt);
end;
источник

ПП

Пушистое Пельмешко... in Delphi & Lazarus
мдя, рукожопы...
источник

ПП

Пушистое Пельмешко... in Delphi & Lazarus
вот вся эта хрень должна была быть вынесена в виртальный IsColumnStored, а в самом DefineProperties должно остаться только то, что к нему и должно относится, т.е. только самая последняя строчка...
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Что есть=то есть, потому с каким-то гридом уже столько вожусь)
источник

ПП

Пушистое Пельмешко... in Delphi & Lazarus
ну уровень я уже вижу, чо могу сказать - удачи :)))
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Ок)
источник

IP

Ivan Petrovich in Delphi & Lazarus
А бывает генерик в генерике? Ну словарь в словаре.
источник

RS

Renat Suleymanov in Delphi & Lazarus
Конечно
источник

RS

Renat Suleymanov in Delphi & Lazarus
Ну то есть класс-обобщение, который является специализацией другого дженерика
источник

IP

Ivan Petrovich in Delphi & Lazarus
На самом деле идея дуратская и наверняка решена. Хочется типа питона собрать словарь словарей с ключами, а потом это в жсон.
источник

RS

Renat Suleymanov in Delphi & Lazarus
Я насчет словаря словарей не совсем понимаю. Но дженерик дженерика, если я правильно понимаю сделать можно )
источник

IP

Ivan Petrovich in Delphi & Lazarus
Так-то это наверно и есть мое решение. То есть объявляю класс, в нем ссылки на другие классы?
источник

IP

Ivan Petrovich in Delphi & Lazarus
источник

RS

Renat Suleymanov in Delphi & Lazarus
Объявляется класс-дженерик, который является специализацией другого дженерика? Да, можно. Но возможно не понимаю вопрос, что значит ссылки на класс в данном случае
источник

IP

Ivan Petrovich in Delphi & Lazarus
Это ещё актуально?
источник

RS

Renat Suleymanov in Delphi & Lazarus
Тут просто пример дженериков в Дельфи? Или для чего ссылка?
источник

IP

Ivan Petrovich in Delphi & Lazarus
Ну в классе переменные, тип переменных собственный класс другого генерика. Я чудо генериков недавно открыл.
источник

RS

Renat Suleymanov in Delphi & Lazarus
Я вообще больше по Лазарус. Ну, если дельфи поддерживает, значит поддерживает, что тут сказать
источник