自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

转载 Unicode 字符

unit unUnicodeMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ImgL...

2013-11-30 21:27:26

阅读数 664

评论数 0

原创 分离包含空格字符串[xe & D7]

xe var s: string; sList: TStringList; begin s := 'aaa,bbb,cc c,dd dd,eee'; sList := TStringList.Create; sList.StrictDelimiter := True; //D...

2013-11-20 01:03:38

阅读数 1372

评论数 0

原创 泛型1例

Tm = record h, w: Integer; end; uses Generics.Collections; var m1, m2: TList; mr: Tm; i: Integer; begin m1 := TList.Create; for i...

2013-11-19 00:06:59

阅读数 756

评论数 0

转载 OS CodePage_ID

[code=delphi] 函数:GetOEMCP:Cardinal; 返回值OEM的code-page的ID。 返回值代码 037 IBM EBCDIC - U.S./Canada 437 OEM - United States 500 IBM EBCDIC - International ...

2013-11-10 15:13:16

阅读数 896

评论数 0

转载 OS LanguageID

LANGID GetSystemDefaultLangID(void); LANGID GetUserDefaultLangID(void); 他们的返回值是语言的ID: 0x0000 Language Neutral 0x007f The language for the invariant...

2013-11-10 15:05:10

阅读数 1386

评论数 0

原创 匿名方法[2]

Tfun = REFERENCE to function(c, y: integer): integer; function Ta(x, y: integer; Tb: Tfun): integer; begin result := Tb(x, y); end; procedure TFo...

2013-11-09 14:30:01

阅读数 540

评论数 0

原创 匿名方法[1]

Tfun = REFERENCE to function(c, y: integer): integer; function Ta(x, y: integer; Tb: Tfun): integer; begin result := Tb(x, y); end; procedure TFo...

2013-11-09 13:51:48

阅读数 463

评论数 0

转载 中文标点的Unicode编码

0b7 · 183 00d7 × 215 2014 — 8212 2018 ‘ 8216 2019 ’ 8217 201c “ 8220 201d ” 8221 2...

2013-11-08 01:24:20

阅读数 1169

评论数 0

转载 什么时候使用接口什么时候使用抽象类[转载]

什么时候使用接口什么时候使用抽象 在一个面向对象的系统中,系统的各种功能是由许许多多的不同对象协作完成的。在这种情况下,各个对象内部是如何实现自己的对系统设计人员来讲就不那么重要了;而各个对象之间的协作关系则成为系统设计的关键。小到不同类之间的通信,大到各模块之间的交互,在系统设计之初都是要...

2013-11-07 01:14:13

阅读数 1243

评论数 0

原创 多级接口实现方法

{多级接口实现方法 } {DateTime:2013.11.7} iFace = interface ['{68252415-0850-4B0D-89B5-C7F41C1E13F1}'] function getFuc: string; procedure Msg...

2013-11-07 01:02:58

阅读数 567

评论数 0

原创 运算函数

InterLockedDecrement(); InterlockedIncrement(); InterlockedExchange();

2013-11-05 22:45:37

阅读数 426

评论数 0

提示
确定要删除当前文章?
取消 删除