Форум "Delphi"

Паскаль, Делфи

#0 marishkin66 © 11.10.06 16:05:52 - 11.10.06 17:01:19

Collection

есть некий элемент коллекции, у которого есть свойство VUnit:


 TUnitItem = class(TCollectionItem)
  private
   FVUnit: TVUnit;
   procedure  SetUnit(value: TVUnit);
  public
   constructor Create(Collection: TCollection); override;
  published
   property VUnit : TVUnit read FVUnit write SetUnit;
  end;

и есть коллекция этих элементов и класс, который исполбзует коллекцию:

 
 TUnits = class(TCollection)
...
 TMyClass = class(TCustomControl)
  public
     FUnits : TUnits;

В дизайнере в коллекцию добавляется новый элемент, и нужно проверять есть ли уже такой элемент в коллекции или нет. как это сделать-не знаю =( Думаю, что нужно использовать SetUnit, но как в этой процедуре проверять значения элементов класса TUnits, не пойму =(
Подскажите, пожалуйста, решение!

#1 marishkin66 © 11.10.06 17:01:19

разобралась...

procedure SetUnit(value: TVUnit);
...
for i:=0 to Collection.Count-1 do
if (TUnitItem(Collection.Items[i]).FVUnit=value)...

Написать ответ