在DEPHI中如何实现ASCII值的求和(200分)

W

wxfbow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #1

S,SS:CHAR
S+SS的ASCII的和如何处理

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
s, ss : char;
begin
s := 'a';
ss := 'b';
caption := s + ss;
end;

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #3

用Ord函数和Chr函数嘛！
Var
s,ss:Char
I:Integer;
begin
s := 'a';
ss := 'b';
i := Ord(s)+Ord(ss);
ShowMessage('字符：'+s+' 和 '+ss+'的和是：'+IntToStr(i));
ShowMessage('字符：'+s+' 和 '+ss+'的和字符是：'+Chr(i));

end;

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
strTemp:string;
iCount,iCur:integer;
begin
strTemp:='I like this game';
iCount:=0;
for iCur:=1 to Length(strTemp) do
begin
iCount:=iCount+byte(strTemp[iCur]);
end;
showmessage('strTemp的AscII值的和是：'+IntToStr(iCount));
end;

 

T

Tense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #5

采用ord和chr函数。

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #6

需要考虑结果大于$FF的情况吗？
通过ord或者byte可以将字符转为对应的数值。

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #7

来自：SuperJS, 时间：2001-12-25 14:03:00, ID：811113
procedure TForm1.Button1Click(Sender: TObject);
var
strTemp:string;
iCount,iCur:integer;
begin
strTemp:='I like this game';
iCount:=0;
for iCur:=1 to Length(strTemp) do
begin
iCount:=iCount+byte(strTemp[iCur]);//byte转换成一个字节
//
iCount:=iCount+ord(strTemp[iCur]);//ord是求在ASCII的序号，就是ASCII的值
end;
showmessage('strTemp的AscII值的和是：'+IntToStr(iCount));
end;

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #8

to ：wxfbow
不知你有什么用处
想要干什么
杜宝的方法就可以