mydll.~dpr

来自「本光盘是《Delphi 7应用教程》一书的配套光盘」· ~DPR 代码 · 共 53 行

library mydll;

uses
  SysUtils,
  Classes;

{$R *.res}
Function  Max(a:array of integer;n:integer):integer;stdcall;
var
  i,max_v:integer;
begin
  max_v:=a[0];
  For i:=1 to  n-1 do
     if max_v<a[i] then
        max_v:=a[i];
  result:=max_v;
end;
Function  Min(a:array of integer;n :integer):integer;stdcall;
var
  i,min_v:integer;
begin
  min_v:=a[0];
  For i:=1 to  n-1 do
     if min_v>a[i] then
        min_v:=a[i];
  result:=min_v;
end;
Function  Sum(a:array of integer;n:integer):integer;stdcall;
var
  i,Sum_v:integer;
begin
  Sum_v:=0;
  For i:=1 to  n-1 do
      Sum_v:=Sum_v+a[i];
  result:=Sum_v;
end;

Function  Aver(a:array of integer;n:integer):integer;stdcall;
var
  i,Aver_v:integer;
begin
  Aver_v:=0;
  For i:=1 to  n-1 do
      Aver_v:=Aver_v+a[i];
  result:=Aver_v  div n;
end;

Exports
  Max,Min,Sum,Aver;

begin
end.