以下看起来语法正确并且编译良好。
unit MyAPI;
interface
// function Min(X, Y: Integer): Integer;
// function Max(X, Y: Integer): Integer;
implementation
function Min(X, Y: Integer): Integer;
begin
if X < Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): Integer;
begin
if X > Y then Max := X else Max := Y;
end;
end.
我想为另外 50 个函数做同样的事情,通常是我正在构建的动态库的外观函数。这 50 个函数的主体都很小,只需调用内部代码,然后通过输出 DLL 将数据转换为 C 风格调用。
出于这个原因,我想让编写界面部分变得经济。
unit MyAPI;
interface
uses Optimizer;
implementation
function Min(X, Y: Integer): Integer;
var
optimizer: TOptimizer;
begin
optimizer := TOptimizer.Create;
Min := optimizer.Min(X,Y);
end; stdcall;
...
end.
这是好的,还是不好的做法?我还有什么其他选择?