Цитата

list.Add(Pointer(int_Value))

а потом list[10].DoSome О результате догадаться не сложно.....

Цитата

а потом list[10].DoSome  О результате догадаться не сложно.....

Ерунда! Преобразование типов всегда несет в себе потенциальную опасность. Ты можешь внести в list указатель на объект одного типа, а потом преобразовать к объекту другого типа и получишь свою ошибку. Оборачивание integer в объект спасет только при вызове методов TObject, которые в программе редко употребляются. В любом случае, для объектов я использую TObjectList, и тут уж все однозначно.


А вообще, как я говорил, лучше потратить пару строк и написать наследника - с недавних пор я только так и делаю. Например:

Код

TEntryList=class(TObjectList)  private    function GetItems(Index: Integer): TBaseFileEntry;    procedure SetItems(Index: Integer; const Value: TBaseFileEntry);  public    property Item[Index: Integer]: TBaseFileEntry read GetItems write SetItems; default;  end; implementation function TEntryList.GetItems(Index: Integer): TBaseFileEntry; begin  Result:=TBaseFileEntry(GetItem(Index)); end; procedure TEntryList.SetItems(Index: Integer;  const Value: TBaseFileEntry); begin  SetItem(Index,Value); end;

или

Код

TIntList=class(TList)  private    function GetItems(Index: Integer): Integer;    procedure SetItems(Index: Integer; const Value: Integer);  public    property Item[Index: Integer]: Integer read GetItems write SetItems; default;  end; implementation function TIntList.GetItems(Index: Integer): Integer; begin  Result:=Integer(GetItem(Index)); end; procedure TIntList.SetItems(Index: Integer;  const Value: Integer); begin  SetItem(Index,Value); end;

Проблема с постоянным преобразованием отпадает.


Это сообщение отредактировал(а) Fantasist - 23.6.2003, 19:22

Это правильно, а по поводу Integer это не куда ни катит, это не нормально и просто ужастно.