addobject выдает несовместимость типов

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

выдает ошибку
[Error] Unit1.pas(876): Incompatible types: "TObject" and "Integer"
var
findex:^integer;
i:integer;
begin
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,findex);
next;
end;
Как побороть...пробовал и как в примере Хелпа..ошибка точь в точь такая же.(через создание своего типа)

← →
Dimich1978 (2006-06-09 09:17) [1]

Спасибо уже не надо!!! Дошло

addobject выдает несовместимость типов Найти похожие ветки