Скачать: CL | DM;

ListBox.Item и Объект   Найти похожие ветки 

← →
tytus   (2005-01-27 10:54) [0]

Добрый день господа. Подскажите как правильно отыскать итемы листбокса по объекту и удалить их (итемы и объекты).
type
  PAtsObj=^TAtsObj;
  TAtsObj=record
  AN:string;
  end;
далее в обработчике клика по чекбоксу пишу:
var
 AtsObj:PAtsObj;
begin
if CB1.Checked then
begin
 New(AtsObj);
  AtsObj^.AN:="746";
...
for i:=0 to TGLst.Count-1 do
 LB1.AddItem(TGLst.Strings[i],TObject(AtsObj));
все нормально работает.//LB1-ListBox;CB1-CheckBox;
А теперь когда чекбокс не отмечен нужно найти все итемы в листбоксе по объекту и удалить их.
end else
begin
n:=LB1.Items.IndexOfObject(TObkect(AtsObj));
LB1.Items.Delete(n);//???
end;

---

← →
TUser ©   (2005-01-27 11:04) [1]

type
 TAtsObj=class

---

← →
KSergey ©   (2005-01-27 11:09) [2]

> найти все итемы в листбоксе по объекту и удалить их.

Что в вашем понимании "по объекту"?

> [1] TUser ©   (27.01.05 11:04)
> type
>  TAtsObj=class

А это не черезчур?

---

← →
ЮЮ ©   (2005-01-27 11:11) [3]


idx := LB1.Items.IndexOfObject(TObject(AtsObj));
if (idx > - 1) then begin
 Dispose(PAtsObj(LB1.Items.Objects[idx]))
 LB1.Items.Delete(idx);  end;
end;

---

← →
MetalFan ©   (2005-01-27 11:17) [4]

может в данном случае
> PAtsObj=^TAtsObj;
>   TAtsObj=record
>   AN:string;
>   end;

PChar прокатит?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c