Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: 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 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.105 c
6-1101679609
dms_main
2004-11-29 01:06
2005.02.13
Delphi&IE


1-1107088550
ТехникПТО
2005-01-30 15:35
2005.02.13
Еще один маленький не сложный вопрос


14-1106329949
dredd
2005-01-21 20:52
2005.02.13
просьба админам


14-1106384467
Серый
2005-01-22 12:01
2005.02.13
Смешная ссылка


3-1105968439
Игорь Писанко
2005-01-17 16:27
2005.02.13
Индекс текстового поля как числового