[denISRU]

Уважаемые, программка формирует отчет, для выбора из таблицы данных я сделал такую "подставку". Проблема в том что программа вылетает если значения в базе пустые.. - как мне это допилить, чтобы при пустом значении вставляло Form4.qrLabel441.Caption:=' ' к примеру?

Код:

DataModule2.AdoQ28.First;
for I := 0 to DataModule2.ADOQ28.RecordCount do
begin

  if DataModule2.ADOQ28.FieldByName('xxxx').Value<>0 then
  begin
  Form4.qrLabel441.Caption:=DataModule2.ADOQ28.FieldByName('xxxx').AsString;
  end;
  DataModule2.AdoQ28.Next;
end;