随笔档案「2010年10月」 - 巅枫

用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 巅枫阅读(586) 评论(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 巅枫阅读(337) 评论(0) 推荐(0)

Edit 的使用

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

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

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

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

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

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

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

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

TColor 与 RGB 的互转

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

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

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

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

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

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

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

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

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

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

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

控制台下显示简单图形

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

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

分割字符串函数-ExtractStrings

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

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

语言字符集

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

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

关于运算符

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

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

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

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

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

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

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

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

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

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

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

TMainMenu - 隐藏与显示菜单

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

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

单元文件结构

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

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

关于注释

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

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

最简单的Delphi程序(控制台)

摘要：新建=》其它=》控制台程序看着万一老师的博客，我欣喜的同是又有点郁闷。。1950篇文章！！我该从哪学起啊？现在我就踏着万老师的足迹回到2007年11月21日那一天，重生一次吧。。嘿嘿。。。阅读全文

posted @ 2010-10-26 17:14 巅枫阅读(3650) 评论(0) 推荐(0)

最简单的Delphi程序(Windows)

摘要：新建=》其它=》控制台程序阅读全文

posted @ 2010-10-26 17:14 巅枫阅读(215) 评论(0) 推荐(0)

控制台读写

摘要：新建=》其它=》控制台程序阅读全文

posted @ 2010-10-26 17:14 巅枫阅读(285) 评论(0) 推荐(0)

无标题栏窗口移动

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

posted @ 2010-10-21 22:07 巅枫阅读(423) 评论(0) 推荐(0)

不规则窗口设计

摘要：本例效果图：新建应用，添加一个PopupMenu和一个Image，代码如下：在编写这个例程（例子程序）的过程中，我明白了不少东西，首先要说的就是几个创建区域的函数，如CreateEllipticRgn，CreateRectRgn..等等这些函数，这些创建区域函数其实还有不少，在这我就不一一列举了，还有不规则窗口设计的原理（通过定制区域函数定制出一个区域，然后用SetWindowRgn(设置窗口区域... 阅读全文

posted @ 2010-10-17 18:11 巅枫阅读(1780) 评论(0) 推荐(0)

Delphi下的GDI+编程[10] 绘制饼形-DrawPie

摘要：本例效果图：DrawPie：绘制一个扇形，该形状由一个坐标对、宽度、高度以及从起始角度到旋转角度的两条射线所连接的椭圆定义。怎么样？是不是觉得与画弧形很像？其实不是同一个东西哦。。。好吧，为了让大家理解‘起始角度’和‘旋转角度’这两个东东，我把程度再改一改，看下图与代码阅读全文

posted @ 2010-10-15 13:33 巅枫阅读(1942) 评论(2) 推荐(0)

Delphi单元文件基本结构

摘要：unit Unit1; //单元文件名interface //这是接口关键字，用它来标识文件所调用的单元文件uses //程序用到的公共单元Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;type //这里定义了程序所用的组件，一些类，以及组件所对应的过程、事件TForm1 = cl... 阅读全文

posted @ 2010-10-15 12:59 巅枫阅读(869) 评论(0) 推荐(0)

Delphi-多线程编程[1] 认识多线程

摘要：本例效果图：新建应用程序(先来个单线程)，添加一个Button按钮，编辑代码如下：OK,运行看看，程序怎么好像是'死'的？点击按钮“开始”后，程序在绘图表面坐标（60，45）处开始显示数字，但我移动窗口却根本没有反映，一直到for语句结束才处理窗口移动的操作。这样不行，一个应用程序怎能如此“死板”呢，这种情况下，Delphi 为我们提供了一个简单的解... 阅读全文

posted @ 2010-10-12 18:54 巅枫阅读(1595) 评论(2) 推荐(0)

Delphi下的GDI+编程[9] 绘制椭圆-DrawEllipse

摘要：本例效果图：DrawEllipse：绘制一个由边框（该边框由一对坐标、高度和宽度指定）定义的椭圆。阅读全文

posted @ 2010-10-12 05:58 巅枫阅读(2059) 评论(2) 推荐(0)

Delphi下的GDI+编程[8] 绘制弧形-DrawArc

摘要：本例效果图：DrawArc：绘制一段弧线，它表示由一对坐标、宽度和高度指定的‘椭圆’的一部分。2010.12.3 我再重新学习了这个，可能格的太长时间没练习了，结果因为在旋转角度那块理解错误，致使外圆的线画出来只有一种颜色，搞的我还以为是D2010的BUG呢，呵呵阅读全文

posted @ 2010-10-12 04:30 巅枫阅读(1745) 评论(0) 推荐(1)

Delphi下的GDI+编程[7] 单色画刷-SolidBrush & 填充矩形-FillRectangle

摘要：本例效果图：SolidBrush：定义单色画笔。画笔用于填充图形形状，如矩形、椭圆、扇形、多边形和封闭路径。FillRectangle：填充由一对坐标、一个宽度和一个高度指定的矩形的内部阅读全文

posted @ 2010-10-12 03:33 巅枫阅读(2580) 评论(0) 推荐(0)

Delphi下的GDI+编程[6] 绘制矩形-DrawRectangle

摘要：本例效果图：阅读全文

posted @ 2010-10-11 23:11 巅枫阅读(2443) 评论(0) 推荐(0)

Delphi下的GDI+编程[5] 绘制直线-自定义虚线

摘要：本例效果图：阅读全文

posted @ 2010-10-11 23:06 巅枫阅读(902) 评论(0) 推荐(0)

Delphi下的GDI+编程[4] 绘制直线-虚线样式

摘要：本例效果图：阅读全文

posted @ 2010-10-11 22:56 巅枫阅读(1771) 评论(0) 推荐(0)

Delphi下的GDI+编程[3] 绘制直线-线帽

摘要：本例效果图：阅读全文

posted @ 2010-10-10 17:35 巅枫阅读(1629) 评论(0) 推荐(0)

Delphi下的GDI+编程[2] DrawLine - 绘制直线

摘要：例一效果图：在GDI+中，绘制直线是通过TGPGraphics类的DrawLine方法实现的，此类的一些方法如下：DrawLine(线条)DrawRectangle(矩形)DrawEllipse(椭圆)DrawPolygon(多边形)DrawArc(弧形)DrawCurve(基数样条)DrawBezier(贝塞尔样条)当然，要想在程序上画出来我们还需要一个TGPPen类，此类也有一些方法，如下：SetStartCap(设置起始笔帽)SetEndCap(设置末端笔帽)SetDashStyle(设置画笔类型)SetColor(设置画笔颜色)SetWidth(设置画笔宽)步骤：新建工程,窗口宽和高都阅读全文

posted @ 2010-10-10 15:05 巅枫阅读(3312) 评论(7) 推荐(1)

Delphi下的GDI+编程[1] 准备工作

摘要：GDI+（GraphicsDeviceInterfacePlus图形设备接口加）是WindowsXP和WindowsServer2003操作系统的子系统，也是.NET框架的重要组成部分，负责在屏幕和打印机上绘制图形图像和显示信息。顾名思义，GDI+是Windows早期版本所提供的图形设备接口GDI的后续版本。GDI+是一种应用程序编程接口(API)，通过一套部署为托管代码的类来展现。这套类被称为GDI+的“托管类接口”。GDI+最早是于2001年随WindowsXP一起推出的一种API，后来又被包装进.NET框架的托管类库之中，成为.NET中窗体绘图的主要工具。GDI+不但在功能上比GDI要强阅读全文

posted @ 2010-10-10 14:35 巅枫阅读(2636) 评论(1) 推荐(1)