WinAPI 字符及字符串函数(6): IsCharAlphaNumeric - 是否是个文字(字母或数字)
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-11-05 14:32
万一
阅读(3272)
推荐(1) 编辑
WinAPI 字符及字符串函数(5): IsCharAlpha - 是否是个字母
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-11-05 14:19
万一
阅读(2301)
推荐(0) 编辑
WinAPI 字符及字符串函数(4): CharUpperBuff - 把缓冲区中指定数目的字符转大写
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-11-05 14:03
万一
阅读(2640)
推荐(0) 编辑
WinAPI 字符及字符串函数(3): CharUpper - 字符或字符串转大写
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-11-05 14:00
万一
阅读(2071)
推荐(0) 编辑
WinAPI 字符及字符串函数(2): CharLowerBuff - 把缓冲区中指定数目的字符转小写
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-11-05 13:10
万一
阅读(2429)
推荐(0) 编辑
WinAPI 字符及字符串函数(1): CharLower - 字符或字符串转小写
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-11-05 11:36
万一
阅读(4287)
推荐(0) 编辑
Delphi 的字符及字符串[6] - Char(AnsiChar)、WideChar 与其编码的相互转换
摘要：//Char 类型与其编码值的转换: var b: Byte; c: Char; begin b := Ord('A'); {返回: 65} b := Ord(#65); {返回: 65} b := Ord($41); {返回: 65} b := Ord(#$41); {返回: 65} b := Byte('A'); {返回: 65} b := ...
阅读全文
posted @
2008-03-04 11:47
万一
阅读(9917)
推荐(0) 编辑
Delphi 的字符及字符串[5] - 字符串与 Windows API
摘要：Windows API 中的字符串对应这 Delphi 的 PChar(PAnsiChar); 在 API 中使用 Delphi 的字符串还是比较灵活的. 先说赋值: //赋值方法1: 给直接量 begin SetWindowText(Handle, '新标题'); end; //赋值方法2: 定义它要的类型 var p: PChar; begin p := '新标题'; ...
阅读全文
posted @
2008-03-04 00:28
万一
阅读(8338)
推荐(0) 编辑
Delphi 的字符及字符串[4] - 字符串、字符指针与字符数组
摘要：//字符串 字符数组 var arr: array[0..5] of Char; str: string; begin {可以把字符串常量直接赋给字符数组; 但超界不行} arr := 'Delphi'; ShowMessage(arr); {Delphi} {可以把字符数组直接赋给字符串变量} str := arr; ShowMessage(str); {...
阅读全文
posted @
2008-03-03 22:30
万一
阅读(15912)
推荐(0) 编辑
Delphi 的字符及字符串[3] - String 中的秘密
摘要：//String 的指针地址及实际的内存地址 var str: string; pstr: PString; pc: PChar; begin {在没有给 str 赋值以前, 既然声明了, 就有了指针地址(@str):} ShowMessage(IntToStr(Integer(@str))); {1244652; 这是在栈中的 str 的指针地址} {但现在还没有分配...
阅读全文
posted @
2008-03-03 16:43
万一
阅读(12863)
推荐(0) 编辑
Delphi 的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar
摘要：//单字符 Char、AnsiChar (在目前版本(2007)中, 它们是一回事, 只有 1 字节大小) var c: Char; {Char 类型的取值范围是: #0..#255, 用十六进制表示是: #$0..#$FF} begin {用十进制方式赋值:} c := #65; ShowMessage(c); {A} {用十六进制方式赋值:} c := #$41; ...
阅读全文
posted @
2008-03-03 16:25
万一
阅读(34481)
推荐(1) 编辑
Delphi 的字符及字符串[1] - string、AnsiString、WideString、String[n]、ShortString
摘要：//最常用的 string var str: string; {定义} begin str := '万一'; {赋值} ShowMessage(IntToStr(Length(str))); {长度是: 4} end; //长字符串 AnsiString; 在当前版本(2007)中的默认状态下, String 就是 AnsiString var str: AnsiStri...
阅读全文
posted @
2008-03-03 16:22
万一
阅读(26894)
推荐(0) 编辑
StrCopy、StrCat、StrPas
摘要：const P1: PChar = 'CodeGear'; P2: PChar = 'Delphi'; var S: array[0..15] of Char; begin StrCopy(S, P1); StrCat(S, ' '); StrCat(S, P2); ShowMessage(StrPas(S)); {CodeGear Delphi} ShowMes...
阅读全文
posted @
2008-02-11 19:39
万一
阅读(8555)
推荐(1) 编辑
判断两个字符串是否相似的函数 AnsiResemblesText 专题研究
摘要：//先糊涂一下 var b: Boolean; begin b := AnsiResemblesText('abc','apc'); ShowMessage(BoolToStr(b)); {True} b := AnsiResemblesText('abc','agc'); ShowMessage(BoolToStr(b)); {False} b := AnsiRes...
阅读全文
posted @
2007-12-28 22:12
万一
阅读(5031)
推荐(0) 编辑
Delphi 中的字符串函数(6) - StrUtils 中的 Ansi 字符串函数
摘要：//从左右两端提取指定数目的字符串: AnsiLeftStr、AnsiRightStr var ss,s: AnsiString; begin ss := 'abcdefg'; s := AnsiLeftStr(ss, 2); ShowMessage(s); {ab} s := AnsiRightStr(ss, 2); ShowMessage(s); {fg} end...
阅读全文
posted @
2007-12-28 17:02
万一
阅读(7952)
推荐(0) 编辑
Delphi 中的字符串函数(5) - SysUtils 中的 Ansi 字符串函数
摘要：//对比字符串是不是一样: AnsiSameStr、AnsiSameText var ss,s: AnsiString; b: Boolean; begin ss := 'abc'; s := 'ABC'; b := AnsiSameStr(ss,s); {区分大小写} ShowMessage(BoolToStr(b)); {False} b := Ansi...
阅读全文
posted @
2007-12-28 16:13
万一
阅读(4241)
推荐(1) 编辑
格式化输出函数(3): FormatFloat
摘要：var s: string; begin //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended s := FormatFloat('###.###',12.3456); //返回: 12.346 s := FormatFloat('000.000',12.3456); //返回: 012.346 s := Forma...
阅读全文
posted @
2007-12-19 01:11
万一
阅读(16759)
推荐(1) 编辑
格式化输出函数(2): FormatDateTime
摘要：var s: string; begin //FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间 s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56:05} {指令 c 表示用短格式显示日期与时间} s := FormatDateTime('d', Now); ...
阅读全文
posted @
2007-12-19 00:50
万一
阅读(18831)
推荐(0) 编辑
格式化输出函数(1): Format
摘要：var s: string; begin //指令类型 type s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]); //返回: 最大整数是: 2147483647; 最小整数是: -2147483648 { 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 ...
阅读全文
posted @
2007-12-18 23:15
万一
阅读(16034)
推荐(0) 编辑
获取所有汉字与 Unicode 的对照表
摘要：var w: WideString; i: Integer; s: string; List: TStringList; begin List := TStringList.Create; for i := $4e00 to $9fa5 do begin s := #36 + IntToHex(i,4); {#36 是 $ 字符} w := Wide...
阅读全文
posted @
2007-12-15 22:09
万一
阅读(7832)
推荐(0) 编辑
管理
