Список(ООП)

[compiler]

>Там же и многочисленные примеры.
не нашел ни одного...
>Однако, на мой взгляд, более удобно пользоваться хелпом от Delphi
для этого надо его иметь...

[Brainenjii]

Код: Выделить всё

Type TItem = class // Описание "ячейки" :)
  Private
    FValue: Integer;
  Public
    Property Value: Integer Read FValue; // Описание "полей"
    Constructor Create(C_Value: Integer);
End;

var
  Form1: TForm1;

Implementation

Constructor TItem.Create(C_Value: Integer);
Begin
  FValue := C_Value;
End;

Procedure TForm1.FormCreate(Sender: TObject);
var
  List: TList;
  i: Integer;
Begin
  List := TList.Create;
  For i := 0 To 9 Do
    List.Add(TItem.Create(Random(100)));
  For i := 0 To List.Count - 1 Do
    Caption := Caption + ':' + IntToStr(TItem(List[i]).Value);
  List.Free;
End;


[compiler]

Код: Выделить всё

Caption := Caption + ':' + IntToStr(TItem(List[i]).Value); //а что мы тут сделали? :)
List.Free; //в конструкторе? оригинально...

[Attid]

//в конструкторе? оригинально...

учмтывая что переменая обьявлена внутри процедуты то так и надо.

[compiler]

//в конструкторе? оригинально...

учмтывая что переменая обьявлена внутри процедуты то так и надо.

мне просто понравилось уничтожение в методе Create...

[Brainenjii]

FormCreate - это не конструктор, а обработчик события :Р

[compiler]

а можна увидеть деструктор ячейки по индексу?

[Brainenjii]

Код: Выделить всё

  Item := TItem(List[i]);
  List.Delete(i);
  Item.Free;


[compiler]

Код: Выделить всё

  Item := TItem(List[i]);
  List.Delete(i);
  Item.Free;


а зачем первая и третья строчка?

[zub]

тлист - список ссылок. в нем хранится только ссылка на твой объект.
без 1 и 3 строчек ссылка удалится из списка, но сам объет останется в памяти. соответственно если тебе нужно только убрать объект из списка то 1 и 3 ненужны

[v-t-l]

Тогда можно обойтись без промежуточной переменной

Код: Выделить всё

TItem(List[i]).Free; //освобождаем объект
List.Delete(i); //удаляем ссылку на него


[compiler]

спасибо