Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c
