字符串转化为十六进制,如何做呢?把dd:='C0';转化为十六进制如何做呢?
解决方案 »
- 请教reportbuilder报表控件问题
- 求思路!用DELPHI6.0开发一个类似SQL SERVER的软件(有实例更好)
- 关于ado与BDE的比较
- 求delphi開發的自動發送email的程序
- 关于String的问题,请大家参与,RealLike也请进来看一下!
- 如果客户端突然关机,服务器端怎么才能监测到该clientsocket已经掉线?
- 如何对这样的字符串进行判断????????????????????
- quickreport报表,多列显示时,怎样控制数据排列的方向(垂直方向优先或水平方向优先)?
- 能够在panel 上画图形吗? panel 从tcustomControl 而来, tcustomControl是有Canvas 属性,但是panel 没有, 如何在panel画图形呢
- 简单的SQL语言查询问题
- 如何在程序project.exe1中获取程序project.exe2对应窗体的所有组件列表?(在线)
- 求救!WebService开发
showmessage(inttostr(strtoint(dd)));
hex: string;
for i := 1 to Length(dd) do
begin
tmp := Ord(dd[i]);
hex := IntToHex(tmp, 2);
end;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Edit1Change(Sender: TObject);
var s: string;
i, j, k: integer;
a: array[1..1000] of char;
begin
s:='';
for i:=1 to Length(Edit1.Text) do begin
j:=Integer(Edit1.Text[i]);
s:=s+Copy(Format('%X ',[j+$100]) ,2,3);
end;
Edit2.Text:=s; StringToWideChar(Edit1.Text, @(a[1]), 500);
s:=''; i:=1;
while ((a[i]<>#0) or (a[i+1]<>#0)) do begin
j:=Integer(a[i]); k:=Integer(a[i+1]);
s:=s+Copy(Format('%X ',[j*$100+k+$10000]) ,2,5);
i:=i+2;
end;
Edit3.Text:=s;end;end.
var i: integer;
hex: string;
begin
dd := 'C0';
for i := 1 to Length(dd) do
begin
hex := hex + ' ' + IntToHex(Ord(dd[i]), 2); ****
end;
edit1.text := hex;