2008 年 7月 8 日随笔档案 - 万一

2008年7月8日

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas; type TForm1 = class(TForm) ButtonColor1:... 阅读全文

posted @ 2008-07-08 15:40 万一阅读(4048) 评论(8) 推荐(0)

在 case 语句中使用字符串

摘要：非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量; 如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls... 阅读全文

posted @ 2008-07-08 03:46 万一阅读(14744) 评论(9) 推荐(0)