Question

Delphi中如何把edit1中的字符转换为ascll码显示在edit2中

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ch:char;
  s:string;
begin
       s:=edit1.text;
       ch:=s[1];
       edit2.Text:=inttostr(ord(ch));
end;

end.