更多相关内容...>>Delphi字符串函数大全

Delphi字符串函数大全 【字符串函数大全】 noZNIT http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; XvMz3G http://blog.numino.net/ $[StrUtils.pas F86HyG http://blog.numino.net/ 功能 返回两个字符串是否相似 ZKkgkB http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 DYDK0B http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 3Udf34 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); CyOyq0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ne7RV9 http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; B0hRIw http://blog.numino.net/ $[StrUtils.pas q7S4Sa http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText LQG0qL http://blog.numino.net/ 说明 不区分大小写 TUD7r1 http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos RqGNT4 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); M3UBFC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dm9gR2 http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; VNFy9G http://blog.numino.net/ $[StrUtils.pas n1L5Nw http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 e8ZRQQ http://blog.numino.net/ 说明 不区分大小写 wsjbP0 http://blog.numino.net/ 参考 function Windows.CompareString 7BhNSm http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ImuM16 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q1bhq0 http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; KotWK2 http://blog.numino.net/ $[StrUtils.pas mHtI2r http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 DE4i48 http://blog.numino.net/ 说明 不区分大小写 wln4G6 http://blog.numino.net/ 参考 function Windows.CompareString iP6M7y http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); a7Xf0Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6YfNEy http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): VN363g http://blog.numino.net/ string; $[StrUtils.pas Ce1252 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 Nb6L3X http://blog.numino.net/ 说明 不区分大小写 3U7eCt http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags vozc6L http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); Br8CEw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Yspsu5 http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of aUjVIo http://blog.numino.net/ string): Boolean; $[StrUtils.pas sm7fPY http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText zq2r4Q http://blog.numino.net/ 说明 不区分大小写 Z9BDuN http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText emsD58 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', Bfn8S0 http://blog.numino.net/ 'a4']); Od4dNG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ czqgEp http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of W4Haxi http://blog.numino.net/ string): Integer; $[StrUtils.pas oHaeRU http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 S27gHc http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 OmM3k4 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText SWvG53 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); Zc3ERO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q1wl2o http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 2AHFMo http://blog.numino.net/ $[StrUtils.pas pjRy96 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText g0veTU http://blog.numino.net/ 说明 区分大小写 ud9HlN http://blog.numino.net/ 参考 function StrUtils.AnsiPos WBQbCi http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); XOpiKr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6iCw63 http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; g6ZB9E http://blog.numino.net/ $[StrUtils.pas Jgp3wo http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 Jw9I09 http://blog.numino.net/ 说明 区分大小写 yk7Qm8 http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr yhqZW3 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); evM5N2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l2bAdT http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; ynUo62 http://blog.numino.net/ $[StrUtils.pas jLdl9j http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 p7DY52 http://blog.numino.net/ 说明 区分大小写 XDxM3W http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr g5IS8c http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 1bwy8C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o4Aznn http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): nh1i15 http://blog.numino.net/ string; $[StrUtils.pas 2jeTPM http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 2b86sU http://blog.numino.net/ 说明 区分大小写 c26q0i http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 4z4BJO http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); WEuQ0U http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uCm5VQ http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of PPlyQC http://blog.numino.net/ string): Boolean; $[StrUtils.pas 3q49Yp http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText dgM8f3 http://blog.numino.net/ 说明 区分大小写 iJyHR0 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr Gzixhf http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 4KhVeU http://blog.numino.net/ 'a4']); iji8O8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Z3a8LR http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of A1AiMP http://blog.numino.net/ string): Integer; $[StrUtils.pas 3T1GhO http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 A31WX0 http://blog.numino.net/ 说明 区分大小写 wCUKlQ http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr FT7CXe http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); JIrmRU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mP4e5Y http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; zh39DZ http://blog.numino.net/ $[StrUtils.pas 3ErPOQ http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 5CW1Ol http://blog.numino.net/ 说明 当ACount为0时返回'' P53h9W http://blog.numino.net/ 参考 function System.SetLength kQ04E9 http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); tV3w8p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 32YBMs http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas 9by4AQ http://blog.numino.net/ 功能 返回字符串AText的反序 DZYG74 http://blog.numino.net/ 说明 ReverseString('1234') = '4321' zv1a38 http://blog.numino.net/ 参考 function System.SetLength 43q5GI http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); bAXgqF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pC3ljb http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; 7IAic2 http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas ORI5Fv http://blog.numino.net/ 功能 返回嵌套字符串 nZM6JU http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' UShuND http://blog.numino.net/ 参考 function System.Copy 3uTQ3k http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, 0f1m8Q http://blog.numino.net/ Edit2.Text); O3k0Bv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0x5ssQ http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; 02lL38 http://blog.numino.net/ $[StrUtils.pas NRlrwb http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 xMl879 http://blog.numino.net/ 说明 之前建议执行Randomize UfEB8Q http://blog.numino.net/ 参考 function System.Random UMM0S8 http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); enQiP7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NQ9o1W http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = WzbIxp http://blog.numino.net/ ''): string; overload; $[StrUtils.pas ekBo3e http://blog.numino.net/ 功能 返回指定的逻辑字符串 pJRMM3 http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' A0mtLA http://blog.numino.net/ 参考 <NULL> 5fa0qm http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); X2mEtV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rc5HQV http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; ec9n2e http://blog.numino.net/ $[StrUtils.pas in3vFW http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 18XZHh http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' Wgfvj6 http://blog.numino.net/ 参考 function System.Copy 3Mm1h5 http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); X1Yocs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ widXej http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; pM5eK5 http://blog.numino.net/ $[StrUtils.pas 8qD0kf http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 xAI4g9 http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' FE1dT5 http://blog.numino.net/ 参考 function System.Copy yTYT4i http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); C1Y9UL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qZICYH http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): xaR1xM http://blog.numino.net/ string; $[StrUtils.pas 60LBaz http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 92e0PC http://blog.numino.net/ 说明 其实就是Copy 3FRq4v http://blog.numino.net/ 参考 function System.Copy c25qiv http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 0378p2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oxxDXv http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: Hh0n5n http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): BRyUAL http://blog.numino.net/ PChar; $[StrUtils.pas J7uaWy http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 3mpSYT http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 pemH4I http://blog.numino.net/ 参考 <NULL> me3v3x http://blog.numino.net/ 例子 eYf5xl http://blog.numino.net/ ///////Begin SearchBuf 8lvLcU http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; Jfh27E http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; jjswSC http://blog.numino.net/ var OM0t3u http://blog.numino.net/ Buffer, P: PChar; P7ZnSb http://blog.numino.net/ Size: Word; NEiw0o http://blog.numino.net/ begin zya948 http://blog.numino.net/ Result := False; LmV88E http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; 6l9tw0 http://blog.numino.net/ Size := EditControl.GetTextLen; RenAi6 http://blog.numino.net/ if (Size = 0) then Exit; 3SIgFS http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 0bdjyI http://blog.numino.net/ try 7NHI37 http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); d5Z9N9 http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, n8Ixym http://blog.numino.net/ SearchString, SearchOptions); KboVeI http://blog.numino.net/ if P <> nil then begin WFDLUg http://blog.numino.net/ EditControl.SelStart := P - Buffer; 6zeN4r http://blog.numino.net/ EditControl.SelLength := Length(SearchString); OKkhD8 http://blog.numino.net/ Result := True; BZTC98 http://blog.numino.net/ end; 4nPizO http://blog.numino.net/ finally N4iC8v http://blog.numino.net/ StrDispose(Buffer); KiRGKp http://blog.numino.net/ end; 69ZX8W http://blog.numino.net/ end; LFy4zO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); du4Dn1 http://blog.numino.net/ var lS9xc0 http://blog.numino.net/ SearchOptions: TStringSearchOptions; A4m237 http://blog.numino.net/ begin IF531W http://blog.numino.net/ SearchOptions := []; aRbd67 http://blog.numino.net/ if CheckBox1.Checked then AmSpwS http://blog.numino.net/ Include(SearchOptions, soDown); 8O3RoD http://blog.numino.net/ if CheckBox2.Checked then Ba3IJ5 http://blog.numino.net/ Include(SearchOptions, soMatchCase); 32ncGr http://blog.numino.net/ if CheckBox3.Checked then f0N2zK http://blog.numino.net/ Include(SearchOptions, soWholeWord); Nli8QR http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 2A6UQ9 http://blog.numino.net/ Memo1.SetFocus; 17m8x3 http://blog.numino.net/ end; 9p9MZ8 http://blog.numino.net/ ///////End SearchBuf F4JraM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jboHF6 http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): HeW1TP http://blog.numino.net/ string; $[StrUtils.pas WJrbjf http://blog.numino.net/ 功能 返回探测字符串 eOiyhM http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html Vs706F http://blog.numino.net/ 参考 <NULL> wP2QIk http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); V3I6n5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5Kd4ko http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = Y7J6sM http://blog.numino.net/ 4): Integer; $[StrUtils.pas 5W7Hbw http://blog.numino.net/ 功能 返回探测整数 33vNmF http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 bHQ5EM http://blog.numino.net/ 参考 <NULL> fcO2NA http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 29JM4K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8gc8Q9 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas 5KuYrI http://blog.numino.net/ 功能 返回探测整数的解码 xG2yyJ http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') SQ8ZHu http://blog.numino.net/ 参考 <NULL> SzGKnn http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); 771640 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EQPuMB http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas RXB4Jn http://blog.numino.net/ 功能 返回探测文字数值 wff2Ds http://blog.numino.net/ 说明 没有参数ALength已经固定为4 h4Bdr2 http://blog.numino.net/ 参考 <NULL> 70h4hK http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); 4Ye4Vv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WX309f http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas 1SxmOG http://blog.numino.net/ 功能 返回探测文字数值的解码 O93fQ2 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') zqsJfT http://blog.numino.net/ 参考 <NULL> LhX5fH http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 0EvyAl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hyw4D2 http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: Scrm7Y http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas DtGK32 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 1YUexD http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 8BF3Q1 http://blog.numino.net/ 参考 <NULL> m3CA3o http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, ScxTe9 http://blog.numino.net/ SpinEdit1.Value); kbwq36 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mAWPFK http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: N95r56 http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas 1173a9 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 8y8C6d http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, id38yL http://blog.numino.net/ ALength)) I49nDj http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 56U1jc http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, 2E8oGX http://blog.numino.net/ SpinEdit1.Value); 2Rd5FM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jje8vF http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; JCXTB3 http://blog.numino.net/ $[StrUtils.pas j1bbm2 http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 tQEV3a http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 ZuuF74 http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText UYme7H http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] wP2yVt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b32hPR http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas V4rkXO http://blog.numino.net/ 功能 返回一个新的字符串指针地址 Ov7Zwm http://blog.numino.net/ 说明 字符串S为空时返回NullStr GzA8ED http://blog.numino.net/ 参考 procedure System.New fS7Ogp http://blog.numino.net/ 例子 wSXRkA http://blog.numino.net/ ////////Begin NewStr,DisposeStr 0dF25G http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9Yom15 http://blog.numino.net/ var 01t45q http://blog.numino.net/ P: PString; XxPTt5 http://blog.numino.net/ begin AkiIXh http://blog.numino.net/ P := NewStr(Edit1.Text); 8Tfkfz http://blog.numino.net/ Edit2.Text := P^; BjfJdJ http://blog.numino.net/ DisposeStr(P); eafRNO http://blog.numino.net/ end; 93hnRE http://blog.numino.net/ ////////End NewStr,DisposeStr dO8LXo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KQXvMa http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas HRz9Bx http://blog.numino.net/ 功能 释放字符串指针P资源 WONOaq http://blog.numino.net/ 说明 配合函数NewStr使用 PrkRKm http://blog.numino.net/ 参考 procedure System.Dispose 3GYcGh http://blog.numino.net/ 例子 <如上参见,如下参见> 33NI1a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZDLxCI http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; BWJ62Z http://blog.numino.net/ $[SysUtils.pas 6tb7xU http://blog.numino.net/ 功能 将字符串S更新给字符串指针P R6ertL http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 UgvGZK http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr N0Taby http://blog.numino.net/ 例子 bf6CIt http://blog.numino.net/ ////////Begin AssignStr Uc0OGP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); xXs659 http://blog.numino.net/ var A012sZ http://blog.numino.net/ P: PString; T8HkSz http://blog.numino.net/ begin 3py73f http://blog.numino.net/ P := nil; 2eWF57 http://blog.numino.net/ AssignStr(P, Edit1.Text); JAzW5d http://blog.numino.net/ Edit2.Text := P^; 6uU5pB http://blog.numino.net/ DisposeStr(P); FoG91F http://blog.numino.net/ end; UyMJ2y http://blog.numino.net/ ////////End AssignStr e43SIc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OY9K45 http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; 0qS0Pz http://blog.numino.net/ $[SysUtils.pas q9tDDS http://blog.numino.net/ 功能 在字符串Dest后追加字符串S nS1S3g http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 Ki09Ol http://blog.numino.net/ 参考 <NULL> RoPO60 http://blog.numino.net/ 例子 V88zBr http://blog.numino.net/ ////////Begin AppendStr 18g7jG http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); reEma2 http://blog.numino.net/ var CFHEFW http://blog.numino.net/ S: string; hlOM9s http://blog.numino.net/ begin gtuL7R http://blog.numino.net/ S := Edit2.Text; nK4bps http://blog.numino.net/ AppendStr(S, Edit1.Text); Rj1Mf6 http://blog.numino.net/ Edit2.Text := S; CXD0S5 http://blog.numino.net/ end; dZDajM http://blog.numino.net/ ////////End AppendStr EbTR7K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 97MW1p http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas zvhT2K http://blog.numino.net/ 功能 返回字符串S的大写形式 Um6ooA http://blog.numino.net/ 说明 非小写字符不处理 GGfeu1 http://blog.numino.net/ 参考 procedure System.SetLength UYAa3V http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); 35W3Wl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 338lwH http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas e9f1Dk http://blog.numino.net/ 功能 返回字符串S的小写形式 d9BtPl http://blog.numino.net/ 说明 非大写字符不处理 2K0A84 http://blog.numino.net/ 参考 procedure System.SetLength 6J0F0W http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); gTNQL6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s6Of9X http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas OUup9A http://blog.numino.net/ 功能 返回比较两个字符 LJwXdQ http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 09FgRs http://blog.numino.net/ 参考 <NULL> roQlZJ http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); NluYFK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xLNg7I http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; 414537 http://blog.numino.net/ assembler; $[SysUtils.pas JXmMrf http://blog.numino.net/ 功能 返回比较两个内存指针 7eHH15 http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), XUMYqQ http://blog.numino.net/ PChar('12c'), 3)=False 5LDOGH http://blog.numino.net/ 参考 <NULL> 5P7U9D http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); Tr5RQh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wvgNp7 http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas L5a87L http://blog.numino.net/ 功能 返回比较两个字符串 l23j50 http://blog.numino.net/ 说明 不区分大小写 c7GWBA http://blog.numino.net/ 参考 <NULL> zRTFGB http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 8mkuws http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gTxt2e http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 8f4sF9 http://blog.numino.net/ 功能 返回两个字符串是否相等 3pD2BZ http://blog.numino.net/ 说明 不区分大小写 kSwS5E http://blog.numino.net/ 参考 <NULL> jQNvtg http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); EA5OYp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 92mcMH http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas dIyfdk http://blog.numino.net/ 功能 返回字符串S的大写形式 5MdcCA http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 22095u http://blog.numino.net/ 参考 function Windows.CharUpperBuff 21brMK http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); eGwdZa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wqcZOf http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas jRgfsU http://blog.numino.net/ 功能 返回字符串S的小写形式 89zFuP http://blog.numino.net/ 说明 非大写字符不处理 x8eh6K http://blog.numino.net/ 参考 function Windows.CharLowerBuff 7SvCa1 http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); GSf0eH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Pqm48f http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas eJ4NmW http://blog.numino.net/ 功能 反回比较两个字符串 69zQ9a http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 D2PHhs http://blog.numino.net/ 参考 function Windows.CompareString ln5M82 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); bpAr4g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nbdwfu http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas aHB9a3 http://blog.numino.net/ 功能 返回两个字符串是否相等 MVLlBu http://blog.numino.net/ 说明 区分大小写 MOD074 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 2mJrdi http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); 3S5A5A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6HuXAk http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas ifaylh http://blog.numino.net/ 功能 反回比较两个字符串 5v4q88 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 1M6E7W http://blog.numino.net/ 参考 function Windows.CompareString SBx2ho http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); EFAx0E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4rT1Rt http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas vAuRob http://blog.numino.net/ 功能 返回两个字符串是否相等 IjV8oA http://blog.numino.net/ 说明 不区分大小写 BLTDt0 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText G7a9wI http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); 74BjhG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2tynWO http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas bmF875 http://blog.numino.net/ 功能 返回比较两个指针字符串 K9FEsk http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 IXIvht http://blog.numino.net/ 参考 function System.CompareString q6cA6f http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) 5FtRiR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 26ZxbF http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas RORJ7a http://blog.numino.net/ 功能 返回比较两个指针字符串 6SCRxy http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) dEb2E5 http://blog.numino.net/ 参考 function Windows.CompareString xXiuWG http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) wf1jQ1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1K1tLZ http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 3FMlp5 http://blog.numino.net/ $[SysUtils.pas kt7EH7 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 8NEr3P http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 2JSY0e http://blog.numino.net/ 参考 function Windows.CompareString zly70k http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), xQsaK7 http://blog.numino.net/ SpinEdit2.Value) EDmxXa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8Cav5o http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; weuT3G http://blog.numino.net/ $[SysUtils.pas MTG66e http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 8ZSA1c http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 e0tV12 http://blog.numino.net/ 参考 function Windows.CompareString T9S7Rl http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), fxorh2 http://blog.numino.net/ SpinEdit2.Value) vp84mg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 248JeL http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 8moe97 http://blog.numino.net/ 功能 返回指针字符串小写形式 lX8wOO http://blog.numino.net/ 说明 非大写字符不处理 vd8VaS http://blog.numino.net/ 参考 function Windows.CharLower j1gjCu http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); k7FbWH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6JHQuR http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas yMERVl http://blog.numino.net/ 功能 返回指针字符串大写形式 YXTkme http://blog.numino.net/ 说明 非小写字符不处理 Rx9MSh http://blog.numino.net/ 参考 function Windows.CharUpper fAnYZd http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); etzA9t http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tKWovT http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas D2f488 http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 LM4BgK http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 rExd6i http://blog.numino.net/ 参考 function SysUtils.ByteType n6GV35 http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); 0j7o5j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 50sRbo http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 5sDOl0 http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 0r6oAF http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 kDWKcZ http://blog.numino.net/ 参考 function SysUtils.ByteType SG9F5x http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); kbIVB3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SMhdCt http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas kUc2G7 http://blog.numino.net/ 功能 返回双字节字符串的大写形式 MRI978 http://blog.numino.net/ 说明 WideChar双字节字符 TNc8jJ http://blog.numino.net/ 参考 function Windows.CharUpperBuffW Ou7534 http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); ERkaa5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3P5EYC http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas 0E1lqb http://blog.numino.net/ 功能 返回双字节字符串的小写形式 P711n3 http://blog.numino.net/ 说明 我怎么就测试不出来呢 30urlg http://blog.numino.net/ 参考 function Windows.CharLowerBuffW HsYYM9 http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); fM0730 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N73N5F http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; 2ZtEV5 http://blog.numino.net/ $[SysUtils.pas eEN452 http://blog.numino.net/ 功能 返回比较两个双字节字符串 4e8HuO http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 3Z0w93 http://blog.numino.net/ 参考 function Windows.CompareStringW bRrz3P http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); DZqk3B http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rTATiz http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 7uJSju http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 IRVYzl http://blog.numino.net/ 说明 区分大小写 iXfISs http://blog.numino.net/ 参考 function SysUtils.WideCompareStr 9Dp18A http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 6sQnZM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9mqM2v http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; yhyUf7 http://blog.numino.net/ $[SysUtils.pas 5C95p3 http://blog.numino.net/ 功能 返回比较两个双字节字符串 H45F6d http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 Faw8aF http://blog.numino.net/ 参考 function Windows.CompareStringW lq7d3N http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); 61CWU2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NHyOn6 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 05FyeL http://blog.numino.net/ $[SysUtils.pas boUF5V http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 y33amp http://blog.numino.net/ 说明 不区分大小写 a8dkY7 http://blog.numino.net/ 参考 function SysUtils.WideCompareText Qqn69B http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); 2dy5mf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5XMQl6 http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas 2eQ8Hq http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; yfOgAr http://blog.numino.net/ $[SysUtils.pas vkaEtm http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 kK72lE http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 yO4qHI http://blog.numino.net/ 参考 function System.Copy vmH3QW http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); RRyk0K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AQ30px http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas 6Ro68K http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; BwNE04 http://blog.numino.net/ $[SysUtils.pas 41MR53 http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 Hn01U5 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 x5fC0o http://blog.numino.net/ 参考 function System.Copy uy64Vh http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); 0ucQKR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AUM9GY http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas JQOnoi http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; NyK4c7 http://blog.numino.net/ $[SysUtils.pas C7Ltqg http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 Om9i7W http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 5IROz6 http://blog.numino.net/ 参考 function System.Copy UrBuI9 http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); liHOQh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Kdv59w http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 0d2pil http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 f2Sfxy http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 wULWDS http://blog.numino.net/ 参考 procedure System.Insert ZqkuOf http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); cALXyG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0q0riO http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; Js0I3y http://blog.numino.net/ $[SysUtils.pas uo03fd http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 7lSXCg http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', 880OhO http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 5DhAxZ http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan xUmiVo http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); 94U991 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rXXvcM http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 9CRlJ7 http://blog.numino.net/ $[SysUtils.pas mgysrI http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 fa2R3O http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 bZ6ViU http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan oLwXbx http://blog.numino.net/ 例子 F392Yc http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr 2mdIPD http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); M9icOZ http://blog.numino.net/ var 4Ee06T http://blog.numino.net/ P: PChar; 1eXiV8 http://blog.numino.net/ begin 2j1dYp http://blog.numino.net/ P := PChar(Edit1.Text); Kzo1nK http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); QXT3j9 http://blog.numino.net/ Edit3.Text := P; L1tgD2 http://blog.numino.net/ end; DQTSBn http://blog.numino.net/ ///////End AnsiExtractQuotedStr m4HHwo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ylLnue http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 0lWP0n http://blog.numino.net/ $[SysUtils.pas Dgm9ME http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 wbfRuR http://blog.numino.net/ 说明 表现形式非法时则返回S 6uGwvC http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr H0N5UK http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); 1D74W5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ghi2ad http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = BW0KWB http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): pKkn65 http://blog.numino.net/ string; $[SysUtils.pas 3UyqzO http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 mP0yc9 http://blog.numino.net/ 说明 y67uPm http://blog.numino.net/ AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10 KVCO5f http://blog.numino.net/ 参考 function SysUtils.StrNextChar a42iJx http://blog.numino.net/ 例子 <NULL> VTdYR4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6YgAxX http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas JHIz8b http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 ghOW6u http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... 74B4EW http://blog.numino.net/ 参考 <NULL> pxJyrp http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); K041HF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pD5U53 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 3A2hSo http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas fD72pW http://blog.numino.net/ 功能 返回整数Value转换成字符串 QHT6bE http://blog.numino.net/ 说明 Format('%d', [Value]) Ihi2YT http://blog.numino.net/ 参考 function SysUtils.FmtStr 12Bwyg http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 0l6n0b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IpdA1k http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; 7PEF0D http://blog.numino.net/ $[SysUtils.pas J5SdTk http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; AMx2ri http://blog.numino.net/ $[SysUtils.pas 0JPjLu http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 9GU169 http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 rU6Wev http://blog.numino.net/ 参考 function SysUtils.FmtStr r0kHD6 http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); UaWHP9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5v3h7U http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas AmQO67 http://blog.numino.net/ 功能 返回字符串S转换成整数 RZHAi6 http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 IDam9P http://blog.numino.net/ 参考 procedure System.Val HzMcS0 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); Os7p8e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7pa2Qg http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; GJIBph http://blog.numino.net/ $[SysUtils.pas Q9CGIa http://blog.numino.net/ 功能 返回字符串S转换成整数 2c789A http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default 0EH5wg http://blog.numino.net/ 参考 procedure System.Val 49r0ft http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); G3F5E6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W3UVBG http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; 1v2zv8 http://blog.numino.net/ $[SysUtils.pas Cd6t5n http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 oT9eKY http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 hZzyZV http://blog.numino.net/ 参考 procedure System.Val o002eZ http://blog.numino.net/ 例子 1OeoNa http://blog.numino.net/ ///////Begin TryStrToInt Lh8XgX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Ao645A http://blog.numino.net/ var caB9N7 http://blog.numino.net/ I: Integer; 45P8DT http://blog.numino.net/ begin pmb2ds http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); B0K556 http://blog.numino.net/ SpinEdit1.Value := I; r79Hby http://blog.numino.net/ end; 21AXWh http://blog.numino.net/ ///////End TryStrToInt 51PmKt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6yhF49 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas UQb8du http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 m09Za0 http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 b57QsN http://blog.numino.net/ 参考 procedure System.Val iIs77L http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 87mkj3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 90PU3z http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; tulUCk http://blog.numino.net/ $[SysUtils.pas 4amGv3 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 2Vwv8w http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default hi930o http://blog.numino.net/ 参考 procedure System.Val Us1U32 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); GJ2PGu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DT3lHl http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; 0t87p6 http://blog.numino.net/ $[SysUtils.pas esisUZ http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 4L5N7b http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 nIE7V2 http://blog.numino.net/ 参考 procedure System.Val 2WZGz7 http://blog.numino.net/ 例子 QYtaN4 http://blog.numino.net/ ///////Begin TryStrToInt64 RScGfK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); DbdMgS http://blog.numino.net/ var IssfC0 http://blog.numino.net/ I: Int64; VPsY9a http://blog.numino.net/ begin hK5Y56 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); mj59Li http://blog.numino.net/ SpinEdit1.Value := I; 22KES6 http://blog.numino.net/ end; LdhiB2 http://blog.numino.net/ ///////End TryStrToInt64 dF69D3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wkRNsv http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas X7JC6c http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 987C75 http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 b795IB http://blog.numino.net/ 参考 function SysUtils.TryStrToBool m52UIH http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); 00e869 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hth1T4 http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): SbAoXK http://blog.numino.net/ Boolean; $[SysUtils.pas pU756z http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 Oy16jw http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default a64e6V http://blog.numino.net/ 参考 function SysUtils.TryStrToBool xfApZa http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); MLgqi7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 378yB8 http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; 0uP4c2 http://blog.numino.net/ $[SysUtils.pas eLfEgi http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 eGNjs6 http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 ocg983 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var 89FfEC http://blog.numino.net/ SysUtils.FalseBoolStrs TP11EO http://blog.numino.net/ 例子 gR81oi http://blog.numino.net/ ///////Begin TryStrToBool oTe5Pu http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); QWh929 http://blog.numino.net/ var 6Fsys8 http://blog.numino.net/ B: Boolean; uA7BYb http://blog.numino.net/ begin 2YGbv0 http://blog.numino.net/ SetLength(TrueBoolStrs, 2); 74FsS7 http://blog.numino.net/ SetLength(FalseBoolStrs, 2); CH8vrk http://blog.numino.net/ TrueBoolStrs[0] := 'True'; rp7lIV http://blog.numino.net/ FalseBoolStrs[0] := 'False'; acEKR7 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; THmBYe http://blog.numino.net/ FalseBoolStrs[1] := 'No'; AScDMX http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); aK9KsS http://blog.numino.net/ CheckBox2.Checked := B; xerj37 http://blog.numino.net/ end; PFjUa4 http://blog.numino.net/ ///////End TryStrToBool AzL84O http://blog.numino.net/ 附加 K39iIi http://blog.numino.net/ ///////Begin TryStrToBool Wv5i0C http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; XAb2Vn http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; SkALu8 http://blog.numino.net/ var 2NE4O4 http://blog.numino.net/ I: Integer; 87soPX http://blog.numino.net/ begin g6lFP2 http://blog.numino.net/ Result := False; 7VDWB9 http://blog.numino.net/ for I := Low(aArray) to High(aArray) do b3GToH http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then u1eL8g http://blog.numino.net/ begin 6r79nh http://blog.numino.net/ Result := True; 4qihZ5 http://blog.numino.net/ Break; D6D2q9 http://blog.numino.net/ end; OK4S5J http://blog.numino.net/ end; xN5v7F http://blog.numino.net/ var pc0p0f http://blog.numino.net/ LResult: Extended; 69UlI2 http://blog.numino.net/ begin s8HdxE http://blog.numino.net/ Result := TryStrToFloat(S, LResult); LUMQw5 http://blog.numino.net/ if Result then U23CVx http://blog.numino.net/ Value := LResult <> 0 KCf5Ks http://blog.numino.net/ else NVv6xh http://blog.numino.net/ begin mw0KAi http://blog.numino.net/ Result := True; //修正处 dJ44t4 http://blog.numino.net/ VerifyBoolStrArray; 042m9s http://blog.numino.net/ if CompareWith(TrueBoolStrs) then oPC17N http://blog.numino.net/ Value := True m8LDX2 http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then p9M2R9 http://blog.numino.net/ Value := False KvrSde http://blog.numino.net/ else XnlGoP http://blog.numino.net/ Result := False; D6k7Bi http://blog.numino.net/ end; 9L4eBB http://blog.numino.net/ end; qwl2uP http://blog.numino.net/ ///////End TryStrToBool 6E6bLV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y4rEL2 http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; 93Ul4u http://blog.numino.net/ $[SysUtils.pas ln33eF http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 Gc6Ham http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' LbN0l7 http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 9x5c2R http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); JkrdUq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6ctQB3 http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 4NGXB9 http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 T49WaE http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 hXdnt3 http://blog.numino.net/ 参考 function SysUtils.FindStringResource v0FOGN http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); zMUik0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KTQ3jt http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): EFqzCo http://blog.numino.net/ string; $[SysUtils.pas Yg6uv7 http://blog.numino.net/ 功能 返回格式化的字符串资源 7wZ5eb http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 8bEsH0 http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource SXbYc4 http://blog.numino.net/ 例子 <NULL>; 1Y67i4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r5SqNS http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas NW2zu8 http://blog.numino.net/ 功能 返回指针字符串的长度 2EljmZ http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 24I1C4 http://blog.numino.net/ 参考 <NULL> M060hN http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 1yx06x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7649SB http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas EzVAL9 http://blog.numino.net/ 功能 返回指针字符串的结尾 1T1ptj http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 Rv6dW8 http://blog.numino.net/ 参考 <NULL> aFUmOF http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; uIZ44E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kxcCbj http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): DhdlRX http://blog.numino.net/ PChar; $[SysUtils.pas bOJFjk http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 H4W9nU http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 8xBGVD http://blog.numino.net/ 参考 function System.Move KdSDVU http://blog.numino.net/ 例子 SNMdDM http://blog.numino.net/ ///////Begin StrMove n4iTMt http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); f9D950 http://blog.numino.net/ var yD6YPj http://blog.numino.net/ vBuffer: PChar; ocO7so http://blog.numino.net/ begin qlwG0N http://blog.numino.net/ vBuffer := '0123456789'; qJP5qm http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); C8TWO7 http://blog.numino.net/ Edit2.Text := vBuffer; G4t1qT http://blog.numino.net/ end; NJTz9p http://blog.numino.net/ ///////End StrMove e67jfY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MFhJcA http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; 9Yi7hf http://blog.numino.net/ $[SysUtils.pas T8n3ZB http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 QLrqAs http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 f9066v http://blog.numino.net/ 参考 <NULL> uP82aE http://blog.numino.net/ 例子 7jx1fV http://blog.numino.net/ ///////Begin StrCopy PpkKBp http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); WkjlhT http://blog.numino.net/ var L98Qz2 http://blog.numino.net/ vBuffer: PChar; w2Gj25 http://blog.numino.net/ begin g03q2A http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); 2EJMnz http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); w6CsBk http://blog.numino.net/ Edit2.Text := vBuffer; ha8ic3 http://blog.numino.net/ FreeMem(vBuffer); M0fAsU http://blog.numino.net/ end; tDWOje http://blog.numino.net/ ///////End StrCopy wQS88k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f4RBR5 http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; H8itYC http://blog.numino.net/ $[SysUtils.pas b4kn2S http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 GtosRv http://blog.numino.net/ 说明 可以连接指针字符串 3uBtOm http://blog.numino.net/ 参考 <NULL> 4xppYO http://blog.numino.net/ 例子 CmtAfz http://blog.numino.net/ ///////Begin StrECopy PNFd2Z http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); J95U1P http://blog.numino.net/ var 2yV6Oo http://blog.numino.net/ vBuffer: array[0..255] of Char; Xu2BJe http://blog.numino.net/ begin n1snxn http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); FwF7H0 http://blog.numino.net/ Edit3.Text := vBuffer; TMR9UQ http://blog.numino.net/ end; tw9iW7 http://blog.numino.net/ ///////End StrECopy 18iWM8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1v6ZjR http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 6f74aP http://blog.numino.net/ PChar; $[SysUtils.pas ktNHU2 http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 whYS9f http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 4nf0UA http://blog.numino.net/ 参考 <NULL> pVzrWQ http://blog.numino.net/ 例子 a9GUdR http://blog.numino.net/ ///////Begin StrLCopy 05QYns http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7hgEqO http://blog.numino.net/ var VWV71p http://blog.numino.net/ vBuffer: array[0..255] of Char; c6V51H http://blog.numino.net/ begin IHumNp http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); Cp9h7N http://blog.numino.net/ Edit2.Text := vBuffer; PkWRhJ http://blog.numino.net/ end; riXsp2 http://blog.numino.net/ ///////End StrLCopy mxlvC2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Dbi2by http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; jL62Hj http://blog.numino.net/ $[SysUtils.pas 8WQ9NG http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 JckR0R http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) hZ4oL8 http://blog.numino.net/ 参考 function SysUtils.StrLCopy 6XPY4L http://blog.numino.net/ 例子 a2b0te http://blog.numino.net/ ///////Begin StrPCopy uj67Ri http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); k6YOjS http://blog.numino.net/ var hyVhat http://blog.numino.net/ vBuffer: array[0..255] of Char; 9Qmj42 http://blog.numino.net/ begin 9730d5 http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); kKlLkv http://blog.numino.net/ Edit2.Text := vBuffer; syHCXR http://blog.numino.net/ end; 8mdHG2 http://blog.numino.net/ ///////End StrPCopy h4Ox97 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qzWZ52 http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: WM8EEJ http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas BQg2lf http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 3BZea1 http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) 913r9x http://blog.numino.net/ 参考 function SysUtils.StrLCopy Z25g90 http://blog.numino.net/ 例子 Num0vf http://blog.numino.net/ ///////Begin StrPLCopy 5Q6McO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3p8gK2 http://blog.numino.net/ var gLVtV6 http://blog.numino.net/ vBuffer: array[0..255] of Char; MG4G90 http://blog.numino.net/ begin paEq8x http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); S1MtFu http://blog.numino.net/ Edit2.Text := vBuffer; t3jJrV http://blog.numino.net/ end; UUkqsa http://blog.numino.net/ ///////End StrPLCopy lY0a3l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IJabQO http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; yVPey0 http://blog.numino.net/ $[SysUtils.pas JvYnX8 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source YsLnab http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) hszNHD http://blog.numino.net/ 参考 function SysUntils.StrCopy ulO4l1 http://blog.numino.net/ 例子 X6zeTC http://blog.numino.net/ ///////Begin StrCat UXlx7e http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); c6QNYg http://blog.numino.net/ var 5HoObA http://blog.numino.net/ vBuffer: array[0..255] of Char; SoX2Iq http://blog.numino.net/ begin 8v07T7 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); JvHODB http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); 67RgFL http://blog.numino.net/ Edit3.Text := vBuffer; Tf2Kn8 http://blog.numino.net/ end; 6BY6HV http://blog.numino.net/ ///////End StrCat XK21BB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zZ0blM http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): mV7gDw http://blog.numino.net/ PChar; $[SysUtils.pas 1Q2Ch7 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source ay6Oes http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 31qFTg http://blog.numino.net/ 参考 <NULL> CDWtbj http://blog.numino.net/ 例子 74o1PG http://blog.numino.net/ ///////Begin StrLCat 8GDJTy http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); qFUJyh http://blog.numino.net/ var 9dbbA7 http://blog.numino.net/ vBuffer: array[0..255] of Char; aJL5aB http://blog.numino.net/ begin I2n59P http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); or0qAC http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 4j91RQ http://blog.numino.net/ Edit3.Text := vBuffer; 2GZULS http://blog.numino.net/ end; AXPw3s http://blog.numino.net/ ///////End StrLCat upc0g3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yhmY79 http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas p87jm6 http://blog.numino.net/ 功能 返回比较两个指针字符串 RH6m6K http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 N1xo4R http://blog.numino.net/ 参考 <NULL> vutI6a http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); S1Oy1v http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n5w1Y6 http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas BLt7rc http://blog.numino.net/ 功能 返回比较两个指针字符串 Ke4RGX http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 pCUNy1 http://blog.numino.net/ 参考 <NULL> AYCoQr http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); FtMdjz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7K7aK1 http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 8XawbI http://blog.numino.net/ $[SysUtils.pas 7FdNaU http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 7urOjG http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 9Q4NkW http://blog.numino.net/ 参考 <NULL> 87kgYT http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), AL61JD http://blog.numino.net/ SpinEdit2.Value) HJ9dA5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UP4dXb http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 2a4dk4 http://blog.numino.net/ $[SysUtils.pas Lzheib http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 o78naU http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 GMT7Op http://blog.numino.net/ 参考 <NULL> su5XRC http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), iJKyyu http://blog.numino.net/ SpinEdit2.Value) dTgkQN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7q6dKj http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas fo3vwI http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 Cmt7mm http://blog.numino.net/ 说明 没有找到则返回空指针 vS1gBM http://blog.numino.net/ 参考 <NULL> jna9I1 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); BbjTB6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c0tzGV http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas SEuxrM http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 yN740N http://blog.numino.net/ 说明 没有找到则返回空指针 8mzrC0 http://blog.numino.net/ 参考 <NULL> 0rNaZg http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); g6y3jS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zgwp6d http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas sDpiPN http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 8GXf3Z http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' 2GfjK3 http://blog.numino.net/ 参考 <NULL> TNeKcc http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); PPJy07 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dB8sdM http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas yeTRjf http://blog.numino.net/ 功能 返回指针字符串Str大写 IBOeo1 http://blog.numino.net/ 说明 非小写字符不处理 2VnQTM http://blog.numino.net/ 参考 <NULL> yHBmf1 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); TzQca7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oHzHS9 http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas 6oYjks http://blog.numino.net/ 功能 返回指针字符串Str小写 7X9b7l http://blog.numino.net/ 说明 非大写字符不处理 wLXniJ http://blog.numino.net/ 参考 <NULL> CewDOj http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); Yz5dN4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0VSx2w http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas amz1jX http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 bgBug2 http://blog.numino.net/ 说明 也可以直接赋值 P6McoC http://blog.numino.net/ 参考 <NULL> 8lDP6z http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); uJ8bDT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D0k469 http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas Nj5DcR http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 FyIvUY http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 44Ko2r http://blog.numino.net/ 参考 function System.GetMem Yth6kn http://blog.numino.net/ 例子 mnbCI9 http://blog.numino.net/ ///////Begin StrAlloc 6Xn5qE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1VO0or http://blog.numino.net/ var 37ud90 http://blog.numino.net/ P: PChar; RHOlG9 http://blog.numino.net/ begin Ia5q7Y http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); Vb7CR1 http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); IQP070 http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); 8NkLC5 http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); T9q1tB http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); pjS3aZ http://blog.numino.net/ StrDispose(P); k9T424 http://blog.numino.net/ end; X46w8A http://blog.numino.net/ ///////End StrAlloc 3lN51W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4T13j5 http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas y589Mc http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 l20tJy http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 EzZXMl http://blog.numino.net/ 参考 function System.SizeOf LMimol http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); M9fH6J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0mJ7SO http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas U10h8S http://blog.numino.net/ 功能 返回复制一个新的指针字符串 dTOynD http://blog.numino.net/ 说明 如果Str为nil则返回nil E980wJ http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function 2yA2YZ http://blog.numino.net/ SysUtils.StrAlloc 26ClS8 http://blog.numino.net/ 例子 f5GsKQ http://blog.numino.net/ ///////Begin StrNew,StrDispose rKeYtn http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Tr12fS http://blog.numino.net/ var 89FMjQ http://blog.numino.net/ P: PChar; d4rl3W http://blog.numino.net/ begin nM08E9 http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); dNHZVg http://blog.numino.net/ ShowMessage(P); o8SD8v http://blog.numino.net/ StrDispose(P); wopon9 http://blog.numino.net/ end; J31e2F http://blog.numino.net/ ///////End StrNew,StrDispose 5w6GQ6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 46qsCT http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas 2fPE78 http://blog.numino.net/ 功能 释放指针字符串Str内存资源 O41ciU http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 9KUhGr http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem NIaVrP http://blog.numino.net/ 例子 <参见StrNew> A13a3r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 90qDYO http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): VLQGz4 http://blog.numino.net/ string; $[SysUtils.pas pdgW2S http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 0Hrvd6 http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 n8NfZa http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 eM22ri http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 L77gg2 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 kvBRN5 http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 a9X0CT http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 H5TI4n http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 2Ns5a1 http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 4qzBDA http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 ObpDtn http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 kFF1n9 http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 D7PbWq http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 4xPuKJ http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" OOXkTG http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 q4tE4O http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr 1HfEI4 http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); J2QH36 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B51oAZ http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: 9BWu53 http://blog.numino.net/ array of const); $[SysUtils.pas 57A9Ew http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 pH95Gu http://blog.numino.net/ 说明 <参见Format> NkBWQo http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function ZV4Fvs http://blog.numino.net/ System.SetLength bqRCJE http://blog.numino.net/ 例子 <参见Format> ZL17Lw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0YhKlG http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): sDftbn http://blog.numino.net/ PChar; $[SysUtils.pas 6r7Pug http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 19jmv4 http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil qnI849 http://blog.numino.net/ 参考 function SysUtils.FormatBuf 9GPBY8 http://blog.numino.net/ 例子 <参见Format> UElKHX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vE46qj http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; Ab2jyw http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas 0qzZqP http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 MK11e2 http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; 5SneBr http://blog.numino.net/ 参考 function SysUtils.FormatBuf iZYiR1 http://blog.numino.net/ 例子 <参见Format> tC06w2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 26VeIb http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: P716zB http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas dDa2a9 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 7bVM3y http://blog.numino.net/ 说明 <NULL> dF0XYp http://blog.numino.net/ 参考 <NULL> cO0D2k http://blog.numino.net/ 例子 <参见Format> F8Oapp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aBU0zB http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of G33CB5 http://blog.numino.net/ const): WideString; $[SysUtils.pas ElL4fg http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 H5en72 http://blog.numino.net/ 说明 <NULL> N2Uk8J http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr 2t4B9F http://blog.numino.net/ 例子 <参见Format> WXIoVg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VBKgjH http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; u1Y42Z http://blog.numino.net/ const Args: array of const); $[SysUtils.pas 949N2g http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 9iwA4s http://blog.numino.net/ 说明 <NULL> 1EVI6u http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf VYV3r2 http://blog.numino.net/ 例子 <参见Format> p83Ptd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s92q36 http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; pO4R2z http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas k9G7Bk http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 ic54z8 http://blog.numino.net/ 说明 <NULL> 7FH6g9 http://blog.numino.net/ 参考 <NULL> zErmL3 http://blog.numino.net/ 例子 <参见Format> 7aaI55 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ g2i28B http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 970c5k http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 TwBT7N http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 q9AHW6 http://blog.numino.net/ 参考 function SysUtils.FloatToText g7PMFz http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 71lZ52 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S1A812 http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas bX01zz http://blog.numino.net/ 功能 返回货币数Value转换成字符串 6KY2H5 http://blog.numino.net/ 说明 货币数只保留四位小数 PFYcb5 http://blog.numino.net/ 参考 function SysUtils.FloatToText vklrbg http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); A89D0t http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5lXDPI http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas e9K25Z http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 GJP5Bp http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 teAHa9 http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency OTUZPL http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); phQ4Cv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mAx5Yy http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, tSAnB6 http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas hZOlI3 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 53uXuh http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 5SAa04 http://blog.numino.net/ 参考 function SysUtils.FloatToText l7q4V3 http://blog.numino.net/ 例子 r39Wxr http://blog.numino.net/ ///////Begin FloatToStrF 2F865A http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); shK7W6 http://blog.numino.net/ begin OQIKWj http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, ZuxdHU http://blog.numino.net/ 0), x1pcRx http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); gQ5Aph http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 2Ow72U http://blog.numino.net/ 0), gNJSMG http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); gKWh4K http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), LG8R4Y http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); 00PkV1 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, HTVCVU http://blog.numino.net/ 0), 0Q1Yp2 http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); EqaZ3e http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 30hZuo http://blog.numino.net/ 0), rv3IDW http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); RdtiHN http://blog.numino.net/ end; GwXv3m http://blog.numino.net/ ///////End FloatToStrF l4LN1g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bs1EUV http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: y61iG4 http://blog.numino.net/ Integer): string; $[SysUtils.pas 0vIG0k http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 a5y4sn http://blog.numino.net/ 说明 Digits指定小数宽度 ker5XS http://blog.numino.net/ 参考 function SysUtils.FloatToText fx5i1X http://blog.numino.net/ 例子 zcHR92 http://blog.numino.net/ ///////Begin CurrToStrF S639N4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ITel7z http://blog.numino.net/ begin 9xAhR4 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), YJuEOa http://blog.numino.net/ ffGeneral, SpinEdit1.Value); 8GxPKd http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, r1kN1U http://blog.numino.net/ 0), Vu65aW http://blog.numino.net/ ffExponent, SpinEdit1.Value); SH04h8 http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), SuIJ8E http://blog.numino.net/ ffFixed, SpinEdit1.Value); HF1x4S http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), jlP5Cv http://blog.numino.net/ ffNumber, SpinEdit1.Value); imp430 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, Nx5Sj2 http://blog.numino.net/ 0), 0aHxE6 http://blog.numino.net/ ffCurrency, SpinEdit1.Value); Lr3s10 http://blog.numino.net/ end; rVB9lW http://blog.numino.net/ ///////End CurrToStrF N2kAU9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m6o54d http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: 66INlX http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; rsO009 http://blog.numino.net/ $[SysUtils.pas 4cRx32 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 5ZzzDg http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 h7Tt7W http://blog.numino.net/ 参考 <NULL> 94XYMq http://blog.numino.net/ 例子 Zh5A85 http://blog.numino.net/ ///////Begin FloatToText a4XqTE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); IUhIjh http://blog.numino.net/ var 3340Z3 http://blog.numino.net/ vBuffer: array[0..255] of Char; Y567Sz http://blog.numino.net/ E: Extended; MkM38Y http://blog.numino.net/ begin nHCso9 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 2Pd47x http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 6mFJu3 http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 9qS51N http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); UzktKd http://blog.numino.net/ end; F3SV3W http://blog.numino.net/ ///////End FloatToText( 015LPe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XemmnX http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; 4ryi28 http://blog.numino.net/ $[SysUtils.pas PBq3Cn http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 Bv3diA http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' LnGb6N http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt w9zTdm http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); RD2NEC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V3oqK3 http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; QQMsWy http://blog.numino.net/ $[SysUtils.pas aj2Aa3 http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 tzeZsv http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' 9T7J21 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 3eC5yk http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); kQnB3R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3eA6Ad http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: g4lrN1 http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas IxIdtd http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 Xns7e6 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 OmR7fl http://blog.numino.net/ 参考 <NULL> heNuOj http://blog.numino.net/ 例子 Yr9I98 http://blog.numino.net/ ///////Begin FloatToTextFmt p3SuBI http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); RWvBjK http://blog.numino.net/ var z4y55B http://blog.numino.net/ vBuffer: array[0..255] of Char; 81NOGc http://blog.numino.net/ E: Extended; OpaAT1 http://blog.numino.net/ begin 8l4oen http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); NefeXx http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, vDc6x6 http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); 5RAlvJ http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); 2IlpKp http://blog.numino.net/ end; uL42pr http://blog.numino.net/ ///////End FloatToTextFmt SWm1N7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1Um82u http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas oG6oOM http://blog.numino.net/ 功能 返回字符串S转换成浮点数 9gq81c http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 RqySG7 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 5S4a7e http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; e6wBx6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VDBgKO http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): 51ASAJ http://blog.numino.net/ Extended; $[SysUtils.pas BB9rTq http://blog.numino.net/ 功能 返回字符串S转换成浮点数 VwRPM1 http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default vbWBfm http://blog.numino.net/ 参考 function SysUtils.TextToFloat yhchk1 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; J36ZZi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0d5R1q http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; 44t302 http://blog.numino.net/ overload; $[SysUtils.pas 534Rv6 http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; v7KFDU http://blog.numino.net/ overload; $[SysUtils.pas Baj8h3 http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; Spy7Z8 http://blog.numino.net/ overload; $[SysUtils.pas 2ByklQ http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 Zn95B0 http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 dmndR5 http://blog.numino.net/ 参考 function SysUtils.TextToFloat IMI8Wk http://blog.numino.net/ 例子 B5g2Jx http://blog.numino.net/ ///////Begin TryStrToFloat sNIu5Q http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 8ock5h http://blog.numino.net/ var y42p9m http://blog.numino.net/ E: Extended; 7eqr2a http://blog.numino.net/ begin FQmuFX http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); GT5pDq http://blog.numino.net/ Edit2.Text := FormatFloat('', E); JZ3B2j http://blog.numino.net/ end; Bm7Ad7 http://blog.numino.net/ ///////End TryStrToFloat U5P5J4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G09D36 http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas yz1g0r http://blog.numino.net/ 功能 返回字符串S转换成货币数 bhd1g3 http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 Nmd7CZ http://blog.numino.net/ 参考 function SysUtils.TextToFloat tTagB6 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 45WO05 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U31ebR http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): UMdg2z http://blog.numino.net/ Currency; $[SysUtils.pas Z62xJG http://blog.numino.net/ 功能 返回字符串S转换成货币数 WFYQLu http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default cs3w2E http://blog.numino.net/ 参考 function SysUtils.TextToFloat 7OD894 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; W0eJu2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L03AHZ http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; nxs49p http://blog.numino.net/ $[SysUtils.pas CI4067 http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 OCWjWk http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 eYmJv9 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 8AL851 http://blog.numino.net/ 例子 j5lRH4 http://blog.numino.net/ ///////Begin TryStrToCurr rUgIFs http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Bak0Jw http://blog.numino.net/ var bfh5rZ http://blog.numino.net/ C: Currency; u02P4S http://blog.numino.net/ begin y20msz http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); SRk7tG http://blog.numino.net/ Edit2.Text := FormatCurr('', C); H7eYAL http://blog.numino.net/ end; HiuL6w http://blog.numino.net/ ///////End TryStrToCurr 48NFtN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XYiS0b http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): vov008 http://blog.numino.net/ Boolean; $[SysUtils.pas z46eFq http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value E01oy9 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 hPCLvv http://blog.numino.net/ 参考 <NULL> 5NZmui http://blog.numino.net/ 例子 fIhax7 http://blog.numino.net/ ///////Begin TextToFloat uM7MZq http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); UVVLQt http://blog.numino.net/ var q5zbzv http://blog.numino.net/ E: Extended; iDrQKE http://blog.numino.net/ begin s1Lo1l http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, hc28gD http://blog.numino.net/ fvExtended); wu7R61 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); IaIVO0 http://blog.numino.net/ end; nEIJyU http://blog.numino.net/ ///////End TextToFloat X4152g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7LTtbh http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas r6V779 http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 5G0mUa http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 mRS9H1 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat HUE8Yj http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); Y7471I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HX0Ujk http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas SMZo3f http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 6LRm02 http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 lkkDkw http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat q8eZeC http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); Ozq96m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ump8Zm http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; 07QP8o http://blog.numino.net/ $[SysUtils.pas quR020 http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 Ezs1YT http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 UZ1lvO http://blog.numino.net/ 参考 function SysUtils.DateTimeToString MNJ73p http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); SA9406 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cW5z85 http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 5jpIuM http://blog.numino.net/ 功能 返回字符串S转换成日期 06SjGX http://blog.numino.net/ 说明 字符非日期表达时将引起异常 7ePfNP http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 6u7y02 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); 2CQC6Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2YWDy0 http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): xwhQUn http://blog.numino.net/ TDateTime; $[SysUtils.pas h8CvUN http://blog.numino.net/ 功能 返回字符串S转换成日期 v0TD2M http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default XxXq1A http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 3ZX18i http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); a3jlG8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 83i2lg http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; Vle6D7 http://blog.numino.net/ $[SysUtils.pas 70igeS http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 IHgUzj http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 4r15ZX http://blog.numino.net/ 参考 <NULL> l5n8Ar http://blog.numino.net/ 例子 4Uw0D5 http://blog.numino.net/ ///////Begin TryStrToDate OSujY1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); EYEAi0 http://blog.numino.net/ var hhMNEK http://blog.numino.net/ vDateTime: TDateTime; 06Lz0m http://blog.numino.net/ begin FIsQAd http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); Wy4L0E http://blog.numino.net/ DateTimePicker1.Date := vDateTime; H8Mq8B http://blog.numino.net/ end; Ju7r8H http://blog.numino.net/ ///////End TryStrToDate lFIC3r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zW0G7p http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 1aJy0o http://blog.numino.net/ 功能 返回字符串S转换成时间 DTfD2W http://blog.numino.net/ 说明 字符非时间表达时将引起异常 2jraqc http://blog.numino.net/ 参考 function SysUtils.TryStrToTime EFhC7U http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); Vxudw8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Dr11Nm http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): wkjRQA http://blog.numino.net/ TDateTime; $[SysUtils.pas WPUZkC http://blog.numino.net/ 功能 返回字符串S转换成时间 0U4R9t http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default 28G8Fd http://blog.numino.net/ 参考 function SysUtils.TryStrToTime KsBVU1 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); GA408j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bk4zI3 http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; HpX8uo http://blog.numino.net/ $[SysUtils.pas pL3h79 http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 JM49YK http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 jN8HHB http://blog.numino.net/ 参考 <NULL> oO2k67 http://blog.numino.net/ 例子 19M9e6 http://blog.numino.net/ ///////Begin TryStrToTime 76GMv0 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); vAPW58 http://blog.numino.net/ var iV2ele http://blog.numino.net/ vDateTime: TDateTime; EK92jO http://blog.numino.net/ begin L6rHNd http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 4VfVmR http://blog.numino.net/ DateTimePicker1.Time := vDateTime; c8C177 http://blog.numino.net/ end; bRKc9g http://blog.numino.net/ ///////End TryStrToTime DwX4IM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4oEmhj http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas sOxwZD http://blog.numino.net/ 功能 返回字符串S转换成日期时间 HG59UF http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 71M7w5 http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime A4w7V2 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); k039La http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2ca3Z3 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): zHyM3E http://blog.numino.net/ TDateTime; $[SysUtils.pas yyY08I http://blog.numino.net/ 功能 返回字符串S转换成日期时间 69bD08 http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default XBwH2C http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime l2IwZC http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 3wspIP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xZxA1J http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): SijzHr http://blog.numino.net/ Boolean; $[SysUtils.pas HY1JRZ http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 8BK3b2 http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 67E1ku http://blog.numino.net/ 参考 <NULL> gtJIe0 http://blog.numino.net/ 例子 u8g1Vx http://blog.numino.net/ ///////Begin TryStrToDateTime onJMAd http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); G0DBOy http://blog.numino.net/ var 0kaVjK http://blog.numino.net/ vDateTime: TDateTime; dc0QJe http://blog.numino.net/ begin 2qou14 http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); Puio80 http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); 54k50H http://blog.numino.net/ end; JN1xtK http://blog.numino.net/ ///////End TryStrToDateTime D71A6x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2A8w9w http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; 7C7B55 http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas A2gNE3 http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 kR68BG http://blog.numino.net/ 说明 <参见FormatDateTime> TcICzI http://blog.numino.net/ 参考 function System.SetString o4I5XN http://blog.numino.net/ 例子 <参见FormatDateTime> JUYuo2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2Hw1Cl http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: KIhuEa http://blog.numino.net/ string): string; platform; $[SysUtils.pas Wf4WJ6 http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 i3Di4w http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' 781AZ1 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo LGrVSJ http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); Ab7X7s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nEr25F http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Li4LXl http://blog.numino.net/ Char; platform; $[SysUtils.pas 9mh6PL http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 22se1U http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' 89NLOL http://blog.numino.net/ 参考 function Windows.GetLocaleInfo SuaJKL http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); IYFNgl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DPl56F http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; 171tQ2 http://blog.numino.net/ $[SysUtils.pas Cm46bX http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 RrLPS6 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) FfCV7J http://blog.numino.net/ 参考 var SysUtils.SysLocale rSzQKd http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); lryNMU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ethmnq http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; fysFrU http://blog.numino.net/ $[SysUtils.pas uHDiXT http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 lovZ03 http://blog.numino.net/ 说明 Index从0开始 jOpj7i http://blog.numino.net/ 参考 var SysUtils.SysLocale a4w7M3 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), mlx695 http://blog.numino.net/ SpinEdit2.Value)); zw4gV8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qIuPey http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; 4MKMEH http://blog.numino.net/ $[SysUtils.pas dFQHmG http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 1dBoDL http://blog.numino.net/ 说明 MaxLen指定处理字符个数 JBl2Aj http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex Z5f7Q1 http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); EC090R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OkoVbQ http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; 11V5GR http://blog.numino.net/ $[SysUtils.pas N8s0I7 http://blog.numino.net/ 功能 返回字符串S中有多少个字符 Op9536 http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 2jRfk9 http://blog.numino.net/ 参考 var SysUtils.SysLocale i1F5un http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 5Xdus8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2c19Db http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; tWcSju http://blog.numino.net/ $[SysUtils.pas R4RnMf http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 hlbzHR http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 A1Bm27 http://blog.numino.net/ 参考 function SysUtils.NextCharIndex PjH9XR http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); SDo6a1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ daJG4r http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; g4bSbH http://blog.numino.net/ $[SysUtils.pas dr1aLx http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 t1S9la http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 oY9CGT http://blog.numino.net/ 参考 function System.Length xhe9oK http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); Gpvems http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rDqXVe http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas p3f71Z http://blog.numino.net/ 功能 返回第一个字符的宽度 o4akz6 http://blog.numino.net/ 说明 参数为空则返回0 o0gzyO http://blog.numino.net/ 参考 function Windows.CharNext NBzh06 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); w428j4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4d4M9t http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 2D26o1 http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 9XJz67 http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; ybbp8i http://blog.numino.net/ 参考 function Windows.CharNext 80d797 http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); 409YjO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uUhpaK http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; Mj998c http://blog.numino.net/ $[SysUtils.pas 698VB7 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 YOKb4Z http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 R6lY2L http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 1A0hdb http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); x9poSY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7TacL5 http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; EP9qCe http://blog.numino.net/ $[SysUtils.pas RYYy01 http://blog.numino.net/ 功能 返回下一个字符的位置 8HlT3v http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 KHjNQ4 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength sSE4Xf http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); b44TMX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 08ivC3 http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; 38Rq4s http://blog.numino.net/ $[SysUtils.pas r97ZRX http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 l3sg0x http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True AfJR3P http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType Ue5pGA http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); xypRNB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GZHlCn http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): hNY3fh http://blog.numino.net/ Boolean; $[SysUtils.pas gMoZ5n http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters kaih17 http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True wlsay5 http://blog.numino.net/ 参考 function SysUtils.ByteType T4JJ6P http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, oG5nGZ http://blog.numino.net/ SpinEdit1.Value); PALqxk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jdllXE http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; OYnll6 http://blog.numino.net/ $[SysUtils.pas 9GsuUB http://blog.numino.net/ 功能 返回包括最后路径分隔符 84L1iu http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 Qrk146 http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length UjUov8 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); hijW86 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y2T9KG http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; 95q3qH http://blog.numino.net/ $[SysUtils.pas TTN77C http://blog.numino.net/ 功能 返回包括最后斜线 dPDWxk http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 567B5z http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter nMC0iZ http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); 0kuuNE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mgc0j2 http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; hv4iEj http://blog.numino.net/ $[SysUtils.pas XFC5ZR http://blog.numino.net/ 功能 返回排除最后路径分隔符 faWdWv http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 lbjzyt http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function 3j7z3f http://blog.numino.net/ System.SetLength CDBc7f http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); rvgL3s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KBaXQT http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; U3C15M http://blog.numino.net/ $[SysUtils.pas b18fKA http://blog.numino.net/ 功能 返回排除最后斜线 ndBSCs http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) thohXJ http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter vE70yT http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); Pm2ob3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aq8yPy http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; 43uJXi http://blog.numino.net/ $[SysUtils.pas F7YFM0 http://blog.numino.net/ 功能 返回最后一个分隔符的位置 Hp1TE5 http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 rE1Fju http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType sPo4nq http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); CwefRG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aob4p0 http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; IeKodQ http://blog.numino.net/ $[SysUtils.pas frD5zo http://blog.numino.net/ 功能 返回比较两个文件名 CT72P4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 RJYXwK http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr ob5dXx http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); q6e4U5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1bt3q6 http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas jAZaZK http://blog.numino.net/ 功能 返回两个文件名是否相等 rqLlex http://blog.numino.net/ 说明 区分大小写 L63pLC http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName 0V1yhk http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); OhxIQq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PUJ0fQ http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas C7OI5i http://blog.numino.net/ 功能 返回小写文件名 HgNJcz http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase ImtviS http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase hJSD1z http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); Ab2IB5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C29hSk http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas iRLGwr http://blog.numino.net/ 功能 返回大写文件名 o1H5yT http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase QBzD0P http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase 9X3Vt5 http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); hlOf4x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q40kPo http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas N20qVX http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 ydK9hf http://blog.numino.net/ 说明 不存在则返回0 m390Im http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 3Oq4AV http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); s3Xtc7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0u7uyX http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas e1qdFP http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 z8Fghy http://blog.numino.net/ 说明 不存在则返回nil 7pGlvf http://blog.numino.net/ 参考 function SysUtils.StrByteType DjDhI5 http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); Cz8guU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tcBcU0 http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas easbiE http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 6Ipt5Z http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' aU7Xur http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan l6LV87 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); ys3c9L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 98bfSd http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas ts5GJ3 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 5YIk6u http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 3uo2QA http://blog.numino.net/ 参考 function SysUtils.StrScan vBJf14 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 5Sjrob http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 84dk2V http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: yE270w http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas nr7JWb http://blog.numino.net/ 功能 返回替换后的字符串 c5TeiO http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 DINLTd http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function s1VzeQ http://blog.numino.net/ System.Copy Cn0SDq http://blog.numino.net/ 例子 n1H54L http://blog.numino.net/ ///////Begin StringReplace 8BwS0x http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Ze0CoT http://blog.numino.net/ begin GBn7na http://blog.numino.net/ Memo1.Lines.Values['[]'] := hdJZ5o http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); tn42VD http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := 6ih3A4 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); JbrI47 http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := 6Z1HF1 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); kprnFm http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := H4PBmq http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, OHJ5n9 http://blog.numino.net/ rfIgnoreCase]); 98myMD http://blog.numino.net/ end; XafjdZ http://blog.numino.net/ ///////End StringReplace mwj21g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K5uAp3 http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas g3pTPR http://blog.numino.net/ 功能 返回字符串S转换成全局标识 xuKjtO http://blog.numino.net/ 说明 如果字符串非法将触发异常 s17144 http://blog.numino.net/ 参考 fuction Windows.Succeeded xahNTs http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); WZD795 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 75y7rB http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas jw9TLq http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 uyDacw http://blog.numino.net/ 说明 <NULL> YHpcUm http://blog.numino.net/ 参考 fuction Windows.Succeeded Q1EW4O http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); MORWF9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

更多相关内容...>>Delphi字符串函数大全

Bug报告 |  免责声明 |  联系我们 |  加入收藏

Copyright © 2006 NuminoStudio(www.numino.net) All Rights Reserved