| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListBox [D7, XP]

coral ©   (2005-12-02 21:07:00) 

При запуске заполняю листбокс:
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 раз перепроверил. Помогите плиз че делать

---

coral   (2005-12-03 11:41:00) [1]

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

---

gdaujk   (2005-12-02 22:21:00) [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 :-)

---

gdaujk   (2005-12-02 22:15:00) [3]

>coral   (02.12.05 21:07)

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

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

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

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

---

Наверх