Цитата:
|
Сообщение от Dead_Gigabit
Вылетает на запросе:
Код:
DM.IBQuery1.Close;
DM.IBQuery1.SQL.Clear;
DM.IBQuery1.SQL.Add('SELECT *');
DM.IBQuery1.SQL.Add('FROM "UCH"');
DM.IBQuery1.SQL.Add('WHERE USE like ''' +'%'+n+'%''');
DM.IBQuery1.Open; |
Конкретно на какой строчке вылетает? Вылетать может при Close; и при Open;
Если раньше работало, то смотрите изменения которые вы внесли в код.
Вместо этого:
Код:
for i:= 0 to MdiChildCount - 1 do
лучше написать вот это:
Код:
While MdiChildCount > 0 do