如何在 Delphi 中制作通用/模板函数

Question

您好，我在创建模板函数时需要一些帮助（如果我是正确的，它们在 c++ 中是已知的）。我正在使用 Delphi XE2，并且正在使用 MS Access 数据库编写数据库应用程序。

问题是我写的很多函数在不同的表上做同样的事情。所以我认为我可以创建模板函数，然后为不同的表使用不同的参数。

例如，Locate 函数可以定位表或查询中的特定记录。现在我想做一个模板函数，但我不知道怎么做。

我想把函数放在我的数据模块的公共部分，所以我在考虑这个

function find(tableName: TADOTable, fieldName: String, fieldValue: String):Boolean

那么……

function TDataModule.find(tableName: TADOTable, fieldName: String, fieldValue:String): Boolean;
var SearchOptions : TLocateOptions;
 begin
  SearchOptions := [loCaseInsensitive]; 
  find := DataModule.tableName.Locate('fieldName', fieldValue, SearchOptions);
 end;

但这不想编译...

有什么方法可以制作某种模板函数，我可以将任何表作为参数传递，或者使用 getter 和 setter 函数为每个表创建一个类会更好吗？

Answer 1

function TDataModule2.LocateData(AADOTable: String; AKeyFields: String; 
  AKeyValues: Variant; Options: TLocateOptions): Boolean;
var
  oComp: TComponent;
begin
  Result := False;
  oComp := FindComponent(AADOTable);
  if (oComp is TADOTable) and (oComp as TADOTable).Active then
    Result := (oComp as TADOTable).Locate(AKeyFields, AKeyValues, Options);
end;