Скачать: CL | DM;

ListBox   Найти похожие ветки 

← →
coral   (2005-12-02 21:07) [0]

При запуске заполняю листбокс:
procedure TForm1.FormCreate(Sender: TObject);
begin
 with form1.adotable1 do
 begin
   open;
   while not EOF do
   begin
     ListBox1.Items.Add(FieldByName("Тема").AsString);
     next;
   end;
 end;
end;

но не компилится, пишет что не может найти "Тема", хотя все подключено правильно, я 10 раз перепроверил. Помогите плиз че делать

---

← →
gdaujk ©   (2005-12-02 22:15) [1]

>coral   (02.12.05 21:07)

>не компилится

Узнай сначала разницу между "не компилиться" и "выдаёт ошибку при работе". У тевя происходит второе...

>10 раз перепроверил

Семь раз доверься, один раз проверся (Народная мудрость) :-)

---

← →
gdaujk ©   (2005-12-02 22:21) [2]

Смотрим реализацию FieldByName:

function TDataSet.FieldByName(const FieldName: string): TField;
begin
 Result := FindField(FieldName);
 if Result = nil then DatabaseErrorFmt(SFieldNotFound, [FieldName], Self);
end;

Внимательно повторно просматриваем жирную строчку. Делаем вывод...

PS: Помогу. Вывод: 10 проверок в вашем случае не достаточно эффективны, Используйте минимум 20 :-)

---

← →
coral   (2005-12-03 11:41) [3]

Т.е. ты хочешь сказать, что поле пустое в базе? но это не так, все поля заполнены

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.972 c