L
lemonloveyan
Unregistered / Unconfirmed
GUEST, unregistred user!
1。 关于编码自动加1(最后一个字符增1)
比如 0001 下一个则显示为 0002
02ct ---> 02cu
9C3a ---> 9C3b
现在就是(数制转换问题) 用16进制表示后怎么变为字符显示(不是字符串)
也就是说 10(16进制) ----〉 表示为 a
58(好像是58,16进制) --〉表示为 x
2。怎么我调用不了自己定义的.pas(无窗体单元)里的函数,定义如下:
unit CommonPas; //公共单元
interface
uses
SysUtils, Classes, DB, ADODB,Dialogs; //自己加的引用
implementation
uses GDZCDataModuleUnit; //应用数据模块
//从取名称
function SetBMMC(Str:string):string;
var BmpStr:string;
ResultStr:string;
begin
BmpStr:=Str;
ResultStr:='';
resultStr:=Copy(BmpStr,pos('_',bmpstr)+1,length(bmpstr)-pos('_',bmpstr));
result:=resultStr;
end;
end.
调用的前,应用程序没有创建(不给创建,提示出错),然后在需调用的单元使用
uses CommonPas
再调用函数SetBMMC,却提示没有认识SetBMMC???为什么呢???
比如 0001 下一个则显示为 0002
02ct ---> 02cu
9C3a ---> 9C3b
现在就是(数制转换问题) 用16进制表示后怎么变为字符显示(不是字符串)
也就是说 10(16进制) ----〉 表示为 a
58(好像是58,16进制) --〉表示为 x
2。怎么我调用不了自己定义的.pas(无窗体单元)里的函数,定义如下:
unit CommonPas; //公共单元
interface
uses
SysUtils, Classes, DB, ADODB,Dialogs; //自己加的引用
implementation
uses GDZCDataModuleUnit; //应用数据模块
//从取名称
function SetBMMC(Str:string):string;
var BmpStr:string;
ResultStr:string;
begin
BmpStr:=Str;
ResultStr:='';
resultStr:=Copy(BmpStr,pos('_',bmpstr)+1,length(bmpstr)-pos('_',bmpstr));
result:=resultStr;
end;
end.
调用的前,应用程序没有创建(不给创建,提示出错),然后在需调用的单元使用
uses CommonPas
再调用函数SetBMMC,却提示没有认识SetBMMC???为什么呢???