Разработка приложений в системе Delphi. Шейкер Т.Д. - 163 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

if x>y then Max:=x else Max:=y;
end;
function Mean(x,y:integer):extended; export;
begin
Mean:=(x+y)/2;
end;
exports
Min
begin
, Max, Mean;
end.
Приложение
unit Unit1; .//Модуль, использующий функции из DLL
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
ialogs, StdCtrls; Forms, D
function Max(x,y:integer):integer; stdcall; external 'Mathlib';
function Min(x,y:integer):integer; external 'Mathlib';
function Mean(x,y:integer):extended; external 'Mathlib';
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Edit4: TEdit;
Label4: TLabel;
Edit5: TEdit;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
edit3.text:=inttostr(max(a,b));
edit4.text:=inttostr(min(a,b));
edit5.text:=floattostr(mean(a,b));
end;
end.
Пример 2. Библиотека Beeper. Статический импорт
Библиотека
library Beeper;
163
   if x>y then Max:=x else Max:=y;
 end;
function Mean(x,y:integer):extended; export;
  begin
    Mean:=(x+y)/2;
  end;
exports
   Min, Max, Mean;
begin
end.

    Приложение
unit Unit1; .//Модуль, использующий функции из DLL
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
function Max(x,y:integer):integer; stdcall; external 'Mathlib';
function Min(x,y:integer):integer; external 'Mathlib';
function Mean(x,y:integer):extended; external 'Mathlib';
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var   a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
edit3.text:=inttostr(max(a,b));
edit4.text:=inttostr(min(a,b));
edit5.text:=floattostr(mean(a,b));
end;
end.

Пример 2. Библиотека Beeper. Статический импорт
    Библиотека
library Beeper;


                                 163

Страницы