VPF::Вложенные коллекции - Форум программистов

getauft

Дата 15.9.2013, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.9.2013

Репутация: нет
Всего: нет

Приветствую всех! До недавнего времени писал на Node.js с использованием Redis + MongoDB... С недавнего времени устроился работать в госструктуры и там основным языком оказался Delphi. Столкнулся с необходимостью создания вложенной коллекции. Опираясь на статью http://www.delphimaster.ru/articles/collections.html накидал код, но в при попытке создания объекта на форме получаю вот такой набор ошибок:

Код


First chance exception at $005B1713. Exception class $C0000005 with message 'access violation at 0x005b1713: read of address 0x00000000'. Process Project1.exe (3344)
First chance exception at $005B172F. Exception class $C0000005 with message 'access violation at 0x005b172f: read of address 0x00000038'. Process Project1.exe (3344)
Module Load: ole32.dll. No Debug Info. Base Address: $04B60000. Process Project1.exe (3344)
Module Unload: ole32.dll. Process Project1.exe (3344)

Вот код компонента коллекции

Код


unit UContactsCollection;

interface

uses Classes, SysUtils;
type

  TContact = class(TCollectionItem)
  private
    FName: string;
    FSurname: string;
    FPatronymic: string;
    FPhone: string;
    FEnable: boolean;
  public
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;
  published
    property Name: string read FName write FName;
    property Surname: string read FSurname write FSurname;
    property Patronymic: string read FPatronymic write FPatronymic;
    property Phone: string read FPhone write FPhone;
    property Enable: boolean read FEnable write FEnable default true;
  end;

  TContactList = class(TCollection)
  public
    function GetContact(Index: Integer): TContact;
    procedure SetContact(Index: Integer; Value: TContact);
  public
    function  Add: TContact;
    property Items[Index: Integer]: TContact read GetContact write SetContact; default;
  end;

  TGroup = class (TCollectionItem)
  private
    FContactList  : TContactList;
    FGroupName : string;
  public
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;
  published
    property ContactList : TContactList read FContactList write FContactList ;
    property GroupName : string read FGroupName write FGroupName ;
  end;

  TGoupList = class(TCollection)
  public
    function GetGroup(Index: Integer): TGroup;
    procedure SetGroup(Index: Integer; Value: TGroup);
  public
    function  Add: TContact;
    property Items[Index: Integer]: TGroup read GetGroup write SetGroup; default;
  end;

  TPhoneBook = class(TComponent)
  private
    FGoupList: TGoupList;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property GoupList: TGoupList read FGoupList write FGoupList;
  end;

implementation


{ TContact }

constructor TContact.Create(Collection: TCollection);
begin
  inherited;
  FEnable := true;
end;

destructor TContact.Destroy;
begin
  inherited;
end;

{ TContactList }

function TContactList.Add: TContact;
begin
  Result := TContact(inherited Add);
end;

function TContactList.GetContact(Index: Integer): TContact;
begin
  Result := TContact(inherited Items[Index]);
end;

procedure TContactList.SetContact(Index: Integer; Value: TContact);
begin
  Items[Index].Assign(Value);
end;

{ TGroup }

constructor TGroup.Create(Collection: TCollection);
begin
  inherited Create(Collection);
  ContactList := TContactList.Create(TContact);
end;

destructor TGroup.Destroy;
begin
  ContactList.Free;
  inherited;
end;

{ TGoupList }

function TGoupList.Add: TContact;
begin
  Result := TContact(inherited Add);
end;

function TGoupList.GetGroup(Index: Integer): TGroup;
begin
  Result := TGroup(inherited Items[Index]);
end;

procedure TGoupList.SetGroup(Index: Integer; Value: TGroup);
begin
  Items[Index].Assign(Value);
end;

{ TPhoneBook }

constructor TPhoneBook.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  GoupList := TGoupList.Create(TGroup);
end;

destructor TPhoneBook.Destroy;
begin
  GoupList.Free;
  inherited;
end;

end.

Вот создание объявление и создание объекта на форме

Код


var
  PhoneBook : TPhoneBook;

Код


    PhoneBook.Create(nil);

Я так понимаю, что проблема в том, что я не правильно создаю объект, но в чем конкретно ошибка пока не понимаю. Строго не судите, я много лет писал на процедурных языках и ООП мне в диковинку.

Это сообщение отредактировал(а) getauft - 15.9.2013, 11:02

Присоединённый файл ( Кол-во скачиваний: 3 )

ProjectCollection.zip 78,66 Kb

northener

Дата 15.9.2013, 11:35 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Код


PhoneBook:=TPhoneBook.Create(nil);

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Akella

Дата 15.9.2013, 12:03 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(getauft @ 15.9.2013, 10:56

)

read of address 0x00000000

Почти всегда это означает, что ты обращаешься или пытаешься использовать ещё не созданный объект.
В Delphi нужно объект вначале создать, а только потом использовать. Ну и не забывай уничтожать.
Что сам создаешь, то сам и уничтожаешь.

Добавлено через 1 минуту и 23 секунды

Цитата(getauft @ 15.9.2013, 10:56

)

PhoneBook.Create(nil);

Как бы это сказать попонятнее... это ты создаешь класс, а нужно создавать экземпляр класса, как это продемонстрировал northener.

getauft

Дата 15.9.2013, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.9.2013

Репутация: нет
Всего: нет

Стыдно за такую ошибку. Спасибо большое!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »