2008 年 3月 29 日随笔档案 - 万一

2008年3月29日

摘要：举例: var ss,s: string; begin ss := 'CodeGear Delphi 2007'; SetString(s,PChar(ss),4); ShowMessage(s); {Code} end; var s: string; arr: array[0..6] of Char; i: Integer; begin for i := 0... 阅读全文

posted @ 2008-03-29 22:58 万一阅读(7152) 评论(3) 推荐(0)

System.Val - 将字符串转换为数字

摘要：举例: var s: string; i: Real; j: Integer; begin s := '13.2435'; Val(s,i,j); ShowMessage(FloatToStr(i)); {13.2435} ShowMessage(IntToStr(j)); {返回 0 表示转换成功} s := '13_2435'; Val(s,i,... 阅读全文

posted @ 2008-03-29 22:50 万一阅读(5309) 评论(0) 推荐(0)

System.Str - 将数字格式化为字符串

摘要：举例: var s: string; begin Str(123, s); ShowMessage(s); {123} Str(PI, s); ShowMessage(s); {3.14159265358979E+0000} Str(PI:0:2, s); ShowMessage(s); {3.14} Str(9.1:1:3, s); ShowMe... 阅读全文

posted @ 2008-03-29 22:43 万一阅读(2969) 评论(0) 推荐(1)

System.FillChar - 填充字节

摘要：举例: var s: array[0..9] of Char; begin FillChar(s,SizeOf(s),'a'); ShowMessage(s); {aaaaaaaaaa} end; var arr: array[0..3] of Word; i: Integer; begin FillChar(arr, Length(arr) * SizeOf(Wor... 阅读全文

posted @ 2008-03-29 22:36 万一阅读(5446) 评论(2) 推荐(1)

System.StringOfChar - 反复字符

摘要：举例: var s: string; begin s := StringOfChar('G', 5); ShowMessage(s); {GGGGG} end; var s: string; begin s := StringOfChar(#65, 5); ShowMessage(s); {AAAAA} end; var s: string; begin ... 阅读全文

posted @ 2008-03-29 22:23 万一阅读(4299) 评论(3) 推荐(0)

System.Pos - 搜索子串的位置

摘要：举例: var ss,s: string; i: Integer; begin ss := 'CodeGear Delphi 2007'; s := 'Gear'; i := Pos(s,ss); ShowMessage(IntToStr(i)); {5} s := '2008'; i := Pos(s,ss); ShowMessage(IntToStr(... 阅读全文

posted @ 2008-03-29 22:21 万一阅读(3842) 评论(0) 推荐(0)

System.Concat - 连接字符串

摘要：举例: var s: string; begin s := Concat('CodeGear', #32 ,'Delphi', #32 ,'2007'); ShowMessage(s); {CodeGear Delphi 2007} end; System 单元下的公用函数目录阅读全文

posted @ 2008-03-29 22:17 万一阅读(3141) 评论(13) 推荐(1)