| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по ООП

Igit ©   (2008-02-07 22:34:00) 

Здравствуйте. Написал объект, аналог TList только для моей структуры.

есть структура

{
   Содержание книги
}
 THTMLContentItem = record
   link: string;
   name: string;
 end;
 PHTMLContentItem = ^THTMLContentItem;

объект, для работы с содержанием.

 THTMLContentList = class
 private
   FList: TList; // хранилище данных
 protected
   function GetItems(Idx: integer): THTMLContentItem;
   procedure SetItems(Idx: integer; const value: THTMLContentItem);
 public
   constructor Create;
   destructor Destroy; override;
   function Add(Item: THTMLContentItem): Integer;
   procedure Delete(Idx: Integer);
   function Count: integer;
   procedure Exchange(idx1, idx2: integer);
   property Items[idx: integer]: THTMLContentItem read GetItems write SetItems; default;
 end;

все прекрасно работает. Вот цикл в котором заполняется этот объект из ListView:

var CL: THTMLContentList;
 i: Integer;
 item: THTMLContentItem;
begin
 CL := THTMLContentList.Create;
 for i := 0 to ListView1.Items.Count - 1 do
 begin
   item.name := ListView1.Items.Item[i].Caption;
   item.link := ListView1.Items.Item[i].SubItems.Strings[0];
   CL.Add(item);
 end;
 ShowMessage(CL.Items[2].name);
 CL.Free;
end;

Все работает. Теперь сам вопрос:
как нужно сделать, чтобы была допустипа запись
CL.Items[2].name := 'Глава1';
А то компилятор выдает ошибку
[DCC Error] uProject.pas(382): E2064 Left side cannot be assigned to

С Уважением.

---

newbie2   (2008-02-08 15:42:00) [1]

> Виктор007

посмотри TStringList, ты практически его по новой пишешь

---

ketmar   (2008-02-08 11:45:00) [2]

>[3] Виктор007 (2008-02-08 11:26:00)
именно потому и не дам, что извращение. начинающему оно не надо напрочь, только мозг забьёт ненужной информацией. а когда станешь «продолжающим» — сам сможешь. %-)

---
Understanding is not required. Only obedience.

---

Виктор007   (2008-02-08 11:26:00) [3]

Понятно. Спасибо. Сейчас именно так и сделаю.
А можно подробнее про "извращаться"? Дело в том что с классами разбираюсь самостоятельно, и выходит очень медленно. Поэтому меня интересуют всякие приемы, которые помогут больше понять о возможностях ООП подхода.

---

ketmar   (2008-02-08 05:17:00) [4]

>[0] Igit (2008-02-07 22:34:00)
логично. property не является полноценным left value. извращаться можно, но лучше см. [1]

---
Understanding is not required. Only obedience.

---

Anatoly Podgoretsky   (2008-02-07 22:39:00) [5]

> Igit  (07.02.2008 22:34:00)  [0]

Надо создать индексное свойство ItemName и если необходимо, то и ItemLink

---

Наверх