Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание DLL библиотек... [D7]

kitten © (2010-01-10 17:22:00)
текст длл:

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:00) [1]
http://ln.com.ua/~openxs/articles/smart-questions-ru.html

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »