网站 › 『 编程之美 』 › 求助DELPHI的一段代码？

as3852711 发表于 2008-8-20 16:35:36

求助DELPHI的一段代码？

求助DELPHI的一段代码？在论坛上看到的一段代码，但在自己的机子上老是编译不能通过求高人指教一下！谢谢关注！
procedure TForm1.Button1Click(Sender: TObject);
var
i,x:Integer;
s:string;
begin
s:=Edit1.Text;
x:=0;
for i:=0 to Length(s) do
x:=x+Ord(s);   //提示 Unit1.pas(36): Incompatible types；请问高人们这什么意思啊！
Edit2.Text:=IntToStr(x)
end;
end.

微微虫 发表于 2008-8-20 18:55:25

提示下：混淆了char和String类型

as3852711 发表于 2008-8-21 15:14:45

倒！就不能说清楚点吗？

caterpilla 发表于 2008-8-21 15:46:23

procedure TForm1.Button3Click(Sender: TObject);
var
i,x:Integer;
s:string;
begin
s:=Edit1.Text;
x:=0;
for i:=1 to Length(s) do//字符数组从1开始
x:=x+Ord(s);   //应该是s
Edit2.Text:=IntToStr(x)
end;

[ 本帖最后由 caterpilla 于 2008-8-21 15:47 编辑 ]

查看完整版本: 求助DELPHI的一段代码？