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

Delphi字符串函数大全 【字符串函数大全】 nBq1Vv http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; F2Je5W http://blog.numino.net/ $[StrUtils.pas 70f4Jg http://blog.numino.net/ 功能 返回两个字符串是否相似 83KG5K http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 J4C4Dq http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 4WK1A2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 2B84V5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y37wZ4 http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; IywZZ2 http://blog.numino.net/ $[StrUtils.pas 22s073 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText SbE2kv http://blog.numino.net/ 说明 不区分大小写 G96YK7 http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos QERoc0 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); z2h4Fy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A591JL http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; vt36O9 http://blog.numino.net/ $[StrUtils.pas K2nz06 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 N0pPHA http://blog.numino.net/ 说明 不区分大小写 F9uQ49 http://blog.numino.net/ 参考 function Windows.CompareString LBS6LS http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); RVwd6V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xJJ04o http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; pi6Fbn http://blog.numino.net/ $[StrUtils.pas 9Od6z4 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 qL3c6A http://blog.numino.net/ 说明 不区分大小写 VH6RY5 http://blog.numino.net/ 参考 function Windows.CompareString f73Sz3 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); oEO32B http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fe1Yfn http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): WI22kO http://blog.numino.net/ string; $[StrUtils.pas TiH446 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 91bQhY http://blog.numino.net/ 说明 不区分大小写 Xjw13t http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags iEXCvD http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); NhWjJ1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BnIiqs http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of SKxrzl http://blog.numino.net/ string): Boolean; $[StrUtils.pas 7A7h2G http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText Qnq8lX http://blog.numino.net/ 说明 不区分大小写 P729wb http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText FrgQLh http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', j8Ejvq http://blog.numino.net/ 'a4']); tyNh5q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hKXTaw http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of iFo0r2 http://blog.numino.net/ string): Integer; $[StrUtils.pas BvWWrT http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 41TUzt http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 bsay2k http://blog.numino.net/ 参考 function SysUtils.AnsiSameText M7Ip4c http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); d7lB0H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EkHskW http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; JSD976 http://blog.numino.net/ $[StrUtils.pas IIdEg5 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText 7ocgG5 http://blog.numino.net/ 说明 区分大小写 1pRRPV http://blog.numino.net/ 参考 function StrUtils.AnsiPos 9vHuD1 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); Bj1Pv4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ui1YEt http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; miy186 http://blog.numino.net/ $[StrUtils.pas 1RRahx http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 ANl66D http://blog.numino.net/ 说明 区分大小写 YAcGiB http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 00xOo2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); 96S3Z2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5MssY0 http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; 02wyDM http://blog.numino.net/ $[StrUtils.pas GKxkdv http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 Eepbg8 http://blog.numino.net/ 说明 区分大小写 llOd5F http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr T0tB6X http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 8JCWh5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F2PDpg http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): UoxDG1 http://blog.numino.net/ string; $[StrUtils.pas 9h19P1 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 1Ni4mF http://blog.numino.net/ 说明 区分大小写 H9YUID http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags VC8s34 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); 85bQ0h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RYjTRJ http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of tHUKRe http://blog.numino.net/ string): Boolean; $[StrUtils.pas op6eoL http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText Wu737q http://blog.numino.net/ 说明 区分大小写 p78NVo http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr V4H0RZ http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', vtwfar http://blog.numino.net/ 'a4']); UifCL0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ g08ldO http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of yfZ4td http://blog.numino.net/ string): Integer; $[StrUtils.pas 6o4w1I http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 54bvbY http://blog.numino.net/ 说明 区分大小写 nvb00E http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr zJeT1P http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); FnylL1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p0G4Qq http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; FZVhcF http://blog.numino.net/ $[StrUtils.pas 6Svl7C http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 yD575M http://blog.numino.net/ 说明 当ACount为0时返回'' HKkKhH http://blog.numino.net/ 参考 function System.SetLength 64W2zx http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); 5704b5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u7c6Hv http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas 5bBHxQ http://blog.numino.net/ 功能 返回字符串AText的反序 E8cDDf http://blog.numino.net/ 说明 ReverseString('1234') = '4321' mfEuw2 http://blog.numino.net/ 参考 function System.SetLength ZoMLZl http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); J7tljm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O3xZFR http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; m3J1Xe http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas OwbyN2 http://blog.numino.net/ 功能 返回嵌套字符串 Lw56rF http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' RafNLl http://blog.numino.net/ 参考 function System.Copy 3Z2X9r http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, IH0C33 http://blog.numino.net/ Edit2.Text); 1qjJn6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fju8pr http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; PWp6en http://blog.numino.net/ $[StrUtils.pas aMn4Cz http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 JJ1LvQ http://blog.numino.net/ 说明 之前建议执行Randomize 2f713v http://blog.numino.net/ 参考 function System.Random EY1W4j http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); BW1QfB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AoZZ8W http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = 8jIdl5 http://blog.numino.net/ ''): string; overload; $[StrUtils.pas W3gLBK http://blog.numino.net/ 功能 返回指定的逻辑字符串 4WkhRR http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' j3m9Q8 http://blog.numino.net/ 参考 <NULL> A4JR2G http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); 1w5YqB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nuD6ud http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; ttreaG http://blog.numino.net/ $[StrUtils.pas Gzwfn2 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 7GrEp6 http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' Ny9E60 http://blog.numino.net/ 参考 function System.Copy 08AAD4 http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); R1YGDM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r35UcW http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; 05VAS7 http://blog.numino.net/ $[StrUtils.pas X315bD http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 151Vsf http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' XU055d http://blog.numino.net/ 参考 function System.Copy 4b1nDO http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); gre5FG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J29cB5 http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): E2M50N http://blog.numino.net/ string; $[StrUtils.pas O188NW http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 Ndzn4k http://blog.numino.net/ 说明 其实就是Copy dmW0B7 http://blog.numino.net/ 参考 function System.Copy 6wYy8Y http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); Xjb1hC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 18Wjcg http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: XKA2nO http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): 4161mL http://blog.numino.net/ PChar; $[StrUtils.pas gPDtCQ http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 03tKd9 http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 Po2GuN http://blog.numino.net/ 参考 <NULL> S3Vh7Z http://blog.numino.net/ 例子 wrL998 http://blog.numino.net/ ///////Begin SearchBuf U90h7r http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; i66S7O http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; vf2eyJ http://blog.numino.net/ var OY5k1g http://blog.numino.net/ Buffer, P: PChar; GjVaxX http://blog.numino.net/ Size: Word; 75nX2K http://blog.numino.net/ begin pD5051 http://blog.numino.net/ Result := False; XjJuFD http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; 5aL479 http://blog.numino.net/ Size := EditControl.GetTextLen; 2Du7zE http://blog.numino.net/ if (Size = 0) then Exit; gE7nRF http://blog.numino.net/ Buffer := StrAlloc(Size + 1); Nj9xUm http://blog.numino.net/ try f629FA http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); nZEaui http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, K4vqHX http://blog.numino.net/ SearchString, SearchOptions); NJdr2j http://blog.numino.net/ if P <> nil then begin epzhY5 http://blog.numino.net/ EditControl.SelStart := P - Buffer; eam9kv http://blog.numino.net/ EditControl.SelLength := Length(SearchString); 5mmr04 http://blog.numino.net/ Result := True; KgFyt4 http://blog.numino.net/ end; LH50CD http://blog.numino.net/ finally 1mVw9u http://blog.numino.net/ StrDispose(Buffer); Yas18Y http://blog.numino.net/ end; ycFj5F http://blog.numino.net/ end; 0Rrhsf http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); FeNwfr http://blog.numino.net/ var 1VXsWz http://blog.numino.net/ SearchOptions: TStringSearchOptions; fvdtP9 http://blog.numino.net/ begin dX16ga http://blog.numino.net/ SearchOptions := []; 3AcM2i http://blog.numino.net/ if CheckBox1.Checked then n87DZP http://blog.numino.net/ Include(SearchOptions, soDown); 7H6CP2 http://blog.numino.net/ if CheckBox2.Checked then GZot63 http://blog.numino.net/ Include(SearchOptions, soMatchCase); d9bP6D http://blog.numino.net/ if CheckBox3.Checked then 20o2dS http://blog.numino.net/ Include(SearchOptions, soWholeWord); Trdi2O http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); v1KfVy http://blog.numino.net/ Memo1.SetFocus; zR9Cv6 http://blog.numino.net/ end; QII3Xj http://blog.numino.net/ ///////End SearchBuf lb9Qpq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2toBs2 http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): 3lZ3bK http://blog.numino.net/ string; $[StrUtils.pas E8eKkt http://blog.numino.net/ 功能 返回探测字符串 H3Myz5 http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html XDpHo5 http://blog.numino.net/ 参考 <NULL> wTpA0k http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 9CKoyj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zyK4F3 http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = Wxpn50 http://blog.numino.net/ 4): Integer; $[StrUtils.pas JSYB0k http://blog.numino.net/ 功能 返回探测整数 3z94k1 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 yzod2O http://blog.numino.net/ 参考 <NULL> rQPgRC http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); O40m6S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UO8lkq http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas MF5Q25 http://blog.numino.net/ 功能 返回探测整数的解码 E9Zld5 http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') EsXIql http://blog.numino.net/ 参考 <NULL> eHV3u4 http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); SFj0Y1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RLAZG1 http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas xZ2Z49 http://blog.numino.net/ 功能 返回探测文字数值 i7Sl4Z http://blog.numino.net/ 说明 没有参数ALength已经固定为4 zgnCKo http://blog.numino.net/ 参考 <NULL> aP9JOY http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); 02H072 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 98s4w6 http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas n1v1Ie http://blog.numino.net/ 功能 返回探测文字数值的解码 X836pT http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') 4O8tU3 http://blog.numino.net/ 参考 <NULL> Uq5PT9 http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 0ySMUN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T0r3L9 http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: G1zfuO http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas SpIvvj http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 2USUFv http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) IoCjym http://blog.numino.net/ 参考 <NULL> a6WOe4 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, O29uUN http://blog.numino.net/ SpinEdit1.Value); 1Q0j7G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aO90f5 http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: DVEp32 http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas yE7K09 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 Mg3Mom http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, NkbB5D http://blog.numino.net/ ALength)) r6T26M http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr p3Tw54 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, P0XoOz http://blog.numino.net/ SpinEdit1.Value); fvd0TV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k7Dc1w http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; 4zBswS http://blog.numino.net/ $[StrUtils.pas G3wr3W http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 yNSqBO http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 i2eALU http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText mYWYbK http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] OVbBw1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Vs5361 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas 42P3hG http://blog.numino.net/ 功能 返回一个新的字符串指针地址 SixFa3 http://blog.numino.net/ 说明 字符串S为空时返回NullStr trwj6S http://blog.numino.net/ 参考 procedure System.New 83X33f http://blog.numino.net/ 例子 7unG0j http://blog.numino.net/ ////////Begin NewStr,DisposeStr g57Cn5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Nyhq15 http://blog.numino.net/ var VzVAJu http://blog.numino.net/ P: PString; Bt87nC http://blog.numino.net/ begin FQG7V0 http://blog.numino.net/ P := NewStr(Edit1.Text); dpPmFS http://blog.numino.net/ Edit2.Text := P^; nWH2dS http://blog.numino.net/ DisposeStr(P); XdWqMq http://blog.numino.net/ end; 1Vmud4 http://blog.numino.net/ ////////End NewStr,DisposeStr UH6S7k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mTiPmQ http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas wSnNRA http://blog.numino.net/ 功能 释放字符串指针P资源 8728Dk http://blog.numino.net/ 说明 配合函数NewStr使用 bni4vO http://blog.numino.net/ 参考 procedure System.Dispose m1uSwQ http://blog.numino.net/ 例子 <如上参见,如下参见> EHC62N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4GhBjd http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; w8qC7g http://blog.numino.net/ $[SysUtils.pas wIMAEY http://blog.numino.net/ 功能 将字符串S更新给字符串指针P rpf7CR http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 kbV3oH http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr U5C3R9 http://blog.numino.net/ 例子 w98d33 http://blog.numino.net/ ////////Begin AssignStr e77GHe http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); kAsS6Q http://blog.numino.net/ var fR4Yh0 http://blog.numino.net/ P: PString; HWjzK1 http://blog.numino.net/ begin 5n0UAo http://blog.numino.net/ P := nil; L3K3eO http://blog.numino.net/ AssignStr(P, Edit1.Text); E1XDt6 http://blog.numino.net/ Edit2.Text := P^; oh4Ow2 http://blog.numino.net/ DisposeStr(P); kacV1H http://blog.numino.net/ end; txMBpJ http://blog.numino.net/ ////////End AssignStr hG674c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nc7Fy9 http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; UPWsNK http://blog.numino.net/ $[SysUtils.pas 3XX9hW http://blog.numino.net/ 功能 在字符串Dest后追加字符串S 6QG4Kp http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 iwoi6O http://blog.numino.net/ 参考 <NULL> MD7N0L http://blog.numino.net/ 例子 P3FbQ3 http://blog.numino.net/ ////////Begin AppendStr xU7E1H http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hh06hH http://blog.numino.net/ var xP2Pvb http://blog.numino.net/ S: string; h0x1qZ http://blog.numino.net/ begin MUU0B7 http://blog.numino.net/ S := Edit2.Text; HcOXtN http://blog.numino.net/ AppendStr(S, Edit1.Text); 632C48 http://blog.numino.net/ Edit2.Text := S; DiSbBr http://blog.numino.net/ end; a2hePe http://blog.numino.net/ ////////End AppendStr GLBzQx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 94c8MN http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas 8B04b3 http://blog.numino.net/ 功能 返回字符串S的大写形式 38FqxB http://blog.numino.net/ 说明 非小写字符不处理 Ju972D http://blog.numino.net/ 参考 procedure System.SetLength LnyC5Q http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); q9xvT6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hS02px http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas zCrowK http://blog.numino.net/ 功能 返回字符串S的小写形式 E38iQM http://blog.numino.net/ 说明 非大写字符不处理 YkyT1y http://blog.numino.net/ 参考 procedure System.SetLength B3DB9D http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); 2M95F5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4E7BNK http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas HTwCqA http://blog.numino.net/ 功能 返回比较两个字符 dzm964 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 5ChRoZ http://blog.numino.net/ 参考 <NULL> 7iQ2Ym http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); LfBStl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cNu9Dj http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; Cozmbq http://blog.numino.net/ assembler; $[SysUtils.pas h7fMP0 http://blog.numino.net/ 功能 返回比较两个内存指针 iX4gK0 http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), U8WWu4 http://blog.numino.net/ PChar('12c'), 3)=False B8hm1M http://blog.numino.net/ 参考 <NULL> YuEgpS http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); E3p36y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 76t8Na http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas wy8NlZ http://blog.numino.net/ 功能 返回比较两个字符串 yGZap8 http://blog.numino.net/ 说明 不区分大小写 AH5NIf http://blog.numino.net/ 参考 <NULL> BWS8L5 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); yl74Ws http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M9mX96 http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas O21iCE http://blog.numino.net/ 功能 返回两个字符串是否相等 YCl7wF http://blog.numino.net/ 说明 不区分大小写 1vK418 http://blog.numino.net/ 参考 <NULL> 4d2cor http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 2k8iq6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1kigcR http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas q077bY http://blog.numino.net/ 功能 返回字符串S的大写形式 C5O9hs http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 5vHGRL http://blog.numino.net/ 参考 function Windows.CharUpperBuff zgpqmV http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); 7XqOI1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zPzjey http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas yguf97 http://blog.numino.net/ 功能 返回字符串S的小写形式 FIXfUL http://blog.numino.net/ 说明 非大写字符不处理 Ad5jez http://blog.numino.net/ 参考 function Windows.CharLowerBuff 66ARU2 http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); eb7mpi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z7w2Q4 http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 2Fzpv6 http://blog.numino.net/ 功能 反回比较两个字符串 f96R88 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 q3M8Om http://blog.numino.net/ 参考 function Windows.CompareString 94r20X http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 333l23 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gTNR1x http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas klJamJ http://blog.numino.net/ 功能 返回两个字符串是否相等 GJ2zC4 http://blog.numino.net/ 说明 区分大小写 UQerln http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr xUft6O http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); Mr962s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KBe2N0 http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas ripeIS http://blog.numino.net/ 功能 反回比较两个字符串 JQWPoy http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 CEo7jq http://blog.numino.net/ 参考 function Windows.CompareString EaI580 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); jM0cld http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fbh326 http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas TPT15o http://blog.numino.net/ 功能 返回两个字符串是否相等 1bb9Mn http://blog.numino.net/ 说明 不区分大小写 aEsXjW http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText EW76ic http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); loJyK6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0q0uPP http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas zzfkFM http://blog.numino.net/ 功能 返回比较两个指针字符串 AN9qbU http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 tv1Pw5 http://blog.numino.net/ 参考 function System.CompareString pU90ue http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) X2srw4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j03j0T http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas EeFpfu http://blog.numino.net/ 功能 返回比较两个指针字符串 8DX42E http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) zsSZVI http://blog.numino.net/ 参考 function Windows.CompareString A1L7UW http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) kBX02A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hjvHkA http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; To8Z65 http://blog.numino.net/ $[SysUtils.pas Wyvodz http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 F53gR8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) iDEA52 http://blog.numino.net/ 参考 function Windows.CompareString Ooe7yL http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), uZyBi0 http://blog.numino.net/ SpinEdit2.Value) EmyKSN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mo6AT1 http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; n5fNgB http://blog.numino.net/ $[SysUtils.pas TXr2bI http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 6366Ax http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 52an74 http://blog.numino.net/ 参考 function Windows.CompareString 3Z5V5o http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), RjkKiJ http://blog.numino.net/ SpinEdit2.Value) 6YS1A5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G47hWF http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas uWr0OI http://blog.numino.net/ 功能 返回指针字符串小写形式 U7ePb2 http://blog.numino.net/ 说明 非大写字符不处理 6r3vec http://blog.numino.net/ 参考 function Windows.CharLower BoC81t http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); j8wGE3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iE7q7n http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas TDIFV4 http://blog.numino.net/ 功能 返回指针字符串大写形式 fY9RC2 http://blog.numino.net/ 说明 非小写字符不处理 Jtr2bp http://blog.numino.net/ 参考 function Windows.CharUpper 4JKQTk http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); yeIP9G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9o7hwB http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 1kEG3M http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 8807y1 http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 Qtzu11 http://blog.numino.net/ 参考 function SysUtils.ByteType SZo1Fk http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); M2pMZG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 57pdkV http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 4fdFh2 http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 1k1813 http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 rHRmHs http://blog.numino.net/ 参考 function SysUtils.ByteType IzC03Z http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 6SW71a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 67dXwW http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 17IDdp http://blog.numino.net/ 功能 返回双字节字符串的大写形式 wLE3CZ http://blog.numino.net/ 说明 WideChar双字节字符 Yqtc1z http://blog.numino.net/ 参考 function Windows.CharUpperBuffW 8yrkIr http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); 44KQY5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G3qK0v http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas yCoD26 http://blog.numino.net/ 功能 返回双字节字符串的小写形式 KYP9b5 http://blog.numino.net/ 说明 我怎么就测试不出来呢 dSmF4X http://blog.numino.net/ 参考 function Windows.CharLowerBuffW YH4BLL http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); 0DR0tq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QA1CGv http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; xQp32x http://blog.numino.net/ $[SysUtils.pas 2CzYOl http://blog.numino.net/ 功能 返回比较两个双字节字符串 0j3JLH http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 u3VVpX http://blog.numino.net/ 参考 function Windows.CompareStringW 116FZv http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); nIma81 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V0bKcR http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas Q38OFn http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 QWo6Mx http://blog.numino.net/ 说明 区分大小写 IId6HK http://blog.numino.net/ 参考 function SysUtils.WideCompareStr HCM6cX http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); m03OEn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CAsemg http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; I0whee http://blog.numino.net/ $[SysUtils.pas SXD99M http://blog.numino.net/ 功能 返回比较两个双字节字符串 mfguhJ http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 IujqXz http://blog.numino.net/ 参考 function Windows.CompareStringW hjUIxl http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); If0mR1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ylayh0 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 20LjBe http://blog.numino.net/ $[SysUtils.pas sL0nbS http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 37a941 http://blog.numino.net/ 说明 不区分大小写 pR91u9 http://blog.numino.net/ 参考 function SysUtils.WideCompareText 5Hu2ta http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); gekueo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Dgn3n7 http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas 7xruH9 http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; 4E0YDo http://blog.numino.net/ $[SysUtils.pas DUoxG0 http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 IDoEeb http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 7RQWFr http://blog.numino.net/ 参考 function System.Copy uEClIG http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); DJY0nJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yGbnFK http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas EVPoLw http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; 40H28t http://blog.numino.net/ $[SysUtils.pas SW1fNQ http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 871GrX http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 t5B7nw http://blog.numino.net/ 参考 function System.Copy Wa4Vvq http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); ryTKtp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Quxn9R http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas 3J3l2b http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; 7LCm8B http://blog.numino.net/ $[SysUtils.pas ZA1BU3 http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 lWY8jr http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 oOmgIc http://blog.numino.net/ 参考 function System.Copy ZytEzP http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); 6h9fdm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s8WS1x http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas OfquM6 http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 7y8UVO http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 3N2aY2 http://blog.numino.net/ 参考 procedure System.Insert 8313pk http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); R0eeT9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0MMB03 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; 0T1UV3 http://blog.numino.net/ $[SysUtils.pas RV3qQ2 http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 2rhzDr http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', wEhd00 http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' cNhwm5 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 5VK5aa http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); ssYwcD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6mckma http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; OljZO4 http://blog.numino.net/ $[SysUtils.pas R05eKj http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 CGL8P2 http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 ZBzR5m http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 9R9f9y http://blog.numino.net/ 例子 1ak0nr http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr 4l59Wy http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); NaLY01 http://blog.numino.net/ var c0opnr http://blog.numino.net/ P: PChar; 96dfE9 http://blog.numino.net/ begin a3JenR http://blog.numino.net/ P := PChar(Edit1.Text); ll8o7u http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); Z30sPI http://blog.numino.net/ Edit3.Text := P; Vd9Go2 http://blog.numino.net/ end; 8tKPnd http://blog.numino.net/ ///////End AnsiExtractQuotedStr N8m0rk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5N9NHP http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; F9xJaj http://blog.numino.net/ $[SysUtils.pas J6nA0i http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 f1xHDO http://blog.numino.net/ 说明 表现形式非法时则返回S 19J6aY http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr F04TJK http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); jd7h8O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L49VDr http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = yj5Ih2 http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): 4cLm49 http://blog.numino.net/ string; $[SysUtils.pas U72kBg http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 jF6jfK http://blog.numino.net/ 说明 GDE66a http://blog.numino.net/ AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10 Lf196C http://blog.numino.net/ 参考 function SysUtils.StrNextChar nYuNRn http://blog.numino.net/ 例子 <NULL> y8fxXr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mx49xO http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas r2g6p0 http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 fJZgDv http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... 7TnmSR http://blog.numino.net/ 参考 <NULL> 4PKfw0 http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 3d82TU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lsqT4T http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas y972e3 http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas cphkLB http://blog.numino.net/ 功能 返回整数Value转换成字符串 WVjs53 http://blog.numino.net/ 说明 Format('%d', [Value]) SurdAB http://blog.numino.net/ 参考 function SysUtils.FmtStr O5NOLn http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); vqds16 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pa7XP3 http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; IqCN0N http://blog.numino.net/ $[SysUtils.pas vvel8L http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; oCDxYs http://blog.numino.net/ $[SysUtils.pas 8qzOIr http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) IDabUE http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 6L0ew1 http://blog.numino.net/ 参考 function SysUtils.FmtStr eoIAmO http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); Ed4D0W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OPKLeD http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas bx4Nxn http://blog.numino.net/ 功能 返回字符串S转换成整数 23DQG4 http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 diXcms http://blog.numino.net/ 参考 procedure System.Val HzicMz http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); hHfuhV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z7Ug96 http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; iXwdwV http://blog.numino.net/ $[SysUtils.pas BeNCUi http://blog.numino.net/ 功能 返回字符串S转换成整数 3VHyfd http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default 10iZIF http://blog.numino.net/ 参考 procedure System.Val 45GXx8 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); G2MmGQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1ZqPQd http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; YInrh0 http://blog.numino.net/ $[SysUtils.pas L2X7a0 http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 i61TBH http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 vxreyT http://blog.numino.net/ 参考 procedure System.Val FG51J3 http://blog.numino.net/ 例子 Y2proh http://blog.numino.net/ ///////Begin TryStrToInt qVbmU8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Dswr91 http://blog.numino.net/ var h9fXHv http://blog.numino.net/ I: Integer; t4tZKC http://blog.numino.net/ begin vsAqd4 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); OSViXW http://blog.numino.net/ SpinEdit1.Value := I; 2LJ97E http://blog.numino.net/ end; 4X5qUP http://blog.numino.net/ ///////End TryStrToInt 6kEnHQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KQN702 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas 33sPNu http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 Ucu8Um http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 jc84SC http://blog.numino.net/ 参考 procedure System.Val w4Xjjv http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 86vxCY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EDXML2 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; a03odN http://blog.numino.net/ $[SysUtils.pas F2kl6g http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 xc5cqZ http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default 6S7D6V http://blog.numino.net/ 参考 procedure System.Val vREtBN http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); 4jOCTX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IKNCuU http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; orI5FI http://blog.numino.net/ $[SysUtils.pas W8mkl1 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 9O5LiE http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 mf3ZgP http://blog.numino.net/ 参考 procedure System.Val ie8dym http://blog.numino.net/ 例子 pZEeeB http://blog.numino.net/ ///////Begin TryStrToInt64 OfAxZX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); yl4kSP http://blog.numino.net/ var 6f8G01 http://blog.numino.net/ I: Int64; CaPmEK http://blog.numino.net/ begin Lpqmbz http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); WlvaGF http://blog.numino.net/ SpinEdit1.Value := I; 8cuswo http://blog.numino.net/ end; fNyRtR http://blog.numino.net/ ///////End TryStrToInt64 8yQQrb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ himjon http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas YltT22 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 kwSS5F http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 r0FqJ7 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 643ekp http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); 1LYikT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QHYByZ http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): ARwE1B http://blog.numino.net/ Boolean; $[SysUtils.pas LGnEO5 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 AWG8dP http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default vpw7Kj http://blog.numino.net/ 参考 function SysUtils.TryStrToBool MvWgS7 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); U6Xog4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4bMc3l http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; d7SkiM http://blog.numino.net/ $[SysUtils.pas J5mWLC http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 YtAu3J http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 8zr80A http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var U2xa2Z http://blog.numino.net/ SysUtils.FalseBoolStrs sDgJm5 http://blog.numino.net/ 例子 0BWbs6 http://blog.numino.net/ ///////Begin TryStrToBool o027Th http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); NNxFHR http://blog.numino.net/ var eS70Im http://blog.numino.net/ B: Boolean; v2b6sh http://blog.numino.net/ begin HENxD7 http://blog.numino.net/ SetLength(TrueBoolStrs, 2); DaK44d http://blog.numino.net/ SetLength(FalseBoolStrs, 2); R9hol1 http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 70IHzW http://blog.numino.net/ FalseBoolStrs[0] := 'False'; a8oXsL http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; Sgkr83 http://blog.numino.net/ FalseBoolStrs[1] := 'No'; wpuyE6 http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); l4JkM4 http://blog.numino.net/ CheckBox2.Checked := B; ycerM5 http://blog.numino.net/ end; OOg0U3 http://blog.numino.net/ ///////End TryStrToBool s6xL23 http://blog.numino.net/ 附加 pVn05M http://blog.numino.net/ ///////Begin TryStrToBool W5gkyd http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; ovmMnA http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; y4sBC2 http://blog.numino.net/ var h9Rh4Z http://blog.numino.net/ I: Integer; SUcU5g http://blog.numino.net/ begin kRwvik http://blog.numino.net/ Result := False; W65uYq http://blog.numino.net/ for I := Low(aArray) to High(aArray) do i9uIi8 http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then XA5Zic http://blog.numino.net/ begin Veh6Na http://blog.numino.net/ Result := True; IDP3d8 http://blog.numino.net/ Break; T80F56 http://blog.numino.net/ end; CAEeEU http://blog.numino.net/ end; 0u4d6J http://blog.numino.net/ var Y7I7No http://blog.numino.net/ LResult: Extended; Wmx512 http://blog.numino.net/ begin 2aWKPs http://blog.numino.net/ Result := TryStrToFloat(S, LResult); Zf1C6q http://blog.numino.net/ if Result then KV647d http://blog.numino.net/ Value := LResult <> 0 jlRhyk http://blog.numino.net/ else 0cWuJE http://blog.numino.net/ begin 2en8Vj http://blog.numino.net/ Result := True; //修正处 Q22ZQF http://blog.numino.net/ VerifyBoolStrArray; R8Todr http://blog.numino.net/ if CompareWith(TrueBoolStrs) then MTQLYG http://blog.numino.net/ Value := True rnhPLt http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then S3fHoA http://blog.numino.net/ Value := False drfdLd http://blog.numino.net/ else e99OtM http://blog.numino.net/ Result := False; z7Gbvr http://blog.numino.net/ end; 4wLB2Y http://blog.numino.net/ end; 21t6qy http://blog.numino.net/ ///////End TryStrToBool 4slLI1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W94MEN http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; EC2MEf http://blog.numino.net/ $[SysUtils.pas 94rboL http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 PzNUO3 http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' VZTS6f http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 5dR61C http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); ZRFmyI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kxNXAo http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 6Ouq1F http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 9dwe4R http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 M2icxD http://blog.numino.net/ 参考 function SysUtils.FindStringResource eScEFo http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); nr2poi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0LOQ3r http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): moXxYl http://blog.numino.net/ string; $[SysUtils.pas ogTf4r http://blog.numino.net/ 功能 返回格式化的字符串资源 xyqu3r http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 Ixo3jO http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 0GJ7IE http://blog.numino.net/ 例子 <NULL>; 8Qy0WI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4nSeWv http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 53yNkn http://blog.numino.net/ 功能 返回指针字符串的长度 p1DGnM http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 sG8JoL http://blog.numino.net/ 参考 <NULL> 16744F http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); L36Io5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RLE46Q http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas CBUIAW http://blog.numino.net/ 功能 返回指针字符串的结尾 drOXXw http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 lkqm7P http://blog.numino.net/ 参考 <NULL> 1n0C8w http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; TkJEF1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 56a8WG http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): 3Uch26 http://blog.numino.net/ PChar; $[SysUtils.pas 0GW2SR http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 Pw66aE http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s ukBWnN http://blog.numino.net/ 参考 function System.Move R3vYBs http://blog.numino.net/ 例子 Zu2n19 http://blog.numino.net/ ///////Begin StrMove Gvc0dV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); rDHaZc http://blog.numino.net/ var X72wa4 http://blog.numino.net/ vBuffer: PChar; RmN01H http://blog.numino.net/ begin yVyCcd http://blog.numino.net/ vBuffer := '0123456789'; 32PUvf http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); sxvs5a http://blog.numino.net/ Edit2.Text := vBuffer; q1JQaO http://blog.numino.net/ end; 0GWTN3 http://blog.numino.net/ ///////End StrMove eke2LS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Wiu9Ox http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; OQW46Y http://blog.numino.net/ $[SysUtils.pas b8t5mJ http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 bdAjU1 http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 p5j6a0 http://blog.numino.net/ 参考 <NULL> 0V6qa6 http://blog.numino.net/ 例子 7sY8wQ http://blog.numino.net/ ///////Begin StrCopy cdfs5H http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ly523R http://blog.numino.net/ var uq0MRm http://blog.numino.net/ vBuffer: PChar; ifvt1U http://blog.numino.net/ begin I0k5vp http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); Gy58da http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); cSSYej http://blog.numino.net/ Edit2.Text := vBuffer; 685t8t http://blog.numino.net/ FreeMem(vBuffer); 7Ynwa5 http://blog.numino.net/ end; kg19QD http://blog.numino.net/ ///////End StrCopy j35012 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1e5U67 http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; Vw3Q8Y http://blog.numino.net/ $[SysUtils.pas rQN0zR http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 dyPxTd http://blog.numino.net/ 说明 可以连接指针字符串 Q9fnyl http://blog.numino.net/ 参考 <NULL> AdeoCx http://blog.numino.net/ 例子 dpfLzd http://blog.numino.net/ ///////Begin StrECopy 7pv514 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); yqqOnY http://blog.numino.net/ var MW2u99 http://blog.numino.net/ vBuffer: array[0..255] of Char; 51TviD http://blog.numino.net/ begin c0zKS2 http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); IE7ajr http://blog.numino.net/ Edit3.Text := vBuffer; j80Tt1 http://blog.numino.net/ end; rcpTX0 http://blog.numino.net/ ///////End StrECopy eclh5D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Lrn0PQ http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): ecx1n8 http://blog.numino.net/ PChar; $[SysUtils.pas vc4I9U http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 h5NmzU http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 92CyQQ http://blog.numino.net/ 参考 <NULL> y0L0KF http://blog.numino.net/ 例子 vj4Thy http://blog.numino.net/ ///////Begin StrLCopy bb3L2f http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6fpVUB http://blog.numino.net/ var qTOpmv http://blog.numino.net/ vBuffer: array[0..255] of Char; aO7w5y http://blog.numino.net/ begin DkL2mh http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 3Z7Vsx http://blog.numino.net/ Edit2.Text := vBuffer; llwUS4 http://blog.numino.net/ end; 8R5EhB http://blog.numino.net/ ///////End StrLCopy 2c8N3v http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9yJbgg http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; PhciVb http://blog.numino.net/ $[SysUtils.pas E7WI00 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 uGu84o http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) b45VnH http://blog.numino.net/ 参考 function SysUtils.StrLCopy 3PRss0 http://blog.numino.net/ 例子 wsnvSa http://blog.numino.net/ ///////Begin StrPCopy sCirJr http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); r9Ef7Q http://blog.numino.net/ var OejgCU http://blog.numino.net/ vBuffer: array[0..255] of Char; 99X25Z http://blog.numino.net/ begin 5GXHxL http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); 9dVgzT http://blog.numino.net/ Edit2.Text := vBuffer; LArNMz http://blog.numino.net/ end; JIbrTv http://blog.numino.net/ ///////End StrPCopy rsMN8m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BBEOu1 http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Q8mAeE http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas omt1Yv http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 wPnn1U http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) yXWaKD http://blog.numino.net/ 参考 function SysUtils.StrLCopy A6vX8U http://blog.numino.net/ 例子 DiqMXx http://blog.numino.net/ ///////Begin StrPLCopy ZJXKm8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0h2Zrg http://blog.numino.net/ var DghTF2 http://blog.numino.net/ vBuffer: array[0..255] of Char; hluCHr http://blog.numino.net/ begin X7213d http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); Xoc5Br http://blog.numino.net/ Edit2.Text := vBuffer; CsLL2V http://blog.numino.net/ end; 84MWee http://blog.numino.net/ ///////End StrPLCopy zOCUyD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Kwg942 http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; 966uBy http://blog.numino.net/ $[SysUtils.pas L1Iuto http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source 2VWLgY http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) nb9LMp http://blog.numino.net/ 参考 function SysUntils.StrCopy AE95b8 http://blog.numino.net/ 例子 xcJWym http://blog.numino.net/ ///////Begin StrCat ybk9qI http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7Fia70 http://blog.numino.net/ var T9Bof2 http://blog.numino.net/ vBuffer: array[0..255] of Char; 1CbmEG http://blog.numino.net/ begin uZ78f3 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); oP933H http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); T77o6E http://blog.numino.net/ Edit3.Text := vBuffer; UByIMS http://blog.numino.net/ end; HWQSb4 http://blog.numino.net/ ///////End StrCat f9dSno http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XVHiDy http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 976CDh http://blog.numino.net/ PChar; $[SysUtils.pas t7fMx6 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source I2938Y http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 FnlrLT http://blog.numino.net/ 参考 <NULL> 3LSife http://blog.numino.net/ 例子 0XIP5l http://blog.numino.net/ ///////Begin StrLCat zLq411 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Sxfifr http://blog.numino.net/ var 54OPps http://blog.numino.net/ vBuffer: array[0..255] of Char; 0I296p http://blog.numino.net/ begin wIoP2g http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); Rs5k4K http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); WSZ2XV http://blog.numino.net/ Edit3.Text := vBuffer; k23cj7 http://blog.numino.net/ end; R0RG1p http://blog.numino.net/ ///////End StrLCat 8dUZ86 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KbCSix http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 424R20 http://blog.numino.net/ 功能 返回比较两个指针字符串 hWkWe7 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 dlsMo4 http://blog.numino.net/ 参考 <NULL> iNyFG3 http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); pS1hUV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f7VZX0 http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas U5BWmy http://blog.numino.net/ 功能 返回比较两个指针字符串 iDCe6d http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 K0y0xj http://blog.numino.net/ 参考 <NULL> ISoRo5 http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); m8excs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 306DGv http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; bQLoiv http://blog.numino.net/ $[SysUtils.pas umSg4D http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 Zck3dp http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 5mO6mI http://blog.numino.net/ 参考 <NULL> 2cnTIH http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SUi41O http://blog.numino.net/ SpinEdit2.Value) k20UQ7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b01xM2 http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; wcAFz5 http://blog.numino.net/ $[SysUtils.pas FiiHGU http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 pEROGz http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 9F2jSY http://blog.numino.net/ 参考 <NULL> hiC1C2 http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), FMKZ2N http://blog.numino.net/ SpinEdit2.Value) 23IGaG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zyKpjo http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas o7nJX3 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 ah9g45 http://blog.numino.net/ 说明 没有找到则返回空指针 W2URHo http://blog.numino.net/ 参考 <NULL> Aw5O3F http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); 800fbA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bv3wv9 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 6Mp1KZ http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 MzE108 http://blog.numino.net/ 说明 没有找到则返回空指针 jA1372 http://blog.numino.net/ 参考 <NULL> o17jtM http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); xc1Y7B http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hxtw73 http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas ZW8b3C http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 07yWgs http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' 93Ok8z http://blog.numino.net/ 参考 <NULL> 9Y14c1 http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); LQCzTo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3ezWdv http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas u1iee8 http://blog.numino.net/ 功能 返回指针字符串Str大写 te2Ji8 http://blog.numino.net/ 说明 非小写字符不处理 b0r0nA http://blog.numino.net/ 参考 <NULL> Hk79C3 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); BuxFHE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kb58F2 http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas uAuBkX http://blog.numino.net/ 功能 返回指针字符串Str小写 IXoBsR http://blog.numino.net/ 说明 非大写字符不处理 Lb40ez http://blog.numino.net/ 参考 <NULL> 9sOX13 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); 295dSi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ph081C http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas brt7Q6 http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 S4533t http://blog.numino.net/ 说明 也可以直接赋值 JnI9p5 http://blog.numino.net/ 参考 <NULL> hZA0Wd http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); CMQRzp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n4QbX7 http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas n4g425 http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 zIUUwb http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 xmUZFm http://blog.numino.net/ 参考 function System.GetMem p2gg0q http://blog.numino.net/ 例子 g8rAvq http://blog.numino.net/ ///////Begin StrAlloc aMVDWW http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hpO4Wo http://blog.numino.net/ var vGX1cP http://blog.numino.net/ P: PChar; 1x2Elq http://blog.numino.net/ begin PHzepd http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); kvufTm http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); EKmUzt http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); Q61pkF http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); h8kPRo http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); kjvA5E http://blog.numino.net/ StrDispose(P); YB42y9 http://blog.numino.net/ end; 6Fq82N http://blog.numino.net/ ///////End StrAlloc 2J4M6I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x3H65W http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas 4D7pgW http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 a4iXKQ http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 5RFdDE http://blog.numino.net/ 参考 function System.SizeOf wz6ERq http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); o3WP4P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4vxFVq http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 3HI8i2 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 Tv8HAL http://blog.numino.net/ 说明 如果Str为nil则返回nil mjXYlr http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function fmGGy1 http://blog.numino.net/ SysUtils.StrAlloc k1N2mZ http://blog.numino.net/ 例子 APCB48 http://blog.numino.net/ ///////Begin StrNew,StrDispose uV15gf http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); m32PS7 http://blog.numino.net/ var jdB018 http://blog.numino.net/ P: PChar; fB4BYN http://blog.numino.net/ begin QoYZQr http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); JJDU8C http://blog.numino.net/ ShowMessage(P); hdxYFT http://blog.numino.net/ StrDispose(P); RG5c0n http://blog.numino.net/ end; owwA9Q http://blog.numino.net/ ///////End StrNew,StrDispose 5XQ4aE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cbwuIT http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas 50ApvT http://blog.numino.net/ 功能 释放指针字符串Str内存资源 SsY78z http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 vlo51m http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem JJaexN http://blog.numino.net/ 例子 <参见StrNew> Zyp1E9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k0DYrk http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): cx9RGj http://blog.numino.net/ string; $[SysUtils.pas 6aHY7B http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 q3k9GI http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 QfEd2A http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 Fc8z9e http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 rHUGV1 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 kQeLvs http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 4Q88Rs http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 3phhHp http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 w0V0qK http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 DDH8Fr http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 xmS36F http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 K64zJY http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 3Fwyd5 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 8em88d http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" xZkpGd http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 RsAW08 http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr eM8wf9 http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); zK1FXC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aeBk0t http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: VJKy89 http://blog.numino.net/ array of const); $[SysUtils.pas vOy7Kk http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 OyXByq http://blog.numino.net/ 说明 <参见Format> Jzd4U4 http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function Ilw96H http://blog.numino.net/ System.SetLength Gx3wzx http://blog.numino.net/ 例子 <参见Format> qh4XG9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uK7Ui2 http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): uBKqq9 http://blog.numino.net/ PChar; $[SysUtils.pas Ui2d9n http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 u8CPLn http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil Au6Dsa http://blog.numino.net/ 参考 function SysUtils.FormatBuf F99SCn http://blog.numino.net/ 例子 <参见Format> v9RHM5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rVy5Q0 http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; d8M8B0 http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas FlUnNO http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 uwo8s0 http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; VwMvPz http://blog.numino.net/ 参考 function SysUtils.FormatBuf bRp2gh http://blog.numino.net/ 例子 <参见Format> 03YDu2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2DFewN http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: oq0G2i http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas s042l1 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 iQnh1J http://blog.numino.net/ 说明 <NULL> GRvB4T http://blog.numino.net/ 参考 <NULL> h52DpC http://blog.numino.net/ 例子 <参见Format> PAhqAf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uk586A http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of vOIHd7 http://blog.numino.net/ const): WideString; $[SysUtils.pas F5J6jQ http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 M1qF1m http://blog.numino.net/ 说明 <NULL> As3HyX http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr VB9GZi http://blog.numino.net/ 例子 <参见Format> SU025c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gtsVYu http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; XCixLB http://blog.numino.net/ const Args: array of const); $[SysUtils.pas 5etNH0 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 S4nt9k http://blog.numino.net/ 说明 <NULL> 9wOxXj http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf 27f5DE http://blog.numino.net/ 例子 <参见Format> 0D3uEl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 64c9b9 http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; HzlI9Z http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas dGO73k http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 dYL91u http://blog.numino.net/ 说明 <NULL> mZYF46 http://blog.numino.net/ 参考 <NULL> YCdPFt http://blog.numino.net/ 例子 <参见Format> 94yrTz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r5Ex93 http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 8RgaGu http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 1TzGN7 http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 Cr8465 http://blog.numino.net/ 参考 function SysUtils.FloatToText 92lhjq http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 3Yexo7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IfBE9U http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas oAY2pH http://blog.numino.net/ 功能 返回货币数Value转换成字符串 71IdfI http://blog.numino.net/ 说明 货币数只保留四位小数 QCP9Lc http://blog.numino.net/ 参考 function SysUtils.FloatToText Y8vCJz http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); vVxGBA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oGhht3 http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas WV8X4k http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 mCi0wr http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 T3Rr4P http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency In2f0Z http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); tAA4Qp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XQw0z1 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, kKn22a http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas 1K2DZJ http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 96NwZn http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 NEa1Qi http://blog.numino.net/ 参考 function SysUtils.FloatToText h5D3f9 http://blog.numino.net/ 例子 3VF567 http://blog.numino.net/ ///////Begin FloatToStrF qv30w5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Q6W4k2 http://blog.numino.net/ begin d8a9RZ http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, TBoVf4 http://blog.numino.net/ 0), WW398I http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); G1HD7m http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, PB9HOS http://blog.numino.net/ 0), PZKASd http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); 7Ydz2T http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), mV9ENn http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); a609dR http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, yq1p59 http://blog.numino.net/ 0), AL04yY http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); oFIVzR http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, uu3CKF http://blog.numino.net/ 0), BN9YV6 http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); 8TkACH http://blog.numino.net/ end; 3VT1JQ http://blog.numino.net/ ///////End FloatToStrF daTnNn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0kDi1k http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: 5Iza7A http://blog.numino.net/ Integer): string; $[SysUtils.pas YSe60u http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 3hU6Ah http://blog.numino.net/ 说明 Digits指定小数宽度 UDk92L http://blog.numino.net/ 参考 function SysUtils.FloatToText xcbtLk http://blog.numino.net/ 例子 DmLdNN http://blog.numino.net/ ///////Begin CurrToStrF F9qA0R http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); OWRRQj http://blog.numino.net/ begin Gs606Z http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), eIJdbt http://blog.numino.net/ ffGeneral, SpinEdit1.Value); t0Z4Ci http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, ntU729 http://blog.numino.net/ 0), veBwFH http://blog.numino.net/ ffExponent, SpinEdit1.Value); 3mSVrK http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 4Wcw9v http://blog.numino.net/ ffFixed, SpinEdit1.Value); D6e5pz http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ghm8z3 http://blog.numino.net/ ffNumber, SpinEdit1.Value); tZSJ5K http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, p0qgp1 http://blog.numino.net/ 0), 36HB3F http://blog.numino.net/ ffCurrency, SpinEdit1.Value); DsOxOp http://blog.numino.net/ end; 0pRI2o http://blog.numino.net/ ///////End CurrToStrF urt67G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y6jHeA http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: 7XvBcw http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; 3AB0aJ http://blog.numino.net/ $[SysUtils.pas uJTM7z http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 1Ba3Dy http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 51Um80 http://blog.numino.net/ 参考 <NULL> UheqDk http://blog.numino.net/ 例子 UqDKxf http://blog.numino.net/ ///////Begin FloatToText E65OuV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); y8AelT http://blog.numino.net/ var WXpyEf http://blog.numino.net/ vBuffer: array[0..255] of Char; 5015t9 http://blog.numino.net/ E: Extended; fI4iWp http://blog.numino.net/ begin AR9xSE http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); RtYdaT http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, Dp4oMw http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); tW0MAj http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); nCJt7j http://blog.numino.net/ end; ByPz6V http://blog.numino.net/ ///////End FloatToText( 31Oy5l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tZDPuT http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; Uvzaj9 http://blog.numino.net/ $[SysUtils.pas xyARm0 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 8QB2hZ http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' rKY3OI http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt izVNMD http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); XuMYYm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y15Ksa http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; CU9l3V http://blog.numino.net/ $[SysUtils.pas Lh6v5j http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 clw7mJ http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' I8VaGM http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 7jRZLG http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); HQv3QE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 82MFhG http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 4wMXmj http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas KPr9Zr http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 a0rnWP http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 maXpkD http://blog.numino.net/ 参考 <NULL> G1ZzGq http://blog.numino.net/ 例子 7IKSec http://blog.numino.net/ ///////Begin FloatToTextFmt ULI1V9 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); o0G9Yd http://blog.numino.net/ var eKFH2G http://blog.numino.net/ vBuffer: array[0..255] of Char; 1GZZiB http://blog.numino.net/ E: Extended; o2zOR9 http://blog.numino.net/ begin KjrIhd http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); YjjBZd http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, mge25z http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); 3tMw9j http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); 5D8062 http://blog.numino.net/ end; Wox52b http://blog.numino.net/ ///////End FloatToTextFmt MFTI2K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L8O5hS http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas 7XdBQN http://blog.numino.net/ 功能 返回字符串S转换成浮点数 qJUmGc http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 4LK9wN http://blog.numino.net/ 参考 function SysUtils.TextToFloat Fg5N1W http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; b7N6eI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f6q0va http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): 61D5fA http://blog.numino.net/ Extended; $[SysUtils.pas lqOAfA http://blog.numino.net/ 功能 返回字符串S转换成浮点数 P9jV2G http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default 23S697 http://blog.numino.net/ 参考 function SysUtils.TextToFloat JO320c http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; wPtVam http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B28Vd4 http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; OMAV19 http://blog.numino.net/ overload; $[SysUtils.pas e6TPx6 http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; 8ENPBQ http://blog.numino.net/ overload; $[SysUtils.pas gXDEIS http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; L5cqyX http://blog.numino.net/ overload; $[SysUtils.pas df44e3 http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 zJRBD7 http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 6V673w http://blog.numino.net/ 参考 function SysUtils.TextToFloat 5S0IEW http://blog.numino.net/ 例子 YtQPef http://blog.numino.net/ ///////Begin TryStrToFloat ChafTB http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0y4TDr http://blog.numino.net/ var rDS04Z http://blog.numino.net/ E: Extended; j23y4Y http://blog.numino.net/ begin R1ERJp http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 811eTX http://blog.numino.net/ Edit2.Text := FormatFloat('', E); IxQjuW http://blog.numino.net/ end; 5fz2VQ http://blog.numino.net/ ///////End TryStrToFloat vG2IHn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7KygTs http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas lsV4cy http://blog.numino.net/ 功能 返回字符串S转换成货币数 Gf5mvO http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 WC0L7R http://blog.numino.net/ 参考 function SysUtils.TextToFloat A2MkBG http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 30XD5g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hG7TN6 http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): AHXWZu http://blog.numino.net/ Currency; $[SysUtils.pas PPc6T5 http://blog.numino.net/ 功能 返回字符串S转换成货币数 vAuKxT http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default wQpleM http://blog.numino.net/ 参考 function SysUtils.TextToFloat D137hy http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; T3kvV8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cS481A http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; xmHgH6 http://blog.numino.net/ $[SysUtils.pas kTPWGj http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 zWfz7s http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 RUYOu6 http://blog.numino.net/ 参考 function SysUtils.TextToFloat p0wmL6 http://blog.numino.net/ 例子 U1vJyq http://blog.numino.net/ ///////Begin TryStrToCurr F0wk34 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); J3yx6g http://blog.numino.net/ var 20GzxW http://blog.numino.net/ C: Currency; V9H42Y http://blog.numino.net/ begin 714A3R http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); QkI2Lx http://blog.numino.net/ Edit2.Text := FormatCurr('', C); 10BwSB http://blog.numino.net/ end; PoWNUP http://blog.numino.net/ ///////End TryStrToCurr Le251S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Lep4hH http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): CsfKyB http://blog.numino.net/ Boolean; $[SysUtils.pas Au4Vkl http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value NOP6SU http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 xBy0s8 http://blog.numino.net/ 参考 <NULL> Uz2234 http://blog.numino.net/ 例子 0TMxsi http://blog.numino.net/ ///////Begin TextToFloat 1pd7mh http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6OtnGn http://blog.numino.net/ var D25I3F http://blog.numino.net/ E: Extended; 2ZiE9h http://blog.numino.net/ begin 7h5jFl http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, vuui8j http://blog.numino.net/ fvExtended); 6Ac3JV http://blog.numino.net/ Edit2.Text := FormatFloat('', E); DUX52k http://blog.numino.net/ end; m9whPQ http://blog.numino.net/ ///////End TextToFloat 3X8zCw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MB1m9g http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 7R0K4J http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 rsIJN2 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 iOP4Kb http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat 5Yiihg http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); UE60tt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nbDgnd http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas Q9Qo2a http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 je41Dq http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 3xf5C0 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat Q59s62 http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); n6RiGs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bASU4j http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; frkPaK http://blog.numino.net/ $[SysUtils.pas PXDimc http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 q5VgPq http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 0ZKFc3 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString jo5w0e http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); T63S8S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n1BD6E http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 2RIR4h http://blog.numino.net/ 功能 返回字符串S转换成日期 pArFV5 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 KSDUd5 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate dkS7wT http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); 884tV4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0VHRBz http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): 4LUdlV http://blog.numino.net/ TDateTime; $[SysUtils.pas 6suZzz http://blog.numino.net/ 功能 返回字符串S转换成日期 yA6xUm http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default Pyvs2d http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 0xuCR5 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); C3oFyO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 75XCOT http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; OqHP01 http://blog.numino.net/ $[SysUtils.pas 74id0m http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 O06amr http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 dWdmeY http://blog.numino.net/ 参考 <NULL> jHG1C4 http://blog.numino.net/ 例子 l9CjKM http://blog.numino.net/ ///////Begin TryStrToDate aW3jxJ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); L987oa http://blog.numino.net/ var JNGls8 http://blog.numino.net/ vDateTime: TDateTime; 1lSMIL http://blog.numino.net/ begin pRsush http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); nywzI1 http://blog.numino.net/ DateTimePicker1.Date := vDateTime; 4rHQPO http://blog.numino.net/ end; NcDDIa http://blog.numino.net/ ///////End TryStrToDate iL0Xl1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H9sReA http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 93CkVl http://blog.numino.net/ 功能 返回字符串S转换成时间 xT8KTO http://blog.numino.net/ 说明 字符非时间表达时将引起异常 zhS1VN http://blog.numino.net/ 参考 function SysUtils.TryStrToTime N1q2H2 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 01A6P8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PtWXos http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): XO0Ui6 http://blog.numino.net/ TDateTime; $[SysUtils.pas UVta1P http://blog.numino.net/ 功能 返回字符串S转换成时间 CSX5nZ http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default lgod57 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime TZAX6V http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); B50LsI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b6vZ53 http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; s2m5CL http://blog.numino.net/ $[SysUtils.pas ESeQ63 http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 64UVLf http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 TVoapm http://blog.numino.net/ 参考 <NULL> x020i1 http://blog.numino.net/ 例子 h4vdA4 http://blog.numino.net/ ///////Begin TryStrToTime 4vQ876 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); E523N8 http://blog.numino.net/ var eWJ90d http://blog.numino.net/ vDateTime: TDateTime; 54pKUU http://blog.numino.net/ begin 28KAoU http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 0l37tx http://blog.numino.net/ DateTimePicker1.Time := vDateTime; VYGTL9 http://blog.numino.net/ end; KwI6pz http://blog.numino.net/ ///////End TryStrToTime G4p2At http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MoyZBN http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas xh931q http://blog.numino.net/ 功能 返回字符串S转换成日期时间 598M6L http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 bjZ4r7 http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime f9ru3P http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); DlF78b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fu0fxQ http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): 845taw http://blog.numino.net/ TDateTime; $[SysUtils.pas oFQ9pQ http://blog.numino.net/ 功能 返回字符串S转换成日期时间 HbLxbb http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default 7w8MWS http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime cB3WLk http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); mM38tG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UjK4j8 http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): 1ajuut http://blog.numino.net/ Boolean; $[SysUtils.pas 27WyoB http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 52jGHF http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 xh4D16 http://blog.numino.net/ 参考 <NULL> PRCdvR http://blog.numino.net/ 例子 4cMh5i http://blog.numino.net/ ///////Begin TryStrToDateTime N8iygd http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); G3O9nB http://blog.numino.net/ var E4A5ZU http://blog.numino.net/ vDateTime: TDateTime; 6LslFl http://blog.numino.net/ begin ja8qjG http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 5Eb7Zl http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); pJW8Az http://blog.numino.net/ end; Avawew http://blog.numino.net/ ///////End TryStrToDateTime IBrPeL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DsdX2Z http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; ZqOj9V http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas KnG73N http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 L3i8gT http://blog.numino.net/ 说明 <参见FormatDateTime> EGf2lR http://blog.numino.net/ 参考 function System.SetString h8U0x5 http://blog.numino.net/ 例子 <参见FormatDateTime> xi9FAS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KnJs48 http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: PEck33 http://blog.numino.net/ string): string; platform; $[SysUtils.pas MQJ274 http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 z6W51W http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' J3oyPa http://blog.numino.net/ 参考 function Windows.GetLocaleInfo 1qGtZs http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); 6Bh7oo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L26B2s http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Tn4k3W http://blog.numino.net/ Char; platform; $[SysUtils.pas 9geP9N http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 fqKM9y http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' 4d4atW http://blog.numino.net/ 参考 function Windows.GetLocaleInfo t33u40 http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); X82LLA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rs88ET http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; K0694y http://blog.numino.net/ $[SysUtils.pas 0k8kSB http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 Zb8xg5 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) pesjeC http://blog.numino.net/ 参考 var SysUtils.SysLocale KsEUiP http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); oW16BU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ erq6q4 http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 020S9O http://blog.numino.net/ $[SysUtils.pas OPMTFX http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 c0sZL1 http://blog.numino.net/ 说明 Index从0开始 K2ztqC http://blog.numino.net/ 参考 var SysUtils.SysLocale AHH3n4 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), sPtS34 http://blog.numino.net/ SpinEdit2.Value)); OrHd0o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bLHF8X http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; gXZ6dC http://blog.numino.net/ $[SysUtils.pas Me7pyZ http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 g1gI6G http://blog.numino.net/ 说明 MaxLen指定处理字符个数 n61ZHc http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex AsuaAm http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); ly9AvX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Lg7Q97 http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; T5lxuf http://blog.numino.net/ $[SysUtils.pas Q3YTk3 http://blog.numino.net/ 功能 返回字符串S中有多少个字符 03waNX http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 m6Pr4O http://blog.numino.net/ 参考 var SysUtils.SysLocale 84aYHh http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 1CifkB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Qe70Rt http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; Q6CZJ4 http://blog.numino.net/ $[SysUtils.pas p3va8L http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 sTjZ9Q http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 xVTP5V http://blog.numino.net/ 参考 function SysUtils.NextCharIndex ileFEV http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); jmsUT0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DnEmVB http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; 5vNgXJ http://blog.numino.net/ $[SysUtils.pas nK93i3 http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 JeTinC http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 GKTVt0 http://blog.numino.net/ 参考 function System.Length Iz075W http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 6MdBYT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Dm5Pk4 http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas c9utX3 http://blog.numino.net/ 功能 返回第一个字符的宽度 Xl9nGb http://blog.numino.net/ 说明 参数为空则返回0 xjohVA http://blog.numino.net/ 参考 function Windows.CharNext uZP68a http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); iPp8da http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E4UgNR http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 0445He http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 I0tnkd http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; eBhKup http://blog.numino.net/ 参考 function Windows.CharNext 61V40S http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); SkK72J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hfWiEw http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; ge7iW3 http://blog.numino.net/ $[SysUtils.pas Yxi6NZ http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 1hfVvK http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 Uey56t http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 01lgKY http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); Ivp363 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6KemzM http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; swMjsn http://blog.numino.net/ $[SysUtils.pas HQJOi4 http://blog.numino.net/ 功能 返回下一个字符的位置 oxZITq http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 c88U3X http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength LQAXFP http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); U35FZ7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SARX0p http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; sR07h8 http://blog.numino.net/ $[SysUtils.pas EOT8SB http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 C8jJme http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True 72jB2K http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType 6zlCTP http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); KY69qW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e8MDGp http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): 9V3Y7f http://blog.numino.net/ Boolean; $[SysUtils.pas Gm28c9 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 7RBq0V http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True X7BlCw http://blog.numino.net/ 参考 function SysUtils.ByteType V9vOD8 http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, HXpx8a http://blog.numino.net/ SpinEdit1.Value); pH0f2b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 83l27Q http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; 7vrlRm http://blog.numino.net/ $[SysUtils.pas C6W00P http://blog.numino.net/ 功能 返回包括最后路径分隔符 UldO24 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 o6SiB8 http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length C0QfuB http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); XJKQ14 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rGA341 http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; cVMKR1 http://blog.numino.net/ $[SysUtils.pas cP2K4s http://blog.numino.net/ 功能 返回包括最后斜线 MngXF9 http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 4QFPeh http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter eGFKKz http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); sW0r4e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VNdHUF http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; KA9LM6 http://blog.numino.net/ $[SysUtils.pas 1qIJ2s http://blog.numino.net/ 功能 返回排除最后路径分隔符 h8s8mD http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 S6RHBh http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function UVNqgY http://blog.numino.net/ System.SetLength ygbuLE http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); qfmNMm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QAH3eE http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; S2U570 http://blog.numino.net/ $[SysUtils.pas p1OqH2 http://blog.numino.net/ 功能 返回排除最后斜线 6xMG6E http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) e3nP9c http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter M18tdy http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); 5hl2MN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ej21k1 http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; dvU308 http://blog.numino.net/ $[SysUtils.pas DFSQAH http://blog.numino.net/ 功能 返回最后一个分隔符的位置 AlZA8Y http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 sQe675 http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType ML15QT http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); h6fc8G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6k5kEB http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; d09MtI http://blog.numino.net/ $[SysUtils.pas 0aR737 http://blog.numino.net/ 功能 返回比较两个文件名 EWXRiE http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 h4MiR7 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr mdl1w6 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); FCnrs1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 94quAo http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas 8M8ro1 http://blog.numino.net/ 功能 返回两个文件名是否相等 MPLkM8 http://blog.numino.net/ 说明 区分大小写 xzWztj http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName i8pGxc http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); VEdb0d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B671aE http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas y9E5d6 http://blog.numino.net/ 功能 返回小写文件名 gpdswQ http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase mVoJNP http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase VeW8eY http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); oF9u4T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qJcrAs http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas H1ZgYj http://blog.numino.net/ 功能 返回大写文件名 1vFp0J http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 6fGw1q http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase xVW8fR http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); OGLb2n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Yalmps http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas c1KiJC http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 5VxAIq http://blog.numino.net/ 说明 不存在则返回0 qld1gj http://blog.numino.net/ 参考 SysUtils.AnsiStrPos Aj6gB5 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); imr5wK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dda1SC http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 1Yc2yS http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 962TRz http://blog.numino.net/ 说明 不存在则返回nil L6mEuv http://blog.numino.net/ 参考 function SysUtils.StrByteType z9T8Qk http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); m0QK2e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0ax9ZW http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas ZT9y2m http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 m60Z8A http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' 4F6TCR http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 2t97Q9 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 2K0hF1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vZGR6c http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 3C1kUg http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 dZ4WRF http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 5tv5gg http://blog.numino.net/ 参考 function SysUtils.StrScan X6E3B5 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); Uiax2G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TpgUod http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: 344Jnl http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas sC3N1U http://blog.numino.net/ 功能 返回替换后的字符串 T6szZU http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 2NE7w8 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function A3hq4m http://blog.numino.net/ System.Copy vlQib7 http://blog.numino.net/ 例子 oW60s5 http://blog.numino.net/ ///////Begin StringReplace ZkvRR8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3i1u82 http://blog.numino.net/ begin 5bdIWt http://blog.numino.net/ Memo1.Lines.Values['[]'] := QQZGg8 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); 38Y241 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := Qww6NW http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); pJ8rVC http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := KRl0vw http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); mZzfYH http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := 7KftI1 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, V6klVj http://blog.numino.net/ rfIgnoreCase]); W66jCs http://blog.numino.net/ end; 2hz56A http://blog.numino.net/ ///////End StringReplace pr5cVx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ udKVu5 http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas x8e9du http://blog.numino.net/ 功能 返回字符串S转换成全局标识 Uu1PKU http://blog.numino.net/ 说明 如果字符串非法将触发异常 A9bRK5 http://blog.numino.net/ 参考 fuction Windows.Succeeded 0CMDj4 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 15CPQa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b2pfrF http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas qCNSwu http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 C0l1LI http://blog.numino.net/ 说明 <NULL> WYqF8O http://blog.numino.net/ 参考 fuction Windows.Succeeded PIQgoC http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); bAltwc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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