我需要将大量SQL查询转换为存储过程.我有一些代码在一个Delphi过程中一次更新大约20或30个值.我可以处理创建存储过程来做这样的事情.问题是我将参数传递给存储过程的方式非常笨重,如下所示：
with stored_procedure do......
Param := Parameters.AddParameter;
Param.Name := '@SSN';
Param.Value := edtSSN.text;
Param := Parameters.AddParameter;
Param.Name := '@FirstName';
Param.Value := edtFirstName.Text;
Param := Parameters.AddParameter;
Param.Name := '@LastName';
Param.Value := edtLastName.Text;
Param := Parameters.AddParameter;
Param.Name := '@UserRID';
Param.Value:= GetRIDFromCombo(cbUser);
我也不确定是否会导致内存泄漏(是否需要释放此类TParameter对象？)
任何人都有更好的方法来处理大量的参数？ (我不能使用新的库.我必须使用ADO,我使用的sql是MSsql)(另外,我不使用ADO.net)
解决方法
这不会导致内存泄漏. stored_procedure将清理其参数.您可以通过在.dpr中添加以下内容来使用FastMM进行确认：
ReportMemoryLeaksOnShutdown := True;
首先,我将摆脱“with”声明.它可能导致更多问题和更少可读代码.
我创建了一个辅助方法,它接受存储过程,参数名称和参数值,这将使您的代码更易于管理.
AddParam(stored_procedure,'@SSN',edtSSN.text); AddParam(stored_procedure,'@FirstName',edtFirstName.Text); AddParam(stored_procedure,'@LastName',edtLastName.Text); AddParam(stored_procedure,'@UserRID',GetRIDFromCombo(cbUser));
