Delphi的绘图功能[12] - TPen类（下） : 学习橡皮线

2016年07月27日 45 阅读

Delphi的绘图功能[12] - TPen类（下） : 学习橡皮线2011-12-15 cnblogs 万一//奇妙的异或运算, 就这些简单的代码, 反复点击按钮...procedure TForm1.Button1Click（Sender: TObject）;begin Canvas.Pen.Color := clYellow; {指定笔颜色为黄色} Canvas.Pen.Width := 20; {笔宽 20} Canvas.Pen.Mode ...

Delphi的绘图功能[13] - TBrush类

2016年07月27日 47 阅读

Delphi的绘图功能[13] - TBrush类2011-12-15 cnblogs 万一//画刷类 TBrush 有三个重要属性:Color、Style、Bitmap.{Style: 样式; Delphi 为画刷定义了样式枚举 TBrushStyle, 包含以下样式:}bsSolidbsClearbsHorizontalbsVerticalbsFDiagonalbsBDiagonalbsCrossbsDiagCross//下面小程序展示了上面的其中填充...

Delphi的绘图功能[14] - 图像类

2016年07月27日 45 阅读

Delphi的绘图功能[14] - 图像类2011-12-15 cnblogs 万一Delphi 的 Graphic 单元有五个重要的图像类: TGraphic、TBitmap、TMetafile、TIcon、TPicture.TBitmap 用来操作位图;TMetafile 用来操作图元文件;TIcon 用来操作图标（包括鼠标指针）文件;TBitmap、TMetafile、TIcon 都是 TGraphic 的子类, 由于TCanvas.Draw（X, ...

Delphi的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExt

2016年07月27日 53 阅读

Delphi的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExt2011-12-15 cnblogs 万一procedure TForm1.Button1Click（Sender: TObject）;varstr: string;wh: TSize;w,h: Integer;begin{前面用过 Canvas.TextWidth、Canvas.TextHeight}str := "万";w := Canvas.TextWidth（s...

Delphi 的字符及字符串[1] - string、AnsiString、WideString、String[n]、Sh

2016年07月27日 44 阅读

Delphi 的字符及字符串[1] - string、AnsiString、WideString、String[n]、Sh2011-12-15 cnblogs 万一Delphi 的字符及字符串[1] - string、AnsiString、WideString、String[n]、ShortString//最常用的 stringvarstr: string; {定义}beginstr := "万一"; {赋值}ShowMessage（IntToStr（L...

Delphi的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PW

2016年07月27日 45 阅读

Delphi的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PW2011-12-15 cnblogs 万一Delphi的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar//单字符 Char、AnsiChar （在目前版本（2007）中, 它们是一回事, 只有 1 字节大小）varc: Char; {Char 类型的取值范围是: #...

Delphi的字符及字符串[3] - String中的秘密

2016年07月27日 47 阅读

Delphi的字符及字符串[3] - String中的秘密2011-12-15 cnblogs 万一//String 的指针地址及实际的内存地址varstr: string;pstr: PString;pc: PChar;begin{在没有给 str 赋值以前, 既然声明了, 就有了指针地址 （@str）:}ShowMessage（IntToStr（Integer（@str）））; {1244652; 这是在栈中的 str 的指针地址} {但现在还没有分配...

Delphi的字符及字符串[4] - 字符串、字符指针与字符数组

2016年07月27日 44 阅读

Delphi的字符及字符串[4] - 字符串、字符指针与字符数组2011-12-15 cnblogs 万一//字符串与字符数组vararr: array[0..5] of Char;str: string;begin{可以把字符串常量直接赋给字符数组; 但超界不行}arr := "Delphi";ShowMessage（arr）; {Delphi}{可以把字符数组直接赋给字符串变量}str := arr;ShowMessage（str）; {Delphi}...

Delphi的字符及字符串[5] - 字符串与Windows API

2016年07月27日 50 阅读

Delphi的字符及字符串[5] - 字符串与Windows API2011-12-15 cnblogs 万一Windows API 中的字符串对应这 Delphi 的 PChar（PAnsiChar）; 在 API 中使用 Delphi 的字符串还 是比较灵活的.先说赋值://赋值方法1: 给直接量begin SetWindowText（Handle, "新标题"）;end;//赋值方法2: 定义它要的类型var p: PChar;begin p := ...

Delphi的字符及字符串[6] - Char（AnsiChar）、WideChar与其编码的相互转换

2016年07月27日 48 阅读

