Hollosi Information eXchange /HIX/
HIX CODER 1700
Copyright (C) HIX
2002-12-06
Új cikk beküldése (a cikk tartalma az író felelőssége)
Megrendelés Lemondás
1 delphi-s dll (mind)  132 sor     (cikkei)

+ - delphi-s dll (mind) VÁLASZ  Feladó: (cikkei)

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;
.

AGYKONTROLL ALLAT AUTO AZSIA BUDAPEST CODER DOSZ FELVIDEK FILM FILOZOFIA FORUM GURU HANG HIPHOP HIRDETES HIRMONDO HIXDVD HUDOM HUNGARY JATEK KEP KONYHA KONYV KORNYESZ KUKKER KULTURA LINUX MAGELLAN MAHAL MOBIL MOKA MOZAIK NARANCS NARANCS1 NY NYELV OTTHON OTTHONKA PARA RANDI REJTVENY SCM SPORT SZABAD SZALON TANC TIPP TUDOMANY UK UTAZAS UTLEVEL VITA WEBMESTER WINDOWS