Создание 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

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