Delphi的字符及字符串[6] - Char（AnsiChar）、WideChar与其编码的相互转换2011-12-15 cnblogs 万一Delphi的字符及字符串[6] - Char（AnsiChar）、WideChar与其编码的相互转换//Char 类型与其编码值的转换:var b: Byte; c: Char;begin b := Ord（"A"）; {返回: 65} b := Ord（#65）; {返回: 65} b := Ord（$41...

Delphi中BDE直连方式访问Oracle的问题

2016年07月27日 55 阅读

Delphi中BDE直连方式访问Oracle的问题2011-12-15用Delphi开发基于ORACLE平台的数据库管理信息系统过程中，连接ORACLE后台一般考虑两种方式，一种是用ORACLE公司提供的驱动，用ODBC方式来连接；一种是绕过ODBC，用BDE直连方式。在ORACLE客户端配置连接字符串后，并在BDE中创建一个ORACLE的别名，并把该别名的SERVER_NAME设成ORACLE的连接串，然后就可以通过这个别名来访问ORACLE了）。本文主...

Delphi中ListView列宽改变时的消息响应

2016年07月27日 46 阅读

Delphi中ListView列宽改变时的消息响应2011-12-15 csdn博客 孒淵unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls,CommCtrl; type PHD_NOTIFY=^HD_NOTIFY; TForm1 = c...

Delphi中优秀的字符串分割函数

2016年07月27日 45 阅读

Delphi中优秀的字符串分割函数2011-12-15 csdn博客 mahuziDelphi没有自己的字符串分割函数，所以只能程序员自己写了，网上搜了好多但是真正好用的没有几个。下面这个是我在网上找到修改后了的，个人感觉算法不错，所以就贴了上来。function SplitString（Source, Deli: string ）: TStringList;stdcall;varEndOfCurrentString: byte;StringList:TS...

YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间

2016年07月27日 45 阅读

YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间2012-01-11 博客园 万一DateUtils.YearsBetween（）;DateUtils.MonthsBetween（）;DateUtils.WeeksBetween（）;DateUtils.DaysBetween（）;DateUtils.HoursBetween（）;DateUtils.MinutesBetween（）;Dat...

Yesterday、Today、Tomorrow - 昨天、今天、明天

2016年07月27日 45 阅读

Yesterday、Today、Tomorrow - 昨天、今天、明天2012-01-11 博客园 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class（TForm） procedure FormCreate（Sender: TObject）...

MonthOfTheYear、WeekOfTheYear、WeekOfTheMonth、DayOfTheYear...相对时间

2016年07月27日 43 阅读

MonthOfTheYear、WeekOfTheYear、WeekOfTheMonth、DayOfTheYear...相对时间2012-01-11 博客园 万一SysUtils.DayOfWeek（）;DateUtils.MonthOfTheYear（）;DateUtils.WeekOfTheYear（）;DateUtils.WeekOfTheMonth（）;DateUtils.NthDayOfWeek（）;DateUtils.DayOfTheYear（）...

Now、Date、Time、CurrentYear - 当前日期

2016年07月27日 54 阅读

Now、Date、Time、CurrentYear - 当前日期2012-01-11 博客园 万一SysUtils.Now;SysUtils.Date;SysUtils.Time;SysUtils.CurrentYear;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1...

Math-Function

2016年07月27日 47 阅读

Math-Function2012-01-11 博客园 万一Math.ArcCosMath.ArcCoshMath.ArcCotMath.ArcCotHMath.ArcCscMath.ArcCscHMath.ArcSecMath.ArcSecHMath.ArcSinMath.ArcSinhMath.ArcTan2Math.ArcTanhMath.CeilMath.ClearExceptionsMath.CompareValueMath.CosecantMa...

StrUtils-Function

2016年07月27日 44 阅读

StrUtils-Function2012-01-11 博客园 万一StrUtils.AnsiContainsStrStrUtils.AnsiContainsTextStrUtils.AnsiEndsStrStrUtils.AnsiEndsTextStrUtils.AnsiIndexStrStrUtils.AnsiIndexTextStrUtils.AnsiLeftStrStrUtils.AnsiMatchStrStrUtils.AnsiMatchText...

System-Function

2016年07月27日 46 阅读

System-Function2012-01-11 博客园 万一System.AbsSystem.AcquireExceptionObjectSystem.AddModuleUnloadProcSystem.AddrSystem.AllocMemSystem.AnsiToUtf8System.AppendSystem.ArcTanSystem.AssertSystem.AssignedSystem.AssignFileSystem.AttemptToUse...