Вызов функции из процедуры

[Brother Abbat]

Привет друзья! Очередной ламерский вопрос от меня ))
Есть форма со всякими чекбоксами, комбами и эдитами. При нажатии на кнопочку "Сформировать" делался sql запрос на условия которого влияли вышеуказанные всяческие элементы форм. Все работало очень замечательно, пока в один прекрасный день не было решено формировать не только грид, но и отчетик (что то типа qrep'a) и выгрузку в ексель. Опечлился я и начал думать. Повесить несколько кнопок на форму (Сформировать - Отчет - Экспорт) и выполнять один и тот же sql запрос, просто выводить данные в разные формы. Значится надо мне запихнуть формирование текста запроса в функцию и благополучно вызывать ее из нужных мне процедуров...вот тут то и засада ждала меня. Делаю так:

//Объявляю.
  private
    { Private declarations }
    function STRsql(sENDER:TObject):string;
//******Собстна сама функция************
function strSQL(Sender: TObject):string;
var
  sData, sClient, sAccountNum, sDelType, sProfSys,
  sdif, sFast, sDop, sPrepare, sOtgruzka, sPrint, sDatePr:string;
//******Вызов из процедуры****************
    s:='Where gotovnost.Id<>Null'+strSQL(Sender);

А теперь вопрос знатокам. Как мне в функцию передать значения чекбоксиков и прочей лабуды из формы???
з.ы. и вообще, в принципе я прально мыслю??? или у меня бред полный???

[vovk]

Волшебное слово параметры))

function strSQL(Sender: TObject; ch1, ch2, ch3:boolean; ed1, ed2:string и тд ):string;

просто укажите в функции нужное количество и тип параметров, при вызове передавайте их, и используйте в теле функции.

Sender: TObject тут полезно использовать, если нужно узнать обработчик какого объекта вызвал функцию.

Только если данные одни и теже, почему бы для отчётов и т.п. не использовать уже заполнений датасет?

[Brother Abbat]

ага...т.е. я должен передавать нужные мне параметры элементов форм? а на сколько тогда некорректно будет просто скопипастить сей код формирования текста sql запроса из одной процедуры в другую ???

[vovk]

Да разницы особой нет, хотите копируйте.
Но лучше обьявите функцию как метод класса вашей формы, и обращайтесь к обьектам на форме в теле функции.



ТОлько я всё равно не понимаю зачем ещё раз запрашивать набор данных, если он уже есть в 1 датасете.

[Brother Abbat]

спасибо за ответ, правда про датасет и набор данных ничего не понял )) буду копипастить

[vovk]

Да вы правильно делали

 Объявляю. 
private
    { Private declarations }
    function STRsql(sENDER:TObject):string;
//******Собстна сама функция************
function Tform1.strSQL(Sender: TObject):string;
var
  sData, sClient, sAccountNum, sDelType, sProfSys,
  sdif, sFast, sDop, sPrepare, sOtgruzka, sPrint, sDatePr:string;
 ch1:boolean;
begin 
sData:=edit1.text;
ch1:=checkbox1.checked;
//и тд
result:=......
end;
//******Вызов из процедуры****************
    s:='Where gotovnost.Id<>Null'+strSQL(Sender);

[Brother Abbat]

аааа....вот теперь все понял, спасибо огромнейшее )))