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

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

Списки

Nameziz ©   (2008-11-05 12:05:00) 

Хочу написать свой класс-список, TIntList (большинство методов будут как и в TStringList, только для работы с целыми числами). Вопрос от какого класса наследоваться?

---

Nameziz   (2008-11-05 12:44:00) [1]

Спасибо всем

---

Anatoly Podgoretsky   (2008-11-05 12:27:00) [2]

> Например, от TList

Не например, а именно от него, если конечно недостаточно возможностей TList

---

Palladin   (2008-11-05 12:22:00) [3]

Type
TIntList=Class
 Private
  m_theList:TList;

  Function lcGetCount:Integer;
  Function lcGetItem(p_nIndex:Integer):Integer;
  Procedure lcSetItem(p_nIndex,p_nValue:Integer);
 Public
  Constructor Create;
  Destructor Destroy; Override;

  Property Count:Integer Read lcGetCount;
  Property Items[nIndex:Integer]:Integer Read lcGetItem Write lcSetItem; Default;
  Procedure Add(p_nData:Integer);
  Procedure Delete(p_nIndex:Integer);
  Procedure Clear;
End;

Constructor TIntList.Create;
Begin
 m_theList:=TList.Create;
End;

Destructor TIntList.Destroy;
Begin
 m_theList.Free;
End;

Function TIntList.lcGetCount;
Begin
 Result:=m_theList.Count;
End;

Procedure TIntList.Add;
Begin
 m_theList.Add(Pointer(p_nData));
End;

Procedure TIntList.lcSetItem;
Begin
 m_theList[p_nIndex]:=Pointer(p_nValue);
End;

Procedure TIntList.Delete;
Begin
 m_theList.Delete(p_nIndex);
End;

Function TIntList.lcGetItem;
Begin
 Result:=Integer(m_theList[p_nIndex]);
End;

Procedure TIntList.Clear;
Begin
 m_theList.Clear;
End;


---

Сергей М.   (2008-11-05 12:08:00) [4]

Например, от TList

---

Наверх