unit1.~pas

Delphi函数参考大全的CD

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function Calculate(GoodsHeight, TruckLoad: word;var remainder: word):word;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  BigNum,SmallNum,temp: word;
begin
  BigNum := Calculate(210,20,temp);
  SmallNum := Calculate(temp,10,temp);
  if temp <>0 then
    SmallNum := SmallNum+1;
  Application.MessageBox(Pchar('需要大型货车 '+IntToStr(BigNum)+' 需要小型货车'+IntToStr(SmallNum)),'提示',64);
end;

function TForm1.Calculate(GoodsHeight, TruckLoad: word;
  var remainder: word): word;
var
  i,j: word;
begin
  DivMod(GoodsHeight,TruckLoad,i,j);
  remainder := j;
  Result := i;
end;

end.