exam_10_1.dpr

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

library Exam_10_1;

uses
  SysUtils,
  Classes;

{$R *.res}
  Function Max(x,y,z:Integer):Integer;stdcall;
    var
       t:integer;
    begin
      if (x<y) then
          t:=y
      else
          t:=x;
      if (t<z) then
          t:=z;
      max:=t;
    end;
  Function Min(x,y,z:Integer):Integer;stdcall;
    var
       t:integer;
    begin
      if (x>y) then
          t:=y
      else
          t:=x;
      if (t>z) then
          t:=z;
      min:=t;
    end;
  exports
     max,min;
begin
end.