VPF::Не понятно почему выдает AV!!! - Форум программистов

МММ

Дата 22.11.2002, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 354
Регистрация: 18.6.2002

Репутация: нет
Всего: 1

Код


if OracleDataSet1.Active=true then
        begin
        OracleDataSet1.first;
            for i:=1 to OracleDataSet1.RecordCount do
                 begin
                 s:=OracleDataSet1.Fields[0].asstring;
                 TQRLabel(FindComponent('QR' + IntToStr(i))).caption:= s;
                 OracleDataSet1.next;
                 end;
         end;

дает AV и все тут, что делать должно же работать!!!
TQRLabel(FindComponent('QR' + IntToStr(i))).caption:= s; где тут косяк!!!

--------------------

Аренда VPS хостинга в России
x6x.ru

Vit

Дата 22.11.2002, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Косяк в том что если компонент не найден то вот она и ошибка, переделай так:

Код


var c:TComponent;

c:=FindComponent('QR' + IntToStr(i));
if c<>nil then
  if c is TQRLabel then
    (c as TQRLabel).caption:= s
  else Showmessage('Invalid Class')
else Showmessage(Format('Component QR%d is not found!',[i]));

И тебе сразу будет разумное сообщение

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

МММ

Дата 22.11.2002, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 354
Регистрация: 18.6.2002

Репутация: нет
Всего: 1

Нашел глюк, имя одной лейбы было исправлено!!! почему сам не догадался так сделать ......
Большое спасибо!!!!

--------------------

Аренда VPS хостинга в России
x6x.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »