Классы и указатели

[psycho-coder]

Пишу класс (наследник TStringList) для бана в чате.
Имеется вот такая конструкция

type
  TBan = class;

  PBanItem = ^TBanItem;
  TBanItem = record
    UserName: String[15];
    Format: Char;
    TTL: Integer;
  end;

  PBanItemList = ^TBanItemList; // <<- Вот тут
  TBanItemList = array[0..MaxListSize - 1] of TBanItem;

  TBan = class(TStringList)
  private
    FList: PBanItemList;
    FCount: Integer;
    FCapacity: Integer;
    procedure Grow;
  protected
    function InsertItem(Index: Integer; NewItem: PBanItem): Integer;
  public
    function Add(const UserName: String; const TTL: Integer;
      Format: Char): Integer;
  end;

Все бы ничего, но на строку PBanItemList = ^TBanItemList; ругается компилятор:

[Error] banlist.pas(23): 'TBanItemList' is not a type identifier

Хотя выше есть похожая конструкция указателя на запись, да и в исходниках TStringList точно также описан массив записей.
В чем может быть проблема?
И еще вопрос: если я создаю наследника класса, то он должен видеть все методы и свойства предка или нет? (мне кажется должен)

[spamer]

Мене кажется с указателями не стоит связываться. Можно просто свой тип тип обернуть в класс, и создать функциональный класс для него (как то так, объяснить толком не могу )
Ну вот что то типа такого:

type

  TRBan = record
    UserName: String[15];
    Format: Char;
    TTL: Integer;
  end;

   TBanItem=class
   Public
      ban : TRBan;
   end;

   TBan=class
   Public
     ///Функционал для вашего класса TBanItem
 end;

Вот что то типа такого, но я не уверен точно, пусть профи подправят если что не так

И еще вопрос: если я создаю наследника класса, то он должен видеть все методы и свойства предка или нет? (мне кажется должен)

Секция приват родительского класса, классу предка не доступна вроде.

[psycho-coder]

TBanItem=class
   Public
      ban : TBanItem;
   end;

Что то не совсем понял что тут происходит)) Получается мы объявляем переменную типом класса, в котором она объявлена)
Может Вы хотели показать так?

TBanItem=class
   Public
      ban : TRBan;
   end;

Но мне все равно нужен массив этих записей.
Пока заменил на такую (Обновлено)

PBanItemList = ^TBanItemList;
TBanItemList = array[0..65535] of TBanItem;

Тогда компилируется нормально. Видимо размер массива испугал его

апд

Не вижу смысла в таком коде, т.к. класс уже является указателем. Соответственно и тема теряет свой смысл

Хм... А я думал это указатель на массив

[BOBAH13]

 PBanItemList = ^TBanItemList; // <<- Вот тут

Не вижу смысла в таком коде, т.к. класс уже является указателем. Соответственно и тема теряет свой смысл

[Пепел Феникса]

 PBanItemList = ^TBanItemList; // <<- Вот тут

убрать.
не нужно оно тут.

Секция приват родительского класса, классу предка не доступна вроде.

вообще то protected видна лишь наследникам этого класса.
а private наследникам этого класса но в том же модуле что и предок.

TC, может вам нужно всетаки за базу TList брать?
кстати не советую в класс(я про структуры) оборачивать...в Делфи они не очень хороши(много лишнего)...
хотя иногда приходится..

[psycho-coder]

TC, может вам нужно всетаки за базу TList брать?

Возможно... Просто хотел не заморачиваться с сохранением (в итоге замора еще больше((), в TStringList оно уже есть.

кстати не советую в класс(я про структуры) оборачивать...в Делфи они не очень хороши(много лишнего)...

А чего в них лишнего? Проведите пожалуйста краткий ликбез (можно ссылку)

[Пепел Феникса]

возьмите лучше за основу TList
потому что TStringList всетаки на другое основан...
хотя если применить его св-во Data(каждой строке соотвестствует указатель на любые данные(тока освобождать не забывайте))

А чего в них лишнего?

посмотрите список св-в и методов TObject, поймете
я это к тому что просто так сдуру не стоит оборачивать все в классы(по крайней мере в Делфи)

[spamer]

Что то не совсем понял что тут происходит)) Получается мы объявляем переменную типом класса, в котором она объявлена)
Может Вы хотели показать так?

Сори...сори в спешке писал и ошибся...исправил.

вообще то protected видна лишь наследникам этого класса.
а private наследникам этого класса но в том же модуле что и предок.

За protected я знал, а вот за private не помнил, спс Пепел Феникса, что подправил.

з.ы. а мене с классами удобно работать...хотя в данном случае возможно и...хотя не, я бы класс юзал

[psycho-coder]

Всем спасибо! Сделал через TList. Правда не обернул в класс (пока).
Во вложении пример, может кому пригодится.