Delphi 编程进阶 - 随笔分类 - 巅枫

【算法】产生多个随机数

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3:... 阅读全文

posted @ 2011-01-11 12:20 巅枫阅读(464) 评论(0) 推荐(0) 编辑

用Memo统计字数

摘要：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 巅枫阅读(569) 评论(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 巅枫阅读(326) 评论(0) 推荐(0) 编辑

Edit 的使用

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

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

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

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

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

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

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

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

TColor 与 RGB 的互转

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

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

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

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

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

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

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

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

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

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

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

控制台下显示简单图形

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

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

关于运算符

摘要：运算符包括：@ not ^ * / div mod and shl shr as + - or xor = > < <> <= >= in is其中 @ not ^ 是一元运算符; + - 有时是一元,有时是二元; 其他都是二元运算符.一元运算符在运算数的前面, ^ 例外,也可以在后面,如: P^; 二元运算符... 阅读全文

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

分割字符串函数-ExtractStrings

摘要：关于TStringList类请参考http://www.cnblogs.com/keycode/archive/2010/10/25/1860436.html 阅读全文

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

语言字符集

摘要：Object Pascal 使用ASCII 字符集，包括A-Z、a-z、0-9、以及其它标准字符，字母是大小写无关.单字符特殊符号：# $ & ' ( ) * + , - . / : ; < = > @ [ ] ^ { }组合字符特殊符号：(* *) (. .) .. // := <= >= <>... 阅读全文

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

返回文件名的完整表示函数-ExpandFileName

摘要：我来编个实例来看看效果我发现，那个路径是由我编出来的这个程序（Project1.exe）决定的，如我将这个应用程序放到F盘根目录下，那么我在edit1输入abc时，将会在edit2显示F:\abc新建=》应用程序阅读全文

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

Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名

摘要：下面就把这些函数作一一介绍：⑴ExpandFileName() 　　原型：extern PACKAGE AnsiString __fastcall ExpandFileName(const AnsiString FileName);　功能：返回文件的全路径(含驱动器、路径) 　　参数：FileName:要处理的文件名　　例：ShowMessage(ExpandFileName(Applicati... 阅读全文

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

查找符合条件的文件函数-FindFirst

摘要：FindFirst函数用来查找文件，成功则返回0，并把文件的相关信息写入TSearchRec结构，否则返回-1那么，我来编个程序来看看，嘿嘿，没有图片就是太单调^_^。。。那么我再稍微改一改，让它判断查找出来的这个文件的大小，修改如下：阅读全文

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

TMainMenu - 隐藏与显示菜单

摘要：新建=》应用程序阅读全文

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

单元文件结构

摘要：本节万老师已经说的很清楚了，我就不多说了^_^ 阅读全文

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

关于注释

摘要：{...}(*...*)//...相同的注释不能嵌套.若 $ 符紧跟在 { 或 (* 之后，则注释是编译器指示字。例如 {$WARNINGS OFF} 就是告诉编译器别产生警告信息阅读全文

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

随笔分类 - Delphi 编程进阶