Скачать: CL | DM;

Создание DLL библиотек...   Найти похожие ветки 

← →
kitten   (2010-01-10 17:22) [0]

текст длл:

library MyDLL;
uses
 SysUtils,
 Classes;
{$R *.res}

Function  dodavdrob(str1,str2:ShortString):ShortString;
var a,b,c,d,k,e,f:integer;
begin
k:=pos("/",str1);
a:=strTOint(copy(str1,1,k-1));
b:=strTOint(copy(str1,k+1,Length(str1)));
k:=pos("/",str2);
c:=strTOint(copy(str2,1,k-1));
d:=strTOint(copy(str2,k+1,Length(str1)));
if b=d then Result:=(intTOstr(a+c)+"/"+intTostr(b))
  else begin
        e:=a*d+c*b;
        f:=b*d;
        Result:=intTOstr(e)+"/"+intTostr(f);
       end;
end;
exports
dodavdrob;
begin
end.

вызов в проекте:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, StdCtrls;
type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Edit2: TEdit;
   Label1: TLabel;
   Label2: TLabel;
   Edit3: TEdit;
   Memo1: TMemo;
   Panel1: TPanel;
..............
 private
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
implementation
{$R *.dfm}
Function Dodavdrob(str1,str2:ShortString):ShortString;  
     External "MyDLL.dll";  
procedure TForm1.Button2Click(Sender: TObject);
var str1,str2,sum:ShortString;
begin
str1:=Edit2.Text;
str2:=Edit3.Text;
sum:=Dodavdrob(str1,str2);
Edit4.Text:=sum;
end;

end.

Вроде всё правильно, но выдаёт ошибку((( подскажите пожалуйста...

---

← →
Игорь Шевченко ©   (2010-01-10 17:23) [1]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c