Контейнер !

[curtcobain]

народ помогите плиз написать :
На языке Delphi разработать контейнер «динамический массив» — TArray, который
- содержит элементы типа Pointer,
- увеличивает свой размер при добавлении в него элементов,
- предоставляет типовые свойства (текущее количество элементов, количество зарезервированных элементов),
- предоставляет типовые процедуры, применяемые при работе с массивом (вставка по индексу, удаление по индексу, очистка, копирование в другой массив, поиск индекса элемента по ссылке, сортировка),
- при обращении к элементу массива проверяет, что индекс находится в допустимых пределах.
Продемонстрировать использование класса.


я что-то навалял -- но похоже что это полная чушь !
помогите пожалуйста , если можно с комментариями !

type 
 
	Tarray =class
	private
	fitems : array of string;
	p1 : pointer; //- содержит элементы типа Pointer
	p2 : pointer; //
        //методы для свойств!
	function getitemcount : integer;
	function getitemrezerv : integer;
	protected
	//методы
	procedure  putitem(index :integer ; const item : string); //- увеличивает свой размер при добавлении в него элементов
	procedure  add (index : integer );  //вставка по индексу
	procedure  del (index : integer );  //удаление по индексу
	procedure  clear;  //очистка
	procedure copy ;  //копирование в другой массив
	function search (index : integer): integer ; //поиск индекса
	procedure sort ; //сортировка
	
	public
	
	constructor create(const filename : string);
	destructor destroy ; override;

	property itemscount :integer read getitemcount;  // - предоставляет типовые свойства (текущее количество элементов,  
        property itemsrezerv : integer read geitemrezerv // -количество зарезервированных элементов)
end;

[NieL]

Смотри класс TList (Classes), он реализует все что тебе требуется

[Alter]

Интересно, это такое задание дано или для собственных нужд хотели написать класс?

[curtcobain]

задание такое !