Проблема checklstbox1.Items.Objects

← →
Dimich1978 (2006-06-09 09:55) [0]

Помогите, не пойму как после считывания выцепить то что мне нужно, т.е.
в процедуре
TabSheet4Show я заношу список БАЗ в checklistbox. Затем необходимо SpeedButton4Click, удалить из таблицы те которые отмечены в checklistbox-е. Все вроде бы нормально...но не догоню как провести разименование, т.е. вычленить цифру которую я запихал
findex^:=FieldByName("ID_id").Asinteger;
checklistbox1.items.AddObject(FieldByName("Base1C").AsString,TObject(findex));
ТЕПЕРЬ надо вот её вычленит...не пойму как..натолкните..

procedure TForm1.SpeedButton4Click(Sender: TObject);
var
i,j:integer;
begin
j:=0;
with TUsers do
begin
Active:=false;
TableName:="spisokBD";
Open;
first;

for i:=0 to checklistbox1.count-1 do
if checklistbox1.Checked[i] then
begin
j:=integer(checklistbox1.Items.Objects[i]);
--------------------------
///ПРОБЛЕМА вот здесь
--------------------------
locate("ID_id",j,[]);
tusers.Delete;
checklistbox1.Items.Delete(i);
TabSheet4Show(nil);
end;
end;

end;

procedure TForm1.TabSheet4Show(Sender: TObject);
var
findex:^integer;
i:integer;
begin
new(findex);
checklistbox1.Clear;
with TUsers do
begin
Active:=false;
TableName:="spisokBD";
Open;
for i:=0 to recordcount-1 do
begin
findex^:=FieldByName("ID_id").Asinteger;
checklistbox1.items.AddObject(FieldByName("Base1C").AsString,TObject(findex));
next;
end;
end;
end;

← →
MBo © (2006-06-09 10:00) [1]

var
findex: Integer;

findex :=FieldByName("ID_id").Asinteger;
checklistbox1.items.AddObject(строка, TObject(findex));
...
findex := Integer(checklistbox1.items.Objects[i]);

← →
Dimich1978 (2006-06-09 10:18) [2]

т.е. делать без указателей..они тут не нужны как я понял..лишнего накрутил?

>лишнего накрутил?
Да

Проблема checklstbox1.Items.Objects Найти похожие ветки [i]