如何代码复用

Question

我想重复利用某段代码,例如：
           Query.sql.add();
          Query.parambyname('nam').asstring:=...
          Query.open;
          .
          .
          .
应该怎么做，如何调用，谢谢了！

Answer 1

procedure xxx(const ASQL: string; const AParam: string)
begin
  Query.sql.Clear;
  Query.sql.add(ASQL);
  Query.parambyname('nam').asstring:=AParam;
  Query.open; 
end;使用的时候直接调用就好了。

Answer 2

比如这样
procedure myquery(s1:string; s2: string);
begin
 Query.sql.add(); 
          Query.parambyname(s1).asstring:=s2; 
          Query.open; 
end;