您所在位置：主题：哪位大侠来看看这断代码干吗了！
XIAOJIAM
[专家分：0] 发布于 2008-08-20 17:14:00
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.
[em18][em18][em18]
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.
[em18][em18][em18]
