Roube-CSDN博客

原创 Delphi with尽量多用

当编写的代码很复杂时，with语句会很有用，也可省去一些临时变量。但是这样做也有缺点，因为这样将使代码的可读性变差，特别对有相似或相同属性的对象。更严重的是，使用with语句可能会在代码中融入微妙的逻辑错误，甚至连编译器都难以发现。例如：with Button1 dobegin Width := 200; Caption := 'New Caption'; Color

2012-03-29 22:20:43 1381

原创 Delphi在case 语句中使用字符串

这种方法主要用到 RTTI 的特性。该方法的主要思路是，先把所有的备选项声名为一个枚举类型的值，只要把要找的字符串也转换为枚举型，就可以用 case 语句了。 uses TypInfo; // 引用这个单元 type TMyStrSel = (Beijing, Tianjing, Shanghai, Chongqing); // 注意，上面这个定义不能放在某个函数内部，那样的话，

2012-03-29 22:15:16 2886

原创 Delphi 用来设置控件的Enable的好的方法

在Actionlist中的Onupdate中添加内容，只要在cpu空闲的时候就会运行。

2012-03-28 20:09:47 702

原创 Delphi中如何使右侧的滚动条自动拖到底端以显示 RichEdit 最新添加的文本

加在OnChange事件中：卷屏到光标处 SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0); 向下卷屏一行 SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0) 向下卷屏到底 SendMessage(RichEdit1.Handle, WM_VSCRO

2012-03-23 19:35:59 2216

原创 delphi 出现unknown picture file extension(.jpg)解决办法

最简单有效的办法是先将图片直接手动通过路径加载进来，运行一下，然后删除，再通过代码加载就可以了。但是直接用bmp格式的不用这么麻烦。具体原因是：TImage只能加载bmp格式的，或者说是先将其它的图片格式的照片通过uses jpeg;转化为bmp格式的，但是在安装的时候由于可能在安装delphi的时候在source中没有找到jpeg.pas文件，所以就找不到文件，因而无法转化，就不能正确加载，

2012-03-23 18:19:24 3899

Delphi 2007 记事本源程序

利用Delphi 2007 模仿windows的notepad.exe，但是关于替换、向上查找、转向没有实现。

2012-03-23

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人