|
把要调用的函数或过程中的私有局部变量提升为公用的全局变量.
例如
uses
Classes,SysUtils //,interfaces, forms
{ you can add units after this };
const
passwd ='*****';
function GetsomeInfo(avar:string):String;stdcall;
var F:TextFile;
Txt:string; tmpStr, aStr: string;
begin
something......
end;
{$R *.res}
exports
GetbaseInfo;
begin
end.
更改为
uses Classes,SysUtils //,interfaces, forms { you can add units after this };
const passwd ='*****';
var F:TextFile; Txt:string; tmpStr, aStr: string;
function GetsomeInfo(avar:string):String;stdcall;begin something......
end;
{$R *.res}
exports GetbaseInfo;
begin
end.
|
评分
-
查看全部评分
|