Дочерний класс от TListItem

[EaRLL]

Приветствую.
В общем, возникла такая ситуация - сделал дочерний класс TRListView от TListView:

type
  TRListItem = Class(TListItem)
    private
      sIdReal : Integer;
    public
      property sId : integer read sIdReal write sIdReal;
  end;

далее использую его ниже в процедуре:

procedure TCore.Init();
var
  RS : TRListItem;
   {***}
begin
   {***}
  RS := SList.Items.Add;
  RS.sId := 1;
  RS.Caption := 'text';
  RS.SubItems.Add('subText');
   {***}
end;

Проблема в том, что на строке

RS := SList.Items.Add;

при компиляции выводится ошибка
[DCC Error] uCore.pas(732): E2010 Incompatible types: 'TRListItem' and 'TListItem'
Помогите кто чем сможет

[phomm]

1 напиши

SList.Items.Add as Trslistitem;

2(более православный вариант) добавь потомок tlistitems, в нём добавь

function add(): TRlistitem; override;

а в implementation данного метода напиши

result := Trslistitem(inherited add);

и естественно данный потом тебе придётся включить в твой slist вот так

items : trlistitems;

[EaRLL]

Сразу скажу: я специализируюсь не на дельфях, пишу иногда для разнообразия на них, поэтому не слишком в этой среде силён

Насчёт первого - сделал:

RS := (SList.Items.Add as TRListItem);

скомпилировалось нормально, но при запуске программы выскакивает "Invalid class typecast" и строки новые не добавляются.

Насчёт второго - добавил:

type
  TRListItems = Class(TListItems)
      function add(): TRListItem; override;
  end;

немного не понял насчёт "implementation данного метода"
"items : trlistitems;" - вставил, а но при компиляции указывает на строку

19|       function add(): TRListItem; override;
20|   end;

и пишет

[DCC Warning] uCore.pas(19): H2365 Override method TRListItems.add should match case of ancestor TListItems.Add
[DCC Error] uCore.pas(20): E2170 Cannot override a non-virtual method

Вот так вот...

[phomm]

ну убери оверрайд и попробуй )) получается это не виртуальный метод и его оверрайдить нельзя, а это статический метод и его просто переопределять надоть

насчет кейс оф я не нашёл в справке к своей дельфи7 такой ошибка компилятора ((( могу в принципе на 2007 или 2009 поглядеть, но надо на др комп пересесть )) лениво, но по уму case это регистр буквы, попробуй не add a Add

имплементейшн это секция для реализации метода, а function add(): TRListItem; это декларация/интерфейсная часть/раздел объявления
т.е. тебе надо перейти в радел реализации этого метода и написать тот код в качестве функционала метода

ну а вообще скинь проект, могу погрести чего там )

[veniside]

> сделал дочерний класс TRListView от TListView:
> TRListItem = Class(TListItem)

так от чего дочерний класс вы сделали?

SList - это стандарный TListView? Если да, то как он может вернуть объект, о котором никогда не слышал? Никакой "as TRListItem" тут не поможет, правильно оно говорит Invalid class typecast.

Стандартный TListView не будет работать с вашим TRListItem, это не темплейты на С++.

> Помогите кто чем сможет

чтобы помочь, объясните сначала, что вы хотите сделать.

Хранить дополнительный кусок данных вместе с каждым элементом списка? Для этого есть свойство Data у стандартного TListItem. Если 4 байта мало, храните там указатель.


> ну а вообще скинь проект, могу погрести чего там )

phomm, лучше не стоит, судя по твоим сообщениям в этой теме )

[EaRLL]

Сообщение от veniside

SList - это стандарный TListView? Если да, то как он может вернуть объект, о котором никогда не слышал? Никакой "as TRListItem" тут не поможет, правильно оно говорит Invalid class typecast.

Уже понял )

Сообщение от veniside

Хранить дополнительный кусок данных вместе с каждым элементом списка? Для этого есть свойство Data у стандартного TListItem. Если 4 байта мало, храните там указатель.

Именно, надо сохранить в строке дополнительную числовую переменную, которую можно было-бы изменять в процессе работы программы ( Что-то типа свойства Tag у некоторых компонентов ). Все возможные property у listitem'а я проверял - не подходят. Data не подходит - там уже хранится цветовая переменная, с помощью которой окрашивается строка:

SList.Items.Item[RowID].Data := Pointer(Color);

как я уже сказал - я не спец в дельфях, поэтому не знаю - можно ли в date хранить несколько переменных - числовую и цветовую, и изменять их; и как сделать дополнительный параметр с компонента, к которому можно обращаться

[veniside]

проще всего, имхо, хранить ваши данные в отдельном списке, типа TCollection. Ему можно передать вас класс, наследник от TCollectionItem, и в этом классе хранить то, что вам нужно.

Т.е. создаём наш класс элемента:

TMyCollectionItem = class(TCollectionItem)
private
  fInt: Integer;
  fString: string;
  fColor: TColor;
  //....
end;

Далее, создаём нашу коллекцию:

var
  dataStorage: TCollection;
begin
  dataStorage := TCollection.create(TMyCollectionItem);
  ....
end;

Вот теперь dataStorage.Add() будет возвращать объект класса TMyCollectionItem:

var
  myItem: TMyCollectionItem;
begin
  myItem := dataStorage.Add() as TMyCollectionItem;
end;

А чтобы связать это дело с TListView, в свойстве Data можно хранить ID ваших элементов:

var
  item: TListItem;
begin
  item := myListView.Items.Add();
  item.Caption := 'new item';
  item.Data := Pointer(myItem.ID);
  ///
  /// найти элемент по ID
  myItem := dataStorage.FindItemID(Integer(item.Data)) as TMyCollectionItem;
end;

типа того

[EaRLL]

veniside, phomm, Спасибо) С этой задачкой справился

Но вот теперь возникла не менее спешная ситуация: у этого listview'а включил сортировку. Пробовал изменять разные параметры сортировки, но упорно при сортировке солбца изменяются и index'ы строк. Т.е. если кликнул по строке, произошло нужное действие, потом юзер отсортировал, вот потом и нельзя будет программно обратится к той же самой строке. Просто если их 10-20 - можно поиском по соответствию кэпшена строки, а у меня их несколько сотен и дальше - больше =(

[phomm]

Сообщение от veniside

phomm, лучше не стоит, судя по твоим сообщениям в этой теме )

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

EaRLL, по последней проблеме твоей - тебе метод finddata может полезен будет, а ещё может additem(Item: String; AObject: TObject) ?

[EaRLL]

Сообщение от phomm

EaRLL, по последней проблеме твоей - тебе метод finddata может полезен будет, а ещё может additem(Item: String; AObject: TObject) ?

FindData - Помог. Немного подправил и заработало)
Спасибо за помощь =)