请问什么函数能逐一知道一个字符串每个字符的16进制码？(100分)

Y

yijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-11

• #1

thanks

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-11

• #2

遍历一次不就行了。

 

高

高小五

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-11

• #3

var
s : String ;
i : Integer ;
begin
s := 'fjfjfjfjdfafa' ;
for i := 1 to Length(s)do
begin
ShowMessage(IntToStr(Ord(s)) ;
end ;
end ;

 

Y

yijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-19

• #4

多人接受答案了。