巅枫 - 博客园

2010年10月29日

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; MainMenu1: TMainMenu; N1: TMenu... 阅读全文

posted @ 2010-10-29 21:21 巅枫阅读(576) 评论(0) 推荐(0) 编辑

Memo 的当前行、当前列与当前字符

摘要： procedure TForm1.Memo1Click(Sender: TObject);begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);end;//用 API 实现procedure TForm1.Memo1Click(Sender: TObject);var LineY,LineX: ... 阅读全文

posted @ 2010-10-29 20:51 巅枫阅读(330) 评论(0) 推荐(0) 编辑

Edit 的使用

摘要： //让 Edit 只接受数字,通过编辑Edit控件的onKeyPress事件实现//方法1：阅读全文

posted @ 2010-10-29 20:05 巅枫阅读(637) 评论(0) 推荐(0) 编辑

窗体相关操作-显示窗口上组件个数

摘要： //包含控件数://遍历窗体上的控件: 阅读全文

posted @ 2010-10-29 18:56 巅枫阅读(324) 评论(0) 推荐(0) 编辑

2010年10月26日

Pascal 语言中的关键字及保留字

摘要： absolute //指令(变量)abstract //指令(方法)and //运算符(布尔)array //类型as //运算符(RTTI)asm //语句assembler //向后兼容(汇编)at //语句(异常处理)automated //访问类别符(类)begin //块标记case //语句cdecl //函数调用协定class //类型const //声明或指令(... 阅读全文

posted @ 2010-10-26 17:19 巅枫阅读(377) 评论(0) 推荐(0) 编辑

TColor 与 RGB 的互转

摘要：先晒个图^_^ 阅读全文

posted @ 2010-10-26 17:18 巅枫阅读(2844) 评论(0) 推荐(0) 编辑

2进制与10进制间的数值互转

摘要：可能有人对COPY函数不太了解，下面给出原型以供参考：可能有人对进制间转换的原理不太明白，或许这个对你有帮助：http://www.cnblogs.com/keycode/archive/2010/10/26/1861265.html 阅读全文

posted @ 2010-10-26 17:18 巅枫阅读(1294) 评论(1) 推荐(0) 编辑

2进制与16进制间的数值互转

摘要：先晒个图吧。。下面是程序代码：阅读全文

posted @ 2010-10-26 17:18 巅枫阅读(359) 评论(0) 推荐(0) 编辑

10进制与16进制间的数值互转

摘要：其实，以上程序还有一个问题没有解决，就是当你输入大于32位的数值时程序将会出错，这个问题留待以后基础打牢点再解决了，呵呵。。阅读全文

posted @ 2010-10-26 17:18 巅枫阅读(671) 评论(0) 推荐(0) 编辑

控制台下显示简单图形

摘要：新建=》其它=》控制台程序这个完全是画上去的，并没有用到任何算法，记得我以前学汇编时也做过相关的，不过那代码比这个长了不只几倍，是在控制台窗口显示我的网名（当时网名叫‘浪移风’），呵呵阅读全文

posted @ 2010-10-26 17:18 巅枫阅读(360) 评论(0) 推荐(0) 编辑