Delphi字符串函数大全 |
【字符串函数大全】 9119ti http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; aq9UzD http://blog.numino.net/ $[StrUtils.pas fj7880 http://blog.numino.net/ 功能 返回两个字符串是否相似 4Gy1HE http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 ZaJZ3S http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc ui28v6 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); Kk153k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xf9oqk http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 6rL29E http://blog.numino.net/ $[StrUtils.pas ko962c http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText DLc06z http://blog.numino.net/ 说明 不区分大小写 vpBmZP http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos dI9UBP http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 6ZenZ8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o530w7 http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; vvRn21 http://blog.numino.net/ $[StrUtils.pas obVK3q http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 YW92OE http://blog.numino.net/ 说明 不区分大小写 9ra4GZ http://blog.numino.net/ 参考 function Windows.CompareString s32wI2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); Y6QQmd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3TXhmu http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; P620Wb http://blog.numino.net/ $[StrUtils.pas 9Yj4RU http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 207DU2 http://blog.numino.net/ 说明 不区分大小写 rH2Fws http://blog.numino.net/ 参考 function Windows.CompareString T05564 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); r1HylZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bj1iMJ http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): XZAg99 http://blog.numino.net/ string; $[StrUtils.pas QXR5WQ http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 lktwBg http://blog.numino.net/ 说明 不区分大小写 UwOzX4 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 2vftTj http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); 5u7033 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6GFGrn http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of 43Zat9 http://blog.numino.net/ string): Boolean; $[StrUtils.pas 3Fw6B8 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText Grh2AP http://blog.numino.net/ 说明 不区分大小写 0Z0h10 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText 9EZ5s1 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', CNrYA5 http://blog.numino.net/ 'a4']); N8Vvh2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Yn9B3E http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of dCSDhw http://blog.numino.net/ string): Integer; $[StrUtils.pas Z974Xf http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 To0w9I http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 f91Fm5 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText 77CeU0 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); RH0Y7r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YUXMNo http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 8rPf10 http://blog.numino.net/ $[StrUtils.pas LVqYjv http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText TA2qo2 http://blog.numino.net/ 说明 区分大小写 90u0e6 http://blog.numino.net/ 参考 function StrUtils.AnsiPos MfTO4q http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); a7Ip3Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Obqys4 http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; TLU6L8 http://blog.numino.net/ $[StrUtils.pas U2938O http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 8vFT9P http://blog.numino.net/ 说明 区分大小写 SZ1cGE http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr Kv4CgB http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); uJhO77 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LPq9iN http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; xVbokF http://blog.numino.net/ $[StrUtils.pas aT32gz http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 2EEur9 http://blog.numino.net/ 说明 区分大小写 kP72De http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr Bwpwfq http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 8t4X6T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k92mHF http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): 13c3jr http://blog.numino.net/ string; $[StrUtils.pas chBC6c http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 6kA82C http://blog.numino.net/ 说明 区分大小写 vT3i3G http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags A4fpp4 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); 53pdFN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PTpeJh http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of 1ze623 http://blog.numino.net/ string): Boolean; $[StrUtils.pas P02h1q http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText A91DLS http://blog.numino.net/ 说明 区分大小写 r49pep http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr 5K2W1y http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', TNDNlX http://blog.numino.net/ 'a4']); 8vk490 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F0p1gU http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of F7PNCk http://blog.numino.net/ string): Integer; $[StrUtils.pas 584PMw http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 7E4yy7 http://blog.numino.net/ 说明 区分大小写 1QZVK3 http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr O5eMP9 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); I25tkU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C7cHj7 http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; q0GpO0 http://blog.numino.net/ $[StrUtils.pas 4Eb2fB http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 8fSuf7 http://blog.numino.net/ 说明 当ACount为0时返回'' 76CLIp http://blog.numino.net/ 参考 function System.SetLength KL1r5G http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); NFlj96 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tMvWPQ http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas 1nT7yD http://blog.numino.net/ 功能 返回字符串AText的反序 F6FQ8t http://blog.numino.net/ 说明 ReverseString('1234') = '4321' 3eYzMH http://blog.numino.net/ 参考 function System.SetLength weTT3i http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); B292B0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ur4971 http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; F3chTS http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas lsjmxE http://blog.numino.net/ 功能 返回嵌套字符串 L9FoII http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' YCvSR7 http://blog.numino.net/ 参考 function System.Copy CTlgvq http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, 1f4Q6m http://blog.numino.net/ Edit2.Text); 6dfkVR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r0yIxp http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; zQUyNS http://blog.numino.net/ $[StrUtils.pas 21Y8MY http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 304B0c http://blog.numino.net/ 说明 之前建议执行Randomize 4OrcMm http://blog.numino.net/ 参考 function System.Random j8xt7y http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); oAERfd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V3m1FA http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = Q1PS2b http://blog.numino.net/ ''): string; overload; $[StrUtils.pas shYhIQ http://blog.numino.net/ 功能 返回指定的逻辑字符串 O5T3oi http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 0lDOV1 http://blog.numino.net/ 参考 <NULL> acy1l3 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); jiPvAJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7R45DV http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; daMJ30 http://blog.numino.net/ $[StrUtils.pas 4q7iNN http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 Q0bod1 http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' IW2uh7 http://blog.numino.net/ 参考 function System.Copy 4QFl55 http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); i2Cn3x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 53SNen http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; gdr91J http://blog.numino.net/ $[StrUtils.pas E199g4 http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 QI3Agd http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' NCJw7j http://blog.numino.net/ 参考 function System.Copy wm9SKU http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); Sv9qsh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rVpR43 http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): 0fhNhJ http://blog.numino.net/ string; $[StrUtils.pas U4672W http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 GqXHUC http://blog.numino.net/ 说明 其实就是Copy K7nlYO http://blog.numino.net/ 参考 function System.Copy EDidtk http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); U9WtpX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 96w8D0 http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: 341S5z http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): c8aa24 http://blog.numino.net/ PChar; $[StrUtils.pas RdEL4X http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 V1WIaT http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 lnZoRG http://blog.numino.net/ 参考 <NULL> J73hA7 http://blog.numino.net/ 例子 DrWH8u http://blog.numino.net/ ///////Begin SearchBuf hj7HNr http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; 7G2U7i http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; lpS6z0 http://blog.numino.net/ var zmqYds http://blog.numino.net/ Buffer, P: PChar; t49Ms0 http://blog.numino.net/ Size: Word; T26YiH http://blog.numino.net/ begin Hnnkue http://blog.numino.net/ Result := False; 7H2P60 http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; xldEm5 http://blog.numino.net/ Size := EditControl.GetTextLen; 04b7UR http://blog.numino.net/ if (Size = 0) then Exit; Abnh9Q http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 3Tsp1n http://blog.numino.net/ try 6WGhC4 http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); yHv63n http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, hnSNI0 http://blog.numino.net/ SearchString, SearchOptions); qpWXzO http://blog.numino.net/ if P <> nil then begin x1IAh9 http://blog.numino.net/ EditControl.SelStart := P - Buffer; hm11ia http://blog.numino.net/ EditControl.SelLength := Length(SearchString); nc41Gc http://blog.numino.net/ Result := True; Fhvhbc http://blog.numino.net/ end; VqakwF http://blog.numino.net/ finally odBZH3 http://blog.numino.net/ StrDispose(Buffer); IDeEIR http://blog.numino.net/ end; PaHCDK http://blog.numino.net/ end; BWJhbo http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); aVZ3dl http://blog.numino.net/ var nVy61l http://blog.numino.net/ SearchOptions: TStringSearchOptions; AusQjV http://blog.numino.net/ begin ZbYu7O http://blog.numino.net/ SearchOptions := []; BvK9eh http://blog.numino.net/ if CheckBox1.Checked then toLg9G http://blog.numino.net/ Include(SearchOptions, soDown); Crd13T http://blog.numino.net/ if CheckBox2.Checked then 7LGs91 http://blog.numino.net/ Include(SearchOptions, soMatchCase); fkGSFI http://blog.numino.net/ if CheckBox3.Checked then Pni78d http://blog.numino.net/ Include(SearchOptions, soWholeWord); xLC4g7 http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); T1l1f9 http://blog.numino.net/ Memo1.SetFocus; 0WtQI6 http://blog.numino.net/ end; GXUpo9 http://blog.numino.net/ ///////End SearchBuf E0yM2a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e3Zs6x http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): E9Glx9 http://blog.numino.net/ string; $[StrUtils.pas FYIk2f http://blog.numino.net/ 功能 返回探测字符串 r2OWD9 http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html Ohc09C http://blog.numino.net/ 参考 <NULL> vOr1Nb http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 14T0XE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3UhXg7 http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 22pl30 http://blog.numino.net/ 4): Integer; $[StrUtils.pas qJUahe http://blog.numino.net/ 功能 返回探测整数 jKoj23 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 22u06l http://blog.numino.net/ 参考 <NULL> GkzBa8 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); lo2yvj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 82iOR1 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas A1x6rr http://blog.numino.net/ 功能 返回探测整数的解码 yB4sp4 http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') 3tp8nj http://blog.numino.net/ 参考 <NULL> 15m8bg http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); oC3Aqr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KeuZpi http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas qY0PCd http://blog.numino.net/ 功能 返回探测文字数值 43SP5Y http://blog.numino.net/ 说明 没有参数ALength已经固定为4 1LV3rI http://blog.numino.net/ 参考 <NULL> VBNUlo http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); Qf26K4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ft6APc http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas BP5R91 http://blog.numino.net/ 功能 返回探测文字数值的解码 83t7Jy http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') 3LASPP http://blog.numino.net/ 参考 <NULL> Fba86S http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); hKucmN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G58Kd1 http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: cQUprN http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas 66lOu6 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 m5NF4i http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) smTYA2 http://blog.numino.net/ 参考 <NULL> 6cMLMy http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 4pswOy http://blog.numino.net/ SpinEdit1.Value); h8PymG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5czMi6 http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: d9c4sp http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas cYdd5S http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 0N6nzP http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, IRF08B http://blog.numino.net/ ALength)) 269fSo http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr UAjJAe http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, zYzcS6 http://blog.numino.net/ SpinEdit1.Value); 9tfy63 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bf9hZc http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; GGB9tE http://blog.numino.net/ $[StrUtils.pas o60Pjw http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 vmS2cq http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 TlF5d7 http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText LT52KT http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] HfMW6A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eVKo6z http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas aOp0b9 http://blog.numino.net/ 功能 返回一个新的字符串指针地址 AuslL6 http://blog.numino.net/ 说明 字符串S为空时返回NullStr 37oLIf http://blog.numino.net/ 参考 procedure System.New 76mUAp http://blog.numino.net/ 例子 5xzs0n http://blog.numino.net/ ////////Begin NewStr,DisposeStr Y21taQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); BOgeOu http://blog.numino.net/ var RF074G http://blog.numino.net/ P: PString; 1ANk77 http://blog.numino.net/ begin HiSWsv http://blog.numino.net/ P := NewStr(Edit1.Text); JL4ijz http://blog.numino.net/ Edit2.Text := P^; sE2xRg http://blog.numino.net/ DisposeStr(P); lLhX2T http://blog.numino.net/ end; pmEf22 http://blog.numino.net/ ////////End NewStr,DisposeStr KQk7YD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2K0sg0 http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas htum18 http://blog.numino.net/ 功能 释放字符串指针P资源 xU3h8J http://blog.numino.net/ 说明 配合函数NewStr使用 keHQPJ http://blog.numino.net/ 参考 procedure System.Dispose XHqqT8 http://blog.numino.net/ 例子 <如上参见,如下参见> 57wOFE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s5e1OP http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; 7hye21 http://blog.numino.net/ $[SysUtils.pas geBO7S http://blog.numino.net/ 功能 将字符串S更新给字符串指针P iBsTSH http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 PS1567 http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr YBVtnQ http://blog.numino.net/ 例子 FGX3ll http://blog.numino.net/ ////////Begin AssignStr T6gJJD http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0N90Tq http://blog.numino.net/ var eAYX6P http://blog.numino.net/ P: PString; 97J7n4 http://blog.numino.net/ begin hLxQwN http://blog.numino.net/ P := nil; 2MVFfq http://blog.numino.net/ AssignStr(P, Edit1.Text); D5RBQq http://blog.numino.net/ Edit2.Text := P^; e6dIPK http://blog.numino.net/ DisposeStr(P); Wgmb6H http://blog.numino.net/ end; eQS5oZ http://blog.numino.net/ ////////End AssignStr q52wYa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5KER9V http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; k7ZY5R http://blog.numino.net/ $[SysUtils.pas 9lo55R http://blog.numino.net/ 功能 在字符串Dest后追加字符串S L418SN http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 CzhkV2 http://blog.numino.net/ 参考 <NULL> W3eBRU http://blog.numino.net/ 例子 4O5I38 http://blog.numino.net/ ////////Begin AppendStr ccROPx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); csO85t http://blog.numino.net/ var 3AJBzi http://blog.numino.net/ S: string; n1h8O2 http://blog.numino.net/ begin LjrBtI http://blog.numino.net/ S := Edit2.Text; lx33Ht http://blog.numino.net/ AppendStr(S, Edit1.Text); RGlBg8 http://blog.numino.net/ Edit2.Text := S; Yu8MmU http://blog.numino.net/ end; 1ai0Y5 http://blog.numino.net/ ////////End AppendStr 0x7MuF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3hlL6t http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas vx29SM http://blog.numino.net/ 功能 返回字符串S的大写形式 80ph9I http://blog.numino.net/ 说明 非小写字符不处理 v4asWw http://blog.numino.net/ 参考 procedure System.SetLength flawj5 http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); Q6Z9AP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4U9aHS http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas ef2vD6 http://blog.numino.net/ 功能 返回字符串S的小写形式 zJNXk2 http://blog.numino.net/ 说明 非大写字符不处理 oz4cEa http://blog.numino.net/ 参考 procedure System.SetLength AlIMbl http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); 6914R4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xLQjIK http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas ybnB0Y http://blog.numino.net/ 功能 返回比较两个字符 JpvfhD http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 ryfDxQ http://blog.numino.net/ 参考 <NULL> TTI5Ob http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); 3nZvK6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8Y1TRk http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; gAG2bA http://blog.numino.net/ assembler; $[SysUtils.pas NCE4of http://blog.numino.net/ 功能 返回比较两个内存指针 Ft1OqB http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), ag04ZY http://blog.numino.net/ PChar('12c'), 3)=False 25aWen http://blog.numino.net/ 参考 <NULL> 8LqY2a http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); homlV8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ev8pME http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 4FWpkq http://blog.numino.net/ 功能 返回比较两个字符串 ncwm7y http://blog.numino.net/ 说明 不区分大小写 y6cg8F http://blog.numino.net/ 参考 <NULL> PSZ3xO http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); j8tT9d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 162g4u http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 6aftsS http://blog.numino.net/ 功能 返回两个字符串是否相等 qumKj5 http://blog.numino.net/ 说明 不区分大小写 GiiMxW http://blog.numino.net/ 参考 <NULL> OC6e7H http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 2NmJzD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s9FSBY http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas e9D9zl http://blog.numino.net/ 功能 返回字符串S的大写形式 tb7Ail http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 4RCTc0 http://blog.numino.net/ 参考 function Windows.CharUpperBuff OrhROG http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); 3QEqth http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9Ke2dS http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas jZWf2I http://blog.numino.net/ 功能 返回字符串S的小写形式 exz3Hf http://blog.numino.net/ 说明 非大写字符不处理 yY7PS0 http://blog.numino.net/ 参考 function Windows.CharLowerBuff YgYU9y http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); gH7Pfv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 64R1c9 http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas zKoZX4 http://blog.numino.net/ 功能 反回比较两个字符串 0a95JN http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 nL26bb http://blog.numino.net/ 参考 function Windows.CompareString Rkq58l http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); SdL1GY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 93F4vH http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas qCIlHj http://blog.numino.net/ 功能 返回两个字符串是否相等 DT7igf http://blog.numino.net/ 说明 区分大小写 GRD3ih http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr bRyPRn http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); TkJSFd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5b6ttw http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas qHqZn6 http://blog.numino.net/ 功能 反回比较两个字符串 JghdPk http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 ENGT0g http://blog.numino.net/ 参考 function Windows.CompareString 75Sj06 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); 15Or0k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7k1HeM http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas 8xhAwh http://blog.numino.net/ 功能 返回两个字符串是否相等 uy8oI3 http://blog.numino.net/ 说明 不区分大小写 NNanWD http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText g5f8tu http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); GMxl1D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ywQRGq http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 46M7rT http://blog.numino.net/ 功能 返回比较两个指针字符串 Al49Gm http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 KryeuW http://blog.numino.net/ 参考 function System.CompareString y4jcfK http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) wYhsc3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n7T1h9 http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas 2J7YP6 http://blog.numino.net/ 功能 返回比较两个指针字符串 0vAi4Y http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 8r0O0B http://blog.numino.net/ 参考 function Windows.CompareString lc5t2s http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) ZiDy6q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d3tf8H http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; p288aQ http://blog.numino.net/ $[SysUtils.pas MXEb09 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 xce6U8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 9B13VF http://blog.numino.net/ 参考 function Windows.CompareString 7qwptm http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), g7eTWL http://blog.numino.net/ SpinEdit2.Value) ZH35a5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HIM6D3 http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; McPVSE http://blog.numino.net/ $[SysUtils.pas 5l6518 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 YNOGo8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 9ElyNr http://blog.numino.net/ 参考 function Windows.CompareString NqeBVO http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), RdnJ9c http://blog.numino.net/ SpinEdit2.Value) I1FSRQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vxM8E8 http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas jkKeOm http://blog.numino.net/ 功能 返回指针字符串小写形式 5GYUUE http://blog.numino.net/ 说明 非大写字符不处理 7hDS4b http://blog.numino.net/ 参考 function Windows.CharLower f9Djom http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); S0bmX2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VHZayi http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 4mv1CH http://blog.numino.net/ 功能 返回指针字符串大写形式 OeRByu http://blog.numino.net/ 说明 非小写字符不处理 r0193I http://blog.numino.net/ 参考 function Windows.CharUpper tw8x1v http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); bOPnjX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G2gKd9 http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas JWONlV http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 cy0fnx http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 JD114J http://blog.numino.net/ 参考 function SysUtils.ByteType mpLXwI http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); Iuq9kT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QsOrZ8 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas chOdjF http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 Ifa9AH http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 AM0Iet http://blog.numino.net/ 参考 function SysUtils.ByteType E1JfZx http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 1NJ698 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sPVy69 http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas I9sDI4 http://blog.numino.net/ 功能 返回双字节字符串的大写形式 lPpgTH http://blog.numino.net/ 说明 WideChar双字节字符 D0TFt4 http://blog.numino.net/ 参考 function Windows.CharUpperBuffW 5QgTn4 http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); o55yJm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Gt5XwV http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas Zm7AI1 http://blog.numino.net/ 功能 返回双字节字符串的小写形式 98hzkO http://blog.numino.net/ 说明 我怎么就测试不出来呢 Ueigko http://blog.numino.net/ 参考 function Windows.CharLowerBuffW NQO5M6 http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); aeqCgq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cWi0uV http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; Ub2Ocf http://blog.numino.net/ $[SysUtils.pas Hi0K9L http://blog.numino.net/ 功能 返回比较两个双字节字符串 CfB92b http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 VQDaw4 http://blog.numino.net/ 参考 function Windows.CompareStringW 664LfG http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); hJiacQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8bE9E3 http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas PM9970 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 8HgZ4v http://blog.numino.net/ 说明 区分大小写 ig0Jwl http://blog.numino.net/ 参考 function SysUtils.WideCompareStr ACFnAl http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 3x3CVe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q6Q3F1 http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; zI0GYl http://blog.numino.net/ $[SysUtils.pas 10I5Gs http://blog.numino.net/ 功能 返回比较两个双字节字符串 cC5D0m http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 YjeYmy http://blog.numino.net/ 参考 function Windows.CompareStringW tJbfZP http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); FMFXlK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UEzh0U http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; Qqt5ud http://blog.numino.net/ $[SysUtils.pas Aqem7K http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 aff91x http://blog.numino.net/ 说明 不区分大小写 O1aM3O http://blog.numino.net/ 参考 function SysUtils.WideCompareText JgEIqC http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); Ya6Vpf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Sq5aEJ http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas pIfyR7 http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; mu63WN http://blog.numino.net/ $[SysUtils.pas Sfrio0 http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 4LE18F http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 33sTOE http://blog.numino.net/ 参考 function System.Copy 73SQjL http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); 02GqUj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5tK7x3 http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas yDIp0C http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; KreyE2 http://blog.numino.net/ $[SysUtils.pas 5s4Ytz http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 Y59Irf http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 28tunU http://blog.numino.net/ 参考 function System.Copy Ow5vw8 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); DeE8z0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5PR9Kb http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas RiIg55 http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; d0ZOPY http://blog.numino.net/ $[SysUtils.pas NtAxn9 http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 VH3Jfe http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 CIjx2l http://blog.numino.net/ 参考 function System.Copy Xs9NII http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); ncr1w1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YL5aFU http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas r4LXt8 http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 1Rz6W1 http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 V2Vn8O http://blog.numino.net/ 参考 procedure System.Insert 48gikZ http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); yA820F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c87Cao http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; e26sS5 http://blog.numino.net/ $[SysUtils.pas ubdiGR http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 29mJlg http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', YNF0sB http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' gB3fKn http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan hjOWtT http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); BjZuSi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Mf4UEw http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 4tzevb http://blog.numino.net/ $[SysUtils.pas 2Yc9u2 http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 x2d6FO http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 B95Z5z http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan bR9a3v http://blog.numino.net/ 例子 6Wh4O0 http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr o39tG1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); IOFxeL http://blog.numino.net/ var 2bnGhk http://blog.numino.net/ P: PChar; x7V9fg http://blog.numino.net/ begin w5x3B9 http://blog.numino.net/ P := PChar(Edit1.Text); aozI4H http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); q3bADQ http://blog.numino.net/ Edit3.Text := P; 3J5RhE http://blog.numino.net/ end; lF7HT5 http://blog.numino.net/ ///////End AnsiExtractQuotedStr r49VRS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5AtCrv http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; MzO12x http://blog.numino.net/ $[SysUtils.pas 1XOpGb http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 x4dgGC http://blog.numino.net/ 说明 表现形式非法时则返回S r0Vvrp http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr 7s7S2l http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); KW9W3v http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b39kph http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = 3H4c4B http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): 61gTEx http://blog.numino.net/ string; $[SysUtils.pas 8M7Avi http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 clWSeu http://blog.numino.net/ 说明 wv61mH 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 m41u4l http://blog.numino.net/ 参考 function SysUtils.StrNextChar s4E2gF http://blog.numino.net/ 例子 <NULL> bOZreL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4QLmMf http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 5M7MGI http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 G1oI33 http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... TqhVDw http://blog.numino.net/ 参考 <NULL> OmfsKm http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); E5Bix3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rVD7qU http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas V0bllP http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 6A4J2g http://blog.numino.net/ 功能 返回整数Value转换成字符串 pY54sW http://blog.numino.net/ 说明 Format('%d', [Value]) nXOAqm http://blog.numino.net/ 参考 function SysUtils.FmtStr E5eDWv http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 9iAU9h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6F2Mma http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; V9MTfI http://blog.numino.net/ $[SysUtils.pas Y3HMO5 http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; Q5UMLI http://blog.numino.net/ $[SysUtils.pas gmxS2D http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) PUGojX http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 xA2c9p http://blog.numino.net/ 参考 function SysUtils.FmtStr okWi2Z http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 549VDr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 79qI36 http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas DgrGFX http://blog.numino.net/ 功能 返回字符串S转换成整数 OcSy02 http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 7ltbEF http://blog.numino.net/ 参考 procedure System.Val M8L5p2 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); oa05Nu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jRXJZF http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; 3Cm3a0 http://blog.numino.net/ $[SysUtils.pas R8RbPR http://blog.numino.net/ 功能 返回字符串S转换成整数 RnEGIR http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default EuUSk0 http://blog.numino.net/ 参考 procedure System.Val TYERtU http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); D00023 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a6j9OT http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; gFB2gd http://blog.numino.net/ $[SysUtils.pas 63Q1Fh http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 9RsYKK http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 fyx6qS http://blog.numino.net/ 参考 procedure System.Val jzjXzl http://blog.numino.net/ 例子 40bI6u http://blog.numino.net/ ///////Begin TryStrToInt iN06S5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 4910EE http://blog.numino.net/ var JC8096 http://blog.numino.net/ I: Integer; Ku6Vwj http://blog.numino.net/ begin Qfj883 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); vJ5X5u http://blog.numino.net/ SpinEdit1.Value := I; 90Dt1P http://blog.numino.net/ end; 3AAT6k http://blog.numino.net/ ///////End TryStrToInt Sh4IwQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zNq0uH http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas O8MC3u http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 uvNQ92 http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 xZUp2c http://blog.numino.net/ 参考 procedure System.Val 2CtIjd http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 2BI3jm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 41VpD6 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 5KUhZ7 http://blog.numino.net/ $[SysUtils.pas Z6OW0F http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 Sebvij http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default 5IoDyN http://blog.numino.net/ 参考 procedure System.Val WtmB1q http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); PkQTQ6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u4rW7x http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; 4QHy92 http://blog.numino.net/ $[SysUtils.pas tGGRyx http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 QCbKBv http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 axDmb4 http://blog.numino.net/ 参考 procedure System.Val mlt085 http://blog.numino.net/ 例子 CZ4BSs http://blog.numino.net/ ///////Begin TryStrToInt64 6oWJgB http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); d4Yw8t http://blog.numino.net/ var 3wiP9q http://blog.numino.net/ I: Int64; WoDb4n http://blog.numino.net/ begin 5z157F http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); 4Nri8a http://blog.numino.net/ SpinEdit1.Value := I; rq8LlP http://blog.numino.net/ end; w4hD37 http://blog.numino.net/ ///////End TryStrToInt64 3tYRk3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B6xVcU http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas dVN5IP http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 1CGf6R http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 Ca8Lq7 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool O8KYqj http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); 0bPjzy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 749ayD http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): zoM9wQ http://blog.numino.net/ Boolean; $[SysUtils.pas 89Qm5u http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 AU05EI http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default 7KV5dY http://blog.numino.net/ 参考 function SysUtils.TryStrToBool sRL25h http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); BzJJun http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cpF7Ix http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; 553KLa http://blog.numino.net/ $[SysUtils.pas MFtf2f http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 4riHr5 http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 7H4C79 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var ir7ZcQ http://blog.numino.net/ SysUtils.FalseBoolStrs RZ161e http://blog.numino.net/ 例子 JTaw46 http://blog.numino.net/ ///////Begin TryStrToBool mYdS3r http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); WkC5J6 http://blog.numino.net/ var WIJrie http://blog.numino.net/ B: Boolean; 3d4B7M http://blog.numino.net/ begin NWvtcj http://blog.numino.net/ SetLength(TrueBoolStrs, 2); lzgYWm http://blog.numino.net/ SetLength(FalseBoolStrs, 2); S9OE7N http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 4P1gm9 http://blog.numino.net/ FalseBoolStrs[0] := 'False'; 9VfDw1 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; XBowSI http://blog.numino.net/ FalseBoolStrs[1] := 'No'; w5l7Kc http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); Gg3wDc http://blog.numino.net/ CheckBox2.Checked := B; z0N7KH http://blog.numino.net/ end; kNv4Kl http://blog.numino.net/ ///////End TryStrToBool C1r2hd http://blog.numino.net/ 附加 3Q0GcX http://blog.numino.net/ ///////Begin TryStrToBool s2T0Mu http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; DqVBa4 http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; M6VPLx http://blog.numino.net/ var eCaFLr http://blog.numino.net/ I: Integer; 0PAqwC http://blog.numino.net/ begin zGT3jo http://blog.numino.net/ Result := False; 5H2u94 http://blog.numino.net/ for I := Low(aArray) to High(aArray) do GhNxtq http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then HSy0AU http://blog.numino.net/ begin soauG0 http://blog.numino.net/ Result := True; tKLGJ0 http://blog.numino.net/ Break; sNPsBm http://blog.numino.net/ end; kk1gM0 http://blog.numino.net/ end; 5r6zhf http://blog.numino.net/ var 7WcgDS http://blog.numino.net/ LResult: Extended; 3KQ53z http://blog.numino.net/ begin qe8Ina http://blog.numino.net/ Result := TryStrToFloat(S, LResult); IlPg1f http://blog.numino.net/ if Result then 7E6R0L http://blog.numino.net/ Value := LResult <> 0 xlOrjz http://blog.numino.net/ else VPb7z6 http://blog.numino.net/ begin cA1xEB http://blog.numino.net/ Result := True; //修正处 wBcQ0Q http://blog.numino.net/ VerifyBoolStrArray; Nhg5bG http://blog.numino.net/ if CompareWith(TrueBoolStrs) then EMvZXw http://blog.numino.net/ Value := True 0zDpvp http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then Z6K7wO http://blog.numino.net/ Value := False 0P0ugO http://blog.numino.net/ else YkYdGT http://blog.numino.net/ Result := False; y58p7d http://blog.numino.net/ end; QK7vlP http://blog.numino.net/ end; 39xZYf http://blog.numino.net/ ///////End TryStrToBool 2286A0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ js35Wm http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; NHup24 http://blog.numino.net/ $[SysUtils.pas Ood18l http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 yU0YA9 http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' fvq8T2 http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 8XtRXz http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); 3G4vAI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 33FehN http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas VA5rQr http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 OTGk5m http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 Lcyn2Y http://blog.numino.net/ 参考 function SysUtils.FindStringResource tbylzY http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); sjf3d4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tJCw40 http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): Cwy8dq http://blog.numino.net/ string; $[SysUtils.pas BDKi5R http://blog.numino.net/ 功能 返回格式化的字符串资源 Dus3FC http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 uWIL8k http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 8Ktkyg http://blog.numino.net/ 例子 <NULL>; ofo4t1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 58w9OD http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas rG716Z http://blog.numino.net/ 功能 返回指针字符串的长度 J604XQ http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 dS6N2Q http://blog.numino.net/ 参考 <NULL> A0A6yI http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); CbG9Gr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Xd9AYk http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas I5B7qs http://blog.numino.net/ 功能 返回指针字符串的结尾 Mf0SQL http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 c4hsuA http://blog.numino.net/ 参考 <NULL> TpFa0d http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; unojn2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FCGQ2d http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): vsSG7Q http://blog.numino.net/ PChar; $[SysUtils.pas 6YlL0P http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 0ffrK9 http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s b8tcki http://blog.numino.net/ 参考 function System.Move x5r1kG http://blog.numino.net/ 例子 yJ4FhU http://blog.numino.net/ ///////Begin StrMove 4Sj4GW http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); d7FZ0I http://blog.numino.net/ var udU38I http://blog.numino.net/ vBuffer: PChar; 167oPu http://blog.numino.net/ begin sn7nYK http://blog.numino.net/ vBuffer := '0123456789'; J8f513 http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); vV3BFP http://blog.numino.net/ Edit2.Text := vBuffer; 763fg9 http://blog.numino.net/ end; o472w1 http://blog.numino.net/ ///////End StrMove 312YWY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L2tid2 http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; VaVuWj http://blog.numino.net/ $[SysUtils.pas sc39f5 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 022FmF http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 F2gRnl http://blog.numino.net/ 参考 <NULL> XkIKAr http://blog.numino.net/ 例子 U3t817 http://blog.numino.net/ ///////Begin StrCopy m47tu0 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); qVUnVa http://blog.numino.net/ var 7ABk7z http://blog.numino.net/ vBuffer: PChar; cRUI0W http://blog.numino.net/ begin JJclaG http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); 7fYao5 http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); l6UD95 http://blog.numino.net/ Edit2.Text := vBuffer; 6jbX9j http://blog.numino.net/ FreeMem(vBuffer); zJ74NY http://blog.numino.net/ end; jz46Tp http://blog.numino.net/ ///////End StrCopy 53aF57 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BLY31C http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; MGVh1F http://blog.numino.net/ $[SysUtils.pas 99rpHJ http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 6tb7yo http://blog.numino.net/ 说明 可以连接指针字符串 LVty5I http://blog.numino.net/ 参考 <NULL> bo85P3 http://blog.numino.net/ 例子 Kx0zsg http://blog.numino.net/ ///////Begin StrECopy gjP4Fs http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); LXdr3S http://blog.numino.net/ var tB037I http://blog.numino.net/ vBuffer: array[0..255] of Char; 04cbIf http://blog.numino.net/ begin dEp33s http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); R8gUpb http://blog.numino.net/ Edit3.Text := vBuffer; 6L66gi http://blog.numino.net/ end; 2sSHzC http://blog.numino.net/ ///////End StrECopy eawwUe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 015Y25 http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 6OFKcf http://blog.numino.net/ PChar; $[SysUtils.pas MW4tns http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 quxl7F http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 1PWetb http://blog.numino.net/ 参考 <NULL> d73NqF http://blog.numino.net/ 例子 0Hc15N http://blog.numino.net/ ///////Begin StrLCopy lEKPWc http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); S33ZNR http://blog.numino.net/ var K1E39z http://blog.numino.net/ vBuffer: array[0..255] of Char; 9ei3WP http://blog.numino.net/ begin 3MP6K5 http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); O3rGdX http://blog.numino.net/ Edit2.Text := vBuffer; 1Qt0i5 http://blog.numino.net/ end; 9l86MW http://blog.numino.net/ ///////End StrLCopy s72pDg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 085J7M http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; XphHc3 http://blog.numino.net/ $[SysUtils.pas lhb2QE http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 iI2q5e http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) 0F5gDW http://blog.numino.net/ 参考 function SysUtils.StrLCopy iB8lD0 http://blog.numino.net/ 例子 BbzfZK http://blog.numino.net/ ///////Begin StrPCopy j5Av31 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 080mGp http://blog.numino.net/ var uD8p52 http://blog.numino.net/ vBuffer: array[0..255] of Char; 1g1fiK http://blog.numino.net/ begin DAY2Ze http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); Q4tcgo http://blog.numino.net/ Edit2.Text := vBuffer; Zi3WD1 http://blog.numino.net/ end; 2JEL35 http://blog.numino.net/ ///////End StrPCopy FKE0W8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AC9go8 http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: iwji58 http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas pgEqMT http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 6o76hr http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) 9vt4nj http://blog.numino.net/ 参考 function SysUtils.StrLCopy EGT98V http://blog.numino.net/ 例子 86q47p http://blog.numino.net/ ///////Begin StrPLCopy c6mxzH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); HZNBkp http://blog.numino.net/ var AETdZq http://blog.numino.net/ vBuffer: array[0..255] of Char; 1zbBcD http://blog.numino.net/ begin QmlU2a http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); 8tG7TR http://blog.numino.net/ Edit2.Text := vBuffer; 92VRhq http://blog.numino.net/ end; g64gec http://blog.numino.net/ ///////End StrPLCopy zdw4vT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c9Px6b http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; my1sgM http://blog.numino.net/ $[SysUtils.pas BfwO78 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source kh14Am http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) Qhlhp6 http://blog.numino.net/ 参考 function SysUntils.StrCopy 1S7MG0 http://blog.numino.net/ 例子 d16uOg http://blog.numino.net/ ///////Begin StrCat baraJ3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); PT4393 http://blog.numino.net/ var q7udy8 http://blog.numino.net/ vBuffer: array[0..255] of Char; ER9eyT http://blog.numino.net/ begin 67Yom7 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); IDZUZI http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); fh21gY http://blog.numino.net/ Edit3.Text := vBuffer; FkC0o8 http://blog.numino.net/ end; NFMLCA http://blog.numino.net/ ///////End StrCat ccVwdC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wHiVoL http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): e8d8S8 http://blog.numino.net/ PChar; $[SysUtils.pas 04lK6A http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source GDQY1K http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 fC5H59 http://blog.numino.net/ 参考 <NULL> QMHWMO http://blog.numino.net/ 例子 955owU http://blog.numino.net/ ///////Begin StrLCat U3y9Ju http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5OEFKn http://blog.numino.net/ var OH0pfs http://blog.numino.net/ vBuffer: array[0..255] of Char; FicgT3 http://blog.numino.net/ begin faDk0J http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); 60J4i6 http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); VUYR0l http://blog.numino.net/ Edit3.Text := vBuffer; gUgkPX http://blog.numino.net/ end; alcf5Z http://blog.numino.net/ ///////End StrLCat B684i2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5BdR6C http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas Ia15iM http://blog.numino.net/ 功能 返回比较两个指针字符串 XHsPJ7 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 aOcoH0 http://blog.numino.net/ 参考 <NULL> wX9n2x http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); m7NBe1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XZ4aEf http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 8y5sFe http://blog.numino.net/ 功能 返回比较两个指针字符串 l5rXTD http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 o5N478 http://blog.numino.net/ 参考 <NULL> rS7MKO http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); 09rVvh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8V1TW5 http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; Nzfw9f http://blog.numino.net/ $[SysUtils.pas rdN7wc http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 D3E2vf http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 Ahb63i http://blog.numino.net/ 参考 <NULL> 7OsJWV http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), EimWVy http://blog.numino.net/ SpinEdit2.Value) 40d3CQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7Q39Xf http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; vL59N8 http://blog.numino.net/ $[SysUtils.pas 2twy4P http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 iCTMMO http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 k2EmTQ http://blog.numino.net/ 参考 <NULL> s2z16R http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), NQnZTW http://blog.numino.net/ SpinEdit2.Value) EG5Y76 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4tz9j8 http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas iy6vpA http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 Km5NX7 http://blog.numino.net/ 说明 没有找到则返回空指针 fY8S2Q http://blog.numino.net/ 参考 <NULL> Yq7k33 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); nUTgoA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 81T3S3 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 9qM1FM http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 39u47V http://blog.numino.net/ 说明 没有找到则返回空指针 UVvx92 http://blog.numino.net/ 参考 <NULL> 8ri7O4 http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); iq0d1R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pP1SK7 http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 6CvKcr http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 97ncbn http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' Q7cGmB http://blog.numino.net/ 参考 <NULL> 1z0ArR http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); bxE48k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j63mO5 http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas 3e51l4 http://blog.numino.net/ 功能 返回指针字符串Str大写 hrWqJp http://blog.numino.net/ 说明 非小写字符不处理 kCKs1v http://blog.numino.net/ 参考 <NULL> 2G85q1 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); wnd5gx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ geQWnr http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas PZX6AF http://blog.numino.net/ 功能 返回指针字符串Str小写 x605ya http://blog.numino.net/ 说明 非大写字符不处理 WR28mr http://blog.numino.net/ 参考 <NULL> 4MX7Ba http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); UelmQH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xEl6ZY http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas EBXUNX http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 9PK1B7 http://blog.numino.net/ 说明 也可以直接赋值 ne7891 http://blog.numino.net/ 参考 <NULL> I4GhZr http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 05Tqee http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nq5Fc1 http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 3iKNxw http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 5a2V5S http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 X1y21u http://blog.numino.net/ 参考 function System.GetMem cKm33j http://blog.numino.net/ 例子 oTvM8n http://blog.numino.net/ ///////Begin StrAlloc 1Ng0Qq http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); qLrM2E http://blog.numino.net/ var 9AJHBw http://blog.numino.net/ P: PChar; A5gw25 http://blog.numino.net/ begin EjL7oX http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); TKIu4A http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); UknFTn http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); UUUlIn http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); AfYIg4 http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); uVciX6 http://blog.numino.net/ StrDispose(P); iPiltx http://blog.numino.net/ end; o8qSxr http://blog.numino.net/ ///////End StrAlloc 9a13I0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6QET8T http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas oaIwHP http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 715qie http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 2I5zW1 http://blog.numino.net/ 参考 function System.SizeOf Cvel6L http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); G56f4o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QrTMhf http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas z9iV62 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 19LvPk http://blog.numino.net/ 说明 如果Str为nil则返回nil 92XtLX http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function 4pZ344 http://blog.numino.net/ SysUtils.StrAlloc x6R8eH http://blog.numino.net/ 例子 tAaMd3 http://blog.numino.net/ ///////Begin StrNew,StrDispose zAhkpA http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); S8cDNS http://blog.numino.net/ var sn2UT0 http://blog.numino.net/ P: PChar; wcw7oN http://blog.numino.net/ begin 8BiXrk http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); Aa5Ue0 http://blog.numino.net/ ShowMessage(P); vql4mm http://blog.numino.net/ StrDispose(P); eJNvjb http://blog.numino.net/ end; 7Q2iZS http://blog.numino.net/ ///////End StrNew,StrDispose jA6fuM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QzMrw1 http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas Z48YJZ http://blog.numino.net/ 功能 释放指针字符串Str内存资源 o9RdKD http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 kHMwit http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem A3cgkc http://blog.numino.net/ 例子 <参见StrNew> VvVf9Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CV3JEY http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): d5VfFc http://blog.numino.net/ string; $[SysUtils.pas oWfnbZ http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 S66rYr http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给你个直观的理解 zQTfY7 http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 hKlGI1 http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 sMWr9B http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 7V80SF http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 Qg0DcO http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 oCM7lQ http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 T3Ii02 http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 OjPKMf http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 a3V20c http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 9Ays6k http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 44aTn4 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 n1eFBw http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" lOn0ql http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 HJI6je http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr UHfp4D http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); rym67Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8D195c http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: g7ZzSv http://blog.numino.net/ array of const); $[SysUtils.pas tBcBwN http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 6ZXUWj http://blog.numino.net/ 说明 <参见Format> FgKden http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function n99hu5 http://blog.numino.net/ System.SetLength 4T871r http://blog.numino.net/ 例子 <参见Format> OD5dsi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8QZ1FW http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): FQvJFK http://blog.numino.net/ PChar; $[SysUtils.pas DiuI81 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 6M2mj8 http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil 0Xtk4O http://blog.numino.net/ 参考 function SysUtils.FormatBuf D5RE3f http://blog.numino.net/ 例子 <参见Format> y0N6r6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zNDUnW http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; 7IZXqI http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas 5QO5aF http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 Nl9vAR http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; Z6yjSu http://blog.numino.net/ 参考 function SysUtils.FormatBuf 5C14BJ http://blog.numino.net/ 例子 <参见Format> T1D19S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GpTws3 http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: 1e3LKb http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas Yf2ElM http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 AR2C3Z http://blog.numino.net/ 说明 <NULL> hETRkz http://blog.numino.net/ 参考 <NULL> acF7Sj http://blog.numino.net/ 例子 <参见Format> E58b9R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ olJVqz http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of Xvkka3 http://blog.numino.net/ const): WideString; $[SysUtils.pas i4EOd1 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 EvIxNn http://blog.numino.net/ 说明 <NULL> thIY7e http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr 8QXeP1 http://blog.numino.net/ 例子 <参见Format> UjDejZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5Tbr7T http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; UGhbWb http://blog.numino.net/ const Args: array of const); $[SysUtils.pas 0U26Ar http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 696PTl http://blog.numino.net/ 说明 <NULL> 499EPX http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf t3m909 http://blog.numino.net/ 例子 <参见Format> Etgygl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n8T7y5 http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; b0Y30D http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 8V5Q67 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 15MEY4 http://blog.numino.net/ 说明 <NULL> L4RhOE http://blog.numino.net/ 参考 <NULL> CDAJto http://blog.numino.net/ 例子 <参见Format> 28em1T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WqOakZ http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 6KPdX8 http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 2Djv40 http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 NLPaKn http://blog.numino.net/ 参考 function SysUtils.FloatToText spi0SA http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 9n8YC2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nPMEbs http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas gDg70b http://blog.numino.net/ 功能 返回货币数Value转换成字符串 ptEoWE http://blog.numino.net/ 说明 货币数只保留四位小数 ey5Hqo http://blog.numino.net/ 参考 function SysUtils.FloatToText XTmyl1 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); UcBC3o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RG180j http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas ymZZU3 http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 zdCHK3 http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 8gA9C5 http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency o4FZ8X http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); iWKBB1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lh8BnN http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, 9SNFJ5 http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas 92jgcZ http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 g9QCeb http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 GSdgyX http://blog.numino.net/ 参考 function SysUtils.FloatToText shxdN9 http://blog.numino.net/ 例子 BbG5mW http://blog.numino.net/ ///////Begin FloatToStrF c978Q3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); FhKq3G http://blog.numino.net/ begin 4IMC9Q http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, W5tmIk http://blog.numino.net/ 0), AMTZ7X http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); 0rO0sE http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, H3rAFf http://blog.numino.net/ 0), 8K1Y7X http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); QtS3CY http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), r3r429 http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); y7Ry1a http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, A28roy http://blog.numino.net/ 0), h58871 http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); ijP1oD http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 7vgCtm http://blog.numino.net/ 0), Q1SN11 http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); HJw0cG http://blog.numino.net/ end; NVR7NW http://blog.numino.net/ ///////End FloatToStrF cZn0wN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DxWpxJ http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: 1yBoj6 http://blog.numino.net/ Integer): string; $[SysUtils.pas ceL5Rz http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 42M6dS http://blog.numino.net/ 说明 Digits指定小数宽度 e70Me7 http://blog.numino.net/ 参考 function SysUtils.FloatToText NXs5Z7 http://blog.numino.net/ 例子 c6w39y http://blog.numino.net/ ///////Begin CurrToStrF y45KDp http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5DHaJq http://blog.numino.net/ begin EjygH1 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), LVagFO http://blog.numino.net/ ffGeneral, SpinEdit1.Value); dwsXAC http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, KM03TC http://blog.numino.net/ 0), qr0N41 http://blog.numino.net/ ffExponent, SpinEdit1.Value); cJSa5o http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 0V1eP6 http://blog.numino.net/ ffFixed, SpinEdit1.Value); oUeflT http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), IaVuko http://blog.numino.net/ ffNumber, SpinEdit1.Value); 1dEuG3 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, Rj6tG9 http://blog.numino.net/ 0), 2T21cC http://blog.numino.net/ ffCurrency, SpinEdit1.Value); wG734m http://blog.numino.net/ end; Nky1P4 http://blog.numino.net/ ///////End CurrToStrF hKkfsQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GwUsls http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: GiOrm1 http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; 88TwkX http://blog.numino.net/ $[SysUtils.pas QFKB1c http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 jaZwLk http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 tMwRm2 http://blog.numino.net/ 参考 <NULL> l0G4aE http://blog.numino.net/ 例子 F8Q080 http://blog.numino.net/ ///////Begin FloatToText 7512Y4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); pR5dK2 http://blog.numino.net/ var GT6ZK0 http://blog.numino.net/ vBuffer: array[0..255] of Char; gkkwIn http://blog.numino.net/ E: Extended; 5GrZrS http://blog.numino.net/ begin 08yeVs http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); JSL89r http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, sB1xa1 http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 1Msl1S http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); aTyU4m http://blog.numino.net/ end; gWZ635 http://blog.numino.net/ ///////End FloatToText( B9icO3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xEFH0x http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; uF5aby http://blog.numino.net/ $[SysUtils.pas 15KnJn http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 69P7t5 http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' 72fkZa http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 5oTlL7 http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); R3wtKt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ebyQO4 http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; dB60rH http://blog.numino.net/ $[SysUtils.pas 81850H http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 hm9iLW http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' 4NO8yM http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt XbJlFR http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 0KB94N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J7iEON http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: j2d0E5 http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas k62M43 http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 cP619H http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 a579xr http://blog.numino.net/ 参考 <NULL> G0aXTO http://blog.numino.net/ 例子 J83QR8 http://blog.numino.net/ ///////Begin FloatToTextFmt smu48p http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); fiF82H http://blog.numino.net/ var A35LW5 http://blog.numino.net/ vBuffer: array[0..255] of Char; C941qX http://blog.numino.net/ E: Extended; ADoxN9 http://blog.numino.net/ begin 2831pm http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 57y4VB http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, aH08ty http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); qHLprP http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); o4lR2E http://blog.numino.net/ end; js9xyw http://blog.numino.net/ ///////End FloatToTextFmt Ka99bQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E98zqR http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas xTN2Sd http://blog.numino.net/ 功能 返回字符串S转换成浮点数 KXBODp http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 yYJ62l http://blog.numino.net/ 参考 function SysUtils.TextToFloat O609fw http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; Jj29x7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FJEO8b http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): edmE26 http://blog.numino.net/ Extended; $[SysUtils.pas 7YPyR6 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 dd2eD1 http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default BzPLT1 http://blog.numino.net/ 参考 function SysUtils.TextToFloat bhFxgf http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 80skl8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3WhnAV http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; DDumzp http://blog.numino.net/ overload; $[SysUtils.pas NCqhNV http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; TfBh7X http://blog.numino.net/ overload; $[SysUtils.pas 3xeKPc http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; Wb1OzO http://blog.numino.net/ overload; $[SysUtils.pas ZDHVDJ http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 xzYy3A http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 2AxKlr http://blog.numino.net/ 参考 function SysUtils.TextToFloat hshTxA http://blog.numino.net/ 例子 gSOEse http://blog.numino.net/ ///////Begin TryStrToFloat WYzu2d http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); TF6k9b http://blog.numino.net/ var PlUFvs http://blog.numino.net/ E: Extended; QYUPy8 http://blog.numino.net/ begin HEL1Ts http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 2Vch0J http://blog.numino.net/ Edit2.Text := FormatFloat('', E); WVsOnG http://blog.numino.net/ end; 75TssG http://blog.numino.net/ ///////End TryStrToFloat 18D2uQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2KLc8d http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas DvjJ2d http://blog.numino.net/ 功能 返回字符串S转换成货币数 m3TS60 http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 63t0gd http://blog.numino.net/ 参考 function SysUtils.TextToFloat 4i9bH4 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; E3vQGm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kmdopR http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): vE4g7P http://blog.numino.net/ Currency; $[SysUtils.pas tY2CJT http://blog.numino.net/ 功能 返回字符串S转换成货币数 e0mRhb http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default v3wz30 http://blog.numino.net/ 参考 function SysUtils.TextToFloat sZFRjV http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 88ccdl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bb3wGQ http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; 5bpZ4Z http://blog.numino.net/ $[SysUtils.pas 0gtD04 http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 g1vSrU http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 V8QZ3N http://blog.numino.net/ 参考 function SysUtils.TextToFloat I5T9UD http://blog.numino.net/ 例子 AelptT http://blog.numino.net/ ///////Begin TryStrToCurr 5f6hDa http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); U0Rb07 http://blog.numino.net/ var r92TmK http://blog.numino.net/ C: Currency; Xv6Cz3 http://blog.numino.net/ begin 1SCdiI http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); g16f2g http://blog.numino.net/ Edit2.Text := FormatCurr('', C); QR5Ncv http://blog.numino.net/ end; S60wTY http://blog.numino.net/ ///////End TryStrToCurr DzWwXj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SZOKVe http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): WpW32O http://blog.numino.net/ Boolean; $[SysUtils.pas hD2yU4 http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value 8Oc0u9 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 bnpEnu http://blog.numino.net/ 参考 <NULL> ULB2W9 http://blog.numino.net/ 例子 FN1sHQ http://blog.numino.net/ ///////Begin TextToFloat 128KS5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6y77Jy http://blog.numino.net/ var J38u26 http://blog.numino.net/ E: Extended; 26GmHF http://blog.numino.net/ begin 4njF15 http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, 30FqTN http://blog.numino.net/ fvExtended); Ova2SQ http://blog.numino.net/ Edit2.Text := FormatFloat('', E); UnHULF http://blog.numino.net/ end; 9AOG9o http://blog.numino.net/ ///////End TextToFloat UzeMvv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QpbL0O http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 0u281w http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 7GbAjK http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 A7qvM8 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat PE70I2 http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); DYosGQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Gm4epV http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas O53WxX http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 O6LX80 http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 4jY3ei http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat kn5z64 http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); Dh0znS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Rm2Mih http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; Qx8cAl http://blog.numino.net/ $[SysUtils.pas eCyKRF http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 7QQ4t1 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 9kI0mV http://blog.numino.net/ 参考 function SysUtils.DateTimeToString Q7x4hL http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); 04pXp3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ geRfFM http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 4X33B4 http://blog.numino.net/ 功能 返回字符串S转换成日期 vMqQvJ http://blog.numino.net/ 说明 字符非日期表达时将引起异常 V33IK7 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 0qhceZ http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); 5qkT5r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UlKa7d http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): o425On http://blog.numino.net/ TDateTime; $[SysUtils.pas 02MyI7 http://blog.numino.net/ 功能 返回字符串S转换成日期 M7wg5J http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default 440y96 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 1MbYTY http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); xJhuGE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Tr7JcC http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; W4CLMO http://blog.numino.net/ $[SysUtils.pas 240Ltd http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 bYF60z http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 Tllm5x http://blog.numino.net/ 参考 <NULL> 95PV6L http://blog.numino.net/ 例子 nUT26b http://blog.numino.net/ ///////Begin TryStrToDate yZHV4V http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1m6L5H http://blog.numino.net/ var CBpG36 http://blog.numino.net/ vDateTime: TDateTime; 9lg5JP http://blog.numino.net/ begin ogAUk0 http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); 6jWTYV http://blog.numino.net/ DateTimePicker1.Date := vDateTime; 4vtvWK http://blog.numino.net/ end; dVbsA5 http://blog.numino.net/ ///////End TryStrToDate emL1RN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UcVWoG http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas D31HNY http://blog.numino.net/ 功能 返回字符串S转换成时间 XcTgPb http://blog.numino.net/ 说明 字符非时间表达时将引起异常 1ekT8e http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 2KY5JM http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); S6rD26 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TFgzQ7 http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): 3J16cg http://blog.numino.net/ TDateTime; $[SysUtils.pas 4c3E2u http://blog.numino.net/ 功能 返回字符串S转换成时间 5rHKyD http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default oIdfLa http://blog.numino.net/ 参考 function SysUtils.TryStrToTime rf7uaY http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 7XVcsE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Sd5wkR http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; 57wj5P http://blog.numino.net/ $[SysUtils.pas nUtz6u http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 Qm7GN3 http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 8juqXW http://blog.numino.net/ 参考 <NULL> aNzas0 http://blog.numino.net/ 例子 wecB1X http://blog.numino.net/ ///////Begin TryStrToTime iD5bcw http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); UKgyTr http://blog.numino.net/ var 2U2VTp http://blog.numino.net/ vDateTime: TDateTime; h77imY http://blog.numino.net/ begin OXQ53S http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); nyFkW0 http://blog.numino.net/ DateTimePicker1.Time := vDateTime; sh27X3 http://blog.numino.net/ end; Cg7LRy http://blog.numino.net/ ///////End TryStrToTime Uji42L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Xv5kxG http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas Mxy8PK http://blog.numino.net/ 功能 返回字符串S转换成日期时间 SWpAcQ http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 2kOiuj http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 7EBQNL http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); RYn85S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ytvMb2 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): ZmD37c http://blog.numino.net/ TDateTime; $[SysUtils.pas L3LHgx http://blog.numino.net/ 功能 返回字符串S转换成日期时间 rZ6L3m http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default Mzn0ln http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime xnrdl3 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); MTyzg2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cbZ3c3 http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): 5Z06eG http://blog.numino.net/ Boolean; $[SysUtils.pas S0yZo1 http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 0d721M http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 lrt6Fv http://blog.numino.net/ 参考 <NULL> c1A0Rc http://blog.numino.net/ 例子 6bocF5 http://blog.numino.net/ ///////Begin TryStrToDateTime gf1MzT http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); NAuWpY http://blog.numino.net/ var 2gu4Rs http://blog.numino.net/ vDateTime: TDateTime; 93x477 http://blog.numino.net/ begin R9bYjS http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); PG7qsf http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); 1iz9W8 http://blog.numino.net/ end; 86PXIW http://blog.numino.net/ ///////End TryStrToDateTime 3h792I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 43dd3v http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; lXiJwh http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas f0e3un http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 cj5qPd http://blog.numino.net/ 说明 <参见FormatDateTime> 7rSc2O http://blog.numino.net/ 参考 function System.SetString huAIVw http://blog.numino.net/ 例子 <参见FormatDateTime> dVDCMQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nrG2M3 http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: KCDf74 http://blog.numino.net/ string): string; platform; $[SysUtils.pas bc9y5f http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 rS2r84 http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' mXVSmi http://blog.numino.net/ 参考 function Windows.GetLocaleInfo F248rn http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); KsVk6Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HdPluR http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): T147Ft http://blog.numino.net/ Char; platform; $[SysUtils.pas K8UDlN http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 Y0pkl8 http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' rTJjGG http://blog.numino.net/ 参考 function Windows.GetLocaleInfo 8X0ibW http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); DHYFFf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0TAwFO http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; JMkLfn http://blog.numino.net/ $[SysUtils.pas y6o9q3 http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 ZOT7ox http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) 3HVCHV http://blog.numino.net/ 参考 var SysUtils.SysLocale 27WVXW http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); HW8R7z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5j4p29 http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 2QLwD6 http://blog.numino.net/ $[SysUtils.pas DKdV7G http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 XR83s8 http://blog.numino.net/ 说明 Index从0开始 mkWHl0 http://blog.numino.net/ 参考 var SysUtils.SysLocale 2Y4vQ6 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), eQ4Z99 http://blog.numino.net/ SpinEdit2.Value)); a35UlA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3wQ6Gv http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; 7gtkzh http://blog.numino.net/ $[SysUtils.pas c0R17f http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 RF6APZ http://blog.numino.net/ 说明 MaxLen指定处理字符个数 7DiFw4 http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex WUeNPm http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 5w0kEW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YS4hk4 http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; GSZ2En http://blog.numino.net/ $[SysUtils.pas HRChhj http://blog.numino.net/ 功能 返回字符串S中有多少个字符 9Gk8rJ http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 kaX9Y2 http://blog.numino.net/ 参考 var SysUtils.SysLocale 179kHt http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 8YEowi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K3tGSF http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; 2juM6N http://blog.numino.net/ $[SysUtils.pas F8rKTG http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 7k9UAd http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 A4od0P http://blog.numino.net/ 参考 function SysUtils.NextCharIndex VirJzg http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); UE7D5g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zmyH8g http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; Cg3Txa http://blog.numino.net/ $[SysUtils.pas Tphs3O http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 9ET17O http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 dMf5u7 http://blog.numino.net/ 参考 function System.Length 5sM18v http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 04Wz8i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O0q2TH http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas WzuA66 http://blog.numino.net/ 功能 返回第一个字符的宽度 0eBuvi http://blog.numino.net/ 说明 参数为空则返回0 U0cRxu http://blog.numino.net/ 参考 function Windows.CharNext 3l3gr8 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); qME7AM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8R9708 http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 6TYK5K http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 JuzOx3 http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; aXUjbF http://blog.numino.net/ 参考 function Windows.CharNext XwJ32h http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); y1hoo5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n2m5od http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; wS5FAL http://blog.numino.net/ $[SysUtils.pas mL44CV http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 N8p84E http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 IoNxk5 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength r83BJ0 http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); QY1K2W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iRG8y3 http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; Fx9fYF http://blog.numino.net/ $[SysUtils.pas 0JDY9a http://blog.numino.net/ 功能 返回下一个字符的位置 AFOB76 http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 mEyn4H http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 8AkJeq http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); x5D9Q9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ it0zj2 http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; G994q6 http://blog.numino.net/ $[SysUtils.pas N2as7r http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 b0F4Ks http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True KsWAw5 http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType XG5NRO http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); x39tBf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J86UF0 http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): qhtOxv http://blog.numino.net/ Boolean; $[SysUtils.pas 4V9E9l http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 45OlN5 http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 2jaWm5 http://blog.numino.net/ 参考 function SysUtils.ByteType v0qSHG http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, TPOSIj http://blog.numino.net/ SpinEdit1.Value); ZUj9YI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uMOHC7 http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; h1ptgV http://blog.numino.net/ $[SysUtils.pas F084nV http://blog.numino.net/ 功能 返回包括最后路径分隔符 P13fiP http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 Y5jbHa http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length mVe1al http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 4WEK6T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J3199E http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; J1Z419 http://blog.numino.net/ $[SysUtils.pas Qd94m6 http://blog.numino.net/ 功能 返回包括最后斜线 0Jn1QO http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); Uk2Qz2 http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter kl8i9i http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); UYuqn0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pc2y2T http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; Q66c6b http://blog.numino.net/ $[SysUtils.pas ss7tPM http://blog.numino.net/ 功能 返回排除最后路径分隔符 05lLxJ http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 b5RdSL http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function 0MO2bd http://blog.numino.net/ System.SetLength fK4BWS http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); yNZQwY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ky9nYc http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; 0cYr8R http://blog.numino.net/ $[SysUtils.pas 091v7q http://blog.numino.net/ 功能 返回排除最后斜线 0Kfgqk http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) 2P97c2 http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter Q5yWSZ http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); X995yp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 15ILSc http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; Sl1fju http://blog.numino.net/ $[SysUtils.pas fq7rFT http://blog.numino.net/ 功能 返回最后一个分隔符的位置 j60HGQ http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 7HO78Q http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType pzpo6r http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); n4rH1C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 547fx1 http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; c77hH0 http://blog.numino.net/ $[SysUtils.pas YrM3yc http://blog.numino.net/ 功能 返回比较两个文件名 ed1Toc http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 OOvvq4 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr jH8QPG http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); fTJU50 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Airo4p http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas 2Y7yVr http://blog.numino.net/ 功能 返回两个文件名是否相等 61N40c http://blog.numino.net/ 说明 区分大小写 yJ6wh1 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName G8HXVN http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); B2t9Wt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gr77kq http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas 2Mwpzr http://blog.numino.net/ 功能 返回小写文件名 D66FOD http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase 8YFJM0 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase WmEULF http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); E6YA1b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 64l9WW http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas Qcuh1d http://blog.numino.net/ 功能 返回大写文件名 8l0FuN http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 5STgha http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase 5iXf9M http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); H7TalG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cyr5yJ http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas HQ792X http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 Q32k3Y http://blog.numino.net/ 说明 不存在则返回0 jJ8UdY http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 51Bw3x http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); PBwVA8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TL9t5z http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 3Qp7bu http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 jlF5l0 http://blog.numino.net/ 说明 不存在则返回nil c29275 http://blog.numino.net/ 参考 function SysUtils.StrByteType 63Bv2z http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); XUdBvA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rN2Zeb http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas QWVQg8 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 fwWapu http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' jzgtLA http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 8w63pD http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 7MVRAl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3G46t9 http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas O03Rko http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 VauEGU http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 86HEmj http://blog.numino.net/ 参考 function SysUtils.StrScan RPx9eD http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); K27RqD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fm69ev http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: faB3YN http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas fnUP7Y http://blog.numino.net/ 功能 返回替换后的字符串 OIo316 http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 TM77Pc http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function Os6fsf http://blog.numino.net/ System.Copy hiPTcL http://blog.numino.net/ 例子 TMcn0C http://blog.numino.net/ ///////Begin StringReplace N7IM5r http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); q3Rox7 http://blog.numino.net/ begin qJAR9k http://blog.numino.net/ Memo1.Lines.Values['[]'] := N7UME7 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); LW7L1a http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := AstW5M http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); UrkH7c http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := 384eI9 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); o8yBfS http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := twtug1 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, egM252 http://blog.numino.net/ rfIgnoreCase]); rtklP3 http://blog.numino.net/ end; 3ITVGY http://blog.numino.net/ ///////End StringReplace xxPuGm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2b5zaR http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas KVZXpp http://blog.numino.net/ 功能 返回字符串S转换成全局标识 8d4Mwj http://blog.numino.net/ 说明 如果字符串非法将触发异常 XCAUOn http://blog.numino.net/ 参考 fuction Windows.Succeeded H3QThX http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); ffSo0I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d24Rpb http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas Uk7O8Y http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 8ul27x http://blog.numino.net/ 说明 <NULL> dOsy9q http://blog.numino.net/ 参考 fuction Windows.Succeeded v1GXbJ http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); KViCv8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━
|
|