過程的另類想法是否有錯?
//這種語句用到的地方很多,我想寫成一個過程
procedure SetSValue(Q:TQuery; sPara,sValue: string);
begin
Q.ParamByName(sPara).AsString := sValue;
end;
//添加SQL的where語句並賦值
procedure SetSWhere(Q:TQuery; sPara,sValue: string);
begin
if Trim(sValue) = '' then
Q.SQL.Add(' and ((' + sPara + '=:' + sPara + ' ) or( k'
+ sPara + ' is null)) ')
else
Q.SQL.Add(' and ' + sPara + '=:k' + sPara + ' ');
SetSValue(Q, 'k' + sPara, sValue);//此處有調用上面的過程
end;
現在的想法是:
第一個過程好像是多此一舉(只有一行代碼,也用一個過程實現)
第二個過程中的調用感覺也是多此一舉;
其實我是比較喜歡這種寫法;維護起來方便,代碼一致性也比較好;
有一個問題不懂:速度上是否有所影響?
向各位請教!!