求助DELPHI的一段代码？

as3852711

求助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);   //提示[Error] Unit1.pas(36): Incompatible types；请问高人们这什么意思啊！
  Edit2.Text:=IntToStr(x)
end;
end.

微微虫

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

as3852711

倒！就不能说清楚点吗？

caterpilla

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[i]);   //应该是s[i]
  Edit2.Text:=IntToStr(x)
end;

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