Debug - как заставить Delphi точно указать на строку кода вызывающую ошибку?

[delphicoding]

Всем спасибо, но ситуация подробно описана и актуальна реальная помощь, а не общие рассуждения. Если кто-то может написать код для:

Придумал как можно проверить, только не знаю как это реализовать... вопрос разумеется тупой - есть юнит DataModule, то есть без формы, в нём много чего происходит, а на выходе должен быть заполнен Datasource данными. Как можно из этого DataModule при помощи чистого кода создать нечто вроде текстового окна с кнопкой ОК/Закрыть и залить в это окно или некий графический объект все данные из Datasource (или Dataset) - чтобы наконец таки проверить все значения...

Подскажите, пожалуйста, тк создавать объекты и формы из пустоты ещё не приходилось...

[evg_m]

1. создаете новую (еще одну) форму удовлетворяющую ВАШИМ требованиям. (кнопки таблицы, отображения, и т.п.)

создать нечто вроде текстового окна с кнопкой ОК/Закрыть и залить в это окно или некий графический объект все данные из Datasource (или Dataset)

2. в нужном месте кода делаете ( не забыв сделать uses unitformxxxx )

//создаете новый объект форму указанно типа
F:=TformXXX.Create(self); 
// заполняете ее данными
f.Grid.DataSource:=self.myDataSource;
f.StaticText.caption:=myDaatSource.DataSet.SQL.Text;
и другие действия
// показываете с приостановкой дальнейших действий.
f.ShowModal; 
// уничтожаете более не нужный вам объект
f.Free;

[delphicoding]

Да, тоже вариант, просто хотелось поэлегантнее, без лишних юнитов в проекте. Но наверно так правильнее.

Только вот эта строка не работает, тк у Dataset (FIBDataset) нет параметра SQL.
f.StaticText:=myDaatSource.DataSet. SQL.Text;

Спасибо!

[evg_m]

можно и без лишних unit если не лень громоздить кучу кода
и многое знать про компоненты чтобы не забыть про какое-нибудь свойство.

f:=TForm.Create(self);
s:=Tstatictext.Create(f);
s.align:=altop;
s.parent.f;
d:=TDBgrid.Crate(f);
d.align:=alclient;
d.parent:=f;

остальное смотри выше.

Ах да мы еще забыли про кнопку.

b:=Tbutton.Create(f);
b.aligт:= а вот нет такого.
b.top:=????
b.left:=????

и думаем почему ее все равно не видно.

вспомнили
b.parent:=f;
а ее все равно не видно.

[delphicoding]

Ты прикольный :D

Код твой правда помог - табличка оказалась пустой, хотя названия колонок явно были переданы из БД, то есть процедура в БД не нашла одного класса записей из нескольких нужных, в результате возник тот самый null...

Ещё раз за краткий, чёткий, полезный ответ - спасибо!

[delphicoding]

После долгих ковыряний выяснилось, что в программе всё нормально. Баг либо в процедуре БД, либо при передаче параметров из программы в процедуру БД. Процедура явно работает, тк возвращает названия полей таблицы, но результат работы - пуст.
Пользуюсь IBExpert, можно в нём как-то посмотреть запросы/ответы к/из процедурам БД из рабочей программы? Как вообще можно узнать какие точно данные получила БД?

=====================

Попутно напишу как выглядит запрос в БД, может будут корректировки:

procedure TfZapros.Zapros(ProcedureName,ProcedureList:string);
begin
  With dsZapros do begin
    close;
    SQLs.SelectSQL.Text:='SELECT * FROM '+ProcedureName+' (:LIST)';
    Params[0].Value:=ProcedureList;
    open;
end;

Код в БД по разделению списка выглядит так:

begin
  while (i <= char_length(lst)) do begin
    if (substring(lst from i for 1) = ',') then begin
      if (i > j) then
          id = trim(leading from substring(lst from j for i - j));
      else
        id = null;
      if (id is not null) then suspend;
      j = i+1;
    end
    i = i+1;
  end
  if (i > j) then
      id = trim(leading from substring(lst from j for i - j));
  else
    id = null;
  if (id is not null) then suspend;
end

Приводить саму процедуру выборки не буду, тк в ней без таблиц и понимания программы разобраться невозможно.

[delphicoding]

Решено. Можно закрывать.