100分求：把普通字符串(string)转换为十六进制字符串的函数？(100分)

V

vc3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #1

把普通字符串(string)转换为十六进制字符串的函数？
例：
var str,strHex:string;
...
str:='ABC';
strHex:=StrToHex(str);//strHex:='414243'
...

 

L

Lfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #2

function StrToHexStr(const Value: string): string;
var
i, Index: Integer;
begin
Result := '';
for i := 1 to Length(Value) do
begin
Index := Ord(Value);
Result := Result + IntToHex(Index,0);
end;
end;

不知道这个简单函数能不能满足你的要求？

 

X

xiao_zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #3

明天若还需要的话，告诉我xiuxiujx@163.com，再发给你吧。

 

A

aidren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #4

我以前做过，代码是这样的。
动态连接库：library Project1;

uses
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}
exports
gethexd,getlinebyte,gettotalbyte;

begin

end.

调用：
var
Form1: TForm1;
function gethexd(strchar)char;stdcall;external'Project1.dll';
function getlinebyte(strchar)char;stdcall;external'Project1.dll';
function gettotalbyte(strchar)char;stdcall;external'Project1.dll';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
memo1.clear;
s:=gethexd(pchar(edit1.text));
memo1.lines.Add(s);
edit2.text:=string(getlinebyte(pchar(edit1.text)));
edit3.text:=string(gettotalbyte(pchar(edit1.text)));
end;


绝对OK的。你试试吧。

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #5

怎么越搞越复杂，这样不就得了：
function StrToHex(const S: String): String;
const
HexS = '0123456789ABCDEF';
var
I, N, X: Integer;
begin
N:= Length(S);
SetLength(Result, N * 2);
for I:= 1 to N do begin
X:= Ord(S);
Result[I*2-1]:= HexS[(X shr 4)+1];
Result[I*2]:= HexS[(X mod 16)+1];
end;
end;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #6

什么呀，越说越复杂，一句话搞定：

strHex := IntToStr(StrToInt('$' + str));

呵呵，够简洁的答案：）

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #7

beta厉害~~~~~~ 那么'ABC123'怎么办呀？

function StrToHex(const s: string
Pref: Boolean = True): string;
var
i: Integer;
begin
result := '';
if s = '' then
result := '0'
else
for i := 1 to length(s) do
result := result + uppercase(inttohex(byte(s), 2));
if pref then result := '0x'+result;
end;

我常这么用这个函数~~~
adocommand1.commandtext := 'insert into table (textfield) values ('+inttohex(memo1.lines.text)+')';

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #8

to Pearl: 没有问题啊，用我那一句话一样可以算出 'ABC123' -> 11256099
啊！你用计算器核实一遍？：）[]

 

T

tianhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #9

function StrToHexStr(const s: string): string;
var
i: Integer;
begin
result:=''

for i:=1 to length(s) do result:=result+format('%2X',[ord(s)]);
end;

 

V

vc3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #10

大家帮我核实一下以上各位的答案！

 

A

aidren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #11

我试过了，以上的答案好象都可以，只是代码长度不同而已。

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #12

放心吧，我那一行代码绝对是用计算器核实通过的：）

 

H

hfbsn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #13

to beta
楼主要得是 'ABC'->'414243',而不是'ABC'->'2748',这好像用计算器算不出来吧
你算算这个'HIJK'

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #14

啊？有没有搞错，这叫“十六进制字符串”？呵呵[]

那就用他们的方法吧，算我没说。[]
也怪我看题目不仔细啦。

 

V

vc3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #15

多人接受答案了。