Текущий архив: 2006.07.02;
Скачать: CL | DM;
Вниз
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]Спасибо уже не надо!!! Дошло
Страницы: 1 вся ветка
Текущий архив: 2006.07.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.041 c
