Ord函数的使用问题(100分)

C

ChenWC

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-25

• #1

各位：
我想输入一串字符串，用COPY函数依次取得每一个字符，然后用ORD函数获得起ASCII码，可是COPY获得的字符是STRING类型，而ORD需要的是CHAR类型，请问我如何处理？

 

木

木子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-25

• #2

Str = "ABC";
for a := 1 to Length(Str) do
X := Ord(Str[a]);
....
end;

这样就行了

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-25

• #3

用String[0]、String[1]等取出来的都是Char类型。

 

Y

ycxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-25

• #4

String[0]是String长度
不是字符Char

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-25

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
s:=trim(edit1.Text);
listbox1.Items.Clear;
for i:=1 to length(s) do
listbox1.Items.Add(inttostr(ord(s)))
end;

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-25

• #6

同意!

不过,String[0]不能用就是了.
String从1开始.

 

C

ChenWC

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-25

• #7

谢谢！！！