Delphi语言学习1-Program和Unit

2016年07月27日 52 阅读

Delphi语言学习1-Program和Unit2011-12-12 博客园 铁掌水上飘1.单元和程序（Units和Programs）1）Programsprogram Editor;uses Forms, REAbout, // An "About" box REMain; // Main form{$R *.res}begin Application.Title := "Text Editor"; Application.Creat...

Delphi语言学习2-基本语法

2016年07月27日 51 阅读

Delphi语言学习2-基本语法2011-12-12 博客园 铁掌水上飘1.基本赋值语句Size :=20;Price :=10;2.特殊符号1）单个特殊符号# $ & " （ ） * + , - . / : ; < = > @ [ ] ^ { }2）成对的特殊符号（* （. *） .） .. // := <= >= <>3）.等价的特殊符号特殊符号等价的特殊符号[（.].）{（*}*）3.注释和编译器指令1）注...

Delphi语言学习3-数据类型概述

2016年07月27日 54 阅读

Delphi语言学习3-数据类型概述2011-12-12 博客园 铁掌水上飘Delphi有如下数据类型：1.简单数据类型：ordinalintegercharacterBooleanenumeratedsubrangereal2.字符串类型string3.集合类型setarrayrecordfileclassclass referenceinterface4.指针类型pointer5.函数类型procedural6.变量类型Variant7.类型声明typ...

Delphi语言学习4—数据类型的基本使用

2016年07月27日 55 阅读

Delphi语言学习4—数据类型的基本使用2011-12-121.基本数据类型1）Delphi自带了一些对基本类型的操作函数，如Ord ，Pred,Succ ,High,Low2）枚举类型声明 type Suit = （Club, Diamond, Heart, Spade）;//where Ord（Club） returns 0, Ord（Diamond） returns 1...如果枚举类型的名称和类型名重复的使用方法：type TSound = （C...

Delphi语言学习5-函数和方法

2016年07月27日 51 阅读

Delphi语言学习5-函数和方法2011-12-121.函数的定义//格式function functionName（parameterList）: returnType; directives;localDeclarations;beginstatementsend;//例1function WF: Integer;beginWF := 17;end;//例2function WF: Integer;beginResult := 17;end;//例3...

Delphi语言学习6-函数参数

2016年07月27日 50 阅读

Delphi语言学习6-函数参数2011-12-121.参数定义方式function Power（X: Real; Y: Integer）: Real;//（X, Y: Real）//（var S: string; X: Integer）//（HWnd: Integer; Text, Caption: PChar; Flags: Integer）//（const P; I: Integer）2.引用类型和值类型//DoubleByRef 的参数值会改变fu...

Delphi语言学习7-类和对象

2016年07月27日 51 阅读

Delphi语言学习7-类和对象2011-12-121.类的声明格式type className = class [abstract | sealed] （ancestorClass）memberList end;2.类的声明和使用//定义 type TMemoryStream = class（TCustomMemoryStream）privateFCapacity: Longint;procedure SetCapacity（NewCapacity: L...

Delphi语言学习8-类成员（字段和方法）

2016年07月27日 51 阅读

Delphi语言学习8-类成员（字段和方法）2011-12-121.Class Fields//例1 成员变量type TAncestor = classValue: Integer; end; TDescendant = class（TAncestor）Value: string;// hides the inherited Value field end;var MyObject: TAncestor;begin MyObject := TDescen...

Delphi语言学习9-函数的静态和动态加载

2016年07月27日 51 阅读

Delphi语言学习9-函数的静态和动态加载2011-12-121.静态加载procedure DoSomething; external "MYLIB.DLL";2.动态加载uses Windows, ;typeTTimeRec = recordSecond: Integer;Minute: Integer;Hour: Integer;end;TGetTime = procedure（var Time: TTimeRec）;THandle = Integ...

Delphi的绘图功能[1] - TCanvas的类成员

2016年07月27日 52 阅读

Delphi的绘图功能[1] - TCanvas的类成员2011-12-15 cnblogs 万一 //过程:ArcBrushCopyChordCopyRectDrawDrawFocusRectEllipseEllipseFillRectFloodFillFrameRectLineToLockMoveToPiePolygonPolylinePolyBezierPolyBezierToRectangleRectangleRefreshRoundRectStr...

Delphi的绘图功能[2] - 入门

2016年07月27日 47 阅读

Delphi的绘图功能[2] - 入门2011-12-15 cnblogs 万一绘图需要有纸、画笔、画刷; Delphi 有 Canvas、Pen、Brush.Canvas 就是画布, 譬如窗体的 Canvas 属性, 就是窗体的画布;Pen 是画笔, 可以设置笔色、笔宽等等;Brush 是画刷, 可以设置颜色等等.//举例:{绘制直线}procedure TForm1.Button1Click（Sender: TObject）;begin Canvas....

Delphi的绘图功能[3] - 矩形类图形

2016年07月27日 55 阅读

Delphi的绘图功能[3] - 矩形类图形2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; But...

Delphi的绘图功能[4] - 圆弧类图形

2016年07月27日 49 阅读

Delphi的绘图功能[4] - 圆弧类图形2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; But...

Delphi的绘图功能[5] - 获取Canvas对象

2016年07月27日 53 阅读

Delphi的绘图功能[5] - 获取Canvas对象2011-12-15 cnblogs 万一在窗体上添加 Panel1、PaintBox1 和 Button1, 代码如下:procedure TForm1.Button1Click（Sender: TObject）;var cvs: TCanvas;begin {PaintBox1 就像窗体一样, 也有 Canvas 属性} PaintBox1.Canvas.Brush.Color := clRed; ...

Delphi的绘图功能[6] - Polygon、Polyline

2016年07月27日 58 阅读

Delphi的绘图功能[6] - Polygon、Polyline2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TB...

Delphi的绘图功能[7] - PolyBezier、PolyBezierTo

2016年07月27日 52 阅读

Delphi的绘图功能[7] - PolyBezier、PolyBezierTo2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Butt...

Delphi的绘图功能[8] - TextOut、TextWidth、TextHeight

2016年07月27日 54 阅读

Delphi的绘图功能[8] - TextOut、TextWidth、TextHeight2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; ...

Delphi的绘图功能[9] - TextRect

2016年07月27日 51 阅读

Delphi的绘图功能[9] - TextRect2011-12-15 cnblogs 万一//第一种重载的声明:TextRect（Rect: TRect; {矩形}X, Y: Integer; {相对于窗体的位置}const Text: string {文本}）;{如果要输出的文本超出指定的矩形将不被显示}---------------------------------------------------------------------------...

Delphi的绘图功能[10] - TFONT类

2016年07月27日 53 阅读

Delphi的绘图功能[10] - TFONT类2011-12-15 cnblogs 万一//先来个例子:procedure TForm1.FormPaint（Sender: TObject）;const S = "万一的 Delphi 博客";var font: TFont;begin font := TFont.Create; font.Name := "微软雅黑"; font.Style := [fsBold, fsItalic]; font.Col...

Delphi的绘图功能[11] - TPen类（上）

2016年07月27日 57 阅读

Delphi的绘图功能[11] - TPen类（上）2011-12-15 cnblogs 万一//TPen 的主要属性有四:Color、Width、Style、Mode{Color: 颜色}{Width: 宽度; 默认是 1; 如果 赋予 <= 0 的值, 会使用默认值}{Style: 样式; Delphi 定义了笔样式枚举 TPenStyle, 包含以下样式:}psSolid = 0; {实线}psDash = 1; {段线; 要求笔宽...