VPF::Классы и списки - Форум программистов

Марцелл

Дата 17.5.2008, 04:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Решил, вот, упорядочить знания.
Имеется класс, например TMyClass. Имеется список, TList.

Код


type TMyClass = class(TObject)
  private
    FButton : TButton;
    // ...
  public
    constructor Create(AOwner: TWinControl; btnTop : integer);
    destructor Destroy; override;
end;

constructor TMyClass.Create(AOwner : TWinControl; btnTop : integer);
begin
  FButton:=TButton.Create(AOwner);
  with FButton do
    begin
    Parent:=AOwner;
    Top:=btnTop;
    Caption:=IntToStr(Top);
    end;
end;

destructor TMyClass.Destroy;
begin
  FButton.Free;
end;

2 процедуры : создание и удаление

Код


procedure TMainForm.btnCreateClick(Sender: TObject);
var i : integer;
    pMyClass : ^TMyClass;
begin
  for i:=0 to 4 do
    begin
    New(pMyClass);
    pMyClass^:=TMyClass.Create(Self,i*30);
    List.Add(pMyClass);
    end;
end;

procedure TMainForm.btnDestroyClick(Sender: TObject);
var i : integer;
    pMyClass : ^TMyClass;
begin
  for i:=0 to List.Count-1 do
    begin
    pMyClass:=List[i];
    pMyClass.Destroy;  // Free?
    Dispose(pMyClass);
    List.Delete(i);
    end;
end;

Вопросы :

1. Процедура btnCreateClick, pMyClass является указателем на экземпляр класса, конструктор класса, кажется, возвращает указатель на созданный экземпляр. Почему при  pMyClass:=TMyClass.Create(Self) пишет о несовместимости типов? Интуитивно понятно, но никак в голове не укладывается.

2. Грамотно ли в btnCreateClick реализовано создание экземпляров класса с последующим добавлением в список?
    Процедура New(pMyClass) просто выделяет память под укаатель?

3. Процедура btnDestroyClick : разрушаю экземпляры TMyClass, указатели на которые хранятся в TList : pMyClass.Destroy. Таким образом освобождаю память выделенную для экземпляра TMyClass?.  Процедура Dispose(pMyClass) освобождает память, выделенную под указатель (4байта)?

4. pMyClass.Destroy и pMyClass^.Destroy, как я понимаю, сработают одинаково?

5. На каждом шаге цикла в  btnDestroyClick удаляю из списка освободившийся  элемент : List.Delete(i) и происходит выход за пределы         массива. Да, при List.Delete(i) индексы, походу сдвигаются на 1. Может быть надо использовать List.Delete(0)?

volvo877

Дата 17.5.2008, 12:16 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Марцелл @ 17.5.2008, 04:52

)

Почему при pMyClass:=TMyClass.Create(Self) пишет о несовместимости типов? Интуитивно понятно, но никак в голове не укладывается.

Потому, что конструируется объект класса, и возвращается, соответственно, он же. Так что:

Код

...
    pMyClass : TMyClass;
...

Цитата(Марцелл @ 17.5.2008, 04:52

)

5. <...> Может быть надо использовать List.Delete(0)?

Может быть, лучше пробежаться по списку в обратном направлении, от конца к началу, чтобы не портить индексы? Использование List.Delete(0) тебе не поможет, ты все равно вылетишь за пределы массива, только потому, что Delete еще и изменяет размер, а в начале цикла ты решил, что будешь идти до изначального размера массива (вспоминай матчасть, границы изменения параметра цикла не вычисляются на каждой итерации, а вычисляются один раз - только на первой)

Felan

Дата 19.5.2008, 07:30 (ссылка)

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

Загрузка ...

Опытный

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

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

Мда... реально горе от ума smile

Про

Цитата(Марцелл @ 17.5.2008, 06:52

)

pMyClass : ^TMyClass;

уже сказали.

Далее:

Во первых

Цитата(Марцелл @ 17.5.2008, 06:52

)

New(pMyClass);

Ненужно. Конструктор сам выделяет память.

Во вторых

Цитата(Марцелл @ 17.5.2008, 06:52

)

pMyClass.Destroy; // Free?
Dispose(pMyClass);

Лечше Free, а еще лучше FreeAndNil(pMyClass);
Free проверяет указатель на nil и вызывает Destroy, а FreeAndNil потом ему еще и nil присваивает.

Делать Dispose ссылочной переменной не нужно. Она освободится автоматически так же как и примитивные типы.

Про C++ что ли читал много? smile

Это сообщение отредактировал(а) Felan - 19.5.2008, 10:02

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

// Любая сложная система - это темный лес. Каждый в этом лесу протаптывает свои тропинки, по ним и бегает. Лишь изредка, сходя с них, мы находим много интересного, а порою и страшного.

Rennigth

Дата 20.5.2008, 12:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Цитата(Felan @ 19.5.2008, 07:30

)

Про C++ что ли читал много?

явно

Делфи умная, делфи хорошая smile

Это сообщение отредактировал(а) Rennigth - 20.5.2008, 12:28

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

(* Honesta mors turpi vita potior *)

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