Sziasztok! :)
Ket szam minimumat illetve maximumat szeretnem dll-bol
szamittatni...
A foprogi a "Keretprg" nevu unitban van. A dll lentebb
talalhato; lib.dll-kent lefordul.
A gondom a kovetkezo: a formon ket Editbox-ban megadok ket
szamot, de miutan belehiv
a dll-be a Keretprg-bol, abnormalisan nagy szamokat ad
vissza - es ezek az ertekek a minimum
es a maximum eseteben is fuggetlenek az Editbox-okban
megadott ertekektol (de kovetkezetesen
mindig ugyanazt adja a minimumra es a maximumra egy
forditas utan)
Miert nem mukodik ugy, ahogy szeretnem..? A
parameteratadassal van-e gond, vagy hol keressem
a hiba okat? Mivel nem vagyok a listan, kerem aki tudna
segiteni, az maganba is tegye meg!
Elore is nagyon koszonom!!!! :)
Udv, Otto.
unit Kerertprg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function Min(X, Y: Integer): Integer; external 'lib.dll';
function Max(X, Y: Integer): Integer; external 'lib.dll';
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var a, b, minimum, maximum: Integer;
.
|