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

Delphi字符串函数大全 【字符串函数大全】 270mmt http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; 9SMpQ1 http://blog.numino.net/ $[StrUtils.pas h5e8Av http://blog.numino.net/ 功能 返回两个字符串是否相似 TZ0aG9 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 bGrHg2 http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc Z0AF3l http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 0G6nxA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q4len4 http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; p792km http://blog.numino.net/ $[StrUtils.pas rR3GN5 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText z1N2l6 http://blog.numino.net/ 说明 不区分大小写 9R7gGG http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos T4h1k5 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 16U01D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A5b59Y http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; tF4X9i http://blog.numino.net/ $[StrUtils.pas 38194C http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 dD0RM4 http://blog.numino.net/ 说明 不区分大小写 6rTQXC http://blog.numino.net/ 参考 function Windows.CompareString nHFP9P http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); az250b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DZ2h2X http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 5nP3fb http://blog.numino.net/ $[StrUtils.pas EWe2qy http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 Fn2I6m http://blog.numino.net/ 说明 不区分大小写 FUMBxu http://blog.numino.net/ 参考 function Windows.CompareString 53o1o7 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); OqSVx2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XKx91W http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 66XWOh http://blog.numino.net/ string; $[StrUtils.pas 16HTPz http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 HpIcY5 http://blog.numino.net/ 说明 不区分大小写 Jr6f5s http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags Kxiedv http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); LTXF5I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4gt5lF http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of 62801n http://blog.numino.net/ string): Boolean; $[StrUtils.pas 93F47t http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText fB53cn http://blog.numino.net/ 说明 不区分大小写 Fvld3D http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText U4g6hj http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', u0p1tm http://blog.numino.net/ 'a4']); ycnvwb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VHiLCI http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of s7tPUb http://blog.numino.net/ string): Integer; $[StrUtils.pas BZ5rt0 http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 pNGP76 http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 YbcPv8 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText 9JvU27 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); Ni1SKR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3865jL http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; lGnLbn http://blog.numino.net/ $[StrUtils.pas iJWY5i http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText QozE2A http://blog.numino.net/ 说明 区分大小写 ETITkf http://blog.numino.net/ 参考 function StrUtils.AnsiPos 176bT3 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); L9QWVj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X2c5c0 http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; 3Wynr4 http://blog.numino.net/ $[StrUtils.pas v42Lhu http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 2f8shF http://blog.numino.net/ 说明 区分大小写 4KucGt http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr uOLjSM http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); BI6WIP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0vm0iB http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; 9I7A5Q http://blog.numino.net/ $[StrUtils.pas ZAj97H http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 925Eet http://blog.numino.net/ 说明 区分大小写 0w4g26 http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr jSbQbr http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); V5BW50 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G6K70Z http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): z3gTq4 http://blog.numino.net/ string; $[StrUtils.pas e1UtYr http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 Pbe8f2 http://blog.numino.net/ 说明 区分大小写 fzv665 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 52Qgkk http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); H4xBIb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mLdSAD http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of W2Ywhq http://blog.numino.net/ string): Boolean; $[StrUtils.pas qVqDYz http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText oagwJf http://blog.numino.net/ 说明 区分大小写 JqWD0K http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr 4ivOTL http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 3yY7gD http://blog.numino.net/ 'a4']); vInoEO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I46cla http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of 1Ad2py http://blog.numino.net/ string): Integer; $[StrUtils.pas qPS9JF http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 F0IFzZ http://blog.numino.net/ 说明 区分大小写 rXzBLm http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr O72d7T http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); SYWKW0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oL7p4b http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; Bm9f7V http://blog.numino.net/ $[StrUtils.pas LHs4aE http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 nI78JH http://blog.numino.net/ 说明 当ACount为0时返回'' 72Hwj5 http://blog.numino.net/ 参考 function System.SetLength uyUOwr http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); GhFKvK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hYp1m4 http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas 0M8Rk8 http://blog.numino.net/ 功能 返回字符串AText的反序 PSAH48 http://blog.numino.net/ 说明 ReverseString('1234') = '4321' 7L9jRL http://blog.numino.net/ 参考 function System.SetLength XChKry http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); 1iOeiq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2Y4iq3 http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; 52c7C0 http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas 2b6j06 http://blog.numino.net/ 功能 返回嵌套字符串 3umZJj http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' 8V48Nt http://blog.numino.net/ 参考 function System.Copy VWPIjB http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, o5iau6 http://blog.numino.net/ Edit2.Text); 28gzbD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o8R5K5 http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; 8WVoZM http://blog.numino.net/ $[StrUtils.pas 8UcI1t http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 0oAlr5 http://blog.numino.net/ 说明 之前建议执行Randomize d499wE http://blog.numino.net/ 参考 function System.Random 7i3XiJ http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); cKju7L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IcZo6I http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ldwRUv http://blog.numino.net/ ''): string; overload; $[StrUtils.pas CR8ayC http://blog.numino.net/ 功能 返回指定的逻辑字符串 0x3WVR http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 45NIQ8 http://blog.numino.net/ 参考 <NULL> s3b2a5 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); 06nPUT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Kf3mjA http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; FhhBAa http://blog.numino.net/ $[StrUtils.pas ZS6l7J http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 6gh5mO http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' 3S5160 http://blog.numino.net/ 参考 function System.Copy c2FX6L http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); 13sNGq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ orHptP http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; wfrDTO http://blog.numino.net/ $[StrUtils.pas 7phwC5 http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 Vkq0W6 http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' chg9n0 http://blog.numino.net/ 参考 function System.Copy 68MwH9 http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); uk33RM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FhGGpl http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): ZOV6mg http://blog.numino.net/ string; $[StrUtils.pas 36GxRj http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 WubPJo http://blog.numino.net/ 说明 其实就是Copy O0oJbd http://blog.numino.net/ 参考 function System.Copy qAjm3B http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 8IZyLQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Aaz2AG http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: W3j908 http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): KVJm8U http://blog.numino.net/ PChar; $[StrUtils.pas nyYAzU http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 sDQRS2 http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 6s8XAx http://blog.numino.net/ 参考 <NULL> 38qVb2 http://blog.numino.net/ 例子 47WK6q http://blog.numino.net/ ///////Begin SearchBuf CdFxqL http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; ct28Vs http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; s8BpGA http://blog.numino.net/ var 90hC8T http://blog.numino.net/ Buffer, P: PChar; 0VEglT http://blog.numino.net/ Size: Word; FuSNx7 http://blog.numino.net/ begin r7XFGv http://blog.numino.net/ Result := False; E9iGCT http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; 8uN8ma http://blog.numino.net/ Size := EditControl.GetTextLen; H49z71 http://blog.numino.net/ if (Size = 0) then Exit; YxaRwA http://blog.numino.net/ Buffer := StrAlloc(Size + 1); S5fSg2 http://blog.numino.net/ try MP32ia http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); 0y4G4d http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, sGogKM http://blog.numino.net/ SearchString, SearchOptions); ZjB5Zq http://blog.numino.net/ if P <> nil then begin NVuxYv http://blog.numino.net/ EditControl.SelStart := P - Buffer; 1ersEK http://blog.numino.net/ EditControl.SelLength := Length(SearchString); e6jjAj http://blog.numino.net/ Result := True; Vt17By http://blog.numino.net/ end; v94X9C http://blog.numino.net/ finally 057RVf http://blog.numino.net/ StrDispose(Buffer); 4id103 http://blog.numino.net/ end; VJot82 http://blog.numino.net/ end; AqixiF http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); C9zvhq http://blog.numino.net/ var aKi9RV http://blog.numino.net/ SearchOptions: TStringSearchOptions; BntMf5 http://blog.numino.net/ begin IzX2mt http://blog.numino.net/ SearchOptions := []; 22SNfE http://blog.numino.net/ if CheckBox1.Checked then Cm52h1 http://blog.numino.net/ Include(SearchOptions, soDown); 3pgTQM http://blog.numino.net/ if CheckBox2.Checked then az9l1V http://blog.numino.net/ Include(SearchOptions, soMatchCase); 1477u8 http://blog.numino.net/ if CheckBox3.Checked then uwAMK7 http://blog.numino.net/ Include(SearchOptions, soWholeWord); b8690M http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); woorOA http://blog.numino.net/ Memo1.SetFocus; yE92g5 http://blog.numino.net/ end; HbidYg http://blog.numino.net/ ///////End SearchBuf JR8uSe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QPqFjX http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): VN5Xrn http://blog.numino.net/ string; $[StrUtils.pas H5SDaa http://blog.numino.net/ 功能 返回探测字符串 FIFgT2 http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html THPxTm http://blog.numino.net/ 参考 <NULL> JUvoG5 http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); x1pMnk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zfjNr5 http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 5vW5vu http://blog.numino.net/ 4): Integer; $[StrUtils.pas 0EcwM5 http://blog.numino.net/ 功能 返回探测整数 AoIvQY http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 XVj2Jx http://blog.numino.net/ 参考 <NULL> 6leMHf http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 8jz72P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X9fyTQ http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas z4pXRe http://blog.numino.net/ 功能 返回探测整数的解码 545k1b http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') t2oYTO http://blog.numino.net/ 参考 <NULL> De4uML http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); pOI0SM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9273Lv http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas VRxtnQ http://blog.numino.net/ 功能 返回探测文字数值 3pCIB9 http://blog.numino.net/ 说明 没有参数ALength已经固定为4 F9idm0 http://blog.numino.net/ 参考 <NULL> M5X6cF http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); mcc5fy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kTF5uY http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas 1sR1v3 http://blog.numino.net/ 功能 返回探测文字数值的解码 2kq1WO http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') w6cBwH http://blog.numino.net/ 参考 <NULL> dCXl7B http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 4X3rJy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 63RU3o http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: t2JBye http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas 6GTqHt http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 av4s83 http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 8nUoix http://blog.numino.net/ 参考 <NULL> q46YX6 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 5HiaWa http://blog.numino.net/ SpinEdit1.Value); YUyBsv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 71MkjD http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: 5j2Wl5 http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas e2gkL6 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 SEu6N4 http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, Hc0GnA http://blog.numino.net/ ALength)) DbF0I1 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr W8IHqS http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, gm6NA2 http://blog.numino.net/ SpinEdit1.Value); S96d6C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oyT2WY http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; z9EbRm http://blog.numino.net/ $[StrUtils.pas M6VpQe http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 SJ5jk7 http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 GIdrJS http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText 57e2nY http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 1uhdjv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2j3ael http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas Bo2Km5 http://blog.numino.net/ 功能 返回一个新的字符串指针地址 XYsse1 http://blog.numino.net/ 说明 字符串S为空时返回NullStr WZHmxJ http://blog.numino.net/ 参考 procedure System.New Gl1m2A http://blog.numino.net/ 例子 7n2Bvb http://blog.numino.net/ ////////Begin NewStr,DisposeStr 8AIWsk http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); x9V7mT http://blog.numino.net/ var k40hIv http://blog.numino.net/ P: PString; RdBM83 http://blog.numino.net/ begin 9sG2gu http://blog.numino.net/ P := NewStr(Edit1.Text); aIKZ9v http://blog.numino.net/ Edit2.Text := P^; OAlL31 http://blog.numino.net/ DisposeStr(P); s7fHQR http://blog.numino.net/ end; G3Ixc1 http://blog.numino.net/ ////////End NewStr,DisposeStr OpxtKh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nedxBv http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas Yw171d http://blog.numino.net/ 功能 释放字符串指针P资源 1p4D78 http://blog.numino.net/ 说明 配合函数NewStr使用 bjC856 http://blog.numino.net/ 参考 procedure System.Dispose f9g3hK http://blog.numino.net/ 例子 <如上参见,如下参见> Iq2O0g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0VSi4i http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; 7Dp6lQ http://blog.numino.net/ $[SysUtils.pas pJ9Km2 http://blog.numino.net/ 功能 将字符串S更新给字符串指针P 7vj6JM http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 bdgyUg http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr 26Vd9k http://blog.numino.net/ 例子 d62cNo http://blog.numino.net/ ////////Begin AssignStr 2O5pz1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); YdjE80 http://blog.numino.net/ var jAavwf http://blog.numino.net/ P: PString; MtVZSD http://blog.numino.net/ begin m6wH39 http://blog.numino.net/ P := nil; i4QVga http://blog.numino.net/ AssignStr(P, Edit1.Text); 38wusr http://blog.numino.net/ Edit2.Text := P^; B2TaAw http://blog.numino.net/ DisposeStr(P); Dor59T http://blog.numino.net/ end; yXLv5B http://blog.numino.net/ ////////End AssignStr ykORS0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4xOz3U http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; st03Vl http://blog.numino.net/ $[SysUtils.pas 4B9kIf http://blog.numino.net/ 功能 在字符串Dest后追加字符串S Y0CaWh http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 Zx94cP http://blog.numino.net/ 参考 <NULL> wIrQMA http://blog.numino.net/ 例子 K873E8 http://blog.numino.net/ ////////Begin AppendStr 7M98cF http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); tj7XNF http://blog.numino.net/ var zDFcuY http://blog.numino.net/ S: string; qQI3Tp http://blog.numino.net/ begin PH0XBd http://blog.numino.net/ S := Edit2.Text; bF983O http://blog.numino.net/ AppendStr(S, Edit1.Text); V0x1FO http://blog.numino.net/ Edit2.Text := S; PYGpni http://blog.numino.net/ end; YkYq2e http://blog.numino.net/ ////////End AppendStr TK50n9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B0C2CT http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas 1Z1FCe http://blog.numino.net/ 功能 返回字符串S的大写形式 DfMy38 http://blog.numino.net/ 说明 非小写字符不处理 zPhcFJ http://blog.numino.net/ 参考 procedure System.SetLength pLBW1m http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); 8m3210 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OBvqKN http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas FHt3Qf http://blog.numino.net/ 功能 返回字符串S的小写形式 Jr6VS3 http://blog.numino.net/ 说明 非大写字符不处理 xW5v7F http://blog.numino.net/ 参考 procedure System.SetLength hLRdaY http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); 4Fw1xT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8q67yj http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas nfpyNq http://blog.numino.net/ 功能 返回比较两个字符 GMuiqC http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 03wjmN http://blog.numino.net/ 参考 <NULL> SsA4MT http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); Y1yZ7P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q5jrsy http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; Uo9iBq http://blog.numino.net/ assembler; $[SysUtils.pas AkLp6l http://blog.numino.net/ 功能 返回比较两个内存指针 yxKTyy http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), 2UpZXE http://blog.numino.net/ PChar('12c'), 3)=False HtB8sD http://blog.numino.net/ 参考 <NULL> FOc0Li http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); Qr5JQu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q12I1s http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 3qDQxE http://blog.numino.net/ 功能 返回比较两个字符串 6y49Fr http://blog.numino.net/ 说明 不区分大小写 c1o20J http://blog.numino.net/ 参考 <NULL> ME6Evp http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 5fEoXm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e8Wv75 http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 8Zcd3P http://blog.numino.net/ 功能 返回两个字符串是否相等 GvjCDj http://blog.numino.net/ 说明 不区分大小写 nbhja0 http://blog.numino.net/ 参考 <NULL> SPu27L http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); MvS4gx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rBwYBS http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas SVX09D http://blog.numino.net/ 功能 返回字符串S的大写形式 5IpyoN http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 Swrc4n http://blog.numino.net/ 参考 function Windows.CharUpperBuff PCgykr http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); 9EMinG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YKwvcz http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 9Cg1Jw http://blog.numino.net/ 功能 返回字符串S的小写形式 P56Fd4 http://blog.numino.net/ 说明 非大写字符不处理 XY34zA http://blog.numino.net/ 参考 function Windows.CharLowerBuff mwbC1F http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); TdlcOv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WLa2o5 http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 2NilzK http://blog.numino.net/ 功能 反回比较两个字符串 c1gC8o http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 ezx4jo http://blog.numino.net/ 参考 function Windows.CompareString 8tzA5W http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 0flg8p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CU3EDw http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 84c39x http://blog.numino.net/ 功能 返回两个字符串是否相等 OqtzT1 http://blog.numino.net/ 说明 区分大小写 0Q0b17 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 8GTAgJ http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); RD5myl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2f2GJN http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 5BEYR3 http://blog.numino.net/ 功能 反回比较两个字符串 92IPxz http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 N5Uh2a http://blog.numino.net/ 参考 function Windows.CompareString XL911r http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); i5u09m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gIVhHd http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas x21avU http://blog.numino.net/ 功能 返回两个字符串是否相等 72idId http://blog.numino.net/ 说明 不区分大小写 AHEJMo http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText pFcOy9 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); MOYsZE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6hXCc1 http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas xDi46l http://blog.numino.net/ 功能 返回比较两个指针字符串 5A52Et http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 4RGTJj http://blog.numino.net/ 参考 function System.CompareString GPE6DA http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) Z9DJ17 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lusBi8 http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas nd443X http://blog.numino.net/ 功能 返回比较两个指针字符串 I4V4vl http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) S5p6W7 http://blog.numino.net/ 参考 function Windows.CompareString jOmwbT http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) SwR2ke http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NR1du2 http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; h93iie http://blog.numino.net/ $[SysUtils.pas eqeQ2G http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 oIbbE9 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) YVD4Qx http://blog.numino.net/ 参考 function Windows.CompareString gy2lUa http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), jx8alD http://blog.numino.net/ SpinEdit2.Value) SE02Wc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5zuwCO http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; dd7c5v http://blog.numino.net/ $[SysUtils.pas TclP7A http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 MTnxE7 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 1gzKQ5 http://blog.numino.net/ 参考 function Windows.CompareString Adzj5b http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), qgBaE6 http://blog.numino.net/ SpinEdit2.Value) wewkcW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z6k8gH http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 1xO5RY http://blog.numino.net/ 功能 返回指针字符串小写形式 foRxDs http://blog.numino.net/ 说明 非大写字符不处理 MZQ0ac http://blog.numino.net/ 参考 function Windows.CharLower j6hNF3 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); GHqqNW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SrU15l http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 603PV0 http://blog.numino.net/ 功能 返回指针字符串大写形式 WlCABQ http://blog.numino.net/ 说明 非小写字符不处理 Rr6106 http://blog.numino.net/ 参考 function Windows.CharUpper SNUZb2 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); gPCZKo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IVmOUa http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas djnuug http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 44MAi5 http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 4qs6Y0 http://blog.numino.net/ 参考 function SysUtils.ByteType GCMITJ http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); 32R1J5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ugC21Z http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 72B1TT http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 iF1NzQ http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 KXU0Ny http://blog.numino.net/ 参考 function SysUtils.ByteType z6ChI4 http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 9no1di http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U265n5 http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas B2wAgO http://blog.numino.net/ 功能 返回双字节字符串的大写形式 fhYK5y http://blog.numino.net/ 说明 WideChar双字节字符 PH4TGc http://blog.numino.net/ 参考 function Windows.CharUpperBuffW 59F9K8 http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); 8fZO31 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3R47b0 http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas m6Cem1 http://blog.numino.net/ 功能 返回双字节字符串的小写形式 e7DSgw http://blog.numino.net/ 说明 我怎么就测试不出来呢 hjykGi http://blog.numino.net/ 参考 function Windows.CharLowerBuffW cEWE72 http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); sEie1c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y0UIY6 http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; jvcpHM http://blog.numino.net/ $[SysUtils.pas Z1268z http://blog.numino.net/ 功能 返回比较两个双字节字符串 3RKG8F http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 G5d61G http://blog.numino.net/ 参考 function Windows.CompareStringW ZuUpg7 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); h3b7sJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vQ4cCq http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas Riqab1 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 lUhVKT http://blog.numino.net/ 说明 区分大小写 874a83 http://blog.numino.net/ 参考 function SysUtils.WideCompareStr 2NHBW3 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 7Huliy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YW01hW http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; MbO73o http://blog.numino.net/ $[SysUtils.pas DFwrne http://blog.numino.net/ 功能 返回比较两个双字节字符串 1nuNLW http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 8yy8Kt http://blog.numino.net/ 参考 function Windows.CompareStringW HLy542 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); cm1aqx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M1e2i5 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 9F6Z2Y http://blog.numino.net/ $[SysUtils.pas ZtsLKI http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 XH1nes http://blog.numino.net/ 说明 不区分大小写 42Tsbt http://blog.numino.net/ 参考 function SysUtils.WideCompareText P85c2a http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); 22Mg8h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VnEIKI http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas 52tic2 http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; Ib5e3K http://blog.numino.net/ $[SysUtils.pas 8r8K58 http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 XExOXP http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 1v9pmd http://blog.numino.net/ 参考 function System.Copy 61hQ6u http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); Vtg0k4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T1Oh0A http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas ka8y73 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; S6iXh7 http://blog.numino.net/ $[SysUtils.pas MW6Bes http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 zTRedw http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 o4wJvC http://blog.numino.net/ 参考 function System.Copy 5jp2G0 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); BePhBm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vWrDM2 http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas qC0YTu http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; boPniu http://blog.numino.net/ $[SysUtils.pas igB8nz http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 jYt074 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 1aZyba http://blog.numino.net/ 参考 function System.Copy 9MR0QU http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); 5ZkmE4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TEdNJ1 http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas bsuDgM http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 g0Ca0L http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 QSrs9c http://blog.numino.net/ 参考 procedure System.Insert x6llnb http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); 5w9y09 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lZbDH9 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; EzqvS7 http://blog.numino.net/ $[SysUtils.pas 521RgQ http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 p56QAY http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', 0S07nG http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 57hJ6W http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan z93y3W http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); N8gV3G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KiyH6M http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 7ArPoc http://blog.numino.net/ $[SysUtils.pas 0kDt2o http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 fad1ud http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 t272Q2 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan JDY06o http://blog.numino.net/ 例子 d4yv4Z http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr A5v8mt http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); iIbq0t http://blog.numino.net/ var 2MzGP7 http://blog.numino.net/ P: PChar; 64I3gF http://blog.numino.net/ begin EekiHE http://blog.numino.net/ P := PChar(Edit1.Text); sX175D http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); 6leJe8 http://blog.numino.net/ Edit3.Text := P; XJXweS http://blog.numino.net/ end; 6v8GFS http://blog.numino.net/ ///////End AnsiExtractQuotedStr 5YHENo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wLxiEF http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; hsrL1k http://blog.numino.net/ $[SysUtils.pas F60AOP http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 q13aU1 http://blog.numino.net/ 说明 表现形式非法时则返回S X90p43 http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr iJX8AK http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); 5os67N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 03OFVS http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = CEwewq http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): v6Xgot http://blog.numino.net/ string; $[SysUtils.pas 19ynMf http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 2d9UqX http://blog.numino.net/ 说明 Wy8SXW 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 dw04r2 http://blog.numino.net/ 参考 function SysUtils.StrNextChar 2GCljD http://blog.numino.net/ 例子 <NULL> yRsR49 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xAWwi5 http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas pormAM http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 v96mgV http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... nS78su http://blog.numino.net/ 参考 <NULL> b6EBcp http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 8e1PtT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zgUoD2 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas vgZ7en http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 27gnai http://blog.numino.net/ 功能 返回整数Value转换成字符串 20a1v1 http://blog.numino.net/ 说明 Format('%d', [Value]) 22H1yT http://blog.numino.net/ 参考 function SysUtils.FmtStr 5y89c6 http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); wZB4ha http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Hv187l http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; JpprUc http://blog.numino.net/ $[SysUtils.pas uYotlJ http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; wvW98Y http://blog.numino.net/ $[SysUtils.pas 9ownif http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 6fYCE4 http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 ynuQ20 http://blog.numino.net/ 参考 function SysUtils.FmtStr QbRdWn http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); vyRXlt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nQ0B0w http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas 62wO1M http://blog.numino.net/ 功能 返回字符串S转换成整数 4u9Jvf http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 wAcT9Q http://blog.numino.net/ 参考 procedure System.Val DEN6wF http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); eeryx2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4MSWiv http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; rGSIt3 http://blog.numino.net/ $[SysUtils.pas f554j2 http://blog.numino.net/ 功能 返回字符串S转换成整数 alPaxz http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default jjsI82 http://blog.numino.net/ 参考 procedure System.Val X39kO4 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); dieKN5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eIdSfu http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; qS64iv http://blog.numino.net/ $[SysUtils.pas 3iHiWT http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 XIH599 http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 U1vSdr http://blog.numino.net/ 参考 procedure System.Val 7k4m3P http://blog.numino.net/ 例子 K9s6jy http://blog.numino.net/ ///////Begin TryStrToInt s6e3Bg http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); F8tj9B http://blog.numino.net/ var m9FYhc http://blog.numino.net/ I: Integer; QJWOCw http://blog.numino.net/ begin 2gIYP3 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); 553UC9 http://blog.numino.net/ SpinEdit1.Value := I; IRR1q5 http://blog.numino.net/ end; qav595 http://blog.numino.net/ ///////End TryStrToInt 7QA30e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mZTxKa http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas vC88qk http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 WS2A5p http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 SkZJkC http://blog.numino.net/ 参考 procedure System.Val 2JzUr1 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); eYk47Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BW0fvy http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; O02jW7 http://blog.numino.net/ $[SysUtils.pas r42p2X http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 93E0st http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default OQHy92 http://blog.numino.net/ 参考 procedure System.Val FMEnae http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); MMO4V0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a3uyUi http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; ft9K7E http://blog.numino.net/ $[SysUtils.pas 2dBB2d http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 PC3Kwj http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 34I4VA http://blog.numino.net/ 参考 procedure System.Val TvStUk http://blog.numino.net/ 例子 9Lh433 http://blog.numino.net/ ///////Begin TryStrToInt64 b2HpbW http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); L7b8D6 http://blog.numino.net/ var 6GiPjT http://blog.numino.net/ I: Int64; jA3W1r http://blog.numino.net/ begin 0vqrDF http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); KuLgq1 http://blog.numino.net/ SpinEdit1.Value := I; 0v3Hpx http://blog.numino.net/ end; 4ZNiru http://blog.numino.net/ ///////End TryStrToInt64 GQSsJR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 50Itdf http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas j6SkeO http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 C7dVpJ http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 Tp8rbi http://blog.numino.net/ 参考 function SysUtils.TryStrToBool OgPC5o http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); aKbytN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dQhZ04 http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): e5sF5X http://blog.numino.net/ Boolean; $[SysUtils.pas 7r73oW http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 8kXmKY http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default MJ4444 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 9ounaP http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); 0AnoCN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KS6w53 http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; 3ny9aV http://blog.numino.net/ $[SysUtils.pas mnBI0c http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 Lx4O2D http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 PDdRJu http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var 0DI89K http://blog.numino.net/ SysUtils.FalseBoolStrs 3XpA07 http://blog.numino.net/ 例子 485j3L http://blog.numino.net/ ///////Begin TryStrToBool LIKqQH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 082J0r http://blog.numino.net/ var 717K7s http://blog.numino.net/ B: Boolean; p6RJq9 http://blog.numino.net/ begin viL60I http://blog.numino.net/ SetLength(TrueBoolStrs, 2); BqYyY5 http://blog.numino.net/ SetLength(FalseBoolStrs, 2); A10QGs http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 7uBL9y http://blog.numino.net/ FalseBoolStrs[0] := 'False'; 60kD6T http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; ZWJXZ4 http://blog.numino.net/ FalseBoolStrs[1] := 'No'; 9P8nkQ http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); 13Inrf http://blog.numino.net/ CheckBox2.Checked := B; WVgvXl http://blog.numino.net/ end; v0yS4f http://blog.numino.net/ ///////End TryStrToBool z6wcM3 http://blog.numino.net/ 附加 aJIp64 http://blog.numino.net/ ///////Begin TryStrToBool t1A91S http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; cU98VK http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; vR0s2w http://blog.numino.net/ var U26uNy http://blog.numino.net/ I: Integer; 4La9rS http://blog.numino.net/ begin BkXKy7 http://blog.numino.net/ Result := False; O51IHf http://blog.numino.net/ for I := Low(aArray) to High(aArray) do G290ul http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then lcb8ZV http://blog.numino.net/ begin K9wb8B http://blog.numino.net/ Result := True; 1Qx9Fd http://blog.numino.net/ Break; zkE99O http://blog.numino.net/ end; XWSmnw http://blog.numino.net/ end; Kv6WIj http://blog.numino.net/ var nCeyZ8 http://blog.numino.net/ LResult: Extended; F2UrfA http://blog.numino.net/ begin V8y24c http://blog.numino.net/ Result := TryStrToFloat(S, LResult); SFu1kr http://blog.numino.net/ if Result then 034Jgb http://blog.numino.net/ Value := LResult <> 0 8o483d http://blog.numino.net/ else 2GR60J http://blog.numino.net/ begin 18ql1E http://blog.numino.net/ Result := True; //修正处 BhbA62 http://blog.numino.net/ VerifyBoolStrArray; YO9dje http://blog.numino.net/ if CompareWith(TrueBoolStrs) then gwvyPk http://blog.numino.net/ Value := True Oc6QWr http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then 0cWvlP http://blog.numino.net/ Value := False IQ5ub2 http://blog.numino.net/ else X9rLfy http://blog.numino.net/ Result := False; B0OD2W http://blog.numino.net/ end; 2EjJI9 http://blog.numino.net/ end; B7RdB0 http://blog.numino.net/ ///////End TryStrToBool 0tzj5e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bA9nK4 http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; bsRCxC http://blog.numino.net/ $[SysUtils.pas L6s5AY http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 fAPFu7 http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' NPZLiH http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs sr6B85 http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); Tqppq8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6whFpq http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas CVl49f http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 T1f7f2 http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 1jOQv0 http://blog.numino.net/ 参考 function SysUtils.FindStringResource ubW44J http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); vwDV3L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2F5ri1 http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): 1URaQj http://blog.numino.net/ string; $[SysUtils.pas NJ0pCr http://blog.numino.net/ 功能 返回格式化的字符串资源 34XOwF http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 Zh8ZS8 http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 8SLMUv http://blog.numino.net/ 例子 <NULL>; bxUBg0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gq5Km4 http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas LBlhyw http://blog.numino.net/ 功能 返回指针字符串的长度 z28jc4 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 15z1XW http://blog.numino.net/ 参考 <NULL> E57f9R http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); dey3gy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 27vT2M http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas hsjE07 http://blog.numino.net/ 功能 返回指针字符串的结尾 47q084 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 0y85er http://blog.numino.net/ 参考 <NULL> uEziWu http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; Ewj0iD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1C5s38 http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): SeHtR5 http://blog.numino.net/ PChar; $[SysUtils.pas vk7hKw http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 0lizb3 http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 36eC68 http://blog.numino.net/ 参考 function System.Move X4LF84 http://blog.numino.net/ 例子 Z6l8P1 http://blog.numino.net/ ///////Begin StrMove i6g87f http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); fnBt90 http://blog.numino.net/ var yd4WHx http://blog.numino.net/ vBuffer: PChar; eAOqta http://blog.numino.net/ begin tZ0lew http://blog.numino.net/ vBuffer := '0123456789'; lZJ1xg http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 7ZqF5Y http://blog.numino.net/ Edit2.Text := vBuffer; Ypm72u http://blog.numino.net/ end; 90XJbv http://blog.numino.net/ ///////End StrMove ZJowg7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eSnib2 http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; 94dH3A http://blog.numino.net/ $[SysUtils.pas 5N7RDX http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 5Mjl1R http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 fQu6NF http://blog.numino.net/ 参考 <NULL> Hb5ZDG http://blog.numino.net/ 例子 0dtHeQ http://blog.numino.net/ ///////Begin StrCopy 133t6w http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0oes9P http://blog.numino.net/ var OMTD14 http://blog.numino.net/ vBuffer: PChar; bX3xqr http://blog.numino.net/ begin gG98wm http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); 92I93O http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); CDi88o http://blog.numino.net/ Edit2.Text := vBuffer; 3Y5YNl http://blog.numino.net/ FreeMem(vBuffer); bCfwz5 http://blog.numino.net/ end; 1QUE6G http://blog.numino.net/ ///////End StrCopy u5RYGO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2e1fXX http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; f7407Z http://blog.numino.net/ $[SysUtils.pas vnDmPS http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 nDXqeP http://blog.numino.net/ 说明 可以连接指针字符串 347Gp3 http://blog.numino.net/ 参考 <NULL> BZ3H4Y http://blog.numino.net/ 例子 r7Mt57 http://blog.numino.net/ ///////Begin StrECopy 43O5Wc http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); B35SkI http://blog.numino.net/ var k190L7 http://blog.numino.net/ vBuffer: array[0..255] of Char; A6Z5lc http://blog.numino.net/ begin V6Mym1 http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); 1d1616 http://blog.numino.net/ Edit3.Text := vBuffer; 86cqf6 http://blog.numino.net/ end; lufey9 http://blog.numino.net/ ///////End StrECopy dAoH9l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bDjHAK http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 245zAf http://blog.numino.net/ PChar; $[SysUtils.pas hu2o9H http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 0lUnBt http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 8i4t6R http://blog.numino.net/ 参考 <NULL> s7I94o http://blog.numino.net/ 例子 u5jL4s http://blog.numino.net/ ///////Begin StrLCopy R2JyrV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); rdFjB2 http://blog.numino.net/ var sPM64U http://blog.numino.net/ vBuffer: array[0..255] of Char; TWa30K http://blog.numino.net/ begin 9n8qYM http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); haYgCL http://blog.numino.net/ Edit2.Text := vBuffer; 0spicQ http://blog.numino.net/ end; P302yQ http://blog.numino.net/ ///////End StrLCopy bk5VnA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JaXcTr http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; vMAIte http://blog.numino.net/ $[SysUtils.pas g5m4k3 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 rQtXxS http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) x9c0Q8 http://blog.numino.net/ 参考 function SysUtils.StrLCopy M29QZ9 http://blog.numino.net/ 例子 bUfCLU http://blog.numino.net/ ///////Begin StrPCopy s7CQve http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); rkbo8N http://blog.numino.net/ var c9vT7O http://blog.numino.net/ vBuffer: array[0..255] of Char; qvFqJq http://blog.numino.net/ begin JsYw2u http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); 7IhFEP http://blog.numino.net/ Edit2.Text := vBuffer; Zf7H0u http://blog.numino.net/ end; yRvtnu http://blog.numino.net/ ///////End StrPCopy EkT2gS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gty8Vl http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 8gcvmg http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas rI6L2e http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 tpbKPq http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) u6V96G http://blog.numino.net/ 参考 function SysUtils.StrLCopy pj9YUA http://blog.numino.net/ 例子 oK64sV http://blog.numino.net/ ///////Begin StrPLCopy d42FbA http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); KdaKj6 http://blog.numino.net/ var a78WKI http://blog.numino.net/ vBuffer: array[0..255] of Char; 40DvEP http://blog.numino.net/ begin xDacJZ http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); hhQC33 http://blog.numino.net/ Edit2.Text := vBuffer; VY9Ke4 http://blog.numino.net/ end; 0i2sxo http://blog.numino.net/ ///////End StrPLCopy 48EUqw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F1eA0i http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; 80Yz0u http://blog.numino.net/ $[SysUtils.pas VqRlR9 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source WJJsdA http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) L769vm http://blog.numino.net/ 参考 function SysUntils.StrCopy m47N6V http://blog.numino.net/ 例子 R3I3xz http://blog.numino.net/ ///////Begin StrCat CK65uq http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); CO8OZF http://blog.numino.net/ var Q0OYv5 http://blog.numino.net/ vBuffer: array[0..255] of Char; J1WQRi http://blog.numino.net/ begin 6QNr8Z http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); bqStDm http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); xQm7jG http://blog.numino.net/ Edit3.Text := vBuffer; K7f63r http://blog.numino.net/ end; n6g7wu http://blog.numino.net/ ///////End StrCat 0X5va3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3Bg2y0 http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): Aems02 http://blog.numino.net/ PChar; $[SysUtils.pas 250vbM http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source N32X8m http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 yskV2i http://blog.numino.net/ 参考 <NULL> A0bcPE http://blog.numino.net/ 例子 g338x4 http://blog.numino.net/ ///////Begin StrLCat XAoTBD http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); nMh91K http://blog.numino.net/ var N2VxJv http://blog.numino.net/ vBuffer: array[0..255] of Char; zoE64K http://blog.numino.net/ begin AcTk4d http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); kqN5Sd http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 8CbY95 http://blog.numino.net/ Edit3.Text := vBuffer; ZgpvIu http://blog.numino.net/ end; 70Chtb http://blog.numino.net/ ///////End StrLCat FZSPT5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2qLsvH http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas rgCZH1 http://blog.numino.net/ 功能 返回比较两个指针字符串 qSWPwr http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 AHVA21 http://blog.numino.net/ 参考 <NULL> hu67fT http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); iKMpHg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fz2zul http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas pVUvZ2 http://blog.numino.net/ 功能 返回比较两个指针字符串 x8G1xE http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 ln8pZz http://blog.numino.net/ 参考 <NULL> WGUVLl http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); y7jmVP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K5ErOP http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; X83q8K http://blog.numino.net/ $[SysUtils.pas rk1q4L http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 Yx2IrU http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 SmSFMY http://blog.numino.net/ 参考 <NULL> TrNQEf http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 7lYvRL http://blog.numino.net/ SpinEdit2.Value) LvAkxc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 884T96 http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 36gbxS http://blog.numino.net/ $[SysUtils.pas 1MlfUn http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 GK6CZ4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 9xB8S1 http://blog.numino.net/ 参考 <NULL> 9qrW00 http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 4UtlM6 http://blog.numino.net/ SpinEdit2.Value) jqzBua http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lfz8hT http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas AU3MoK http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 YmY6Ku http://blog.numino.net/ 说明 没有找到则返回空指针 3Y2zBm http://blog.numino.net/ 参考 <NULL> s5T8Q1 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); BJ1GX7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fp90L6 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 8W5t2u http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 q16e73 http://blog.numino.net/ 说明 没有找到则返回空指针 OVHQBm http://blog.numino.net/ 参考 <NULL> unhOu3 http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); mu4xUc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LVV57e http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 789maC http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 24Xd11 http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' fa3gvT http://blog.numino.net/ 参考 <NULL> n3rYV5 http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 4HX503 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IjrIEj http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas eodE1p http://blog.numino.net/ 功能 返回指针字符串Str大写 0A4GrV http://blog.numino.net/ 说明 非小写字符不处理 J3mfKM http://blog.numino.net/ 参考 <NULL> 95wF5D http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); 2lD3Kn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rcH79C http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas EwfPyY http://blog.numino.net/ 功能 返回指针字符串Str小写 42g8pX http://blog.numino.net/ 说明 非大写字符不处理 2x3i85 http://blog.numino.net/ 参考 <NULL> 48ypu1 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); 07Z7Iu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9Sy9ka http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas zJE5SI http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 347yax http://blog.numino.net/ 说明 也可以直接赋值 a7oT1y http://blog.numino.net/ 参考 <NULL> TOdNKI http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); HZd61Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sn2Cdj http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas aQFWM8 http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 Jsb5lC http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 674zn3 http://blog.numino.net/ 参考 function System.GetMem WxKEmH http://blog.numino.net/ 例子 9yH9eT http://blog.numino.net/ ///////Begin StrAlloc nZD0UH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0xNkph http://blog.numino.net/ var V6kTS8 http://blog.numino.net/ P: PChar; NFF21H http://blog.numino.net/ begin 9Rf22u http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); V21VC2 http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); v63VMY http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); 8h8h82 http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); 7MNS9O http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); R366OG http://blog.numino.net/ StrDispose(P); MMScVo http://blog.numino.net/ end; nKBQ7Z http://blog.numino.net/ ///////End StrAlloc xY8mFL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ek5p2I http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas TVQmul http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 9xY45r http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 K385fl http://blog.numino.net/ 参考 function System.SizeOf LdBAiI http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); LSjR7c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uqhURe http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 1IVsa6 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 t85tVb http://blog.numino.net/ 说明 如果Str为nil则返回nil 87zICF http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function WJQtl5 http://blog.numino.net/ SysUtils.StrAlloc RT5d22 http://blog.numino.net/ 例子 4zesA1 http://blog.numino.net/ ///////Begin StrNew,StrDispose q0wnHH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); kF6n84 http://blog.numino.net/ var 54V384 http://blog.numino.net/ P: PChar; SQz511 http://blog.numino.net/ begin ma7v8y http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); 6z1PRl http://blog.numino.net/ ShowMessage(P); 0Mpa30 http://blog.numino.net/ StrDispose(P); 227rmc http://blog.numino.net/ end; zwIhKG http://blog.numino.net/ ///////End StrNew,StrDispose kira88 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 76j71o http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas nR8aCK http://blog.numino.net/ 功能 释放指针字符串Str内存资源 nowKR4 http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 7K8EiE http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem f18mnK http://blog.numino.net/ 例子 <参见StrNew> qYW7Lx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4vqb0E http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): bW29L0 http://blog.numino.net/ string; $[SysUtils.pas UHb67A http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 8LN0MK http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 wSov0g http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 EJDjUU http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 osBO9a http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 004AJZ http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 pLjoCx http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 51D82k http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 q2lEdy http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 X8N5Xx http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 XFMQDb http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 Y4CRtB http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 7epgH8 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 j5fmwC http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" iOK2C3 http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 HShlb5 http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr nwobU8 http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); mgwvxF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Z5ZMzE http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: TCDx01 http://blog.numino.net/ array of const); $[SysUtils.pas 96F1Ax http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 4g3r4L http://blog.numino.net/ 说明 <参见Format> 7A6jBh http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function vocLXM http://blog.numino.net/ System.SetLength 55wliv http://blog.numino.net/ 例子 <参见Format> draIn8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KMC5Jx http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): Q9YTvX http://blog.numino.net/ PChar; $[SysUtils.pas 7E250t http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 Cs7mm6 http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil mPyZ93 http://blog.numino.net/ 参考 function SysUtils.FormatBuf FRpzPb http://blog.numino.net/ 例子 <参见Format> HWuhA3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ULHyvF http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; cXZv7N http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas u91QtM http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 2vVWYI http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; 8Tmwa0 http://blog.numino.net/ 参考 function SysUtils.FormatBuf CvUrr4 http://blog.numino.net/ 例子 <参见Format> inLFMA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fiy57V http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: qw9ZDo http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas CaGhrx http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 xpza8a http://blog.numino.net/ 说明 <NULL> u239OB http://blog.numino.net/ 参考 <NULL> eL02e4 http://blog.numino.net/ 例子 <参见Format> k1Dj7X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I7jnuW http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of 4kwdM9 http://blog.numino.net/ const): WideString; $[SysUtils.pas V3pD0Q http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 eYRLsg http://blog.numino.net/ 说明 <NULL> qpR4t1 http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr LPC7Iv http://blog.numino.net/ 例子 <参见Format> 8I077q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bafg2s http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; dfG3ou http://blog.numino.net/ const Args: array of const); $[SysUtils.pas x7aD2v http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 IxrXS6 http://blog.numino.net/ 说明 <NULL> M6hDBZ http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf skrY0H http://blog.numino.net/ 例子 <参见Format> ULowlo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EaVDMn http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; LLCKD5 http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas IoGgO9 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 Q09BSi http://blog.numino.net/ 说明 <NULL> 35ufN5 http://blog.numino.net/ 参考 <NULL> E2N8NV http://blog.numino.net/ 例子 <参见Format> 0Ftx74 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Qh7PT4 http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 8bb374 http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 64PyP4 http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 byf0mB http://blog.numino.net/ 参考 function SysUtils.FloatToText fh0oG6 http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); Loneqg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ StU7sA http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas CP3yP1 http://blog.numino.net/ 功能 返回货币数Value转换成字符串 jF1Qds http://blog.numino.net/ 说明 货币数只保留四位小数 Lr05U2 http://blog.numino.net/ 参考 function SysUtils.FloatToText h5U18O http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); lR48IL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6cO47C http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 2jfVAv http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 5YxG5D http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 DBDLZY http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency bzO84K http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); qCy1Y6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s0U9zl http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, VCxU4w http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas bDnveS http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 HZs5aA http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 aqY25n http://blog.numino.net/ 参考 function SysUtils.FloatToText v04XlX http://blog.numino.net/ 例子 VopzEf http://blog.numino.net/ ///////Begin FloatToStrF 54F006 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); bl9rTM http://blog.numino.net/ begin 2QX445 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, oN1OHR http://blog.numino.net/ 0), 14EIjx http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); n09ows http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, Q4p850 http://blog.numino.net/ 0), 68WDsr http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); 6WWA1r http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 7oUut9 http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); daJ3p0 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, C6amHX http://blog.numino.net/ 0), m0SJRv http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); KmhJQo http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, L7AYeM http://blog.numino.net/ 0), UDiH8z http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); 8Uls3s http://blog.numino.net/ end; zLY1BJ http://blog.numino.net/ ///////End FloatToStrF djUreG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TjLX9z http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: 1i29qf http://blog.numino.net/ Integer): string; $[SysUtils.pas KL8v0c http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 01UD9o http://blog.numino.net/ 说明 Digits指定小数宽度 VOUmtF http://blog.numino.net/ 参考 function SysUtils.FloatToText TFN77O http://blog.numino.net/ 例子 GmUA93 http://blog.numino.net/ ///////Begin CurrToStrF H37KVx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); sR50vq http://blog.numino.net/ begin y7qGW3 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), kx98jn http://blog.numino.net/ ffGeneral, SpinEdit1.Value); MRuZpE http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, bY7hho http://blog.numino.net/ 0), 43c9Id http://blog.numino.net/ ffExponent, SpinEdit1.Value); KMBuin http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), u4vKF0 http://blog.numino.net/ ffFixed, SpinEdit1.Value); lZbTsS http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), CaDCDE http://blog.numino.net/ ffNumber, SpinEdit1.Value); DqwOcD http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 398wzs http://blog.numino.net/ 0), nQK9ma http://blog.numino.net/ ffCurrency, SpinEdit1.Value); vddhND http://blog.numino.net/ end; ksiZze http://blog.numino.net/ ///////End CurrToStrF jS4e4x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wcZ0P9 http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: 5IRZ5r http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; zKAU1r http://blog.numino.net/ $[SysUtils.pas GcH5Q9 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 1b38mF http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 tEWikV http://blog.numino.net/ 参考 <NULL> encqGA http://blog.numino.net/ 例子 pK5GW2 http://blog.numino.net/ ///////Begin FloatToText 0Y3Ens http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5cGdoG http://blog.numino.net/ var 3Uzh56 http://blog.numino.net/ vBuffer: array[0..255] of Char; LrkOA1 http://blog.numino.net/ E: Extended; q58zO3 http://blog.numino.net/ begin 7c22jo http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); wgT1uO http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 739DKA http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); QtbbKl http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 1ejf4j http://blog.numino.net/ end; 08VwSa http://blog.numino.net/ ///////End FloatToText( 3EJMrt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bc26y5 http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; s5GTPf http://blog.numino.net/ $[SysUtils.pas agnLq2 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 l6OC35 http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' mi718t http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt Wvac4q http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); kLTi4o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ryL85x http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; SKofCV http://blog.numino.net/ $[SysUtils.pas yOEJRb http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 s44E5i http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' x58j17 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt jNjwgj http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); VxE99n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4xGcrP http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: n666Z3 http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas Oh1WKC http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 bWv3E2 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 n0d7U9 http://blog.numino.net/ 参考 <NULL> oh896S http://blog.numino.net/ 例子 5PG3Yg http://blog.numino.net/ ///////Begin FloatToTextFmt 18iMDW http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JKwZQN http://blog.numino.net/ var mNwHmS http://blog.numino.net/ vBuffer: array[0..255] of Char; QnB1WI http://blog.numino.net/ E: Extended; K2aV0H http://blog.numino.net/ begin U4u06l http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 6GFR8V http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, Zu6vGU http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); peKC10 http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); e6QWQB http://blog.numino.net/ end; EujInt http://blog.numino.net/ ///////End FloatToTextFmt GKJE08 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9JP029 http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas RMz8JM http://blog.numino.net/ 功能 返回字符串S转换成浮点数 w3inth http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 Z1q69E http://blog.numino.net/ 参考 function SysUtils.TextToFloat 1QEp60 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; hmxUxS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bV5Jyf http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): uQcf2o http://blog.numino.net/ Extended; $[SysUtils.pas C8LC8c http://blog.numino.net/ 功能 返回字符串S转换成浮点数 4BWy5L http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default lkDSvz http://blog.numino.net/ 参考 function SysUtils.TextToFloat SWe4pB http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 2KSoqQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xbDf7v http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; 4QbeOz http://blog.numino.net/ overload; $[SysUtils.pas Csj8Gs http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; sTlwoG http://blog.numino.net/ overload; $[SysUtils.pas 0T435Z http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; qnbzMr http://blog.numino.net/ overload; $[SysUtils.pas 1I0340 http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 aoTvp2 http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 N8aIWX http://blog.numino.net/ 参考 function SysUtils.TextToFloat 4h7E80 http://blog.numino.net/ 例子 A1zD2e http://blog.numino.net/ ///////Begin TryStrToFloat AHeQj4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); a94eKc http://blog.numino.net/ var R6gF1v http://blog.numino.net/ E: Extended; ol362x http://blog.numino.net/ begin Pv9uBM http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); CZAMK8 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 1zl6Jm http://blog.numino.net/ end; KRC6n8 http://blog.numino.net/ ///////End TryStrToFloat C7A4Sr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xH9EI2 http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas 484m31 http://blog.numino.net/ 功能 返回字符串S转换成货币数 05bkLU http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 HyfMSV http://blog.numino.net/ 参考 function SysUtils.TextToFloat X9v9Ya http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; yW3UeI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6Cc9N5 http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): R5A3Z9 http://blog.numino.net/ Currency; $[SysUtils.pas YzWI2S http://blog.numino.net/ 功能 返回字符串S转换成货币数 xuhh6f http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default PmTqKB http://blog.numino.net/ 参考 function SysUtils.TextToFloat fzgCUc http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; bkjdHY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9h5rqx http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; u6XA3E http://blog.numino.net/ $[SysUtils.pas 2md77x http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 vGLiIP http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 8OJ9Bv http://blog.numino.net/ 参考 function SysUtils.TextToFloat sefFaJ http://blog.numino.net/ 例子 c8q92Z http://blog.numino.net/ ///////Begin TryStrToCurr Jp9StR http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Ey67ZQ http://blog.numino.net/ var uQSy04 http://blog.numino.net/ C: Currency; 06jSe0 http://blog.numino.net/ begin Zo626D http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); FTN7Hm http://blog.numino.net/ Edit2.Text := FormatCurr('', C); I9YrAc http://blog.numino.net/ end; 9Gc5Ud http://blog.numino.net/ ///////End TryStrToCurr vY5nKJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TNuE5I http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): a5Z8Bb http://blog.numino.net/ Boolean; $[SysUtils.pas V8zI7n http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value Zd5hqT http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 qg7GPU http://blog.numino.net/ 参考 <NULL> BQlHUt http://blog.numino.net/ 例子 vxuq7F http://blog.numino.net/ ///////Begin TextToFloat 0KFTZx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 2S92M5 http://blog.numino.net/ var gBVTn6 http://blog.numino.net/ E: Extended; xmVNmw http://blog.numino.net/ begin TWAH8G http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, 5juLTv http://blog.numino.net/ fvExtended); 59hz3W http://blog.numino.net/ Edit2.Text := FormatFloat('', E); GWQ0yB http://blog.numino.net/ end; 6Xyn37 http://blog.numino.net/ ///////End TextToFloat 0R1jOs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Frim7F http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas a9vMmZ http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 WBVJFs http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 DCxD71 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat b4kDZR http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); ook03V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AC2yi5 http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas S5LjB0 http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 2fCcHo http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 CNkrk7 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat VqPZnm http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); 4HB761 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o3Nl30 http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; JK0z0z http://blog.numino.net/ $[SysUtils.pas 3Tb52x http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 H2I86B http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 8nDKzs http://blog.numino.net/ 参考 function SysUtils.DateTimeToString 7p0AOh http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); sWNBNl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8g5665 http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas H0gAg8 http://blog.numino.net/ 功能 返回字符串S转换成日期 r00ElQ http://blog.numino.net/ 说明 字符非日期表达时将引起异常 dza1gb http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 2kqGAL http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); e43iHP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JW0rPb http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): rqY49p http://blog.numino.net/ TDateTime; $[SysUtils.pas AQ5J9Z http://blog.numino.net/ 功能 返回字符串S转换成日期 uYgqgB http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default 8wsX95 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate AgnIqU http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); D8jV5y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WsZxet http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; 4yhyOR http://blog.numino.net/ $[SysUtils.pas DYb6Uu http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 gLh1hA http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 TL4KOs http://blog.numino.net/ 参考 <NULL> H2G0LW http://blog.numino.net/ 例子 cqE5U1 http://blog.numino.net/ ///////Begin TryStrToDate 3Klnsm http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); b3Rhb1 http://blog.numino.net/ var frNwH0 http://blog.numino.net/ vDateTime: TDateTime; aVQ6N1 http://blog.numino.net/ begin fg8uAf http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); fjnWjn http://blog.numino.net/ DateTimePicker1.Date := vDateTime; 7nm01Z http://blog.numino.net/ end; VYiPM3 http://blog.numino.net/ ///////End TryStrToDate ecFhba http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VeeseF http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas nb125u http://blog.numino.net/ 功能 返回字符串S转换成时间 Eml8oA http://blog.numino.net/ 说明 字符非时间表达时将引起异常 7xtc38 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime m48982 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 91LqyT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KM7IY6 http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): NuB6Om http://blog.numino.net/ TDateTime; $[SysUtils.pas 6LxLSH http://blog.numino.net/ 功能 返回字符串S转换成时间 ptDQ9I http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default S0B778 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime dUEGw9 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 412csq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XW6hyj http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; 4s32kX http://blog.numino.net/ $[SysUtils.pas ro85j7 http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 A1qwBI http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 Z993WA http://blog.numino.net/ 参考 <NULL> UbGhm0 http://blog.numino.net/ 例子 77LgXm http://blog.numino.net/ ///////Begin TryStrToTime t1JK1R http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); T8DR3j http://blog.numino.net/ var LyA0Qh http://blog.numino.net/ vDateTime: TDateTime; 6FlIp8 http://blog.numino.net/ begin 6VcYM0 http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); s57NTf http://blog.numino.net/ DateTimePicker1.Time := vDateTime; DUQd6G http://blog.numino.net/ end; nkN2KA http://blog.numino.net/ ///////End TryStrToTime 9YK41x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nBtEZO http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas X62q4U http://blog.numino.net/ 功能 返回字符串S转换成日期时间 08it33 http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 DTsTZ8 http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime MR9ItN http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); w3lJoN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oqRAQ2 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): PI8Ghc http://blog.numino.net/ TDateTime; $[SysUtils.pas Ouv6ON http://blog.numino.net/ 功能 返回字符串S转换成日期时间 GlK4Tq http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default gkF7kb http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 7X86cU http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); XZy9rd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ amCaCJ http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): C8Le2G http://blog.numino.net/ Boolean; $[SysUtils.pas Il9t2L http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 oLxnw9 http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 IG59MS http://blog.numino.net/ 参考 <NULL> K7dHsl http://blog.numino.net/ 例子 50zVa1 http://blog.numino.net/ ///////Begin TryStrToDateTime OlOepF http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wZJMBo http://blog.numino.net/ var E2Js9B http://blog.numino.net/ vDateTime: TDateTime; Ruz6NW http://blog.numino.net/ begin DOSoBo http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); tKxR5b http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); fT3DQU http://blog.numino.net/ end; tuu5s5 http://blog.numino.net/ ///////End TryStrToDateTime Mx6vvm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DYd3J1 http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; E8193p http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas LZ78gr http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 YH0xTw http://blog.numino.net/ 说明 <参见FormatDateTime> 6Ox97x http://blog.numino.net/ 参考 function System.SetString Ns786R http://blog.numino.net/ 例子 <参见FormatDateTime> CVHinl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m817Vq http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: 1xt0kk http://blog.numino.net/ string): string; platform; $[SysUtils.pas 5uPfwa http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 y422g2 http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' P63CuU http://blog.numino.net/ 参考 function Windows.GetLocaleInfo Q1JyzZ http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); 3hoOuC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i030Rq http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): iYq068 http://blog.numino.net/ Char; platform; $[SysUtils.pas auI529 http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 00Q4tf http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' A4v2Hc http://blog.numino.net/ 参考 function Windows.GetLocaleInfo fMzTCE http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); 4I90U4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ynaN9O http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; 8QUuzv http://blog.numino.net/ $[SysUtils.pas 7B4TwT http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 6oaoL0 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) ZzP0sy http://blog.numino.net/ 参考 var SysUtils.SysLocale cp06pf http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); HUPuJl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tInMhc http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; ZGecOz http://blog.numino.net/ $[SysUtils.pas bV254V http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 Slf8U4 http://blog.numino.net/ 说明 Index从0开始 KuNu9L http://blog.numino.net/ 参考 var SysUtils.SysLocale pFjwen http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), g594v7 http://blog.numino.net/ SpinEdit2.Value)); 9CDCth http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7KtvWD http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; x1DV12 http://blog.numino.net/ $[SysUtils.pas 8cq9DR http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 wqBweZ http://blog.numino.net/ 说明 MaxLen指定处理字符个数 rX4x63 http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex 94i9J8 http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 9Irngh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ek8PrJ http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; azOK2B http://blog.numino.net/ $[SysUtils.pas qTB9rG http://blog.numino.net/ 功能 返回字符串S中有多少个字符 7TqrRt http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 sC1GR1 http://blog.numino.net/ 参考 var SysUtils.SysLocale cWsM9r http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 194mnE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 38N0BF http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; CZpY2B http://blog.numino.net/ $[SysUtils.pas holr73 http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 71gsSV http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 ffmrym http://blog.numino.net/ 参考 function SysUtils.NextCharIndex IFpPxf http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); 0GKdTy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PDtwDi http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; 4nitFM http://blog.numino.net/ $[SysUtils.pas TSa072 http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 6aYVOa http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 4WSTcz http://blog.numino.net/ 参考 function System.Length 7SSEAj http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); YrcuuF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T98cT6 http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas AHp49s http://blog.numino.net/ 功能 返回第一个字符的宽度 5Z4sZj http://blog.numino.net/ 说明 参数为空则返回0 0t59a1 http://blog.numino.net/ 参考 function Windows.CharNext 3hEjS1 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); 0O2QHW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ms9vMr http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 0cY18b http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 Hgb0Yt http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; s3uf1G http://blog.numino.net/ 参考 function Windows.CharNext 95Q5VR http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); h9C6mV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3hwSuU http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; 7rJkVU http://blog.numino.net/ $[SysUtils.pas 5MsW5j http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 gJR7Vj http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 3M74zj http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength PMCFYC http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); 1j7rNd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nB5AFh http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; 4j4s90 http://blog.numino.net/ $[SysUtils.pas ZU1Syc http://blog.numino.net/ 功能 返回下一个字符的位置 UVFlNq http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 eJLtjD http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength W36wbe http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); HpLgv9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zKJ3yY http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; og3tw8 http://blog.numino.net/ $[SysUtils.pas ltdV8s http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 SVZE7e http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True Sotn0F http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType mb3qSx http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); MRd4cI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bk0BRS http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): HlhZmn http://blog.numino.net/ Boolean; $[SysUtils.pas AUpGSV http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 55z5vS http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 4oYMBJ http://blog.numino.net/ 参考 function SysUtils.ByteType tjvdZZ http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, q62vJX http://blog.numino.net/ SpinEdit1.Value); DNcB8w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eoEc3j http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; eqh5i8 http://blog.numino.net/ $[SysUtils.pas 15e24M http://blog.numino.net/ 功能 返回包括最后路径分隔符 ZWLoGO http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 Rh3vrW http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length tCiu72 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 3rlNr8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iZ37Cw http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; fFTeVv http://blog.numino.net/ $[SysUtils.pas UP6UAm http://blog.numino.net/ 功能 返回包括最后斜线 h6zL8W http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); ci5Gx4 http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter JmMYj7 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); kK1Rg2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q381p7 http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; 022GaN http://blog.numino.net/ $[SysUtils.pas x2a7kk http://blog.numino.net/ 功能 返回排除最后路径分隔符 J0523p http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 yi89vC http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function 1OBqMT http://blog.numino.net/ System.SetLength hR5f0D http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); bPBvU9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DHQgJX http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; 6rYtjK http://blog.numino.net/ $[SysUtils.pas v196lx http://blog.numino.net/ 功能 返回排除最后斜线 sIr6T6 http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) 1SxdZM http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter c9BiKU http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); NfT4Dl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GT3wIx http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; NKwO3S http://blog.numino.net/ $[SysUtils.pas Sc6tLY http://blog.numino.net/ 功能 返回最后一个分隔符的位置 TkbCvh http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 r8wq6b http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType NF468X http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); RBOtti http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w5fciV http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; xY22uV http://blog.numino.net/ $[SysUtils.pas 845UAm http://blog.numino.net/ 功能 返回比较两个文件名 kKg5OT http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 Vizd2Z http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr JFLCrD http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); PRvRY7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dYwXos http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas H2Hl58 http://blog.numino.net/ 功能 返回两个文件名是否相等 U2H0u6 http://blog.numino.net/ 说明 区分大小写 p534Y5 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName z6Ju9L http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); HD9R4e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1MXz1o http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas NWiJ7Z http://blog.numino.net/ 功能 返回小写文件名 maEw0b http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase 4A6Uy5 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase bZg3yp http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); S65XLW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZfpBF5 http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas XytxDM http://blog.numino.net/ 功能 返回大写文件名 2X01b5 http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase Jr316F http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase 6vjY0H http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); ty38US http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 74NOB7 http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas 9RJGOr http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 qsWzxJ http://blog.numino.net/ 说明 不存在则返回0 KBm5eo http://blog.numino.net/ 参考 SysUtils.AnsiStrPos Mka0qa http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); pCYOuE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qpU2Jq http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas Q8fKlL http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 ap3C3L http://blog.numino.net/ 说明 不存在则返回nil bO1gmC http://blog.numino.net/ 参考 function SysUtils.StrByteType VdAoJK http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); sKtsbn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ECSaM7 http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas dVaV2A http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 00ySGK http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' YGXgZD http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan s5OD33 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); aHnR70 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yJ047X http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas w1Q5Bx http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 I8Wd3I http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' pPcgcK http://blog.numino.net/ 参考 function SysUtils.StrScan 8LR7KC http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); G12iF5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eB1ov7 http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: oZXnXD http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas G3MR1E http://blog.numino.net/ 功能 返回替换后的字符串 1By1jG http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 yUKMT1 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function 5xRr2F http://blog.numino.net/ System.Copy i6v1pj http://blog.numino.net/ 例子 zI70pN http://blog.numino.net/ ///////Begin StringReplace 66sMzm http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); GS2HbJ http://blog.numino.net/ begin daoira http://blog.numino.net/ Memo1.Lines.Values['[]'] := 3AikZb http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); xdv9Z7 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := xc85hk http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); 1lXd9i http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := oQB47K http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); 7bpFxL http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := uf49rN http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, PXomX0 http://blog.numino.net/ rfIgnoreCase]); skalfB http://blog.numino.net/ end; 84vuwh http://blog.numino.net/ ///////End StringReplace n90QKL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2z78Hq http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas O9D04I http://blog.numino.net/ 功能 返回字符串S转换成全局标识 eULbNs http://blog.numino.net/ 说明 如果字符串非法将触发异常 vSkvfP http://blog.numino.net/ 参考 fuction Windows.Succeeded XW4dR6 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); a9GzFr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KUg7xp http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas hDAjvc http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 63t5qn http://blog.numino.net/ 说明 <NULL> vMp2Ny http://blog.numino.net/ 参考 fuction Windows.Succeeded rGNko0 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); CRbhzy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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