On Mon, 26 Sep 2005, Bram Kuijvenhoven wrote:
or
Function TParams.ParamByName(const Value: string): TParam;
var
TmpDataset:TDataset;
begin
Result:=FindParam(Value);
If (Result=Nil) then
begin
TmpDataSet:=DataSet;
if TmpDataSet<>nil then
DatabaseErrorFmt(SParameterNotFound,[Value],TmpDataset)
else
DatabaseErrorFmt(SParameterNotFound,[Value]);
end;
end;
I'll implement this latter option.
Michael.
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
