ListView и привязанный к нему объект

[dr.Chas]

Всем доброй ночи. И так появилось несоколько вопросов. По этому опишу ситуацию как можно полнее.
Пример:

type
  TClient = class 
    NameClient: string;  
    public
      constructor create(n: string);
      destructor Free;
end;

var
  Form1: TForm1;
  client_: TClient;

implementation

constructor TCompClient.create(n: string);
begin
  with form1 do
  begin
    ListView1.AddItem(n, self);
    NameClient:=n;
  end;
end;

destructor TCompClient.Free;
begin
  //with form1 do
  //ListView1.Items.Delete(); 
{delete уничтожает по индексу, мне перебор айтемов делать? (я просто думаю, может быть способ проще есть)}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  client_:=TCompClient.create('name1');
  client_:=TCompClient.create('name2');  
  //так правильно?
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  client_:=ListView1.Items.Item[1].Data;
  client_.Free;
end;

Через айтем listview мы можем обратится к нужному объекту, а вот когда уничтожаю объект в деструкторе нужно уничтожить и айтем, как?

Потом допустим я создам несколько объектов, но процедурой Button1Click уничтожу, не все. Что будет с остальными, нужно их уничтожать?

[mihali4]

А где "деструктор" ?
Free не есть деструктор.
Ставьте курсор на Free и жмите F1 - там много мудрого по этому поводу...
На эту фразу

Destroys an object and frees its associated memory

даже не смотрите... враки это все...

[maxionans]

даже не смотрите... враки это все...

Не вводите народ в заблуждение . Да, метод Free, это не деструктор. Но он всё же уничтожает объект.

Use System::TObject::Free to destroy an object. System::TObject::Free automatically calls the destructor if the object reference is not nil. Unlike System::TObject::Destroy, System::TObject::Free is successful even if the object is nil; so if the object was never initialized, System::TObject::Free won't result in an error.

По поводу вопроса ТС:
Для начала "destructor Free" действительно нужно заменить на "destructor Destroy".
Чтобы удалить ассоциированный элемент ListView, список в любом случае придётся перебирать. Другой вопрос, как это сделать - можно вручную, а можно другом способом, например, сохранить ссылку на созданный элемент ListItem в объекте класса TClient, а при уничтожении объекта вызывать ListItem.Delete;

[Stilet]

Free не есть деструктор.

Это как это так?
Вот же написано:

destructor Free;

Это самый настоящий destructor

Для начала "destructor Free" действительно нужно заменить на "destructor Destroy".

Это еще зачем? Деструктору по барабану как называться.

client_:=ListView1.Items.Item[1].Data;

А проверить на содержимое опять дядя Пушкин должен?
А вдруг .Data совсем не то содержит что нужно?

[maxionans]

Это еще зачем? Деструктору по барабану как называться.

И вас совсем не смущает, что в базовом классе уже имеется метод (обратите внимание - метод, а не деструктор) с названием "Free"?

[Stilet]

Абсолютно не смущает. Че это должно меня смущать?

[maxionans]

Даже объяснять не хочу. Почитайте про поведение метода Free и сделайте логические выводы.

[Utkin]

Формально все правильно, но я бы так не делал. Я привык уничтожать через Free, а не через Destroy, потому что Free перед уничтожением проверяет существование объекта. В данном случае этого не произойдет.
И еще как бы я не делал - класс и его объекты для меня вещь в себе, поэтому я бы не использовал никаких прямых вызовов чужих компонентов, таких как ListView1.AddItem(n, self); (который принадлежит форме).

[Stilet]

Даже объяснять не хочу

Твое право.
Ну почитал.

Use Free to destroy an object. Free automatically calls the destructor if the object reference is not nil. Any object instantiated at runtime that does not have an owner should be destroyed by a call to Free so that it can be properly disposed of and its memory released. Unlike Destroy, Free is successful even if the object is nil; so if the object was never initialized, Free won’t result in an error.

Че дальше? Мнение не поменялось.

[maxionans]

Ничего. Твоё право писать код сомнительного качества.