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

Delphi字符串函数大全 【字符串函数大全】 gzJPMe http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; I4C6Yk http://blog.numino.net/ $[StrUtils.pas 0P4jhr http://blog.numino.net/ 功能 返回两个字符串是否相似 1pV3Cz http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 9Y6se2 http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc J8AHo2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); UBlrQb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7S6ATI http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; cd0b6c http://blog.numino.net/ $[StrUtils.pas e29JKN http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText a2g840 http://blog.numino.net/ 说明 不区分大小写 2sw0WY http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 4To6UO http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); X65967 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f947iN http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; ULifm7 http://blog.numino.net/ $[StrUtils.pas OzJCvd http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 KWRZQ6 http://blog.numino.net/ 说明 不区分大小写 NoTWKk http://blog.numino.net/ 参考 function Windows.CompareString tiQE0q http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); kQVb5A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nx4Mla http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; GdNQVY http://blog.numino.net/ $[StrUtils.pas zK964Z http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 8Ze88E http://blog.numino.net/ 说明 不区分大小写 hAop5i http://blog.numino.net/ 参考 function Windows.CompareString ncOE20 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); 5WX3ir http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9KK8C7 http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 43HA5Y http://blog.numino.net/ string; $[StrUtils.pas MVB4ov http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 04HPLc http://blog.numino.net/ 说明 不区分大小写 ASC20n http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 3Gje89 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); UqWQP2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0KOff9 http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of OIt6P1 http://blog.numino.net/ string): Boolean; $[StrUtils.pas eI2KSK http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText JOcRyK http://blog.numino.net/ 说明 不区分大小写 SuuOmf http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText WyLA10 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', JDd8eD http://blog.numino.net/ 'a4']); Za0qN0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lbdShI http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of a4z7EG http://blog.numino.net/ string): Integer; $[StrUtils.pas Bmo7wW http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 6CH7RL http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 1KumHI http://blog.numino.net/ 参考 function SysUtils.AnsiSameText urE2m6 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 2jWflB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z2C0IQ http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 4WlFow http://blog.numino.net/ $[StrUtils.pas fgB8Ql http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText fbC01M http://blog.numino.net/ 说明 区分大小写 FY9o1D http://blog.numino.net/ 参考 function StrUtils.AnsiPos 0aaP9n http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); ww653o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 03jAYR http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; l5Gw2X http://blog.numino.net/ $[StrUtils.pas Z91B9R http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 76fTEZ http://blog.numino.net/ 说明 区分大小写 62vMeh http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr eQ3AY8 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); ac2v3k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d477RJ http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; 93dlZl http://blog.numino.net/ $[StrUtils.pas OhHq5z http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 n42Cig http://blog.numino.net/ 说明 区分大小写 rwghLu http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr YQQPUw http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 3a0NmV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mh9j6u http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): B0u3w8 http://blog.numino.net/ string; $[StrUtils.pas 8k695u http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 0897Fo http://blog.numino.net/ 说明 区分大小写 221E81 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 6R1k2D http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); 6qa8P9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dC3TT6 http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of CFns4e http://blog.numino.net/ string): Boolean; $[StrUtils.pas YzA78R http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText A6Fao8 http://blog.numino.net/ 说明 区分大小写 LOv92y http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr Hg05bk http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', KNDDt4 http://blog.numino.net/ 'a4']); m0GGcr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d8ew0k http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of 0e8OSt http://blog.numino.net/ string): Integer; $[StrUtils.pas peyS65 http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 3tHM7f http://blog.numino.net/ 说明 区分大小写 Y0sWL3 http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr xwzFJR http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 2FSJR2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 37PQch http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; uUCgC7 http://blog.numino.net/ $[StrUtils.pas mV31Bo http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 B59T2z http://blog.numino.net/ 说明 当ACount为0时返回'' OKb0Pb http://blog.numino.net/ 参考 function System.SetLength XcUvvr http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); YbKV5H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ prUUBi http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas bt18Gb http://blog.numino.net/ 功能 返回字符串AText的反序 IWe5M3 http://blog.numino.net/ 说明 ReverseString('1234') = '4321' aqqkvw http://blog.numino.net/ 参考 function System.SetLength b4FWJ9 http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); FG8sjH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zZEv4N http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; g3FaBl http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas mUb8HA http://blog.numino.net/ 功能 返回嵌套字符串 n8678K http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' q34CR9 http://blog.numino.net/ 参考 function System.Copy e3kx0C http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, RqWzbv http://blog.numino.net/ Edit2.Text); NifWZb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jU6DfW http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; Fpi8SJ http://blog.numino.net/ $[StrUtils.pas jA0ljx http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 Ztht9T http://blog.numino.net/ 说明 之前建议执行Randomize ldO5G6 http://blog.numino.net/ 参考 function System.Random 8mesfJ http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); 7v1uH6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U9AXrE http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = O7Je92 http://blog.numino.net/ ''): string; overload; $[StrUtils.pas DQXrb7 http://blog.numino.net/ 功能 返回指定的逻辑字符串 2GIS6X http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' L1HXeJ http://blog.numino.net/ 参考 <NULL> 5ok42E http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); ivoz30 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2p6G3i http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; LOA8Zr http://blog.numino.net/ $[StrUtils.pas 82xab4 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 2ltrzE http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' Hbzoy3 http://blog.numino.net/ 参考 function System.Copy BMXLjF http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); m7UP5o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E7BOJh http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; VHubDm http://blog.numino.net/ $[StrUtils.pas sbjsM7 http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 N5Pwuj http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' iR7Fgg http://blog.numino.net/ 参考 function System.Copy QVG1ON http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); Jl69kL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 188RVo http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): iIk42m http://blog.numino.net/ string; $[StrUtils.pas y1Zb0Y http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 aj971L http://blog.numino.net/ 说明 其实就是Copy 4lYqX8 http://blog.numino.net/ 参考 function System.Copy 44N6E2 http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); uFKTN8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LII2Ie http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: 9D4Hyr http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): sf7VF4 http://blog.numino.net/ PChar; $[StrUtils.pas 0TTCYh http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 74Odzs http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 1V7q1F http://blog.numino.net/ 参考 <NULL> MbHX8y http://blog.numino.net/ 例子 PTEKMs http://blog.numino.net/ ///////Begin SearchBuf DG23D8 http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; U3zEPH http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; nNvl5W http://blog.numino.net/ var 2BjvxN http://blog.numino.net/ Buffer, P: PChar; YpYaGb http://blog.numino.net/ Size: Word; SVl10A http://blog.numino.net/ begin qiwfiM http://blog.numino.net/ Result := False; nNLLUB http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; Tsa5Un http://blog.numino.net/ Size := EditControl.GetTextLen; RH45Ni http://blog.numino.net/ if (Size = 0) then Exit; 1iO4i7 http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 3NU4KE http://blog.numino.net/ try 5Vz1r6 http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); 3pX0QI http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, B3n8OX http://blog.numino.net/ SearchString, SearchOptions); 1VWwJP http://blog.numino.net/ if P <> nil then begin VCB7Gy http://blog.numino.net/ EditControl.SelStart := P - Buffer; JFjjUy http://blog.numino.net/ EditControl.SelLength := Length(SearchString); db9Skg http://blog.numino.net/ Result := True; Bu501E http://blog.numino.net/ end; SF06mP http://blog.numino.net/ finally Zbw5DA http://blog.numino.net/ StrDispose(Buffer); iT7B9s http://blog.numino.net/ end; 0Dz656 http://blog.numino.net/ end; Vsagf0 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Ex1Fpd http://blog.numino.net/ var 6rP96D http://blog.numino.net/ SearchOptions: TStringSearchOptions; CMcHPE http://blog.numino.net/ begin gIGv97 http://blog.numino.net/ SearchOptions := []; 9e54W2 http://blog.numino.net/ if CheckBox1.Checked then 6n95n7 http://blog.numino.net/ Include(SearchOptions, soDown); 263hWL http://blog.numino.net/ if CheckBox2.Checked then 6UNLIG http://blog.numino.net/ Include(SearchOptions, soMatchCase); COM7o0 http://blog.numino.net/ if CheckBox3.Checked then CYDL24 http://blog.numino.net/ Include(SearchOptions, soWholeWord); bjXyQQ http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 20Z229 http://blog.numino.net/ Memo1.SetFocus; GxY0oT http://blog.numino.net/ end; ElskeR http://blog.numino.net/ ///////End SearchBuf WMsz41 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gMPpPK http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): gBIoRT http://blog.numino.net/ string; $[StrUtils.pas 3hlOe8 http://blog.numino.net/ 功能 返回探测字符串 ky94dL http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html xTw42W http://blog.numino.net/ 参考 <NULL> s2xkKK http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); hndlJl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 720i94 http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = q48NyB http://blog.numino.net/ 4): Integer; $[StrUtils.pas x5G9Vc http://blog.numino.net/ 功能 返回探测整数 ZZE4p5 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 8utp0b http://blog.numino.net/ 参考 <NULL> Co9HJz http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); aSuZE0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mEbB5t http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas KP9OCS http://blog.numino.net/ 功能 返回探测整数的解码 hSF2Yv http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') TIpR76 http://blog.numino.net/ 参考 <NULL> wDQSX7 http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); jNvc5V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4W71w0 http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas Pi7K9f http://blog.numino.net/ 功能 返回探测文字数值 0dE0kQ http://blog.numino.net/ 说明 没有参数ALength已经固定为4 pTNBq4 http://blog.numino.net/ 参考 <NULL> VUAt4O http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); dTl6Av http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U0boF8 http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas 9b3lNY http://blog.numino.net/ 功能 返回探测文字数值的解码 qHX7bV http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') Fk3Vli http://blog.numino.net/ 参考 <NULL> w5U1ui http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); j2SbbR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EMUZqa http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: AiQ3rv http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas K6ZUN1 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 FEv1Le http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) SUFQ6t http://blog.numino.net/ 参考 <NULL> 69sTO4 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, Y2HFA0 http://blog.numino.net/ SpinEdit1.Value); 29Gqvp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YxgX1k http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: M2lUG6 http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas PBE559 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 nBpJ40 http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, I38o5A http://blog.numino.net/ ALength)) M23kL0 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr KzTCSi http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, m55G4x http://blog.numino.net/ SpinEdit1.Value); CZ57tu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 46Ch2s http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; G0BQP2 http://blog.numino.net/ $[StrUtils.pas H1oDEd http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 AbFhLV http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 MNt535 http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText erWzYj http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] FJdpqa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XD6fol http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas OWB13R http://blog.numino.net/ 功能 返回一个新的字符串指针地址 Sw30LY http://blog.numino.net/ 说明 字符串S为空时返回NullStr ZqG4MU http://blog.numino.net/ 参考 procedure System.New 6OFu1C http://blog.numino.net/ 例子 053kdI http://blog.numino.net/ ////////Begin NewStr,DisposeStr XP4LLE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); R5z85x http://blog.numino.net/ var PtLB77 http://blog.numino.net/ P: PString; 0uRyBw http://blog.numino.net/ begin 5u5qir http://blog.numino.net/ P := NewStr(Edit1.Text); miiF52 http://blog.numino.net/ Edit2.Text := P^; ec6Soo http://blog.numino.net/ DisposeStr(P); FasIuX http://blog.numino.net/ end; y01fLO http://blog.numino.net/ ////////End NewStr,DisposeStr y89GDS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZCebci http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas FIwuqN http://blog.numino.net/ 功能 释放字符串指针P资源 6Ydivd http://blog.numino.net/ 说明 配合函数NewStr使用 twx4n7 http://blog.numino.net/ 参考 procedure System.Dispose kUSiSh http://blog.numino.net/ 例子 <如上参见,如下参见> i3Phtm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pUt3W4 http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; 2Nu6YY http://blog.numino.net/ $[SysUtils.pas HV11MY http://blog.numino.net/ 功能 将字符串S更新给字符串指针P sJ3J10 http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 s1fC48 http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr bq6Y7s http://blog.numino.net/ 例子 LsL24J http://blog.numino.net/ ////////Begin AssignStr T9CtKS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); TZ8ZUi http://blog.numino.net/ var w9aCWX http://blog.numino.net/ P: PString; xFI4u9 http://blog.numino.net/ begin sfd9w4 http://blog.numino.net/ P := nil; y3YXXY http://blog.numino.net/ AssignStr(P, Edit1.Text); rjUf10 http://blog.numino.net/ Edit2.Text := P^; 3G7iae http://blog.numino.net/ DisposeStr(P); tnCQ4c http://blog.numino.net/ end; GNKlob http://blog.numino.net/ ////////End AssignStr g8qZO8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AWdmXH http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; 8sn21X http://blog.numino.net/ $[SysUtils.pas 8tLGJy http://blog.numino.net/ 功能 在字符串Dest后追加字符串S t6VpJk http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 1q0I08 http://blog.numino.net/ 参考 <NULL> OIO8nU http://blog.numino.net/ 例子 150CMc http://blog.numino.net/ ////////Begin AppendStr kRwVmf http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7FklWx http://blog.numino.net/ var l02y8r http://blog.numino.net/ S: string; cjvY80 http://blog.numino.net/ begin rlSj9s http://blog.numino.net/ S := Edit2.Text; 9wVop7 http://blog.numino.net/ AppendStr(S, Edit1.Text); WE0521 http://blog.numino.net/ Edit2.Text := S; QZ4SbP http://blog.numino.net/ end; w119c3 http://blog.numino.net/ ////////End AppendStr 2eR5ux http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UfMPFG http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas jd7EuM http://blog.numino.net/ 功能 返回字符串S的大写形式 0g10bk http://blog.numino.net/ 说明 非小写字符不处理 YK83Gc http://blog.numino.net/ 参考 procedure System.SetLength y5UT8t http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); 7eOSO1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7jk44W http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas 86J2ZD http://blog.numino.net/ 功能 返回字符串S的小写形式 2AgNB2 http://blog.numino.net/ 说明 非大写字符不处理 E4MN26 http://blog.numino.net/ 参考 procedure System.SetLength Onj8De http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); JmGIPJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5f9P5B http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas 1a0M43 http://blog.numino.net/ 功能 返回比较两个字符 bzjen8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 gx6TY4 http://blog.numino.net/ 参考 <NULL> M1krR2 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); xCYKbq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hsGa5O http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; 7xyOeD http://blog.numino.net/ assembler; $[SysUtils.pas qTQkPv http://blog.numino.net/ 功能 返回比较两个内存指针 Sbnsb7 http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), 7gQwRf http://blog.numino.net/ PChar('12c'), 3)=False REpkIG http://blog.numino.net/ 参考 <NULL> 1R4459 http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 569rgu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KkE8t3 http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas pbe1hn http://blog.numino.net/ 功能 返回比较两个字符串 p61N7V http://blog.numino.net/ 说明 不区分大小写 V7UU5g http://blog.numino.net/ 参考 <NULL> V2VczT http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); tNmWzU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v8p63h http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 8H8mP9 http://blog.numino.net/ 功能 返回两个字符串是否相等 6R6JVS http://blog.numino.net/ 说明 不区分大小写 YFbxcl http://blog.numino.net/ 参考 <NULL> f62I8O http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 8Q9gh3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X8T1VM http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas BMV7x4 http://blog.numino.net/ 功能 返回字符串S的大写形式 YVk1X4 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 kXO9F7 http://blog.numino.net/ 参考 function Windows.CharUpperBuff bmvYln http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); l8h2bh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 70XVgQ http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas AhI5Y6 http://blog.numino.net/ 功能 返回字符串S的小写形式 wZa1IG http://blog.numino.net/ 说明 非大写字符不处理 L55fl4 http://blog.numino.net/ 参考 function Windows.CharLowerBuff 5Q86QQ http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 7fJOmS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5E5aJ7 http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas Fp4zaP http://blog.numino.net/ 功能 反回比较两个字符串 X8U7xV http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 dvOMQp http://blog.numino.net/ 参考 function Windows.CompareString 0oaoaW http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 3gksYf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QqK7gh http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas I1C8VS http://blog.numino.net/ 功能 返回两个字符串是否相等 6x6Qt7 http://blog.numino.net/ 说明 区分大小写 DffiRM http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 6LDI29 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); fV60dH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7mfp4q http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 0DWZaH http://blog.numino.net/ 功能 反回比较两个字符串 bRywpJ http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 VET8rH http://blog.numino.net/ 参考 function Windows.CompareString 7WVoSD http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); MdsizR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mZO4JE http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas QewMwZ http://blog.numino.net/ 功能 返回两个字符串是否相等 Booe5Y http://blog.numino.net/ 说明 不区分大小写 Vfhlo2 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText IH440B http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); Rokk3X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B6dDf2 http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas SMw3Zm http://blog.numino.net/ 功能 返回比较两个指针字符串 lghq6B http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 KU8VtR http://blog.numino.net/ 参考 function System.CompareString xbRPZ4 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) wcTGX2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a20DcH http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas QNSgJ2 http://blog.numino.net/ 功能 返回比较两个指针字符串 2H7R4o http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) mxHrT3 http://blog.numino.net/ 参考 function Windows.CompareString wH6J9V http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) Y1GH0G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zc72Fl http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; oD0yXy http://blog.numino.net/ $[SysUtils.pas js39Yb http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 8513HR http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) ZvOsNj http://blog.numino.net/ 参考 function Windows.CompareString EM01LC http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), fAkJ71 http://blog.numino.net/ SpinEdit2.Value) XddMQB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9rTAV8 http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; J3hCeS http://blog.numino.net/ $[SysUtils.pas 6ibDRy http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 USL71y http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 Q1VH0C http://blog.numino.net/ 参考 function Windows.CompareString kVqhvp http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), iPUw2q http://blog.numino.net/ SpinEdit2.Value) 8oQjla http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4XPRKZ http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 5mB3gS http://blog.numino.net/ 功能 返回指针字符串小写形式 a28BZD http://blog.numino.net/ 说明 非大写字符不处理 s2It4Y http://blog.numino.net/ 参考 function Windows.CharLower QdnOH8 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); j9Pacm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ljrKuz http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas IV3P0Y http://blog.numino.net/ 功能 返回指针字符串大写形式 5wM1uu http://blog.numino.net/ 说明 非小写字符不处理 r2YuqG http://blog.numino.net/ 参考 function Windows.CharUpper E4hs83 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); vE7O0A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0kN1Mh http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas ZKbxBW http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 jZXlWF http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 CnPCOg http://blog.numino.net/ 参考 function SysUtils.ByteType 4qINxm http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); DhoxF1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8CJ3e9 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 7gF5Wa http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 XacPwU http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 443iWc http://blog.numino.net/ 参考 function SysUtils.ByteType 7sT7yp http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 87nW3n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P5836S http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 3wEJ9R http://blog.numino.net/ 功能 返回双字节字符串的大写形式 dtKbQN http://blog.numino.net/ 说明 WideChar双字节字符 m5Injg http://blog.numino.net/ 参考 function Windows.CharUpperBuffW aWyaws http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); QlMO7s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5XCerV http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas hh8MPC http://blog.numino.net/ 功能 返回双字节字符串的小写形式 u2ym1R http://blog.numino.net/ 说明 我怎么就测试不出来呢 33Sjmf http://blog.numino.net/ 参考 function Windows.CharLowerBuffW mfMVT8 http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); AeVXVe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dh7w98 http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; jJrzOj http://blog.numino.net/ $[SysUtils.pas 7ahxAA http://blog.numino.net/ 功能 返回比较两个双字节字符串 6MSv1T http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 6FvoKh http://blog.numino.net/ 参考 function Windows.CompareStringW 11VDfn http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); vXt05c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qNMqaQ http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas kxhFYy http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 gWiOoA http://blog.numino.net/ 说明 区分大小写 07xsM8 http://blog.numino.net/ 参考 function SysUtils.WideCompareStr mnp288 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 7oxI21 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1ZmhdO http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; fLE2kQ http://blog.numino.net/ $[SysUtils.pas 95C5lM http://blog.numino.net/ 功能 返回比较两个双字节字符串 NU6UvT http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 rN6CYz http://blog.numino.net/ 参考 function Windows.CompareStringW GSPYpU http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); CfwipZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n7ai13 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; KF5kj4 http://blog.numino.net/ $[SysUtils.pas lrVl0i http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 S99h31 http://blog.numino.net/ 说明 不区分大小写 nAegfo http://blog.numino.net/ 参考 function SysUtils.WideCompareText pda1v9 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); r6p9k9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k4tD9j http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas O8YlqL http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; gdy2xz http://blog.numino.net/ $[SysUtils.pas U6nVIN http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 qRA755 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 l98b2L http://blog.numino.net/ 参考 function System.Copy 1oglBx http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); 3jRgcp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v5X0uS http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas 54Rqzr http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; jAQ5bY http://blog.numino.net/ $[SysUtils.pas 5o4CPc http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 mjL1PS http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 1HvL00 http://blog.numino.net/ 参考 function System.Copy JRD8gD http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); RrWM5A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bvRD5q http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas Zoj6WC http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; iG4H8L http://blog.numino.net/ $[SysUtils.pas kYt5u0 http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 WFhVUz http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 PNMFog http://blog.numino.net/ 参考 function System.Copy cdhslC http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); qFZuuS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7rf766 http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 3ImnN5 http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 0Su7K5 http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 TBoztp http://blog.numino.net/ 参考 procedure System.Insert 25940J http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); btUp41 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u5yuI3 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; x7WZds http://blog.numino.net/ $[SysUtils.pas jiorR9 http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 WDmNct http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', O4IpsZ http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 68HHOv http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan LWZawq http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); cIRF9j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OkSFn7 http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 4S2Gsf http://blog.numino.net/ $[SysUtils.pas cwa9JL http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 CBY9BP http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 i09o95 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan W2U4g0 http://blog.numino.net/ 例子 gCG51D http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr DA5V6n http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); jXw43B http://blog.numino.net/ var nXNVkz http://blog.numino.net/ P: PChar; 4pUpSZ http://blog.numino.net/ begin QcTnqL http://blog.numino.net/ P := PChar(Edit1.Text); RWn9we http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); 1OUhox http://blog.numino.net/ Edit3.Text := P; 1ljXX7 http://blog.numino.net/ end; tiwW95 http://blog.numino.net/ ///////End AnsiExtractQuotedStr 8HV4fs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eyoP8s http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; Bi8y1R http://blog.numino.net/ $[SysUtils.pas kmpBc2 http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 LYxZVi http://blog.numino.net/ 说明 表现形式非法时则返回S TyN7v7 http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr Ih2G16 http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); EnnD4f http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J8I5Vy http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = fe9nC0 http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): 1tzub7 http://blog.numino.net/ string; $[SysUtils.pas 8O80mF http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 3fofS6 http://blog.numino.net/ 说明 SxmNAp 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 NN1HB1 http://blog.numino.net/ 参考 function SysUtils.StrNextChar QCflpu http://blog.numino.net/ 例子 <NULL> vtvEQp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HTpYEI http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas TbD4tC http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 YCP64s http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... 8k6XlH http://blog.numino.net/ 参考 <NULL> 9sXPxX http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); E7eBu2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J3GlFK http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas KqETZc http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas D718M6 http://blog.numino.net/ 功能 返回整数Value转换成字符串 kamM7O http://blog.numino.net/ 说明 Format('%d', [Value]) Py4EEI http://blog.numino.net/ 参考 function SysUtils.FmtStr UE15Cn http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 8D0tZK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9zZxUV http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; pOdkE3 http://blog.numino.net/ $[SysUtils.pas AkLB2I http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; OeWvUl http://blog.numino.net/ $[SysUtils.pas qXQ2G9 http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) MMY6Gh http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 kwxEuV http://blog.numino.net/ 参考 function SysUtils.FmtStr f1biZw http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 5uyb3f http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t6HhJK http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas 3uuAN9 http://blog.numino.net/ 功能 返回字符串S转换成整数 N9YT1o http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 23o5Tr http://blog.numino.net/ 参考 procedure System.Val qjYdaT http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); DJ6pPm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9oUV0Q http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; w1Q4uc http://blog.numino.net/ $[SysUtils.pas 9BWYBG http://blog.numino.net/ 功能 返回字符串S转换成整数 dNpQ3k http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default aoQ3zp http://blog.numino.net/ 参考 procedure System.Val bl0pcB http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); F300R2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V2sm8d http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; sF6DfL http://blog.numino.net/ $[SysUtils.pas XI49aw http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 s4nOEg http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 iyizEN http://blog.numino.net/ 参考 procedure System.Val zjMMvW http://blog.numino.net/ 例子 cLh2NA http://blog.numino.net/ ///////Begin TryStrToInt jivpon http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6aQd5X http://blog.numino.net/ var zEmTuq http://blog.numino.net/ I: Integer; o0cOLX http://blog.numino.net/ begin 31bG0m http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); d81V51 http://blog.numino.net/ SpinEdit1.Value := I; zw4nAq http://blog.numino.net/ end; 2jm70g http://blog.numino.net/ ///////End TryStrToInt pbLuh0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iuQ6xI http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas 4NMrT5 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 orbXUh http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 ivU9Fu http://blog.numino.net/ 参考 procedure System.Val 091K3X http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); x6Z6IQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DnnAav http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; e3WTLc http://blog.numino.net/ $[SysUtils.pas 8Qtc4c http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 u803Oy http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default N57wdD http://blog.numino.net/ 参考 procedure System.Val UQDHDe http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); YujzZ8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yqSAPr http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; IF5KA5 http://blog.numino.net/ $[SysUtils.pas dFckH4 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 wXo643 http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 WGOriX http://blog.numino.net/ 参考 procedure System.Val 5iz0WK http://blog.numino.net/ 例子 0RgrUF http://blog.numino.net/ ///////Begin TryStrToInt64 GdPp72 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 2KAE6U http://blog.numino.net/ var nddBv2 http://blog.numino.net/ I: Int64; Y73LQ1 http://blog.numino.net/ begin w9PSBh http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); MgrAO1 http://blog.numino.net/ SpinEdit1.Value := I; 86i88g http://blog.numino.net/ end; gOgf56 http://blog.numino.net/ ///////End TryStrToInt64 IKF32G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lyDOg8 http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas m3Sp4H http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 9c5qSC http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 SO0Z5N http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 93B2o7 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); ZMuMn9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f9gPjN http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): 88jcwD http://blog.numino.net/ Boolean; $[SysUtils.pas 2FCxb7 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 3uV5b4 http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default Sb692M http://blog.numino.net/ 参考 function SysUtils.TryStrToBool ZLOH0j http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); B3tFY5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6S8IYQ http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; vpW37r http://blog.numino.net/ $[SysUtils.pas eNpD9J http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 2N7s3O http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 ldtCzp http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var L4WE2M http://blog.numino.net/ SysUtils.FalseBoolStrs 5bl67U http://blog.numino.net/ 例子 71o3Z6 http://blog.numino.net/ ///////Begin TryStrToBool LS6gC8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); bVFywj http://blog.numino.net/ var CSymu3 http://blog.numino.net/ B: Boolean; V2com7 http://blog.numino.net/ begin oGI44p http://blog.numino.net/ SetLength(TrueBoolStrs, 2); 10IMzt http://blog.numino.net/ SetLength(FalseBoolStrs, 2); aDbV64 http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 75Pk4B http://blog.numino.net/ FalseBoolStrs[0] := 'False'; iKE0Ja http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; emY3Ue http://blog.numino.net/ FalseBoolStrs[1] := 'No'; LTpHp7 http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); JjU9Od http://blog.numino.net/ CheckBox2.Checked := B; Y3kvi7 http://blog.numino.net/ end; P8Lnmj http://blog.numino.net/ ///////End TryStrToBool qjFw4q http://blog.numino.net/ 附加 Y5UUrx http://blog.numino.net/ ///////Begin TryStrToBool zg1m6w http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; uiyU5l http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; YZ79Mk http://blog.numino.net/ var Vi2vdN http://blog.numino.net/ I: Integer; kdQCgW http://blog.numino.net/ begin Xqrd5k http://blog.numino.net/ Result := False; 634HMd http://blog.numino.net/ for I := Low(aArray) to High(aArray) do B6Z1wx http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then mNFLD7 http://blog.numino.net/ begin aztL5H http://blog.numino.net/ Result := True; hCePj1 http://blog.numino.net/ Break; P0uJ4G http://blog.numino.net/ end; ivK0A6 http://blog.numino.net/ end; RXxIw9 http://blog.numino.net/ var NNC1Sq http://blog.numino.net/ LResult: Extended; Fp8KrS http://blog.numino.net/ begin La76T3 http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 2rO8FL http://blog.numino.net/ if Result then BiL835 http://blog.numino.net/ Value := LResult <> 0 V3Qhd9 http://blog.numino.net/ else MzaalD http://blog.numino.net/ begin Dbjf4K http://blog.numino.net/ Result := True; //修正处 O1B0TC http://blog.numino.net/ VerifyBoolStrArray; 7bs5Xn http://blog.numino.net/ if CompareWith(TrueBoolStrs) then 86K5GH http://blog.numino.net/ Value := True JPrUw1 http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then IAu3nV http://blog.numino.net/ Value := False 396pVG http://blog.numino.net/ else 6ZT8st http://blog.numino.net/ Result := False; yYoz03 http://blog.numino.net/ end; ap3SlW http://blog.numino.net/ end; X67jvN http://blog.numino.net/ ///////End TryStrToBool 019lz9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G3X7R0 http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; NX03hk http://blog.numino.net/ $[SysUtils.pas 7639VD http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 hWY79B http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 3GpsMM http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs u82hP0 http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); L5gc5r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t8rTyZ http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas vh21x1 http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 6POzjO http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 McExno http://blog.numino.net/ 参考 function SysUtils.FindStringResource ZRQ70T http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); JI3IHD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9VJf9R http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): oiiXdZ http://blog.numino.net/ string; $[SysUtils.pas E066CE http://blog.numino.net/ 功能 返回格式化的字符串资源 gP2b3V http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 R5vQIO http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 45AIxC http://blog.numino.net/ 例子 <NULL>; 86Tck0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s4Xo75 http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 5772T5 http://blog.numino.net/ 功能 返回指针字符串的长度 1LB4N8 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 3ZWld9 http://blog.numino.net/ 参考 <NULL> C1dlIi http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 3tXf09 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k4IZWZ http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas cuSrjM http://blog.numino.net/ 功能 返回指针字符串的结尾 B1d1BO http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 o5vHqZ http://blog.numino.net/ 参考 <NULL> 38LcBP http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; geslHq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tne9tw http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): 72ftQU http://blog.numino.net/ PChar; $[SysUtils.pas XLp2dK http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 Q26XDg http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 4355Ka http://blog.numino.net/ 参考 function System.Move xPaLuS http://blog.numino.net/ 例子 9Za6QC http://blog.numino.net/ ///////Begin StrMove 76aO93 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JTYia9 http://blog.numino.net/ var 6Mx6aV http://blog.numino.net/ vBuffer: PChar; pVa278 http://blog.numino.net/ begin KU74qY http://blog.numino.net/ vBuffer := '0123456789'; S3xjqw http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 6CD41y http://blog.numino.net/ Edit2.Text := vBuffer; 85v3dB http://blog.numino.net/ end; wSzXgL http://blog.numino.net/ ///////End StrMove T59p1t http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v7zCmk http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; 35vM4e http://blog.numino.net/ $[SysUtils.pas 3ZfW4F http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 D0OjGn http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 dKouXD http://blog.numino.net/ 参考 <NULL> 3kYeaB http://blog.numino.net/ 例子 Lt995q http://blog.numino.net/ ///////Begin StrCopy bNRMz1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); HM6GOn http://blog.numino.net/ var E7j72E http://blog.numino.net/ vBuffer: PChar; H9e0R3 http://blog.numino.net/ begin Uf8fkI http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); rXBOXi http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); EGrLpK http://blog.numino.net/ Edit2.Text := vBuffer; T43qTd http://blog.numino.net/ FreeMem(vBuffer); sWhMXj http://blog.numino.net/ end; O6Rffp http://blog.numino.net/ ///////End StrCopy bhPUwK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kgiUqY http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; nXWBhE http://blog.numino.net/ $[SysUtils.pas l1M8PG http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 CtckJ5 http://blog.numino.net/ 说明 可以连接指针字符串 6L2Cro http://blog.numino.net/ 参考 <NULL> Ko3U23 http://blog.numino.net/ 例子 90V43n http://blog.numino.net/ ///////Begin StrECopy hr2076 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); d1yUn3 http://blog.numino.net/ var JUit0H http://blog.numino.net/ vBuffer: array[0..255] of Char; Lq5HLM http://blog.numino.net/ begin Iq7i5h http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); el1psU http://blog.numino.net/ Edit3.Text := vBuffer; 6P9eGR http://blog.numino.net/ end; ANYT5w http://blog.numino.net/ ///////End StrECopy qOVJBa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vV70t0 http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 4Qpsfw http://blog.numino.net/ PChar; $[SysUtils.pas W2QFo5 http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 y366Zc http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 JP1Mv1 http://blog.numino.net/ 参考 <NULL> vRAHi6 http://blog.numino.net/ 例子 xNO3n7 http://blog.numino.net/ ///////Begin StrLCopy 1Y012v http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); tVmPh1 http://blog.numino.net/ var 8EIqu9 http://blog.numino.net/ vBuffer: array[0..255] of Char; 7EkZXV http://blog.numino.net/ begin 1vDJMj http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 0EzNt1 http://blog.numino.net/ Edit2.Text := vBuffer; nHbPF4 http://blog.numino.net/ end; gysR2Y http://blog.numino.net/ ///////End StrLCopy IBwQ8V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Xqoy60 http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; jeJ750 http://blog.numino.net/ $[SysUtils.pas 8Jy0k3 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 P2H2pC http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) qyADVT http://blog.numino.net/ 参考 function SysUtils.StrLCopy NSz6nB http://blog.numino.net/ 例子 wB8zi0 http://blog.numino.net/ ///////Begin StrPCopy 62D2Mx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); nn9t4E http://blog.numino.net/ var mqFvsO http://blog.numino.net/ vBuffer: array[0..255] of Char; 8pG6wU http://blog.numino.net/ begin jnuqQt http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); qVYWsX http://blog.numino.net/ Edit2.Text := vBuffer; nJE7kl http://blog.numino.net/ end; l4I78x http://blog.numino.net/ ///////End StrPCopy CV0my6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FD0lR0 http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 9Xg6Ai http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas aS7Uwl http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 X7t7Wa http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) Z5bkB7 http://blog.numino.net/ 参考 function SysUtils.StrLCopy 4mRmcK http://blog.numino.net/ 例子 pXTY8l http://blog.numino.net/ ///////Begin StrPLCopy oLkN8Z http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Ib4h6S http://blog.numino.net/ var o79GLm http://blog.numino.net/ vBuffer: array[0..255] of Char; X5YCfL http://blog.numino.net/ begin zqed31 http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); 2sH8y1 http://blog.numino.net/ Edit2.Text := vBuffer; 2dsXtO http://blog.numino.net/ end; iT5AO5 http://blog.numino.net/ ///////End StrPLCopy hsZY0G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D73Rlg http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; EJWU0K http://blog.numino.net/ $[SysUtils.pas oB7fqk http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source YKLal6 http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) qvdDY8 http://blog.numino.net/ 参考 function SysUntils.StrCopy DZDPD6 http://blog.numino.net/ 例子 OJswVd http://blog.numino.net/ ///////Begin StrCat 1Vl9Fv http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5rAHYw http://blog.numino.net/ var d947nu http://blog.numino.net/ vBuffer: array[0..255] of Char; 6duCiF http://blog.numino.net/ begin vzj0D9 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); BK2iyB http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); 8nLvrY http://blog.numino.net/ Edit3.Text := vBuffer; U3NJP5 http://blog.numino.net/ end; NWRtD3 http://blog.numino.net/ ///////End StrCat 9c3vpp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PVN8Hl http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): bPN16A http://blog.numino.net/ PChar; $[SysUtils.pas YZN7SZ http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source TvO3P8 http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 1MRIEJ http://blog.numino.net/ 参考 <NULL> 03Lhj1 http://blog.numino.net/ 例子 6CA8uX http://blog.numino.net/ ///////Begin StrLCat 3gh4FL http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); vIK9lx http://blog.numino.net/ var 8MrdAy http://blog.numino.net/ vBuffer: array[0..255] of Char; HjlCbW http://blog.numino.net/ begin MwFdDg http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); rrIVCq http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); bAVoDO http://blog.numino.net/ Edit3.Text := vBuffer; VztMvE http://blog.numino.net/ end; kcGm41 http://blog.numino.net/ ///////End StrLCat t1nP4r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GIl0jY http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 28Gtsg http://blog.numino.net/ 功能 返回比较两个指针字符串 O5SQ0P http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 Z5cDc9 http://blog.numino.net/ 参考 <NULL> 0xh460 http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); r411CF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2n0wwN http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas A9rJfw http://blog.numino.net/ 功能 返回比较两个指针字符串 gNPa20 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 TzU47U http://blog.numino.net/ 参考 <NULL> g52Qv7 http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); lHLqwM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4By9ab http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 2RYD84 http://blog.numino.net/ $[SysUtils.pas 5mPH4o http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 DL0O81 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 izJ873 http://blog.numino.net/ 参考 <NULL> kuSZgj http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 16BR0c http://blog.numino.net/ SpinEdit2.Value) xJq5T0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CwGWD9 http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; mQjWH7 http://blog.numino.net/ $[SysUtils.pas 13L0tC http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 1VQKAO http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 Vc9ml0 http://blog.numino.net/ 参考 <NULL> lCwuB1 http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), ku3RYb http://blog.numino.net/ SpinEdit2.Value) rbn08H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7b3iCF http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas fBf8Mh http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 XHA5xw http://blog.numino.net/ 说明 没有找到则返回空指针 xBDwc3 http://blog.numino.net/ 参考 <NULL> Wla520 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); TjG98T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aYmcTM http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas fwHQ9G http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 S61Gqb http://blog.numino.net/ 说明 没有找到则返回空指针 MBoHlC http://blog.numino.net/ 参考 <NULL> NzkZXL http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); 4vxhnG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p5JatY http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas t9w0Mt http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 ij2N8R http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' NrTznC http://blog.numino.net/ 参考 <NULL> Du24HA http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 72KHiE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CoFP8K http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas 0wZq9M http://blog.numino.net/ 功能 返回指针字符串Str大写 Y7kW4u http://blog.numino.net/ 说明 非小写字符不处理 y9smFU http://blog.numino.net/ 参考 <NULL> k62DQi http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); brz6PF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3LT2vt http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas 2D1N2B http://blog.numino.net/ 功能 返回指针字符串Str小写 MMfC37 http://blog.numino.net/ 说明 非大写字符不处理 8ox9FI http://blog.numino.net/ 参考 <NULL> N7VTv1 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); 2ZIroU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ChTQ6w http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas MAGHYG http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 zl5usA http://blog.numino.net/ 说明 也可以直接赋值 WxU7ls http://blog.numino.net/ 参考 <NULL> yS99X0 http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); LoKEbx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SSHmnA http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas vrRTQI http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 f3nTLW http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 wlt4xA http://blog.numino.net/ 参考 function System.GetMem KETjIW http://blog.numino.net/ 例子 8334D6 http://blog.numino.net/ ///////Begin StrAlloc Cs68S5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); kK0ddy http://blog.numino.net/ var w2fHlK http://blog.numino.net/ P: PChar; ocE1hJ http://blog.numino.net/ begin eieMeo http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); vSIcdi http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); 6OhC5E http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); Xp4k8N http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); C96e74 http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); TI51BD http://blog.numino.net/ StrDispose(P); 0N8BfJ http://blog.numino.net/ end; B6a4rE http://blog.numino.net/ ///////End StrAlloc Qq4f8O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d3Ckg3 http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas ddUB24 http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 1LbPq9 http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 N8s2oQ http://blog.numino.net/ 参考 function System.SizeOf 2S2P79 http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); IT7p2V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XH8yd8 http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas HYTQcx http://blog.numino.net/ 功能 返回复制一个新的指针字符串 TDZpOm http://blog.numino.net/ 说明 如果Str为nil则返回nil 6O3gt9 http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function 3m7BU7 http://blog.numino.net/ SysUtils.StrAlloc M387wl http://blog.numino.net/ 例子 RYpmoH http://blog.numino.net/ ///////Begin StrNew,StrDispose j7ZW3b http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ANcHmK http://blog.numino.net/ var q308kq http://blog.numino.net/ P: PChar; v5uBn9 http://blog.numino.net/ begin wBWhnS http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); x4C6GD http://blog.numino.net/ ShowMessage(P); 7S57ZB http://blog.numino.net/ StrDispose(P); 02Tq9Y http://blog.numino.net/ end; 74cMt5 http://blog.numino.net/ ///////End StrNew,StrDispose 82pjdp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NCtTls http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas Qa8d4y http://blog.numino.net/ 功能 释放指针字符串Str内存资源 5lqHsc http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 eBK3rR http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem 7P5y9S http://blog.numino.net/ 例子 <参见StrNew> HlhD24 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jX1bX7 http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): QCdLV5 http://blog.numino.net/ string; $[SysUtils.pas 4DMVEm http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 T0Y1ad http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 hxYD81 http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 9dSuwl http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 YGa3G0 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 a8yDuR http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 RF1oKO http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 Udxuwr http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 Lvhapd http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 pDMn2z http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 W4EE4k http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 20bS39 http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 pPBu09 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 01bLtS http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" XYFeKU http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 8Z5MPF http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr 85gtYv http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); h27LDo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OPz94z http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: tGZZr9 http://blog.numino.net/ array of const); $[SysUtils.pas L78C16 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 rCpQrz http://blog.numino.net/ 说明 <参见Format> nbbsmV http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function gCodP5 http://blog.numino.net/ System.SetLength 4wChH9 http://blog.numino.net/ 例子 <参见Format> f627w4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2AWD5l http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): ns6XW4 http://blog.numino.net/ PChar; $[SysUtils.pas E0eERm http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 1eAN6T http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil 7nx4Re http://blog.numino.net/ 参考 function SysUtils.FormatBuf 9XH32E http://blog.numino.net/ 例子 <参见Format> XL78mW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1mm2Vo http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; gaR0dg http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas 3Dw24N http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 aw10GW http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; hxoPI9 http://blog.numino.net/ 参考 function SysUtils.FormatBuf c6DI9q http://blog.numino.net/ 例子 <参见Format> t2P1TK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o45HQO http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: lMa48q http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas VD63n2 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 8T2WT6 http://blog.numino.net/ 说明 <NULL> AO46M9 http://blog.numino.net/ 参考 <NULL> CBy6IA http://blog.numino.net/ 例子 <参见Format> d81cWO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bM4XYv http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of y538BH http://blog.numino.net/ const): WideString; $[SysUtils.pas 7xiR7x http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 D6RJLP http://blog.numino.net/ 说明 <NULL> Rv7Z3r http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr WAVxiw http://blog.numino.net/ 例子 <参见Format> yFd5NT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QE865M http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; dVShL5 http://blog.numino.net/ const Args: array of const); $[SysUtils.pas 2Q03iz http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 1L4FWf http://blog.numino.net/ 说明 <NULL> 57Nmwx http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf 4K0E3n http://blog.numino.net/ 例子 <参见Format> w1JleH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lGrYks http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; rrUpo1 http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas grVcpR http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 r0P5Fq http://blog.numino.net/ 说明 <NULL> hMD3Hh http://blog.numino.net/ 参考 <NULL> pef45J http://blog.numino.net/ 例子 <参见Format> 1NazpU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yM6n94 http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas wkWK9e http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 88O24w http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 z9725E http://blog.numino.net/ 参考 function SysUtils.FloatToText L6U0WK http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); g1T1p5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 51Uz0v http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas JU60x7 http://blog.numino.net/ 功能 返回货币数Value转换成字符串 e3vf8W http://blog.numino.net/ 说明 货币数只保留四位小数 gFUnvc http://blog.numino.net/ 参考 function SysUtils.FloatToText HdRMaR http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); TsEGcm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pp5ILj http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas DEq6x6 http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 4joQ4i http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 77r6jQ http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency C13v70 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); Y5xYVx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BTAw9B http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, 80NW93 http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas y0pJXe http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 aSFabJ http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 t6rhQu http://blog.numino.net/ 参考 function SysUtils.FloatToText 7uKp6I http://blog.numino.net/ 例子 De05xv http://blog.numino.net/ ///////Begin FloatToStrF x10Fvf http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); YxiCeo http://blog.numino.net/ begin yL2q7S http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 7LZY3B http://blog.numino.net/ 0), ySUj4G http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); 0wcKEf http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, gP1InA http://blog.numino.net/ 0), S0hID0 http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); rfA53L http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ozVD3a http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); fvYq0e http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, Brj1o5 http://blog.numino.net/ 0), tSycGW http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); qMiXsH http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, sk6iv2 http://blog.numino.net/ 0), 757Bb0 http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); SS4kJ5 http://blog.numino.net/ end; 69M1wB http://blog.numino.net/ ///////End FloatToStrF 9FsKbZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aGnPg9 http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: HnMbDg http://blog.numino.net/ Integer): string; $[SysUtils.pas ERoQeR http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 h0hUi8 http://blog.numino.net/ 说明 Digits指定小数宽度 7194LX http://blog.numino.net/ 参考 function SysUtils.FloatToText 551Zw1 http://blog.numino.net/ 例子 e69nsQ http://blog.numino.net/ ///////Begin CurrToStrF p0On3x http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 03TC2N http://blog.numino.net/ begin Kt8X9k http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), g9zMVu http://blog.numino.net/ ffGeneral, SpinEdit1.Value); 0vermf http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 3098UD http://blog.numino.net/ 0), Y61MQ6 http://blog.numino.net/ ffExponent, SpinEdit1.Value); dU9Rua http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), fVi8BT http://blog.numino.net/ ffFixed, SpinEdit1.Value); lKdYsD http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), j1T50I http://blog.numino.net/ ffNumber, SpinEdit1.Value); ZHttrR http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 7ivZRx http://blog.numino.net/ 0), BxlB1d http://blog.numino.net/ ffCurrency, SpinEdit1.Value); 5J7d63 http://blog.numino.net/ end; bWX8po http://blog.numino.net/ ///////End CurrToStrF uNnT49 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EmVWJ6 http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: 9NaJLo http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; emXUuF http://blog.numino.net/ $[SysUtils.pas vwkcC3 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 hO5GrB http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 yIroz4 http://blog.numino.net/ 参考 <NULL> DU62HP http://blog.numino.net/ 例子 NAOdPk http://blog.numino.net/ ///////Begin FloatToText 1j5Vv5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Csch0T http://blog.numino.net/ var Zijz3u http://blog.numino.net/ vBuffer: array[0..255] of Char; 4kXnMx http://blog.numino.net/ E: Extended; 2QPEe8 http://blog.numino.net/ begin 9Cqmvu http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); RUs0f0 http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 4nA3va http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); KbgzMj http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); EZb3mT http://blog.numino.net/ end; yqQ32L http://blog.numino.net/ ///////End FloatToText( 75dwXI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LCu87u http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; agJOXw http://blog.numino.net/ $[SysUtils.pas 5ChDJG http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 5C7lTv http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' 17VaKS http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 6042kM http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); 8G4eOD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0CU6rI http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; 1NrIKs http://blog.numino.net/ $[SysUtils.pas XU0BjS http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 jj55FR http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' UkMfAf http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt asz7fQ http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 6sY1y9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3YzUZ0 http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: GI6eeu http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas ct44Af http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 vI8dHz http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 s6B68E http://blog.numino.net/ 参考 <NULL> W4UFT5 http://blog.numino.net/ 例子 oYB1SF http://blog.numino.net/ ///////Begin FloatToTextFmt ztV7f1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); XLu1KV http://blog.numino.net/ var L825mx http://blog.numino.net/ vBuffer: array[0..255] of Char; 1ng5MO http://blog.numino.net/ E: Extended; R0Qy3k http://blog.numino.net/ begin uGe1EB http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); I3w3q2 http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 9jG74C http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); Tfi2bH http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); 1h93y7 http://blog.numino.net/ end; mte39a http://blog.numino.net/ ///////End FloatToTextFmt Bh3pOE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5r40Ca http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas p5TZAW http://blog.numino.net/ 功能 返回字符串S转换成浮点数 94130L http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 bYtWIM http://blog.numino.net/ 参考 function SysUtils.TextToFloat V057vJ http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; 5mq6e8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TzAhSl http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): 0KTZ2I http://blog.numino.net/ Extended; $[SysUtils.pas T88Q06 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 lnyuhv http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default G0xUu5 http://blog.numino.net/ 参考 function SysUtils.TextToFloat jAnriH http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; V1BtBY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Som3yA http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; 1aQvz7 http://blog.numino.net/ overload; $[SysUtils.pas JZMitf http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; T8pNre http://blog.numino.net/ overload; $[SysUtils.pas OOVYKt http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; UyV3k8 http://blog.numino.net/ overload; $[SysUtils.pas FO41YZ http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 Fa0rev http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 yCuSg4 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 9WqTsn http://blog.numino.net/ 例子 VcZZkB http://blog.numino.net/ ///////Begin TryStrToFloat Ino6hP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 8TCd96 http://blog.numino.net/ var qUY8fs http://blog.numino.net/ E: Extended; 562G7x http://blog.numino.net/ begin HGJYse http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 7i43mG http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 1XY7JX http://blog.numino.net/ end; cxZI5Y http://blog.numino.net/ ///////End TryStrToFloat jEKZGW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WYqKxs http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas RFhEij http://blog.numino.net/ 功能 返回字符串S转换成货币数 cp033p http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 u8HJp5 http://blog.numino.net/ 参考 function SysUtils.TextToFloat Xu8cS6 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 0iKhYD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5YpSl3 http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): SZkfSW http://blog.numino.net/ Currency; $[SysUtils.pas nCJA3g http://blog.numino.net/ 功能 返回字符串S转换成货币数 78Q593 http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default 05A4M6 http://blog.numino.net/ 参考 function SysUtils.TextToFloat L5m4Mr http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; W85oS3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iEVt0Y http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; f5g12s http://blog.numino.net/ $[SysUtils.pas tvw9SD http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 l69HUJ http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 37mx0W http://blog.numino.net/ 参考 function SysUtils.TextToFloat 30SFa1 http://blog.numino.net/ 例子 5z6F1E http://blog.numino.net/ ///////Begin TryStrToCurr nVLiZ9 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); VcNg2V http://blog.numino.net/ var k6wxgh http://blog.numino.net/ C: Currency; Y2wDqB http://blog.numino.net/ begin Ra76Bb http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); t7rTd9 http://blog.numino.net/ Edit2.Text := FormatCurr('', C); PAyfdv http://blog.numino.net/ end; X14mh5 http://blog.numino.net/ ///////End TryStrToCurr rIp9Pc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dt119I http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): 29qJAe http://blog.numino.net/ Boolean; $[SysUtils.pas mc8o6N http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value FXXxx5 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 iz0ov0 http://blog.numino.net/ 参考 <NULL> UL77UN http://blog.numino.net/ 例子 UhBsh0 http://blog.numino.net/ ///////Begin TextToFloat 44wwVw http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Q5M7zm http://blog.numino.net/ var SV7zH6 http://blog.numino.net/ E: Extended; r7x49j http://blog.numino.net/ begin 9Ok7Vf http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, tXqlrA http://blog.numino.net/ fvExtended); 96ENWW http://blog.numino.net/ Edit2.Text := FormatFloat('', E); C8ADAN http://blog.numino.net/ end; 2A0sY4 http://blog.numino.net/ ///////End TextToFloat vQF244 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JiZPb0 http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas S0J12i http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 4Y7BCS http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 VIe9Nu http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat 3W326Z http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); G10tv5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VeXM2x http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas E8L6Is http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 3htJ6e http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 gpTNRK http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat j7DBX0 http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); pHy0Xg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 28q1Va http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; GdrW5G http://blog.numino.net/ $[SysUtils.pas n8nd0Z http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 9xmmTH http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 GL0u20 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString D3289Z http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); c712CC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F1UDGB http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas tu7S1L http://blog.numino.net/ 功能 返回字符串S转换成日期 e7Q0M7 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 fVntVC http://blog.numino.net/ 参考 function SysUtils.TryStrToDate EOke63 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); HK20aN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6q5E7f http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): WmnTIX http://blog.numino.net/ TDateTime; $[SysUtils.pas Kp5E8N http://blog.numino.net/ 功能 返回字符串S转换成日期 db27Cp http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default 3jhelW http://blog.numino.net/ 参考 function SysUtils.TryStrToDate uIaMQx http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); TMmjQv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3T9vWh http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; nhG96i http://blog.numino.net/ $[SysUtils.pas XRtJWD http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 7A8y5o http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 5Z5Li6 http://blog.numino.net/ 参考 <NULL> U97p30 http://blog.numino.net/ 例子 k9DFjn http://blog.numino.net/ ///////Begin TryStrToDate i792qt http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9387DY http://blog.numino.net/ var E3QKAa http://blog.numino.net/ vDateTime: TDateTime; ip2qzo http://blog.numino.net/ begin hhpf80 http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); 5uuW4e http://blog.numino.net/ DateTimePicker1.Date := vDateTime; tLRgGP http://blog.numino.net/ end; FHu4hY http://blog.numino.net/ ///////End TryStrToDate d1P7vz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0mXy8j http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas db5SYh http://blog.numino.net/ 功能 返回字符串S转换成时间 SPz75M http://blog.numino.net/ 说明 字符非时间表达时将引起异常 gUjh3G http://blog.numino.net/ 参考 function SysUtils.TryStrToTime lFS2zV http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 7guPNB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YCAvwq http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): U36C67 http://blog.numino.net/ TDateTime; $[SysUtils.pas 139F73 http://blog.numino.net/ 功能 返回字符串S转换成时间 ma3h7b http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default IBkxbX http://blog.numino.net/ 参考 function SysUtils.TryStrToTime jY0t7Y http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); DSNbtC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Kw528b http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; 50p201 http://blog.numino.net/ $[SysUtils.pas dU2qbe http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 gYwvpk http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 J8GZSi http://blog.numino.net/ 参考 <NULL> 8Wc13q http://blog.numino.net/ 例子 pXZQzB http://blog.numino.net/ ///////Begin TryStrToTime 8p5R39 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7midDo http://blog.numino.net/ var F9400l http://blog.numino.net/ vDateTime: TDateTime; 5HU06b http://blog.numino.net/ begin csLEi8 http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); E1UaoZ http://blog.numino.net/ DateTimePicker1.Time := vDateTime; V6PmpW http://blog.numino.net/ end; ct21CA http://blog.numino.net/ ///////End TryStrToTime 1B6jdV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UYe1qD http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas GYar9Y http://blog.numino.net/ 功能 返回字符串S转换成日期时间 iT023p http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 a3FnS0 http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime oUf1u8 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 9tlv06 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D3a3BI http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): dazJ71 http://blog.numino.net/ TDateTime; $[SysUtils.pas 4sYd2A http://blog.numino.net/ 功能 返回字符串S转换成日期时间 KTc24s http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default 16oXJA http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime Zz4O9i http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 34JL6n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uJM2jV http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): GcUswW http://blog.numino.net/ Boolean; $[SysUtils.pas 8oGx7A http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 8hzxex http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 KFL2Bi http://blog.numino.net/ 参考 <NULL> 9r340C http://blog.numino.net/ 例子 6eZPOz http://blog.numino.net/ ///////Begin TryStrToDateTime FY59WL http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); FUp52F http://blog.numino.net/ var O94KF2 http://blog.numino.net/ vDateTime: TDateTime; V7MkQU http://blog.numino.net/ begin pkNXHi http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); K4ib8R http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); z43VLa http://blog.numino.net/ end; 6E5rTC http://blog.numino.net/ ///////End TryStrToDateTime eSqJhX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hnrHm0 http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; 55mp33 http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas KQF01f http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 5Q6vg7 http://blog.numino.net/ 说明 <参见FormatDateTime> foyF5Y http://blog.numino.net/ 参考 function System.SetString Tt9apq http://blog.numino.net/ 例子 <参见FormatDateTime> 3HjKHi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4q6I6L http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: rwmOUY http://blog.numino.net/ string): string; platform; $[SysUtils.pas 9CHb67 http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 32bl5J http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' gXnDXu http://blog.numino.net/ 参考 function Windows.GetLocaleInfo O2BL6W http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); dCRrvW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G78CO7 http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): YUi8J4 http://blog.numino.net/ Char; platform; $[SysUtils.pas N6a14z http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 Ofp316 http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' 6960x7 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo wjrpIA http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); eNJx99 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YcCzh9 http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; RN507s http://blog.numino.net/ $[SysUtils.pas oDlRJB http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 GJfG6t http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) OjJkBp http://blog.numino.net/ 参考 var SysUtils.SysLocale r1rC9n http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); w7RyQl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QLSy2H http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 2sUMrg http://blog.numino.net/ $[SysUtils.pas WJO11Y http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 bUCqXj http://blog.numino.net/ 说明 Index从0开始 m5kLcl http://blog.numino.net/ 参考 var SysUtils.SysLocale 012w01 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), zw930b http://blog.numino.net/ SpinEdit2.Value)); 67qw4R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P813m5 http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; Tb32A9 http://blog.numino.net/ $[SysUtils.pas 5zkNfM http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 kVrxTW http://blog.numino.net/ 说明 MaxLen指定处理字符个数 udPCHS http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex k0DXlf http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); U2G4j3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xCcm36 http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; Ae8EAA http://blog.numino.net/ $[SysUtils.pas srFk5r http://blog.numino.net/ 功能 返回字符串S中有多少个字符 54pyQC http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 szV2nh http://blog.numino.net/ 参考 var SysUtils.SysLocale I4b5Vx http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); tWel12 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JsFsgm http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; VYtaaa http://blog.numino.net/ $[SysUtils.pas DzXN1X http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 1h1gSb http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 2SvePg http://blog.numino.net/ 参考 function SysUtils.NextCharIndex ahzPP6 http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); vY6LNc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hzDE8w http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; Y37Fys http://blog.numino.net/ $[SysUtils.pas 5AwrIM http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 B8RCSd http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 P15PFX http://blog.numino.net/ 参考 function System.Length H3wC19 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); BiW624 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 26Jkwr http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas oolxJF http://blog.numino.net/ 功能 返回第一个字符的宽度 vRFTq3 http://blog.numino.net/ 说明 参数为空则返回0 qY3oeD http://blog.numino.net/ 参考 function Windows.CharNext H15eQ7 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); Uw1t44 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8E85yp http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 2EqamS http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 oz1sJH http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; S8TzTh http://blog.numino.net/ 参考 function Windows.CharNext ZKuEvN http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); ZzbU04 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ csNvNZ http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; YahKe1 http://blog.numino.net/ $[SysUtils.pas jfKOw9 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 PO5206 http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 SPY4Y5 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength Ps6haj http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); vfmoAk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0eRWtS http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; Y5Dmic http://blog.numino.net/ $[SysUtils.pas bue96S http://blog.numino.net/ 功能 返回下一个字符的位置 rpD9hS http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 d3H28Q http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength iZ7LKg http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); e5Z4Wp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Yj2SFq http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; vJ439Y http://blog.numino.net/ $[SysUtils.pas iufTbv http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 5G1FhG http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True Y3mkbb http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType y5Tca9 http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); 9M7L0j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ svDmK4 http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): 3EYk59 http://blog.numino.net/ Boolean; $[SysUtils.pas l1EA7F http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters Y0mk3I http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True qEzqO6 http://blog.numino.net/ 参考 function SysUtils.ByteType w92Yko http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, SAo8KD http://blog.numino.net/ SpinEdit1.Value); F99FY5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Sq6jf1 http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; 5R1RN2 http://blog.numino.net/ $[SysUtils.pas Wt9JVV http://blog.numino.net/ 功能 返回包括最后路径分隔符 3p0999 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 bCr5WM http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length NmTb24 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 330xda http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EWMuYc http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; n7yF4N http://blog.numino.net/ $[SysUtils.pas bJxvb7 http://blog.numino.net/ 功能 返回包括最后斜线 x80XIe http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); BxZeh6 http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter KXcA8u http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); g1SoQ8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cxbu2u http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; w1Jjg9 http://blog.numino.net/ $[SysUtils.pas cYNFwQ http://blog.numino.net/ 功能 返回排除最后路径分隔符 cT5s7p http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 x8i19h http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function QV7bH9 http://blog.numino.net/ System.SetLength Lq1G5A http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); 9AifP6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XUO8Lf http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; O9QFtu http://blog.numino.net/ $[SysUtils.pas 7Uooa8 http://blog.numino.net/ 功能 返回排除最后斜线 labj2Z http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) 33JhBc http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter YERY0z http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); x8U8Ti http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Wvso9R http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; Nmf7DN http://blog.numino.net/ $[SysUtils.pas U0RM8C http://blog.numino.net/ 功能 返回最后一个分隔符的位置 9MmewE http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 1M9M0b http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType ODrsGl http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); hB9E65 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HlGuox http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; g4IpRW http://blog.numino.net/ $[SysUtils.pas 3jscG1 http://blog.numino.net/ 功能 返回比较两个文件名 F7Ggc6 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 t29Haw http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr lgYOaq http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); GqnOFs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gThOwc http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas j0D9KA http://blog.numino.net/ 功能 返回两个文件名是否相等 ZlH0E8 http://blog.numino.net/ 说明 区分大小写 u2xF5p http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName 87wfWn http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); 9vMXP0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jjsVPS http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas bL3q6U http://blog.numino.net/ 功能 返回小写文件名 TtIR4Y http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase xN0hiY http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase B5EQnp http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); 9R1023 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4FD8tI http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas lComQL http://blog.numino.net/ 功能 返回大写文件名 24hPJZ http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 1a6V7Q http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase exhy85 http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); cessYu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I8VV7K http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas Bt60vx http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 BB2A7k http://blog.numino.net/ 说明 不存在则返回0 z0bkra http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 3twPaY http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); Z6csxX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FRy10G http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 49geDh http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 Y58n64 http://blog.numino.net/ 说明 不存在则返回nil Z55G9h http://blog.numino.net/ 参考 function SysUtils.StrByteType u9C8r8 http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); H1dYF0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 156soz http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas jIAM5R http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 HI7oP0 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' 0lLPZD http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan wwom4T http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); x0d9L7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9FN3f1 http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas RzhpVQ http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 A5T7y8 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 8VfqS6 http://blog.numino.net/ 参考 function SysUtils.StrScan fidTO6 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); xBVoXL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C4J0Ih http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: 8lLU5B http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas 00O551 http://blog.numino.net/ 功能 返回替换后的字符串 LvEXnE http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 4jvZT2 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function h2d9CB http://blog.numino.net/ System.Copy JhWAb7 http://blog.numino.net/ 例子 5m2DV3 http://blog.numino.net/ ///////Begin StringReplace KxZLVz http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); RVeVUc http://blog.numino.net/ begin ZT2hAB http://blog.numino.net/ Memo1.Lines.Values['[]'] := 9l1QdO http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); 04DFi1 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := 9i0pID http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); f2hb5r http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := WtUpCM http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); lSEEQ3 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := 9A0h3j http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, U7RU91 http://blog.numino.net/ rfIgnoreCase]); 96ePz0 http://blog.numino.net/ end; 7MyVs5 http://blog.numino.net/ ///////End StringReplace qo6oYt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6ywQPv http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas h8Ik9Y http://blog.numino.net/ 功能 返回字符串S转换成全局标识 pbi38g http://blog.numino.net/ 说明 如果字符串非法将触发异常 6u8d5m http://blog.numino.net/ 参考 fuction Windows.Succeeded h09tSz http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); jy0UPm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4U00KU http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas ALM79T http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 9KTWiL http://blog.numino.net/ 说明 <NULL> Gb045q http://blog.numino.net/ 参考 fuction Windows.Succeeded 283Fa2 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 4Lc71s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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