delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
关于Delphi字符转换的问题。不会啊!!!帮帮忙!!! VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061220231901235.html
输入一个任意长的字符串,使用Stringgrid控件显示字符串及其ASCII码。

s:   string;  
   
  s:='abc';  
   
  IntToHex(Ord(s[n]),2);//返回ASCII码十六进制表示   n=1..Length(s)

楼上正确

ord

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      s   :   string;  
      i   :   integer;  
  begin  
      s   :=   'asda';  
      StringGrid1.ColCount   :=   length(s);  
      for   i   :=   1   to   length(s)   do  
          StringGrid1.Cells[i-1,1]   :=   IntToHex(ord(s[i]),2)  
  end;

得到答案了吧

posted on 2009-01-04 16:51 delphi2007 阅读(114) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。