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]

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

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