Im Prinzip so:
Delphi-Quellcode:
Procedure TFormMain.ParamInfo(qry: TMyQuery);
Begin
Assert(assigned(qry)); //Sicherheitsabfrage
qry.Params.ParamValues['histC']:= Infos.Hist;
// hier wird angenommen, dass nicht alle Queries den Parameter "histDate" benötigen
// mit FindParam() wird abgefragt, ob es den Parameter wirklich gibt
if Assigned(qry.Params.FindParam('histDate')) then
qry.Params.ParamValues['histDate']:= Infos.HistDate;
End;
Bin nicht sicher, ob die Funktion wirklich FindParam() heisst;
es gibt aber auf jeden Fall eine Funktion mit der es möglich ist einen best. Parameter abzufragen.
Ggf. Online Hilfe befragen.