Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Классы и списки

Автор: Марцелл 17.5.2008, 04:52

Решил, вот, упорядочить знания.
Имеется класс, например 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

Цитата(Марцелл @ 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

Мда... реально горе от ума 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

Автор: Rennigth 20.5.2008, 12:28

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

)

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

явно

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