Создал процедуру, которая в таблице просматривает, количество какого товара на складе меньше минимального запаса. После формирования сообщения возвращаю данные командой suspend. Однако после прохода всех записей в программе пытаюсь организовать цикл
Код: Выделить всё
DM.IBSQL.Close;
DM.IBSQL.SQL.Clear;
DM.IBSQL.SQL.Add('select RESULT_TEXT_MIN from CREATE_ALARM_LIST(10,5)');
DM.IBSQL.ExecQuery;
repeat
[i][b]sss:=DM.IBSQL.Fields[tmp].AsString;[/b][/i]
tmp1:=pos(',',sss);
ListItem:=FormGlava.AlarmList.Items.Add;
ListItem.Caption:=copy(sss,1,tmp1-1);
delete(sss,1,tmp1);
ListItem.SubItems.DelimitedText:=sss;
DM.IBSQL.Next;
inc(tmp);
until
tmp>=DM.IBSQL.RecordCount;
DM.IBSQL.Close;
Может что-нибудь не так делаю.
И еще вопрос, как в хранимой процедуре организовать запись в переменную типа BLOB и затем вывести данные в ListView или Memo?
Спасибо.