Delphi帮助中的错误例子
来源:互联网 发布:安全知识网络大赛登录 编辑:程序博客网 时间:2024/06/07 20:41
IntToHex
The following example uses an edit control, a button, and a label on a form. When the button is clicked, the hexadecimal value of each character in the edit control is displayed in the label.
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],2) + ' ';
except
Beep;
end;
end;
end;
正确应为:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(StrToInt(Edit1.Text[i]),2) + ' ';
except
Beep;
end;
end;
end;
- Delphi帮助中的错误例子
- Delphi XE8帮助中的REST相关内容。
- delphi一句话帮助
- delphi一句话帮助终
- Delphi一句话帮助
- Borland Delphi一句话帮助
- Borland Delphi一句话帮助
- delphi一句话帮助
- Delphi中启动控制面板中的程序的例子
- delphi 帮助里的 RoundTo 的帮助
- Delphi错误
- delphi错误
- delphi+sql帮助+分组打印
- Delphi调用CHM帮助文档
- trace帮助隐藏错误
- trace帮助制造错误
- 企业邮局返回错误帮助
- 程序错误自检帮助
- 虚函数的作用
- 24点游戏算法及实现(后缀表达式思想)
- MySQL数据中的迁移
- 小技巧:防止返回页首
- WEB Workers 介绍
- Delphi帮助中的错误例子
- 程序性能瓶颈
- dblink 怎么用
- 2009-06-18读书记录:《JAVA编程思想》(第三版)第一章——对象引论
- 转_设计模式
- 杂诗
- CSS网站实用技巧:word-wrap同word-break的区别
- 转_项目经理10大成功态度
- Emacs Configuration