Delphi字符串函数大全 |
【字符串函数大全】 nag7fl http://www.numino.net 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; 1Yypp0 http://www.numino.net $[StrUtils.pas EMwr7k http://www.numino.net 功能 返回两个字符串是否相似 ABIJTM http://www.numino.net 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 KGJZhH http://www.numino.net 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 12rl5R http://www.numino.net 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 2Qw3oA http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Lh3T8z http://www.numino.net 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; tV23Uq http://www.numino.net $[StrUtils.pas zQT3v8 http://www.numino.net 功能 返回字符串AText是否包含子串ASubText 8L0bo6 http://www.numino.net 说明 不区分大小写 4SRRFp http://www.numino.net 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 23EluK http://www.numino.net 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 7Z4JE9 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ xan8Cd http://www.numino.net 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; k6TLsO http://www.numino.net $[StrUtils.pas xAdugO http://www.numino.net 功能 返回字符串AText是否以子串ASubText开头 4uyAeL http://www.numino.net 说明 不区分大小写 OE990o http://www.numino.net 参考 function Windows.CompareString 1G0rCE http://www.numino.net 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); G36j7Z http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Xi6mFh http://www.numino.net 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; drX64n http://www.numino.net $[StrUtils.pas O8jWgO http://www.numino.net 功能 返回字符串AText是否以子串ASubText结尾 fm1h82 http://www.numino.net 说明 不区分大小写 O6o37F http://www.numino.net 参考 function Windows.CompareString 3aF4U3 http://www.numino.net 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); h3BxKD http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 9AMPdZ http://www.numino.net 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 1YOdra http://www.numino.net string; $[StrUtils.pas VjpI9j http://www.numino.net 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 Q0Z7Wo http://www.numino.net 说明 不区分大小写 u5X64j http://www.numino.net 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags eoJRhW http://www.numino.net 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); LWd8vZ http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 4cqlFr http://www.numino.net 首部 function AnsiMatchText(const AText: string; const AValues: array of sBeUw1 http://www.numino.net string): Boolean; $[StrUtils.pas nO372A http://www.numino.net 功能 返回字符串数组AValues中是否包含字符串AText Eu3OBW http://www.numino.net 说明 不区分大小写 3LBJTZ http://www.numino.net 参考 function StrUtils.AnsiIndexText iie788 http://www.numino.net 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', r04rIp http://www.numino.net 'a4']); 5l4J58 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ kOgC8S http://www.numino.net 首部 function AnsiIndexText(const AText: string; const AValues: array of 3C59lA http://www.numino.net string): Integer; $[StrUtils.pas 6t09G9 http://www.numino.net 功能 返回字符串AText在字符串数组AValues中的位置 IWqjdn http://www.numino.net 说明 不区分大小写;如果不包含则返回-1 R84CIt http://www.numino.net 参考 function SysUtils.AnsiSameText A2V8FL http://www.numino.net 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); aM9zng http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ AgbCzy http://www.numino.net 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; LYrOZF http://www.numino.net $[StrUtils.pas vHyZJJ http://www.numino.net 功能 返回字符串AText是否包含子串ASubText O8uM37 http://www.numino.net 说明 区分大小写 TCdKxk http://www.numino.net 参考 function StrUtils.AnsiPos QX6RDe http://www.numino.net 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); GJmPMU http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 1EfCBj http://www.numino.net 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; ML64DW http://www.numino.net $[StrUtils.pas Uqy721 http://www.numino.net 功能 返回字符串AText是否以子串ASubText开头 UuaYLy http://www.numino.net 说明 区分大小写 cyueA9 http://www.numino.net 参考 function SysUtils.AnsiSameStr gPl14Y http://www.numino.net 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); 9s4jgy http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ BHcLo0 http://www.numino.net 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; oogLg8 http://www.numino.net $[StrUtils.pas 16PMfr http://www.numino.net 功能 返回字符串AText是否以子串ASubText结尾 7ZC56Z http://www.numino.net 说明 区分大小写 NGGf0A http://www.numino.net 参考 function SysUtils.AnsiSameStr WrWk52 http://www.numino.net 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 32bGWu http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2c0k2V http://www.numino.net 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): jAuiLf http://www.numino.net string; $[StrUtils.pas WPMTC2 http://www.numino.net 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 iwPk1h http://www.numino.net 说明 区分大小写 5h1KID http://www.numino.net 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 4WHVjU http://www.numino.net 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); H5t6tn http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ HWcREd http://www.numino.net 首部 function AnsiMatchStr(const AText: string; const AValues: array of 1Y6P66 http://www.numino.net string): Boolean; $[StrUtils.pas CRBy8e http://www.numino.net 功能 返回字符串数组AValues中是否包含字符串AText rh3onM http://www.numino.net 说明 区分大小写 vFbtT3 http://www.numino.net 参考 function StrUtils.AnsiIndexStr qSj4Jw http://www.numino.net 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 27N6J3 http://www.numino.net 'a4']); 7Hg0LD http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ gJUVVr http://www.numino.net 首部 function AnsiIndexStr(const AText: string; const AValues: array of y53hW5 http://www.numino.net string): Integer; $[StrUtils.pas iL1sYF http://www.numino.net 功能 返回字符串AText在字符串数组AValues中的位置 E4R19q http://www.numino.net 说明 区分大小写 DEYKkB http://www.numino.net 参考 function SysUtils.AnsiSameStr fI4O5O http://www.numino.net 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); UPaRq4 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ BnY6jq http://www.numino.net 首部 function DupeString(const AText: string; ACount: Integer): string; ia0EAg http://www.numino.net $[StrUtils.pas sRU9pm http://www.numino.net 功能 返回字符串AText的ACount个复本 UMsUN3 http://www.numino.net 说明 当ACount为0时返回'' 7Wu3VO http://www.numino.net 参考 function System.SetLength r3xBjP http://www.numino.net 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); BTUfo4 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 06hr4T http://www.numino.net 首部 function ReverseString(const AText: string): string; $[StrUtils.pas s3L63A http://www.numino.net 功能 返回字符串AText的反序 00jKY9 http://www.numino.net 说明 ReverseString('1234') = '4321' s3i48t http://www.numino.net 参考 function System.SetLength aQLvEN http://www.numino.net 例子 Edit3.Text := ReverseString(Edit1.Text); lQ7D6J http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Nl72oW http://www.numino.net 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; GAcIR0 http://www.numino.net const ASubText: string): string; $[StrUtils.pas lEB8yr http://www.numino.net 功能 返回嵌套字符串 36iZd4 http://www.numino.net 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' nvrVrZ http://www.numino.net 参考 function System.Copy R7eSN5 http://www.numino.net 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, 5Uai7v http://www.numino.net Edit2.Text); H19q3H http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 4B86xt http://www.numino.net 首部 function RandomFrom(const AValues: array of string): string; overload; 0M2fr3 http://www.numino.net $[StrUtils.pas R8q7o8 http://www.numino.net 功能 随机返回字符串数组AValues中的一个元素 KH1go4 http://www.numino.net 说明 之前建议执行Randomize FsL23A http://www.numino.net 参考 function System.Random 0MEr9j http://www.numino.net 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); sbHDn8 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 4JQ1P3 http://www.numino.net 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = mqtd9d http://www.numino.net ''): string; overload; $[StrUtils.pas QdTP4H http://www.numino.net 功能 返回指定的逻辑字符串 c9pm7g http://www.numino.net 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' h7c5sm http://www.numino.net 参考 <NULL> D88my9 http://www.numino.net 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); Lq38tl http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ kCx3AS http://www.numino.net 首部 function LeftStr(const AText: string; const ACount: Integer): string; wW0Dg4 http://www.numino.net $[StrUtils.pas DT7veS http://www.numino.net 功能 返回字符串AText左边的ACount个字符 6ftl61 http://www.numino.net 说明 LeftStr('123456', 3) = '123' ZlOP50 http://www.numino.net 参考 function System.Copy 7m1tRw http://www.numino.net 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); PT3H2b http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2ye7Ye http://www.numino.net 首部 function RightStr(const AText: string; const ACount: Integer): string; 3M1e7y http://www.numino.net $[StrUtils.pas uPhVSK http://www.numino.net 功能 返回字符串AText右边的ACount个字符 4HvQmG http://www.numino.net 说明 RightStr('123456', 3) = '456' g4rtCo http://www.numino.net 参考 function System.Copy GgeBH1 http://www.numino.net 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); l6khql http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ bj8M8d http://www.numino.net 首部 function MidStr(const AText: string; const AStart, ACount: Integer): VcyRWo http://www.numino.net string; $[StrUtils.pas YH73x6 http://www.numino.net 功能 返回字符串AText从AStart开始的ACount个字符 YzJ5o4 http://www.numino.net 说明 其实就是Copy IA1NP6 http://www.numino.net 参考 function System.Copy dO7oqq http://www.numino.net 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); Wyhm7C http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Q0N55I http://www.numino.net 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: CBnNBG http://www.numino.net Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): 9QSBk5 http://www.numino.net PChar; $[StrUtils.pas 096Yx3 http://www.numino.net 功能 返回第一个搜索到的指针位置 Ju5YLc http://www.numino.net 说明 这函数常用于文本中搜索字符串 6o83p2 http://www.numino.net 参考 <NULL> DWxjX5 http://www.numino.net 例子 q1dv1K http://www.numino.net ///////Begin SearchBuf 9jOfn2 http://www.numino.net function SearchEdit(EditControl: TCustomEdit; const SearchString: String; 94Zv96 http://www.numino.net SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; IlZ53r http://www.numino.net var y2gGfW http://www.numino.net Buffer, P: PChar; d36Kj1 http://www.numino.net Size: Word; PD69UI http://www.numino.net begin HIljjj http://www.numino.net Result := False; k86L10 http://www.numino.net if (Length(SearchString) = 0) then Exit; X83rb8 http://www.numino.net Size := EditControl.GetTextLen; pgb4ni http://www.numino.net if (Size = 0) then Exit; mBCD8v http://www.numino.net Buffer := StrAlloc(Size + 1); ZRJ4vU http://www.numino.net try 5Cy85z http://www.numino.net EditControl.GetTextBuf(Buffer, Size + 1); uUmR2B http://www.numino.net P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, yAhesg http://www.numino.net SearchString, SearchOptions); XpOFfe http://www.numino.net if P <> nil then begin le7Ql5 http://www.numino.net EditControl.SelStart := P - Buffer; kZGs2l http://www.numino.net EditControl.SelLength := Length(SearchString); 2N84S0 http://www.numino.net Result := True; r37mTe http://www.numino.net end; F9JE37 http://www.numino.net finally Zb6kBo http://www.numino.net StrDispose(Buffer); B7bqwc http://www.numino.net end; p8f1wi http://www.numino.net end; S59rur http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 6mv6SP http://www.numino.net var BCdwjM http://www.numino.net SearchOptions: TStringSearchOptions; VPrZ96 http://www.numino.net begin THG06W http://www.numino.net SearchOptions := []; m0hvYL http://www.numino.net if CheckBox1.Checked then Xw7dhk http://www.numino.net Include(SearchOptions, soDown); sgpQfS http://www.numino.net if CheckBox2.Checked then MxcSQu http://www.numino.net Include(SearchOptions, soMatchCase); O68BNG http://www.numino.net if CheckBox3.Checked then XRoft5 http://www.numino.net Include(SearchOptions, soWholeWord); yPbQSy http://www.numino.net SearchEdit(Memo1, Edit1.Text, SearchOptions); qV7BFq http://www.numino.net Memo1.SetFocus; vcjJIa http://www.numino.net end; d7kZTh http://www.numino.net ///////End SearchBuf yv9k9s http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ CXsBrH http://www.numino.net 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): 0bFOib http://www.numino.net string; $[StrUtils.pas 17J42m http://www.numino.net 功能 返回探测字符串 L7vzIl http://www.numino.net 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html I00IQl http://www.numino.net 参考 <NULL> 6sclAo http://www.numino.net 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); aaFh1V http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ GFt1T5 http://www.numino.net 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = q1I1k9 http://www.numino.net 4): Integer; $[StrUtils.pas 3Q242y http://www.numino.net 功能 返回探测整数 lEJM5o http://www.numino.net 说明 ALength的值越大解码准确率越高 0ix0U4 http://www.numino.net 参考 <NULL> jep9XR http://www.numino.net 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 72fPs3 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ kBi4p8 http://www.numino.net 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas X9fE4O http://www.numino.net 功能 返回探测整数的解码 5qvjvd http://www.numino.net 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') ImaNoA http://www.numino.net 参考 <NULL> 353qWg http://www.numino.net 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); LmT38l http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ upCboc http://www.numino.net 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas JP1mSa http://www.numino.net 功能 返回探测文字数值 yOb3Ht http://www.numino.net 说明 没有参数ALength已经固定为4 lJf65F http://www.numino.net 参考 <NULL> q7O82M http://www.numino.net 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); H6Frc2 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ UP1IcX http://www.numino.net 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas YS4nmW http://www.numino.net 功能 返回探测文字数值的解码 J5mNhu http://www.numino.net 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') mjUsx1 http://www.numino.net 参考 <NULL> 7I3Gun http://www.numino.net 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 6PRzTn http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ x0N086 http://www.numino.net 首部 function SoundexSimilar(const AText, AOther: string; ALength: 4GI2z7 http://www.numino.net TSoundexLength = 4): Boolean; $[StrUtils.pas 93e02K http://www.numino.net 功能 返回两个字符串的探测字符串是否相同 9b0Cx1 http://www.numino.net 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 7tPde5 http://www.numino.net 参考 <NULL> 31zz0E http://www.numino.net 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, zvi6iE http://www.numino.net SpinEdit1.Value); Nz1zTN http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 7316nO http://www.numino.net 首部 function SoundexCompare(const AText, AOther: string; ALength: 83h0MT http://www.numino.net TSoundexLength = 4): Integer; $[StrUtils.pas U0YnVy http://www.numino.net 功能 返回比较两个字符串的探测字符串的结果 jpz0fx http://www.numino.net 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, L9mJTJ http://www.numino.net ALength)) Rd9Uz3 http://www.numino.net 参考 function SysUtils.AnsiCompareStr UDR1Wd http://www.numino.net 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, aNZmDj http://www.numino.net SpinEdit1.Value); MFpdul http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ f4705y http://www.numino.net 首部 function SoundexProc(const AText, AOther: string): Boolean; 3Z7gMF http://www.numino.net $[StrUtils.pas iW58Q0 http://www.numino.net 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 MW4xev http://www.numino.net 说明 系统变量AnsiResemblesProc的默认值 jwfs0B http://www.numino.net 参考 function StrUtils.AnsiResemblesText NA4oPP http://www.numino.net 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 421ne1 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ OYQefq http://www.numino.net 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas iVEISZ http://www.numino.net 功能 返回一个新的字符串指针地址 tQoWh7 http://www.numino.net 说明 字符串S为空时返回NullStr Jnhs2D http://www.numino.net 参考 procedure System.New X1S9pm http://www.numino.net 例子 MTFGaC http://www.numino.net ////////Begin NewStr,DisposeStr 5jOcy2 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 3kop4D http://www.numino.net var vLb3E9 http://www.numino.net P: PString; cR3w23 http://www.numino.net begin vs9fXp http://www.numino.net P := NewStr(Edit1.Text); khz3YM http://www.numino.net Edit2.Text := P^; lN6lPR http://www.numino.net DisposeStr(P); w9SgET http://www.numino.net end; wBfW8V http://www.numino.net ////////End NewStr,DisposeStr OhKf5Y http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ IGuG6c http://www.numino.net 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas sT5sZc http://www.numino.net 功能 释放字符串指针P资源 aJOm75 http://www.numino.net 说明 配合函数NewStr使用 OmTKv3 http://www.numino.net 参考 procedure System.Dispose tw7B7p http://www.numino.net 例子 <如上参见,如下参见> RdvLv3 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2d2EOa http://www.numino.net 首部 procedure AssignStr(var P: PString; const S: string); deprecated; lRWBw8 http://www.numino.net $[SysUtils.pas TM8IfR http://www.numino.net 功能 将字符串S更新给字符串指针P o0IL5V http://www.numino.net 说明 更新值时会释放以前字符串指针的资源 p67rum http://www.numino.net 参考 function SysUtils.NewStr;function SysUtils.DisposeStr F12CSL http://www.numino.net 例子 YjiJJn http://www.numino.net ////////Begin AssignStr 3Iev7E http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); z104lT http://www.numino.net var bGO2Ww http://www.numino.net P: PString; 09sa3B http://www.numino.net begin f9476D http://www.numino.net P := nil; s3bR97 http://www.numino.net AssignStr(P, Edit1.Text); I2G5UQ http://www.numino.net Edit2.Text := P^; YGdYft http://www.numino.net DisposeStr(P); A4wJ3J http://www.numino.net end; l3v5S6 http://www.numino.net ////////End AssignStr iBNU6R http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 49j5R4 http://www.numino.net 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; EP6828 http://www.numino.net $[SysUtils.pas T9Hb1B http://www.numino.net 功能 在字符串Dest后追加字符串S FyEoVv http://www.numino.net 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 3Uoc44 http://www.numino.net 参考 <NULL> S64iI3 http://www.numino.net 例子 3tbIQF http://www.numino.net ////////Begin AppendStr SA8j4U http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); p82P7D http://www.numino.net var U76db2 http://www.numino.net S: string; 6DTiI8 http://www.numino.net begin QXeY5f http://www.numino.net S := Edit2.Text; 2m29dJ http://www.numino.net AppendStr(S, Edit1.Text); ePmYbj http://www.numino.net Edit2.Text := S; Ki1nK8 http://www.numino.net end; ydL8ip http://www.numino.net ////////End AppendStr 111mSz http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ HNZTws http://www.numino.net 首部 function UpperCase(const S: string): string; $[SysUtils.pas t25D4E http://www.numino.net 功能 返回字符串S的大写形式 tt6G74 http://www.numino.net 说明 非小写字符不处理 n61bOg http://www.numino.net 参考 procedure System.SetLength V53006 http://www.numino.net 例子 Edit2.Text := UpperCase(Edit1.Text); n845mn http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ B0HJeV http://www.numino.net 首部 function LowerCase(const S: string): string; $[SysUtils.pas 58KiFN http://www.numino.net 功能 返回字符串S的小写形式 FK9P3D http://www.numino.net 说明 非大写字符不处理 VqYmii http://www.numino.net 参考 procedure System.SetLength JzSNAt http://www.numino.net 例子 Edit2.Text := LowerCase(Edit1.Text); SB03MR http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ i89y3K http://www.numino.net 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas p50qpU http://www.numino.net 功能 返回比较两个字符 ecbGM8 http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 94Dhad http://www.numino.net 参考 <NULL> U2OYEo http://www.numino.net 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); vMrF7F http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ MXXO7h http://www.numino.net 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; N2v79L http://www.numino.net assembler; $[SysUtils.pas 063crH http://www.numino.net 功能 返回比较两个内存指针 hTC415 http://www.numino.net 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), d4V27a http://www.numino.net PChar('12c'), 3)=False 1m3wu5 http://www.numino.net 参考 <NULL> 4Q8328 http://www.numino.net 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 3nG1tL http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ WXWTfo http://www.numino.net 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas Ze7gIg http://www.numino.net 功能 返回比较两个字符串 9oBI4C http://www.numino.net 说明 不区分大小写 8r6HS0 http://www.numino.net 参考 <NULL> 77m7Qq http://www.numino.net 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); ey3tEh http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ ITtsPN http://www.numino.net 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas h24Rr3 http://www.numino.net 功能 返回两个字符串是否相等 Xrj30W http://www.numino.net 说明 不区分大小写 RyTEM3 http://www.numino.net 参考 <NULL> tkd4g7 http://www.numino.net 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); vOLQjU http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2rEmod http://www.numino.net 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas Q2t3rD http://www.numino.net 功能 返回字符串S的大写形式 cHT6xz http://www.numino.net 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 VUfg06 http://www.numino.net 参考 function Windows.CharUpperBuff r2f19i http://www.numino.net 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); zuI4HM http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 5W7R6A http://www.numino.net 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 88847f http://www.numino.net 功能 返回字符串S的小写形式 E83GW9 http://www.numino.net 说明 非大写字符不处理 phGiYX http://www.numino.net 参考 function Windows.CharLowerBuff H0rpiW http://www.numino.net 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); MiLRBf http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 1UXqCW http://www.numino.net 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 1EM7vR http://www.numino.net 功能 反回比较两个字符串 fKsQDV http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 vWktGr http://www.numino.net 参考 function Windows.CompareString Q94Y8p http://www.numino.net 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 0yQy1f http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 49ylZO http://www.numino.net 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas dLNFpJ http://www.numino.net 功能 返回两个字符串是否相等 xDAE9G http://www.numino.net 说明 区分大小写 9g8NFV http://www.numino.net 参考 function SysUtils.AnsiCompareStr 7hSZkq http://www.numino.net 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); r4d34I http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ vU0l2g http://www.numino.net 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 5PDn04 http://www.numino.net 功能 反回比较两个字符串 EfHENw http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 7y6929 http://www.numino.net 参考 function Windows.CompareString j8d3Y8 http://www.numino.net 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); G3r6Lq http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ oJJqyh http://www.numino.net 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas tlvtp0 http://www.numino.net 功能 返回两个字符串是否相等 0qK6BJ http://www.numino.net 说明 不区分大小写 a5EWE0 http://www.numino.net 参考 function SysUtils.AnsiCompareText CEDiT3 http://www.numino.net 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); RcrxY9 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ M1kqIX http://www.numino.net 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 5sZ1B7 http://www.numino.net 功能 返回比较两个指针字符串 4lJEj0 http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 gSENpg http://www.numino.net 参考 function System.CompareString xwa5qM http://www.numino.net 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) s7WI9G http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2kyJq1 http://www.numino.net 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas W4yz7g http://www.numino.net 功能 返回比较两个指针字符串 TposEf http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 3M0e43 http://www.numino.net 参考 function Windows.CompareString yQG8W1 http://www.numino.net 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) geohcl http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ A3e3K7 http://www.numino.net 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; T0RsA1 http://www.numino.net $[SysUtils.pas ZHwAp7 http://www.numino.net 功能 返回比较两个指针字符串指定长度 8DKjvB http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 323j0B http://www.numino.net 参考 function Windows.CompareString Q9bt8n http://www.numino.net 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), YQN6O0 http://www.numino.net SpinEdit2.Value) xhVK8h http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 1jh70c http://www.numino.net 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; PKR73r http://www.numino.net $[SysUtils.pas Isg8Rw http://www.numino.net 功能 返回比较两个指针字符串指定长度 lG0PGu http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 xv0YMf http://www.numino.net 参考 function Windows.CompareString 36vGRc http://www.numino.net 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), ufN4op http://www.numino.net SpinEdit2.Value) A0a3A4 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 1Ijbvx http://www.numino.net 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas MlR70S http://www.numino.net 功能 返回指针字符串小写形式 0uyHOR http://www.numino.net 说明 非大写字符不处理 5awH8R http://www.numino.net 参考 function Windows.CharLower 6SAA2D http://www.numino.net 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); k6yxiB http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ DJGwy1 http://www.numino.net 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas j4mOXq http://www.numino.net 功能 返回指针字符串大写形式 YbSlHX http://www.numino.net 说明 非小写字符不处理 LKBgGS http://www.numino.net 参考 function Windows.CharUpper t6OW3J http://www.numino.net 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); JInWLv http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 9Z58Mo http://www.numino.net 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas uPyd57 http://www.numino.net 功能 返回字符串S的最后一个指针字符 rjZh5r http://www.numino.net 说明 当字符串S为空串则返回空指针 wwI72Y http://www.numino.net 参考 function SysUtils.ByteType 4emcHy http://www.numino.net 例子 Edit2.Text := AnsiLastChar(Edit1.Text); p86z3d http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ nA4mUZ http://www.numino.net 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas Y7AOZL http://www.numino.net 功能 返回指针字符串P的最后一个指针字符 GTjij8 http://www.numino.net 说明 当字符串P为空空指针则返回空指针 PKNi9y http://www.numino.net 参考 function SysUtils.ByteType W641Bp http://www.numino.net 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 55SIm0 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ I9j4V4 http://www.numino.net 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas tU64lg http://www.numino.net 功能 返回双字节字符串的大写形式 Hlk767 http://www.numino.net 说明 WideChar双字节字符 GK4s4H http://www.numino.net 参考 function Windows.CharUpperBuffW P9pAku http://www.numino.net 例子 Edit2.Text := WideUpperCase(Edit1.Text); n2r915 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 8H2pwx http://www.numino.net 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas dJKoC8 http://www.numino.net 功能 返回双字节字符串的小写形式 lU0H07 http://www.numino.net 说明 我怎么就测试不出来呢 5LLXnd http://www.numino.net 参考 function Windows.CharLowerBuffW 4Zh3IZ http://www.numino.net 例子 Edit2.Text := WideLowerCase(Edit1.Text); O7Qptj http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ WtE65s http://www.numino.net 首部 function WideCompareStr(const S1, S2: WideString): Integer; 0HGGMw http://www.numino.net $[SysUtils.pas vZEk0y http://www.numino.net 功能 返回比较两个双字节字符串 0oUIs7 http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 Zo4X1T http://www.numino.net 参考 function Windows.CompareStringW pf1eU6 http://www.numino.net 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); 8aUTXS http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 34gKGL http://www.numino.net 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas a33NnN http://www.numino.net 功能 返回两个双字节字符串是否相同 h425OG http://www.numino.net 说明 区分大小写 JNRq80 http://www.numino.net 参考 function SysUtils.WideCompareStr UyskSB http://www.numino.net 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 5pI1Um http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ tr8tlE http://www.numino.net 首部 function WideCompareText(const S1, S2: WideString): Integer; tNI6JC http://www.numino.net $[SysUtils.pas dkPL6v http://www.numino.net 功能 返回比较两个双字节字符串 0eSEWS http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 96NqGs http://www.numino.net 参考 function Windows.CompareStringW 68J28u http://www.numino.net 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); 2T3ZxM http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 5b3EH6 http://www.numino.net 首部 function WideSameText(const S1, S2: WideString): Boolean; f7kBRW http://www.numino.net $[SysUtils.pas R0tv86 http://www.numino.net 功能 返回两个双字节字符串是否相同 dcFNd1 http://www.numino.net 说明 不区分大小写 3Bj0XG http://www.numino.net 参考 function SysUtils.WideCompareText gBbG9r http://www.numino.net 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); WF1dB8 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ w09qsI http://www.numino.net 首部 function Trim(const S: string): string; overload; $[SysUtils.pas GhTxEX http://www.numino.net 首部 function Trim(const S: WideString): WideString; overload; 5OOEmS http://www.numino.net $[SysUtils.pas estU4h http://www.numino.net 功能 返回除去字符串S左右不可见字符 bSYSb4 http://www.numino.net 说明 小于#32的字符看作不可见字符 tLKM2W http://www.numino.net 参考 function System.Copy BT1k34 http://www.numino.net 例子 Edit2.Text := Trim(Edit1.Text); 40BuZu http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ mj1YkC http://www.numino.net 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas 6a8Bq6 http://www.numino.net 首部 function TrimLeft(const S: WideString): WideString; overload; 1zVR8E http://www.numino.net $[SysUtils.pas C0FKrp http://www.numino.net 功能 返回除去字符串S左边不可见字符 S1f6XY http://www.numino.net 说明 小于#32的字符看作不可见字符 y5HpB1 http://www.numino.net 参考 function System.Copy ajt131 http://www.numino.net 例子 Edit2.Text := TrimLeft(Edit1.Text); w1wQIm http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ qsmHfn http://www.numino.net 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas Q0izSt http://www.numino.net 首部 function TrimRight(const S: WideString): WideString; overload; E9JDtk http://www.numino.net $[SysUtils.pas AHec9A http://www.numino.net 功能 返回除去字符串S右边不可见字符 sQ69PM http://www.numino.net 说明 小于#32的字符看作不可见字符 2apCqx http://www.numino.net 参考 function System.Copy Nuzrc4 http://www.numino.net 例子 Edit2.Text := TrimRight(Edit1.Text); 8yeU3j http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ J0rnXM http://www.numino.net 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 7W58zL http://www.numino.net 功能 返回字符串S在pascal中的表现形式 xLsUjF http://www.numino.net 说明 单引号中的一个单引号将转成两个 4CwLSu http://www.numino.net 参考 procedure System.Insert P1Z8Jc http://www.numino.net 例子 Edit2.Text := QuotedStr(Edit1.Text); ghco99 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ U3Ikc2 http://www.numino.net 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; tPutPp http://www.numino.net $[SysUtils.pas 6CB6S5 http://www.numino.net 功能 返回字符串S以字符Quote为引号的表现形式 2sJMGU http://www.numino.net 说明 AnsiQuotedStr('hello"world', 1TFxNU http://www.numino.net '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' w6GG5A http://www.numino.net 参考 function SysUtils.AnsiStrScan 9Mlgiv http://www.numino.net 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); p4X7OH http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ vtra4A http://www.numino.net 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; QUKMqG http://www.numino.net $[SysUtils.pas 2ogzkH http://www.numino.net 功能 返回以字符Quote为引号的表现形式原形 23W44y http://www.numino.net 说明 表现形式非法时Src不变否则为空 5Jmjfy http://www.numino.net 参考 function SysUtils.AnsiStrScan E6052I http://www.numino.net 例子 QW1Tou http://www.numino.net ///////Begin AnsiExtractQuotedStr eyHh43 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 4sc6kD http://www.numino.net var h9Zrht http://www.numino.net P: PChar; 3UB2O8 http://www.numino.net begin 7neZn0 http://www.numino.net P := PChar(Edit1.Text); 217Ux7 http://www.numino.net Edit2.Text := AnsiExtractQuotedStr(P, '"'); tL41Ze http://www.numino.net Edit3.Text := P; gJWC0i http://www.numino.net end; 10N47P http://www.numino.net ///////End AnsiExtractQuotedStr Ij8ApN http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 0Omn70 http://www.numino.net 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; az9HBI http://www.numino.net $[SysUtils.pas 2lJgFH http://www.numino.net 功能 返回以字符AQuote为引号的表现形式原形 0VNh0z http://www.numino.net 说明 表现形式非法时则返回S 88G9Y6 http://www.numino.net 参考 function SysUtils.AnsiExtractQuotedStr Q3P408 http://www.numino.net 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); q666vz http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ pinMqU http://www.numino.net 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = f74K9C http://www.numino.net {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): bU60ea http://www.numino.net string; $[SysUtils.pas 3lxP54 http://www.numino.net 功能 返回将给定字符串的行分隔符调整为CR/LF序列 oUJbKc http://www.numino.net 说明 FVe69C http://www.numino.net AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10 AUW11S http://www.numino.net 参考 function SysUtils.StrNextChar jbJja5 http://www.numino.net 例子 <NULL> kcxuNc http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Zq9RMp http://www.numino.net 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 0bEVv7 http://www.numino.net 功能 返回字符串Ident是否是正确的标识符 HP0mdT http://www.numino.net 说明 标识符::字母|下划线[字母|下划线|数字]... 17D8g0 http://www.numino.net 参考 <NULL> 5dgZ1y http://www.numino.net 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 5Nzvc9 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ s67RP7 http://www.numino.net 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas a0A2K6 http://www.numino.net 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas nUd196 http://www.numino.net 功能 返回整数Value转换成字符串 BVebiA http://www.numino.net 说明 Format('%d', [Value]) m9pb4d http://www.numino.net 参考 function SysUtils.FmtStr rosSr2 http://www.numino.net 例子 Edit2.Text := IntToStr(SpinEdit1.Value); ZGp2sg http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ y6RmSI http://www.numino.net 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; PBi204 http://www.numino.net $[SysUtils.pas AmRxXb http://www.numino.net 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; ObH1Rh http://www.numino.net $[SysUtils.pas I2w2of http://www.numino.net 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) JMe86P http://www.numino.net 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 Q81eq2 http://www.numino.net 参考 function SysUtils.FmtStr DGJX6E http://www.numino.net 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); GhFE8Y http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 26xMdT http://www.numino.net 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas HTxE4Y http://www.numino.net 功能 返回字符串S转换成整数 rp8nFV http://www.numino.net 说明 字符串非整数表达时将引起异常 1F77aI http://www.numino.net 参考 procedure System.Val BlpL08 http://www.numino.net 例子 SpinEdit1.Value := StrToInt(Edit1.Text); EZ9s0g http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ cwsfRx http://www.numino.net 首部 function StrToIntDef(const S: string; Default: Integer): Integer; 5sMjM7 http://www.numino.net $[SysUtils.pas vN6Aex http://www.numino.net 功能 返回字符串S转换成整数 9r9dwD http://www.numino.net 说明 字符串非整数表达时则返回默认值Default KSw1FE http://www.numino.net 参考 procedure System.Val FuBIS7 http://www.numino.net 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); wH7npY http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Om2m1Q http://www.numino.net 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; uI69Y8 http://www.numino.net $[SysUtils.pas PHsdgN http://www.numino.net 功能 返回字符串S转换成整数Value是否成功 T3ySx5 http://www.numino.net 说明 字符串非整数表达时返回False并且Value将输出为0 d9I0zO http://www.numino.net 参考 procedure System.Val vzsl2q http://www.numino.net 例子 66lWrw http://www.numino.net ///////Begin TryStrToInt 7Hy4T9 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 46fCZA http://www.numino.net var T7g5T1 http://www.numino.net I: Integer; WAgQtr http://www.numino.net begin uB8YKf http://www.numino.net CheckBox1.Checked := TryStrToInt(Edit1.Text, I); pMv0ng http://www.numino.net SpinEdit1.Value := I; RS43ow http://www.numino.net end; O9Q4Nf http://www.numino.net ///////End TryStrToInt dQP7Oi http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 6lU9aN http://www.numino.net 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas tl2WAP http://www.numino.net 功能 返回字符串S转换成六十四位整数 N3l0s1 http://www.numino.net 说明 字符串非六十四位整数表达时将引起异常 0v4XpX http://www.numino.net 参考 procedure System.Val NSBRn6 http://www.numino.net 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); qP68XK http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ uySDBB http://www.numino.net 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; FZu6uQ http://www.numino.net $[SysUtils.pas AA9NBE http://www.numino.net 功能 返回字符串S转换成六十四位整数 hLbF7p http://www.numino.net 说明 字符串非六十四位整数表达时则返回默认值Default Bj7d2E http://www.numino.net 参考 procedure System.Val ZF5sT6 http://www.numino.net 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); vP85r4 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 4QRwO1 http://www.numino.net 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; YuSx64 http://www.numino.net $[SysUtils.pas UrrCAR http://www.numino.net 功能 返回字符串S转换成六十四位整数Value是否成功 9zUS5F http://www.numino.net 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 IY1CTp http://www.numino.net 参考 procedure System.Val ekgzMM http://www.numino.net 例子 H88xX5 http://www.numino.net ///////Begin TryStrToInt64 43H6xT http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); Z0gGOc http://www.numino.net var 082b6a http://www.numino.net I: Int64; FtnCjx http://www.numino.net begin QnfWSg http://www.numino.net CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); g0jrCf http://www.numino.net SpinEdit1.Value := I; 10ih6r http://www.numino.net end; i4Oafh http://www.numino.net ///////End TryStrToInt64 jTkgDe http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ P6ZAgp http://www.numino.net 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas E6D0IP http://www.numino.net 功能 返回字符串S转换成逻辑值 fmg5J8 http://www.numino.net 说明 字符非逻辑表达时将引起异常 Rq2BkF http://www.numino.net 参考 function SysUtils.TryStrToBool oYW8TG http://www.numino.net 例子 CheckBox1.Checked := StrToBool(Edit1.Text); DFDLmc http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ SkzES2 http://www.numino.net 首部 function StrToBoolDef(const S: string; const Default: Boolean): Gc4zC6 http://www.numino.net Boolean; $[SysUtils.pas k7hxtg http://www.numino.net 功能 返回字符串S转换成逻辑值 KJR2FO http://www.numino.net 说明 字符非逻辑表达时则返回默认值Default 77u4ud http://www.numino.net 参考 function SysUtils.TryStrToBool QzQx4M http://www.numino.net 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); yJLp8q http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 8bTMwB http://www.numino.net 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; r50AjC http://www.numino.net $[SysUtils.pas egdUmb http://www.numino.net 功能 返回字符串S转换成逻辑值Value是否成功 e4M21G http://www.numino.net 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 75tr6w http://www.numino.net 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var xQOd2c http://www.numino.net SysUtils.FalseBoolStrs YVbQQg http://www.numino.net 例子 z1EvS2 http://www.numino.net ///////Begin TryStrToBool 9BBv28 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); O99iOw http://www.numino.net var E2j0TJ http://www.numino.net B: Boolean; lUoTT6 http://www.numino.net begin WgIS0N http://www.numino.net SetLength(TrueBoolStrs, 2); WvVhfW http://www.numino.net SetLength(FalseBoolStrs, 2); 7ied3v http://www.numino.net TrueBoolStrs[0] := 'True'; 63Xava http://www.numino.net FalseBoolStrs[0] := 'False'; D0PBo9 http://www.numino.net TrueBoolStrs[1] := 'Yes'; 08A5na http://www.numino.net FalseBoolStrs[1] := 'No'; jI8FYa http://www.numino.net CheckBox1.Checked := TryStrToBool(Edit1.Text, B); SEzlNK http://www.numino.net CheckBox2.Checked := B; 6O6DLf http://www.numino.net end; iST0rm http://www.numino.net ///////End TryStrToBool 6FGSfH http://www.numino.net 附加 U7uzBZ http://www.numino.net ///////Begin TryStrToBool i0KJj8 http://www.numino.net function TryStrToBool(const S: string; out Value: Boolean): Boolean; H76yvk http://www.numino.net function CompareWith(const aArray: array of string): Boolean; M1Mly9 http://www.numino.net var TjrE1J http://www.numino.net I: Integer; xNVeH8 http://www.numino.net begin Dlz6uG http://www.numino.net Result := False; 3r9b3k http://www.numino.net for I := Low(aArray) to High(aArray) do Ipu2gH http://www.numino.net if AnsiSameText(S, aArray[I]) then Znd2xp http://www.numino.net begin dQjXTi http://www.numino.net Result := True; vkbFoY http://www.numino.net Break; 72sbp0 http://www.numino.net end; C5dT34 http://www.numino.net end; cn9x8s http://www.numino.net var tKDLt3 http://www.numino.net LResult: Extended; jAncuT http://www.numino.net begin qanrMv http://www.numino.net Result := TryStrToFloat(S, LResult); M25rZ9 http://www.numino.net if Result then X3Jbwk http://www.numino.net Value := LResult <> 0 eqnPy4 http://www.numino.net else 3Sti9h http://www.numino.net begin PhJm7n http://www.numino.net Result := True; //修正处 l0gim5 http://www.numino.net VerifyBoolStrArray; lbSW9b http://www.numino.net if CompareWith(TrueBoolStrs) then i60yl1 http://www.numino.net Value := True MMBNoB http://www.numino.net else if CompareWith(FalseBoolStrs) then 36TbnL http://www.numino.net Value := False F6ICaK http://www.numino.net else 8F6fvQ http://www.numino.net Result := False; 80B1XG http://www.numino.net end; mTskhC http://www.numino.net end; 45gE1P http://www.numino.net ///////End TryStrToBool WqtXzH http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 688G3D http://www.numino.net 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; 97XvCG http://www.numino.net $[SysUtils.pas VKP67s http://www.numino.net 功能 返回逻辑值B转换成字符串 qJ1cyx http://www.numino.net 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 5KNP9m http://www.numino.net 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 9O99aH http://www.numino.net 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); v2j0tw http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ ovkC2P http://www.numino.net 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas Kx1a7E http://www.numino.net 功能 返回根据标识Ident的字符串资源 PNEM5Y http://www.numino.net 说明 字符串资源是指程序的内部资源 BLDw1l http://www.numino.net 参考 function SysUtils.FindStringResource o43jqD http://www.numino.net 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); 000Q1x http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 9ZefI7 http://www.numino.net 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): X7NJeA http://www.numino.net string; $[SysUtils.pas 3EMG0t http://www.numino.net 功能 返回格式化的字符串资源 FMgFrQ http://www.numino.net 说明 字符串资源是指程序的内部资源 431yDt http://www.numino.net 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource AyJmhR http://www.numino.net 例子 <NULL>; 3bi9J1 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ uzps6P http://www.numino.net 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas Z12biK http://www.numino.net 功能 返回指针字符串的长度 sO58lM http://www.numino.net 说明 当指针字符串Str为nil时将触发异常 SCCxif http://www.numino.net 参考 <NULL> 9TEPXE http://www.numino.net 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 1PuJOa http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 6u935G http://www.numino.net 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas NBMog8 http://www.numino.net 功能 返回指针字符串的结尾 DIrgJp http://www.numino.net 说明 当指针字符串Str为nil时将触发异常 51ac7j http://www.numino.net 参考 <NULL> 6nlLEr http://www.numino.net 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; BydHX9 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ wl49yu http://www.numino.net 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): U7gym6 http://www.numino.net PChar; $[SysUtils.pas Mvw2EN http://www.numino.net 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 OxKkX8 http://www.numino.net 说明 Dest没有分配资源将触发异常s O8rK8A http://www.numino.net 参考 function System.Move v5aFji http://www.numino.net 例子 S5h0Bd http://www.numino.net ///////Begin StrMove GGkbzi http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); j3559c http://www.numino.net var LTe5hi http://www.numino.net vBuffer: PChar; ReB74P http://www.numino.net begin oUYrHY http://www.numino.net vBuffer := '0123456789'; ixN8Mg http://www.numino.net StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); pCZ88e http://www.numino.net Edit2.Text := vBuffer; 7U6Fbd http://www.numino.net end; wM307W http://www.numino.net ///////End StrMove k074UD http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ lpAN2j http://www.numino.net 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; p5Tf00 http://www.numino.net $[SysUtils.pas 0GekXp http://www.numino.net 功能 返回将指针字符串Source复制到指针字符串Dest中 H4EH65 http://www.numino.net 说明 Dest应已经分配足够的空间非则将触发异常 Fu8wgq http://www.numino.net 参考 <NULL> 19351t http://www.numino.net 例子 NOQG0P http://www.numino.net ///////Begin StrCopy IeE2j2 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 83Qr8v http://www.numino.net var QBo4Km http://www.numino.net vBuffer: PChar; RKFqZd http://www.numino.net begin 9mbAQj http://www.numino.net GetMem(vBuffer, Length(Edit1.Text) + 1); BeM87N http://www.numino.net StrCopy(vBuffer, PChar(Edit1.Text)); BbJK8x http://www.numino.net Edit2.Text := vBuffer; ZoV3tY http://www.numino.net FreeMem(vBuffer); fs01Fr http://www.numino.net end; GQ9O1H http://www.numino.net ///////End StrCopy wxSY8a http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ x1esRO http://www.numino.net 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; MqHqjD http://www.numino.net $[SysUtils.pas im0M5H http://www.numino.net 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 0kN729 http://www.numino.net 说明 可以连接指针字符串 7R05EB http://www.numino.net 参考 <NULL> Hw8x09 http://www.numino.net 例子 96a0l6 http://www.numino.net ///////Begin StrECopy b795QR http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); j6g5uy http://www.numino.net var ume4hw http://www.numino.net vBuffer: array[0..255] of Char; xWXNt0 http://www.numino.net begin 5M8nVo http://www.numino.net StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); fHhEuD http://www.numino.net Edit3.Text := vBuffer; ab1ni6 http://www.numino.net end; 7pTXdH http://www.numino.net ///////End StrECopy Qnw6Ei http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 6bHy3e http://www.numino.net 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 8e3411 http://www.numino.net PChar; $[SysUtils.pas xBC6t7 http://www.numino.net 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 FLAVR5 http://www.numino.net 说明 Dest应已经分配足够的空间非则将触发异常 3jDdg5 http://www.numino.net 参考 <NULL> KE0Oa9 http://www.numino.net 例子 9H34mf http://www.numino.net ///////Begin StrLCopy A2E8eW http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); RuIQ1m http://www.numino.net var 13psIZ http://www.numino.net vBuffer: array[0..255] of Char; ddAlj9 http://www.numino.net begin Ty3ZCU http://www.numino.net StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); EYM59G http://www.numino.net Edit2.Text := vBuffer; h7vy0U http://www.numino.net end; 2UV7rP http://www.numino.net ///////End StrLCopy wL4W6y http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ lLueGb http://www.numino.net 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; Hk11xj http://www.numino.net $[SysUtils.pas qstScp http://www.numino.net 功能 返回将指针字符串Source复制到指针字符串Dest中 wZjeIG http://www.numino.net 说明 StrLCopy(Dest, PChar(Source), Length(Source)) iPR04u http://www.numino.net 参考 function SysUtils.StrLCopy U6FAVp http://www.numino.net 例子 Y2rEA5 http://www.numino.net ///////Begin StrPCopy 5V1X2w http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); NrOg1t http://www.numino.net var 3YL5Mr http://www.numino.net vBuffer: array[0..255] of Char; vPz29n http://www.numino.net begin 1LmWm0 http://www.numino.net StrPCopy(vBuffer, PChar(Edit1.Text)); AJk215 http://www.numino.net Edit2.Text := vBuffer; Lcz1gH http://www.numino.net end; uR44Ux http://www.numino.net ///////End StrPCopy D0ExB8 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ n0P9VH http://www.numino.net 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 11h7sC http://www.numino.net Cardinal): PChar; $[SysUtils.pas orJ8v7 http://www.numino.net 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 5PL5nX http://www.numino.net 说明 StrLCopy(Dest, PChar(Source), MaxLen) JW3d0z http://www.numino.net 参考 function SysUtils.StrLCopy YJKvEe http://www.numino.net 例子 b84VUk http://www.numino.net ///////Begin StrPLCopy mYsN6X http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); VSjqZE http://www.numino.net var t8X3MS http://www.numino.net vBuffer: array[0..255] of Char; 7dc153 http://www.numino.net begin dP5fYd http://www.numino.net StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); lA535x http://www.numino.net Edit2.Text := vBuffer; GFQg4k http://www.numino.net end; jMi4Ny http://www.numino.net ///////End StrPLCopy 2lPV77 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ WgEAxI http://www.numino.net 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; ayYa70 http://www.numino.net $[SysUtils.pas 6h8J0E http://www.numino.net 功能 返回连接指针字符串Dest和指针字符串Source K89F79 http://www.numino.net 说明 StrCopy(StrEnd(Dest), Source) HPGr2n http://www.numino.net 参考 function SysUntils.StrCopy 8dy2KS http://www.numino.net 例子 l94jRX http://www.numino.net ///////Begin StrCat nQ6d7q http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); BQY02y http://www.numino.net var J94Dlj http://www.numino.net vBuffer: array[0..255] of Char; J3j2f6 http://www.numino.net begin PGMdBQ http://www.numino.net StrPCopy(vBuffer, Edit1.Text); TVzEEn http://www.numino.net StrCat(vBuffer, PChar(Edit2.Text)); g9Gs9t http://www.numino.net Edit3.Text := vBuffer; BljjnI http://www.numino.net end; viGbjH http://www.numino.net ///////End StrCat Z1IxTf http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ l9jq5v http://www.numino.net 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): nzgfSU http://www.numino.net PChar; $[SysUtils.pas FQuc4S http://www.numino.net 功能 返回连接指针字符串Dest和指针字符串Source wYhZxO http://www.numino.net 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 9OsEuB http://www.numino.net 参考 <NULL> hQ1Sde http://www.numino.net 例子 HjL4wt http://www.numino.net ///////Begin StrLCat 0HrH79 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); L0HuPQ http://www.numino.net var heOToE http://www.numino.net vBuffer: array[0..255] of Char; FjJxTc http://www.numino.net begin 49ZB5Y http://www.numino.net StrPCopy(vBuffer, Edit1.Text); Oj4FR9 http://www.numino.net StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 0gwN7S http://www.numino.net Edit3.Text := vBuffer; y3fbRx http://www.numino.net end; k40r4A http://www.numino.net ///////End StrLCat QTPTqT http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 6OS1h4 http://www.numino.net 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas O3ZKPQ http://www.numino.net 功能 返回比较两个指针字符串 K4ZJNV http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 8cAfKz http://www.numino.net 参考 <NULL> fbN0dd http://www.numino.net 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); tV9JgY http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 3lUaqt http://www.numino.net 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas A08YHf http://www.numino.net 功能 返回比较两个指针字符串 56EKS3 http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 mgkk8e http://www.numino.net 参考 <NULL> 3wK65q http://www.numino.net 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); RloD1F http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 1De96s http://www.numino.net 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; HsI6zG http://www.numino.net $[SysUtils.pas inyL9n http://www.numino.net 功能 返回比较两个指针字符串指定长度 6Ewy01 http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 l7kw3w http://www.numino.net 参考 <NULL> elxtsc http://www.numino.net 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), b2SiqX http://www.numino.net SpinEdit2.Value) gbcP22 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ utbD7m http://www.numino.net 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; sLHBt5 http://www.numino.net $[SysUtils.pas J8hV28 http://www.numino.net 功能 返回比较两个指针字符串指定长度 4dAVGX http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 aiwL69 http://www.numino.net 参考 <NULL> 255jm8 http://www.numino.net 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 9lBhY8 http://www.numino.net SpinEdit2.Value) O4MRm8 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ W39rPn http://www.numino.net 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 8gwDmv http://www.numino.net 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 Sy2cRC http://www.numino.net 说明 没有找到则返回空指针 e4jZBt http://www.numino.net 参考 <NULL> 5WTP7z http://www.numino.net 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); tlXG9Q http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ NnPkG2 http://www.numino.net 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas BaY8U7 http://www.numino.net 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 o9MuQe http://www.numino.net 说明 没有找到则返回空指针 3ShBOQ http://www.numino.net 参考 <NULL> 782dqi http://www.numino.net 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); EBXMw8 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ a0B7xv http://www.numino.net 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas vNG0FC http://www.numino.net 功能 返回指针字符串Str2在Str1中第一个出现的地址 hnS30u http://www.numino.net 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' Bu5yv7 http://www.numino.net 参考 <NULL> g69xvg http://www.numino.net 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); NXpugR http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ m5AFAC http://www.numino.net 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas HbynJW http://www.numino.net 功能 返回指针字符串Str大写 91U0av http://www.numino.net 说明 非小写字符不处理 shRNiz http://www.numino.net 参考 <NULL> A6OEn6 http://www.numino.net 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); XvhdAx http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ G2HA0I http://www.numino.net 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas 5R0Y6R http://www.numino.net 功能 返回指针字符串Str小写 s3Jhci http://www.numino.net 说明 非大写字符不处理 K8XHqQ http://www.numino.net 参考 <NULL> fyk16I http://www.numino.net 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); k0Y533 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ XDivxr http://www.numino.net 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas 0JOnTT http://www.numino.net 功能 返回指针字符串Str转换成字符串 C9kFUB http://www.numino.net 说明 也可以直接赋值 1DB2x3 http://www.numino.net 参考 <NULL> M2KIZ2 http://www.numino.net 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); N57A70 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2O2B8F http://www.numino.net 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas FVjPZY http://www.numino.net 功能 返回分配指定空间的内存资源给指针字符串 KKAEg3 http://www.numino.net 说明 空间的大小也将保存;用StrDispose才能全部释放 fir9i5 http://www.numino.net 参考 function System.GetMem d3GOpx http://www.numino.net 例子 kIMQBZ http://www.numino.net ///////Begin StrAlloc 4Yk8b4 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); g4xm93 http://www.numino.net var 434wOt http://www.numino.net P: PChar; YU872U http://www.numino.net begin GoYT2a http://www.numino.net P := StrAlloc(SpinEdit1.Value); wcm3nK http://www.numino.net ShowMessage(IntToStr(StrLen(P))); 4kd9BT http://www.numino.net Dec(P, SizeOf(Cardinal)); mxLmY5 http://www.numino.net ShowMessage(IntToStr(Cardinal(Pointer(P)^))); DmDx0t http://www.numino.net Inc(P, SizeOf(Cardinal)); 63SOf6 http://www.numino.net StrDispose(P); vh5zaJ http://www.numino.net end; Kv95CB http://www.numino.net ///////End StrAlloc j1wKPz http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ o9o7xM http://www.numino.net 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas czsBZN http://www.numino.net 功能 返回通过函数StrAlloc分配的缓冲区大小 6NXQ4P http://www.numino.net 说明 出现异常情况则返回不可预知的结果 CHr1Sl http://www.numino.net 参考 function System.SizeOf d6Fs3J http://www.numino.net 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); vvcqiN http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ WYeyGI http://www.numino.net 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas IGfK4e http://www.numino.net 功能 返回复制一个新的指针字符串 ea4c8q http://www.numino.net 说明 如果Str为nil则返回nil GT5vbB http://www.numino.net 参考 function SysUtils.StrLen;function SysUtils.StrMove;function W96JnK http://www.numino.net SysUtils.StrAlloc I6Ilfr http://www.numino.net 例子 QP6lZn http://www.numino.net ///////Begin StrNew,StrDispose NIRWfy http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); AZ19Vh http://www.numino.net var 1sM1yL http://www.numino.net P: PChar; w8jqrs http://www.numino.net begin E71RIt http://www.numino.net P := StrNew(PChar(Edit1.Text)); FmD2oA http://www.numino.net ShowMessage(P); B9Oa6q http://www.numino.net StrDispose(P); RIb2yZ http://www.numino.net end; 4CGhdM http://www.numino.net ///////End StrNew,StrDispose s5hz3c http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 43t7Hp http://www.numino.net 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas 4US40O http://www.numino.net 功能 释放指针字符串Str内存资源 5SzIp5 http://www.numino.net 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 lKe6k4 http://www.numino.net 参考 function System.Dec;function System.SizeOf;function System.FreeMem Nta10Q http://www.numino.net 例子 <参见StrNew> YVvnK5 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ fMtpNw http://www.numino.net 首部 function Format(const Format: string; const Args: array of const): 3d1BrA http://www.numino.net string; $[SysUtils.pas xt1G37 http://www.numino.net 功能 返回按指定方式格式化一个数组常量的字符形式 rkq58r http://www.numino.net 说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给你个直观的理解 i7UWP9 http://www.numino.net "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 hdWDA8 http://www.numino.net Format('x=%d', [12]); //'x=12' //最普通 as63fM http://www.numino.net Format('x=%3d', [12]); //'x= 12' //指定宽度 oSt39L http://www.numino.net Format('x=%f', [12.0]); //'x=12.00' //浮点数 0HfBZz http://www.numino.net Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 NW2y43 http://www.numino.net Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 3E2ND4 http://www.numino.net Format('x=%.5d', [12]); //'x=00012' //前面补充0 sUzQTk http://www.numino.net Format('x=%.5x', [12]); //'x=0000C' //十六进制 aqvOwt http://www.numino.net Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 Q5tBY1 http://www.numino.net Format('x=%p', [nil]); //'x=00000000' //指针 t3mdQ0 http://www.numino.net Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 yn9FqX http://www.numino.net Format('x=%%', []); //'x=%' //得到"%" y3p384 http://www.numino.net S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 f7WPoN http://www.numino.net 参考 proceduer SysUtils.FmtStr ms47oi http://www.numino.net 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); Fe1R9O http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Vns929 http://www.numino.net 首部 procedure FmtStr(var Result: string; const Format: string; const Args: UIcw75 http://www.numino.net array of const); $[SysUtils.pas 8993HR http://www.numino.net 功能 按指定方式格式化一个数组常量的字符形式返回 FSKGD9 http://www.numino.net 说明 <参见Format> 63Bhxf http://www.numino.net 参考 function SysUtils.FormatBuf;function System.Length;function zN2V9H http://www.numino.net System.SetLength V4YVHa http://www.numino.net 例子 <参见Format> Wz3126 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 411dCG http://www.numino.net 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): zqx5Ls http://www.numino.net PChar; $[SysUtils.pas 8wjRB2 http://www.numino.net 功能 返回按指定方式格式化一个数组常量的字符指针形式 QKE2YU http://www.numino.net 说明 如果Buffer和Format其中只要有一个为nil则返回nil PPh9QY http://www.numino.net 参考 function SysUtils.FormatBuf VPLYoO http://www.numino.net 例子 <参见Format> 800nk1 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ DVY2eB http://www.numino.net 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; gQnHur http://www.numino.net const Args: array of const): PChar; $[SysUtils.pas U8EeNV http://www.numino.net 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 mCfehQ http://www.numino.net 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; nMMX08 http://www.numino.net 参考 function SysUtils.FormatBuf M99J4R http://www.numino.net 例子 <参见Format> 6AeIX2 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ G732Zw http://www.numino.net 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: CwI6v8 http://www.numino.net Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas wzKQvd http://www.numino.net 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 l83aUq http://www.numino.net 说明 <NULL> JHrXB2 http://www.numino.net 参考 <NULL> KMkr05 http://www.numino.net 例子 <参见Format> iIdPRF http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ KXeU4i http://www.numino.net 首部 function WideFormat(const Format: WideString; const Args: array of 3bb1nq http://www.numino.net const): WideString; $[SysUtils.pas uaEcqA http://www.numino.net 功能 返回按指定方式格式化一个数组常量的多字节字符形式 C0qxbq http://www.numino.net 说明 <NULL> t3c5Eh http://www.numino.net 参考 procedure SysUtils.WideFmtStr u704sQ http://www.numino.net 例子 <参见Format> kjgBYg http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2J1aBw http://www.numino.net 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; 3oO4Mh http://www.numino.net const Args: array of const); $[SysUtils.pas 51Ivzc http://www.numino.net 功能 按指定方式格式化一个数组常量的多字节字符形式返回 n6Zy98 http://www.numino.net 说明 <NULL> XHop9s http://www.numino.net 参考 function SysUtils.WideFormatBuf 1U9YoK http://www.numino.net 例子 <参见Format> 5yEWdt http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 4OX7vU http://www.numino.net 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; MY359o http://www.numino.net FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas dEY0Et http://www.numino.net 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 F0bMdM http://www.numino.net 说明 <NULL> ZPMQF5 http://www.numino.net 参考 <NULL> 5V5cD8 http://www.numino.net 例子 <参见Format> 0oqFYk http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 54f172 http://www.numino.net 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 5PP9k3 http://www.numino.net 功能 返回浮点数Value转换成字符串 6mAmrH http://www.numino.net 说明 当浮点数大等于1E15将采用科学记数法 Cy7O2B http://www.numino.net 参考 function SysUtils.FloatToText XiQLOl http://www.numino.net 例子 Edit1.Text := FloatToStr(Now); p11w1o http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ z5AvYP http://www.numino.net 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas vo59aY http://www.numino.net 功能 返回货币数Value转换成字符串 3wdrM3 http://www.numino.net 说明 货币数只保留四位小数 V597t7 http://www.numino.net 参考 function SysUtils.FloatToText pb6q3Z http://www.numino.net 例子 Edit1.Text := CurrToStr(Now); kJkNNV http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ wtJ2EM http://www.numino.net 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas Omneyv http://www.numino.net 功能 返回浮点数Value转换成货币数 iX6nzE http://www.numino.net 说明 如果浮点数Value超出范围则将触发异常 xqsjs6 http://www.numino.net 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency BDMlve http://www.numino.net 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); qX19d9 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 5TShO3 http://www.numino.net 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, JVLzla http://www.numino.net Digits: Integer): string; $[SysUtils.pas 4h6CpB http://www.numino.net 功能 返回浮点数以指定格式转换成字符串 1THul2 http://www.numino.net 说明 Precision指定精度;Digits指定小数宽度 MH82tp http://www.numino.net 参考 function SysUtils.FloatToText wQEIwj http://www.numino.net 例子 6aoo1s http://www.numino.net ///////Begin FloatToStrF HsvMYk http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 67b4QN http://www.numino.net begin KoP462 http://www.numino.net Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0PnMT8 http://www.numino.net 0), 4HPtT4 http://www.numino.net ffGeneral, SpinEdit1.Value, SpinEdit2.Value); wqk34R http://www.numino.net Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 5iO1a4 http://www.numino.net 0), kJ6iE9 http://www.numino.net ffExponent, SpinEdit1.Value, SpinEdit2.Value); srkXph http://www.numino.net Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), nmGgGq http://www.numino.net ffFixed, SpinEdit1.Value, SpinEdit2.Value); oOjj6r http://www.numino.net Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, l516IY http://www.numino.net 0), 4oj3IN http://www.numino.net ffNumber, SpinEdit1.Value, SpinEdit2.Value); 1EJV6u http://www.numino.net Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, tJ84tf http://www.numino.net 0), FJtbo4 http://www.numino.net ffCurrency, SpinEdit1.Value, SpinEdit2.Value); 04CTxx http://www.numino.net end; epF578 http://www.numino.net ///////End FloatToStrF v4vVI2 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 9x57Wq http://www.numino.net 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: VhAlf2 http://www.numino.net Integer): string; $[SysUtils.pas nWAeOQ http://www.numino.net 功能 返回货币类型以指定格式转换成字符串 ZGX9g1 http://www.numino.net 说明 Digits指定小数宽度 61QI8s http://www.numino.net 参考 function SysUtils.FloatToText 3Ay31Q http://www.numino.net 例子 LZV6MZ http://www.numino.net ///////Begin CurrToStrF YNzKbU http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); w1syK9 http://www.numino.net begin D0q70K http://www.numino.net Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), XQlRGn http://www.numino.net ffGeneral, SpinEdit1.Value); dV8WxL http://www.numino.net Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, qjvO7u http://www.numino.net 0), s2CTGA http://www.numino.net ffExponent, SpinEdit1.Value); 6LQW2Y http://www.numino.net Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), S557ER http://www.numino.net ffFixed, SpinEdit1.Value); 98r21S http://www.numino.net Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 7zWYV6 http://www.numino.net ffNumber, SpinEdit1.Value); 9NDk35 http://www.numino.net Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, C2G90v http://www.numino.net 0), Gjyn64 http://www.numino.net ffCurrency, SpinEdit1.Value); 7S44S0 http://www.numino.net end; 0sGW6Y http://www.numino.net ///////End CurrToStrF p4ut39 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2cuJ3R http://www.numino.net 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: My14lx http://www.numino.net TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; EravuB http://www.numino.net $[SysUtils.pas H8Rh4m http://www.numino.net 功能 返回浮点数以指定格式转换成指针字符串的内存大小 O89tqb http://www.numino.net 说明 Precision指定精度;Digits指定小数宽度 yVSSOx http://www.numino.net 参考 <NULL> YFEXDv http://www.numino.net 例子 cixp03 http://www.numino.net ///////Begin FloatToText uN48mO http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); MmDJC2 http://www.numino.net var 9Ly5F0 http://www.numino.net vBuffer: array[0..255] of Char; m3MNAU http://www.numino.net E: Extended; 2xp19C http://www.numino.net begin teeMWF http://www.numino.net E := StrToFloatDef(Edit1.Text, 0); Ub1PlV http://www.numino.net SpinEdit3.Value := FloatToText(vBuffer, E, 449Evi http://www.numino.net fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); gU0e5F http://www.numino.net Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); RqmXMZ http://www.numino.net end; U70IlS http://www.numino.net ///////End FloatToText( 6SkB3R http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ e9v9vL http://www.numino.net 首部 function FormatFloat(const Format: string; Value: Extended): string; 1QVVSQ http://www.numino.net $[SysUtils.pas GhQV0z http://www.numino.net 功能 返回浮点数类型以指定格式字符串Format转换成字符串 209asB http://www.numino.net 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' xw0EcL http://www.numino.net 参考 function SysUtils.FloatToTextFmt 125Wa6 http://www.numino.net 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); TlcJvw http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 3IeQ1u http://www.numino.net 首部 function FormatCurr(const Format: string; Value: Currency): string; 958a9q http://www.numino.net $[SysUtils.pas Wq1R75 http://www.numino.net 功能 返回货币类型以指定格式字符串Format转换成字符串 0WbDPs http://www.numino.net 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' 89s4EF http://www.numino.net 参考 function SysUtils.FloatToTextFmt HUZWiH http://www.numino.net 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 7idAfm http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ NMKeMt http://www.numino.net 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 9vu4Q8 http://www.numino.net TFloatValue; Format: PChar): Integer; $[SysUtils.pas BBAo2v http://www.numino.net 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 1lrZbT http://www.numino.net 说明 ValueType指定无类型参数Value的类型 az9eI5 http://www.numino.net 参考 <NULL> 2bFPVn http://www.numino.net 例子 vwAiLY http://www.numino.net ///////Begin FloatToTextFmt Ca27V4 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); V5o5Bw http://www.numino.net var FZD3Ei http://www.numino.net vBuffer: array[0..255] of Char; u6Ak6c http://www.numino.net E: Extended; f4gtAM http://www.numino.net begin XAeYsj http://www.numino.net E := StrToFloatDef(Edit1.Text, 0); 755kZD http://www.numino.net SpinEdit1.Value := FloatToTextFmt(vBuffer, E, a1v1Re http://www.numino.net fvExtended, PChar(Edit2.Text)); lK95ne http://www.numino.net Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); geW870 http://www.numino.net end; 1x973d http://www.numino.net ///////End FloatToTextFmt s92iFw http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2Uz3Ph http://www.numino.net 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas MEkFIg http://www.numino.net 功能 返回字符串S转换成浮点数 9iO3Nh http://www.numino.net 说明 字符串非浮点数表达时将引起异常 COfIbN http://www.numino.net 参考 function SysUtils.TextToFloat 8X94gc http://www.numino.net 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; 0ns4PR http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Ze48nA http://www.numino.net 首部 function StrToFloatDef(const S: string; const Default: Extended): v77kUG http://www.numino.net Extended; $[SysUtils.pas M637Nt http://www.numino.net 功能 返回字符串S转换成浮点数 q73Up9 http://www.numino.net 说明 字符串非浮点数表达时则返回默认值Default g3sLAy http://www.numino.net 参考 function SysUtils.TextToFloat 471s0Z http://www.numino.net 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; R52oUD http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ xf59Jo http://www.numino.net 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; X24pRt http://www.numino.net overload; $[SysUtils.pas Lrwerw http://www.numino.net 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; JASdnk http://www.numino.net overload; $[SysUtils.pas QMwCGE http://www.numino.net 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; tJSI2q http://www.numino.net overload; $[SysUtils.pas voJKSB http://www.numino.net 功能 返回字符串S转换成浮点数Value是否成功 7xK8Ag http://www.numino.net 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 E9V576 http://www.numino.net 参考 function SysUtils.TextToFloat 32W80U http://www.numino.net 例子 mRVJ5a http://www.numino.net ///////Begin TryStrToFloat W86C2C http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); h8a707 http://www.numino.net var e98kYO http://www.numino.net E: Extended; q99fqu http://www.numino.net begin 1yA72V http://www.numino.net CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); WJ022I http://www.numino.net Edit2.Text := FormatFloat('', E); ct37dW http://www.numino.net end; D8NahV http://www.numino.net ///////End TryStrToFloat eVMTjF http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ cc86UE http://www.numino.net 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas XhK6BU http://www.numino.net 功能 返回字符串S转换成货币数 D42wwa http://www.numino.net 说明 字符串非货币数表达时将引起异常 4pncwY http://www.numino.net 参考 function SysUtils.TextToFloat 397IEj http://www.numino.net 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; vUoXeH http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 8SY7vi http://www.numino.net 首部 function StrToCurrDef(const S: string; const Default: Currency): VGLPlP http://www.numino.net Currency; $[SysUtils.pas Xw8DA0 http://www.numino.net 功能 返回字符串S转换成货币数 d25Ku4 http://www.numino.net 说明 字符串非货币数表达时则返回默认值Default RfRNka http://www.numino.net 参考 function SysUtils.TextToFloat 9Mj1hU http://www.numino.net 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 34OccE http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ HG9X91 http://www.numino.net 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; kR175s http://www.numino.net $[SysUtils.pas E2Sy94 http://www.numino.net 功能 返回字符串S转换成货币数Value是否成功 36ZGqe http://www.numino.net 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 6SxAdP http://www.numino.net 参考 function SysUtils.TextToFloat 7O8uYk http://www.numino.net 例子 9NAL2w http://www.numino.net ///////Begin TryStrToCurr uRUntF http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 7PJwQm http://www.numino.net var pXuWro http://www.numino.net C: Currency; Mg1vDX http://www.numino.net begin Mv0w09 http://www.numino.net CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); 8l6J3V http://www.numino.net Edit2.Text := FormatCurr('', C); QB5A5h http://www.numino.net end; g3zBCV http://www.numino.net ///////End TryStrToCurr NIjVOh http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 400p30 http://www.numino.net 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Q6K9yi http://www.numino.net Boolean; $[SysUtils.pas 087u67 http://www.numino.net 功能 返回将指针字符串Buffer转换成无类型变量Value KygaT9 http://www.numino.net 说明 ValueType指定无类型参数Value的类型 M4ZS2C http://www.numino.net 参考 <NULL> 2H94ry http://www.numino.net 例子 Q4VUcf http://www.numino.net ///////Begin TextToFloat xD8yi4 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); L9F97Y http://www.numino.net var 58vcVI http://www.numino.net E: Extended; hX83qW http://www.numino.net begin 2Rv7TA http://www.numino.net CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, 3H9ngH http://www.numino.net fvExtended); 20qNyp http://www.numino.net Edit2.Text := FormatFloat('', E); nPDKHk http://www.numino.net end; 40ES9N http://www.numino.net ///////End TextToFloat nfw7NG http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ wQ2IUb http://www.numino.net 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 8nk1oU http://www.numino.net 功能 返回日期DateTime转换成字符串 eaL9r6 http://www.numino.net 说明 转换格式由系统变量ShortDateFormat控制 2fR8I9 http://www.numino.net 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat CnXZi6 http://www.numino.net 例子 Edit1.Text := DateToStr(Date); opn84H http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ quEhFD http://www.numino.net 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas Bz56vq http://www.numino.net 功能 返回时间DateTime转换成字符串 20HfsS http://www.numino.net 说明 转换格式由系统变量LongTimeFormat控制 8WaFw6 http://www.numino.net 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat dXEr0i http://www.numino.net 例子 Edit1.Text := TimeToStr(Date); 6MSvBm http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ m45HyQ http://www.numino.net 首部 function DateTimeToStr(const DateTime: TDateTime): string; DZQa3w http://www.numino.net $[SysUtils.pas 6f2F1x http://www.numino.net 功能 返回日期时间DateTime转换成字符串 Q38l8R http://www.numino.net 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 ThW5em http://www.numino.net 参考 function SysUtils.DateTimeToString CzjaX8 http://www.numino.net 例子 Edit1.Text := DateTimeToStr(Now); HxBXIg http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 514eW1 http://www.numino.net 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas tPkcdz http://www.numino.net 功能 返回字符串S转换成日期 qIRDa0 http://www.numino.net 说明 字符非日期表达时将引起异常 wi5Bt5 http://www.numino.net 参考 function SysUtils.TryStrToDate a0Vi3A http://www.numino.net 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); zIfH1B http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ aG3kO0 http://www.numino.net 首部 function StrToDateDef(const S: string; const Default: TDateTime): 67IXPS http://www.numino.net TDateTime; $[SysUtils.pas qPR66y http://www.numino.net 功能 返回字符串S转换成日期 AV1Tx8 http://www.numino.net 说明 字符非日期表达时则返回默认值Default Aajy69 http://www.numino.net 参考 function SysUtils.TryStrToDate 0WOUUU http://www.numino.net 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); zKnBtL http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ dldFBY http://www.numino.net 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; KYhs3W http://www.numino.net $[SysUtils.pas FnbuHs http://www.numino.net 功能 返回字符串S转换成日期Value是否成功 JJ42Ef http://www.numino.net 说明 字符非日期表达时返回False并且Value将输出为0 A4EiCE http://www.numino.net 参考 <NULL> XOC5QZ http://www.numino.net 例子 sRLRv0 http://www.numino.net ///////Begin TryStrToDate AKwNEc http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); 1Y3i8K http://www.numino.net var AcP2c7 http://www.numino.net vDateTime: TDateTime; kRdCxl http://www.numino.net begin paPi2j http://www.numino.net CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); 60mBG4 http://www.numino.net DateTimePicker1.Date := vDateTime; 95wBkb http://www.numino.net end; NAks78 http://www.numino.net ///////End TryStrToDate dXa75n http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Ej86oI http://www.numino.net 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 7t64M8 http://www.numino.net 功能 返回字符串S转换成时间 xQuDuf http://www.numino.net 说明 字符非时间表达时将引起异常 7XulCR http://www.numino.net 参考 function SysUtils.TryStrToTime Bv6Z1Q http://www.numino.net 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); f01G1s http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 0Tw1r1 http://www.numino.net 首部 function StrToTimeDef(const S: string; const Default: TDateTime): g14KTJ http://www.numino.net TDateTime; $[SysUtils.pas WsiBhl http://www.numino.net 功能 返回字符串S转换成时间 AyxiC1 http://www.numino.net 说明 字符非时间表达时则返回默认值Default RED8r9 http://www.numino.net 参考 function SysUtils.TryStrToTime u04qfo http://www.numino.net 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); QKm939 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ R0uNT5 http://www.numino.net 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; XbsHtK http://www.numino.net $[SysUtils.pas L6fR29 http://www.numino.net 功能 返回字符串S转换成时间Value是否成功 744OkB http://www.numino.net 说明 字符非时间表达时返回False并且Value将输出为0 p5AFdG http://www.numino.net 参考 <NULL> BH2eVn http://www.numino.net 例子 wuyOck http://www.numino.net ///////Begin TryStrToTime 0aDNk2 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); C94SzN http://www.numino.net var 0w6NTL http://www.numino.net vDateTime: TDateTime; 4S4221 http://www.numino.net begin o9J1FR http://www.numino.net CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 4h6cdr http://www.numino.net DateTimePicker1.Time := vDateTime; Cw0rsC http://www.numino.net end; 2xuMx0 http://www.numino.net ///////End TryStrToTime eYQ0VM http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ QLW9Gq http://www.numino.net 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas 422d1p http://www.numino.net 功能 返回字符串S转换成日期时间 3ROu7x http://www.numino.net 说明 字符非日期时间表达时将引起异常 eVoPEt http://www.numino.net 参考 function SysUtils.TryStrToDateTime Lm8vo4 http://www.numino.net 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); TA54MI http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ ZXB03v http://www.numino.net 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): I9RWFw http://www.numino.net TDateTime; $[SysUtils.pas m7IdtN http://www.numino.net 功能 返回字符串S转换成日期时间 sK306C http://www.numino.net 说明 字符非日期时间表达时则返回默认值Default vOCcXe http://www.numino.net 参考 function SysUtils.TryStrToDateTime 1D48Q8 http://www.numino.net 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); Fs6y01 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 3662kf http://www.numino.net 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): Zj5JOX http://www.numino.net Boolean; $[SysUtils.pas cqZP3F http://www.numino.net 功能 返回字符串S转换成日期时间Value是否成功 iYpcq8 http://www.numino.net 说明 字符非日期时间表达时返回False并且Value将输出为0 SAiW0e http://www.numino.net 参考 <NULL> IWLp61 http://www.numino.net 例子 1E5nzC http://www.numino.net ///////Begin TryStrToDateTime DbfdtB http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); LziAab http://www.numino.net var oXb81S http://www.numino.net vDateTime: TDateTime; 720G7W http://www.numino.net begin GOIXsk http://www.numino.net CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); a7PABw http://www.numino.net Edit2.Text := DateTimeToStr(vDateTime); 9A2XFU http://www.numino.net end; 682VDu http://www.numino.net ///////End TryStrToDateTime m9R0Ws http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 0GXVZ0 http://www.numino.net 首部 procedure DateTimeToString(var Result: string; const Format: string; z266Na http://www.numino.net DateTime: TDateTime); $[SysUtils.pas O0G7J0 http://www.numino.net 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 5yqJhb http://www.numino.net 说明 <参见FormatDateTime> W0EA5n http://www.numino.net 参考 function System.SetString FzB105 http://www.numino.net 例子 <参见FormatDateTime> REoDt8 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ dS241f http://www.numino.net 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: Kk0Qo1 http://www.numino.net string): string; platform; $[SysUtils.pas 5tvvn8 http://www.numino.net 功能 返回当前系统指定参数的字符串值 P2Lrzm http://www.numino.net 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' wo6vKX http://www.numino.net 参考 function Windows.GetLocaleInfo IQP7Ov http://www.numino.net 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); E7DsWC http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ o79F4i http://www.numino.net 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): VMA53B http://www.numino.net Char; platform; $[SysUtils.pas 6vphV8 http://www.numino.net 功能 返回当前系统指定参数的字符值 YWoDp0 http://www.numino.net 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' U2C267 http://www.numino.net 参考 function Windows.GetLocaleInfo TbEheH http://www.numino.net 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); Of05J5 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ P4C56x http://www.numino.net 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; 08C59L http://www.numino.net $[SysUtils.pas 7bOXSQ http://www.numino.net 功能 返回字符串S位置Index上的字符在MBCS中类型 OnqR6p http://www.numino.net 说明 多字节字符系统:Multi-Byte Character System (MBCS) E3GK5b http://www.numino.net 参考 var SysUtils.SysLocale ttszIM http://www.numino.net 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); 1kXl9g http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ vF3OqL http://www.numino.net 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 7Np0Ol http://www.numino.net $[SysUtils.pas 6Vt8yS http://www.numino.net 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 ImsStE http://www.numino.net 说明 Index从0开始 mMdvS8 http://www.numino.net 参考 var SysUtils.SysLocale GRNjsq http://www.numino.net 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), 8XtA4P http://www.numino.net SpinEdit2.Value)); t6ia4G http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ W210uk http://www.numino.net 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; D0VJeK http://www.numino.net $[SysUtils.pas GahLoK http://www.numino.net 功能 返回字符串S中有多少个多字节字符 7Vovit http://www.numino.net 说明 MaxLen指定处理字符个数 2W80SR http://www.numino.net 参考 function SysUtils.ByteToCharIndex kjUO0H http://www.numino.net 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); K1RPvw http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ gocmLD http://www.numino.net 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; pD90XX http://www.numino.net $[SysUtils.pas X1Z6I8 http://www.numino.net 功能 返回字符串S中有多少个字符 51U7eA http://www.numino.net 说明 MaxLen指定处理多字节字符个数 L5NC8L http://www.numino.net 参考 var SysUtils.SysLocale 87miZ2 http://www.numino.net 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); WE1z2F http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ geW0PD http://www.numino.net 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; 0469Bs http://www.numino.net $[SysUtils.pas vz9aN5 http://www.numino.net 功能 返回字符位置对应的多字节字符位置 0Qt4M9 http://www.numino.net 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 Eb2akC http://www.numino.net 参考 function SysUtils.NextCharIndex 7V5b8T http://www.numino.net 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); F6JRr7 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ rbjaHH http://www.numino.net 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; WF4cnF http://www.numino.net $[SysUtils.pas 9tSu1P http://www.numino.net 功能 返回多字节字符位置对应的字符起始位置 16mY05 http://www.numino.net 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 Rokfrw http://www.numino.net 参考 function System.Length ON2BK8 http://www.numino.net 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 9T9Sqi http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ FVJ5bP http://www.numino.net 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas 81UaUy http://www.numino.net 功能 返回第一个字符的宽度 HiOu9g http://www.numino.net 说明 参数为空则返回0 FxaJcW http://www.numino.net 参考 function Windows.CharNext rGYqsm http://www.numino.net 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); 7B1dBX http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ DzLA7g http://www.numino.net 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 4Mvi21 http://www.numino.net 功能 返回字符指针Str的下一个字符指针 DxG52i http://www.numino.net 说明 StrNextChar('1234') = '234'; 0z2Gg9 http://www.numino.net 参考 function Windows.CharNext L7c8Ge http://www.numino.net 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); QUBJvX http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 9S6JP9 http://www.numino.net 首部 function CharLength(const S: String; Index: Integer): Integer; xf3t6t http://www.numino.net $[SysUtils.pas r0VdDL http://www.numino.net 功能 返回字符串中指定位置的字符宽度 D95k5Q http://www.numino.net 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 KxLF2z http://www.numino.net 参考 function System.Assert;function SysUtils.StrCharLength 204521 http://www.numino.net 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); yyFG70 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ Zu3LOJ http://www.numino.net 首部 function NextCharIndex(const S: String; Index: Integer): Integer; lv6mnC http://www.numino.net $[SysUtils.pas l8H5Eb http://www.numino.net 功能 返回下一个字符的位置 L6Ua9B http://www.numino.net 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 W5C7Ni http://www.numino.net 参考 function System.Assert;function SysUtils.StrCharLength sd9Bsd http://www.numino.net 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); 80RDBx http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ JrHvmc http://www.numino.net 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; 7D5SKq http://www.numino.net $[SysUtils.pas EPq7Ap http://www.numino.net 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 jU6gRR http://www.numino.net 说明 IsPathDelimiter('C:\Windows', 3) = True 3vM34Z http://www.numino.net 参考 const SysUtils.PathDelim;function SysUtils.ByteType 3ja10F http://www.numino.net 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); Hya97s http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 7yBrkn http://www.numino.net 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): ARDodB http://www.numino.net Boolean; $[SysUtils.pas r0Y5fB http://www.numino.net 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters m95T7Z http://www.numino.net 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True S5BJ8s http://www.numino.net 参考 function SysUtils.ByteType TxCBN8 http://www.numino.net 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, xzlzwQ http://www.numino.net SpinEdit1.Value); GsT6uG http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ kh3p7V http://www.numino.net 首部 function IncludeTrailingPathDelimiter(const S: string): string; r2mSov http://www.numino.net $[SysUtils.pas 8H73R2 http://www.numino.net 功能 返回包括最后路径分隔符 17W8L7 http://www.numino.net 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 17QYxi http://www.numino.net 参考 function SysUtils.IsPathDelimiter;function System.Length hhGHxO http://www.numino.net 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); Jsn6fk http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ zx1oE7 http://www.numino.net 首部 function IncludeTrailingBackslash(const S: string): string; platform; zU5U6q http://www.numino.net $[SysUtils.pas S9BTf9 http://www.numino.net 功能 返回包括最后斜线 0nOh4r http://www.numino.net 说明 Result := IncludeTrailingPathDelimiter(S); SgbeqO http://www.numino.net 参考 function SysUtils.IncludeTrailingPathDelimiter 770v91 http://www.numino.net 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); Ltj519 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ MCK87E http://www.numino.net 首部 function ExcludeTrailingPathDelimiter(const S: string): string; aSE2OE http://www.numino.net $[SysUtils.pas 21G4FQ http://www.numino.net 功能 返回排除最后路径分隔符 uHwG8o http://www.numino.net 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 49c17n http://www.numino.net 参考 function SysUtils.IsPathDelimiter;function System.Length;function W72Eh8 http://www.numino.net System.SetLength sn3Kb3 http://www.numino.net 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); y16471 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 4hWgWQ http://www.numino.net 首部 function ExcludeTrailingBackslash(const S: string): string; platform; W705Oq http://www.numino.net $[SysUtils.pas JyY8Ah http://www.numino.net 功能 返回排除最后斜线 uSU6mI http://www.numino.net 说明 Result := ExcludeTrailingPathDelimiter(S) F45Tnf http://www.numino.net 参考 function SysUtils.ExcludeTrailingPathDelimiter 4wW3yT http://www.numino.net 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); NHhV09 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2P0M89 http://www.numino.net 首部 function LastDelimiter(const Delimiters, S: string): Integer; 23gCO7 http://www.numino.net $[SysUtils.pas 99H91e http://www.numino.net 功能 返回最后一个分隔符的位置 TKwhKU http://www.numino.net 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 MfAuWp http://www.numino.net 参考 function SysUtils.StrScan;function SysUtils.ByteType Jv7JQg http://www.numino.net 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); r382wg http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 8Sme4J http://www.numino.net 首部 function AnsiCompareFileName(const S1, S2: string): Integer; dxqbbP http://www.numino.net $[SysUtils.pas JLTDU3 http://www.numino.net 功能 返回比较两个文件名 80Sqka http://www.numino.net 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 Pf7PYw http://www.numino.net 参考 function SysUtils.AnsiCompareStr 2By5bd http://www.numino.net 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); HGu3VR http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 52uZ60 http://www.numino.net 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas 6LskUL http://www.numino.net 功能 返回两个文件名是否相等 IsLcPE http://www.numino.net 说明 区分大小写 0RLcKo http://www.numino.net 参考 function SysUtils.AnsiCompareFileName 0KA5YJ http://www.numino.net 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); 9MSyT9 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 4wsbTE http://www.numino.net 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas c5hxjy http://www.numino.net 功能 返回小写文件名 JQ3D65 http://www.numino.net 说明 在非多字节字符系统上相当于AnsiLowerCase 6ndS7P http://www.numino.net 参考 function SysUtils.AnsiLowerCase 6b8TWB http://www.numino.net 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); WhVr4t http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ QE5Gda http://www.numino.net 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas sE7BTj http://www.numino.net 功能 返回大写文件名 ofcA6z http://www.numino.net 说明 在非多字节字符系统上相当于AnsiUpperCase 62O00f http://www.numino.net 参考 function SysUtils.AnsiUpperCase lO461b http://www.numino.net 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); c9c816 http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2n5S50 http://www.numino.net 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas nMxI4A http://www.numino.net 功能 返回子串Substr在字符中第一次出现的位置 bEhJY8 http://www.numino.net 说明 不存在则返回0 tF3M5s http://www.numino.net 参考 SysUtils.AnsiStrPos ospfBV http://www.numino.net 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); aDV0YJ http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 2FSBiJ http://www.numino.net 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas mxEooG http://www.numino.net 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 Mm535o http://www.numino.net 说明 不存在则返回nil 8axNOH http://www.numino.net 参考 function SysUtils.StrByteType UuK7nl http://www.numino.net 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 5L484J http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ SUCN35 http://www.numino.net 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas N8HI9r http://www.numino.net 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 KZh7y0 http://www.numino.net 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' 3NLdBU http://www.numino.net 参考 function SysUtils.AnsiStrScan 4Lwz7c http://www.numino.net 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); q2OvPi http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ HPJvKG http://www.numino.net 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas d7a20O http://www.numino.net 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 YNfI06 http://www.numino.net 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' kG9bd3 http://www.numino.net 参考 function SysUtils.StrScan eX4Drb http://www.numino.net 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); j3hp7i http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ tLdMv9 http://www.numino.net 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: V2540D http://www.numino.net TReplaceFlags): string; $[SysUtils.pas JZi0Yh http://www.numino.net 功能 返回替换后的字符串 HopM29 http://www.numino.net 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 G5i2Rn http://www.numino.net 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function PQVtR1 http://www.numino.net System.Copy AchloM http://www.numino.net 例子 Kp011z http://www.numino.net ///////Begin StringReplace F5d1w4 http://www.numino.net procedure TForm1.Button1Click(Sender: TObject); MTT9Z7 http://www.numino.net begin ZDrrym http://www.numino.net Memo1.Lines.Values['[]'] := UnpuZy http://www.numino.net StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); uJqh5j http://www.numino.net Memo1.Lines.Values['[rfReplaceAll]'] := WYY5uK http://www.numino.net StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); qnuH4s http://www.numino.net Memo1.Lines.Values['[rfIgnoreCase]'] := DiOkJJ http://www.numino.net StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); PQgdPJ http://www.numino.net Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := L98oda http://www.numino.net StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, 7P0gcL http://www.numino.net rfIgnoreCase]); pgEllB http://www.numino.net end; qZDL60 http://www.numino.net ///////End StringReplace eK1y4S http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ 73KC9H http://www.numino.net 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas JAk4w5 http://www.numino.net 功能 返回字符串S转换成全局标识 40yFP1 http://www.numino.net 说明 如果字符串非法将触发异常 ejQ0Vr http://www.numino.net 参考 fuction Windows.Succeeded jkBhNe http://www.numino.net 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); r8EGcl http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━ GF9btL http://www.numino.net 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas PzYzw7 http://www.numino.net 功能 返回全局标识GUID转换成字符串 gY2q7e http://www.numino.net 说明 <NULL> 4Ld0zL http://www.numino.net 参考 fuction Windows.Succeeded 7kd5Rz http://www.numino.net 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); ufkw7Q http://www.numino.net ━━━━━━━━━━━━━━━━━━━━━
|
|