错在什么怎么修改啊，？？？ ( 积分: 50 )

L

lxx2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-05

• #1

错在什么怎么修改啊，？？
procedure TForm1.BitBtn4Click(Sender: TObject);
var ss:string;
begin
ss:=edit11.text;
edit13.Text:=chr(ord(copy(ss,1,1));
//编译提示incompatible types错误——————？？？？？？？
end;

 

L

lxx2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-05

• #2

????????????????

 

L

lxx2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-05

• #3

????????????????

 

创

创意人生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-05

• #4

Copy函数返回的是字符串，而Ord要求输入的是单个字符，所以变量匹配错误。你可以这样：
if Length(SS) >= 1 then
Edit13.Text := Chr(Ord(SS[1]));

不过我不明白你这样想玩什么。

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-05

• #5

procedure TForm1.BitBtn4Click(Sender: TObject);
var ss:string;
begin
ss:=edit11.text;
edit13.Text:=chr(ord(SS[1]));
end;