S
sxbing
Unregistered / Unconfirmed
GUEST, unregistred user!
library NumberToChinese;
uses
SysUtils,
Classes,Dialogs;
{$R *.RES}
Function FToC(Moneyouble) :String ; Export ;
begin
Result := CurrToStr(Money) ;
end;
Exports
FToC ;
begin
end.
为什么我在下面的Unit中调用上央的DLL会出错》?????
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Function FToC(Numberouble):String;Stdcall;External 'NumberToChinese.Dll' Name 'FToC' ;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FToC(56365)) ;
end;
end.
uses
SysUtils,
Classes,Dialogs;
{$R *.RES}
Function FToC(Moneyouble) :String ; Export ;
begin
Result := CurrToStr(Money) ;
end;
Exports
FToC ;
begin
end.
为什么我在下面的Unit中调用上央的DLL会出错》?????
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Function FToC(Numberouble):String;Stdcall;External 'NumberToChinese.Dll' Name 'FToC' ;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FToC(56365)) ;
end;
end.