Код: Выделить всё
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;
Код: Выделить всё
Caption := Caption + ':' + IntToStr(TItem(List[i]).Value); //а что мы тут сделали? :)
List.Free; //в конструкторе? оригинально... //в конструкторе? оригинально...
мне просто понравилось уничтожение в методе Create...Attid писал(а)://в конструкторе? оригинально...
учмтывая что переменая обьявлена внутри процедуты то так и надо.
Код: Выделить всё
Item := TItem(List[i]);
List.Delete(i);
Item.Free;
а зачем первая и третья строчка?Brainenjii писал(а):Код: Выделить всё
Item := TItem(List[i]);
List.Delete(i);
Item.Free;
Код: Выделить всё
TItem(List[i]).Free; //освобождаем объект
List.Delete(i); //удаляем ссылку на него