问几个个小问题!(50分)

  • 主题发起人 主题发起人 lemonloveyan
  • 开始时间 开始时间
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???为什么呢???
 
1.inttohex(a)
2.要写一个函数声明在implementation的上面,否则仅在本单元内是全局的。
...
function SetBMMC(Str:string):string;
implementation
...
 
很感谢你,但是对转化问题还没有彻底的理解,给个例子最好了!
把分权给你了!!!谢谢。
如果你有什么好的方法可以给我发e-mail:lemonlms@sina.com 或qq:33461596
我在做固定资产,所以会有好多问题的,可以交流 阿 !
 
后退
顶部