随笔列表第205页 - 万一

2007年12月12日

摘要： //磁盘类型 GetDriveType var Drive: Char; DriveLetter: String[4]; begin for Drive := 'A' to 'Z' do begin DriveLetter := Drive + ':\'; case GetDriveType(PChar(Drive + ':\')) of DRIVE_... 阅读全文

posted @ 2007-12-12 01:06 万一阅读(5389) 评论(9) 推荐(0) 编辑

WinAPI: GetComputerName - 获取计算机名称

摘要： //声明: GetComputerName( lpBuffer: PChar; {缓冲区} var nSize: DWORD {缓冲区大小} ): BOOL; //举例: var arr: array[0..MAX_COMPUTERNAME_LENGTH] of char; d: DWORD; begin d := SizeOf(arr); GetComputerN... 阅读全文

posted @ 2007-12-12 00:09 万一阅读(3993) 评论(2) 推荐(1) 编辑

2007年12月11日

分割字符串 ExtractStrings

摘要： //分割字符串 ExtractStrings var s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#',' '],PChar(s),List)... 阅读全文

posted @ 2007-12-11 23:20 万一阅读(15744) 评论(15) 推荐(2) 编辑

通配符函数 MatchesMask 的使用

摘要： uses Masks; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := 'http://www.132435.com'; MatchesMask(s,'http://*'); //True MatchesMask(s,'HTTP://*.com')... 阅读全文

posted @ 2007-12-11 16:27 万一阅读(6257) 评论(4) 推荐(1) 编辑

文件路径相关的字符串操作

摘要： uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin //先提取一个文件名的字符串 ss := Application.ExeName; ShowMessage(ss); //C:\Documents and Settings\wy\My Do... 阅读全文

posted @ 2007-12-11 14:48 万一阅读(5983) 评论(1) 推荐(0) 编辑

2007年12月10日

TStringList 常用操作

摘要： //TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换}... 阅读全文

posted @ 2007-12-10 23:17 万一阅读(42781) 评论(23) 推荐(4) 编辑

Delphi 的信息框相关函数

摘要： //ShowMessage: begin ShowMessage('提示内容'); {标题默认工程名, 如: Proect1} Application.Title := '警告'; {如果修改工程标题...} ShowMessage('提示内容'); {标题是'警告'} ShowMessage('第一行' + #13#10 + '第二行'); {提示信... 阅读全文

posted @ 2007-12-10 18:26 万一阅读(5388) 评论(12) 推荐(1) 编辑

Delphi 的运算符列表

摘要：分类运算符操作操作数结果类型范例算术运算符 + 加整数，实数整数，实数 X + Y - 减整数，实数整数，实数 Result - 1 * 乘整数，实数整数，实数 P * InterestRate / 实数除整数，实数实数 X / 2 div 整数除整数整数 Total div UnitSize mod 取模整数整数 Y mo... 阅读全文

posted @ 2007-12-10 15:01 万一阅读(34339) 评论(4) 推荐(1) 编辑

类型转换函数

摘要：函数功能 Chr 将一个有序数据转换为一个ANSI字符 Ord 将一个有序类型值转换为它的序号 Round 转换一个实型值为四舍五入后的整型值 Trunc 转换一个实型值为小数截断后的整型值 Int 返回浮点数的整数部分 IntToStr 将数值转换为字符串 IntToHex 将数值转换为十六进制数字符串 StrToInt 将字符串转换为一个整型数，如字符串不... 阅读全文

posted @ 2007-12-10 13:45 万一阅读(5600) 评论(1) 推荐(1) 编辑

变体数组

摘要： var Arr: array[0..3] of Variant; begin Arr[0] := 123; Arr[1] := 'wy'; Arr[2] := True; Arr[3] := VarArrayOf([1,'wanyi',1.5]); //变体数组的元素也可以是变体数组 ShowMessage(Arr[0]); //123, 不需要转换 ShowM... 阅读全文

posted @ 2007-12-10 13:21 万一阅读(4028) 评论(1) 推荐(1) 编辑