Mistři v programování na #hovnokod

Delphi #632

library ExDouble;
 
uses
  SysUtils,
  Classes;
 
{$R *.res}
 
function calc_double(r: real): real; stdcall;
begin
  result := 2;
end;
 
exports
  calc_double index 1;
 

end.


unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
function calc_double(r: real): real; stdcall; external 'ExDouble.dll';
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>FloatToStr(calc_double(0))then
ShowMessage('')
else begin
ShowMessage('dsfgsdfg');
end;
end;
 
end.

HovnoKod,