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

Delphi字符串函数大全 【字符串函数大全】 qF1klF http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; g7Gyh8 http://blog.numino.net/ $[StrUtils.pas V5wm0x http://blog.numino.net/ 功能 返回两个字符串是否相似 e3yYPh http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 EljzT4 http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc X48yxi http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 160Og0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ODwf40 http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; dQsP9s http://blog.numino.net/ $[StrUtils.pas XL20Y0 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText DkXMEa http://blog.numino.net/ 说明 不区分大小写 NC1CLi http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 9CzKD8 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 8eEszm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LZ473W http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; FO122p http://blog.numino.net/ $[StrUtils.pas aUe1Sg http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 7934mz http://blog.numino.net/ 说明 不区分大小写 BJfvD4 http://blog.numino.net/ 参考 function Windows.CompareString FMoNx1 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); fshKV5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q8QUem http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 2Dl9r9 http://blog.numino.net/ $[StrUtils.pas fKW1se http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 CjUDlB http://blog.numino.net/ 说明 不区分大小写 s7Tbme http://blog.numino.net/ 参考 function Windows.CompareString SI5QIt http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); BxG0e0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t70xGy http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): CUR15c http://blog.numino.net/ string; $[StrUtils.pas JY7m11 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 acEV3Y http://blog.numino.net/ 说明 不区分大小写 3ef438 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags lajE3r http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); 71d2ou http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 28x9b6 http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of tl8v5a http://blog.numino.net/ string): Boolean; $[StrUtils.pas 9pB8SF http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText G5bG6v http://blog.numino.net/ 说明 不区分大小写 yaRfnI http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText F2EGc0 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', mre450 http://blog.numino.net/ 'a4']); 8dqqlV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YJJ7HJ http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of Z24o1f http://blog.numino.net/ string): Integer; $[StrUtils.pas gfuRm0 http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 gqe8cn http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 a9kgh6 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText acGIxU http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); SV5ZFI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ orWHGS http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 7L0Ll1 http://blog.numino.net/ $[StrUtils.pas xB0eKU http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText 45wD1Y http://blog.numino.net/ 说明 区分大小写 XZ7lRT http://blog.numino.net/ 参考 function StrUtils.AnsiPos qjFK81 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); G7ctAH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IUUR1u http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; Thv22U http://blog.numino.net/ $[StrUtils.pas Pc19wd http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 wgPkUr http://blog.numino.net/ 说明 区分大小写 8f7bNZ http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr hF4a3d http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); qx73nj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Kc4856 http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; Ojq0EV http://blog.numino.net/ $[StrUtils.pas f81NB9 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 6V1KgL http://blog.numino.net/ 说明 区分大小写 upBRTN http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr WIBmd0 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); jKAQVC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kxmZJm http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): fd9xKk http://blog.numino.net/ string; $[StrUtils.pas 12p9kp http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 9WUMcE http://blog.numino.net/ 说明 区分大小写 kZW6Su http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags Gc4QfU http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); n47Qzz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p6pnB7 http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of 2960yI http://blog.numino.net/ string): Boolean; $[StrUtils.pas 9EHx5y http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText TpfAcm http://blog.numino.net/ 说明 区分大小写 1QiQEH http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr t1uN5j http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', WfY51L http://blog.numino.net/ 'a4']); 41GFjx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 74j9q6 http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of 0yfyqz http://blog.numino.net/ string): Integer; $[StrUtils.pas a5G4KX http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 5G5cAU http://blog.numino.net/ 说明 区分大小写 13qmyn http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 5drK0Y http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 81X8o6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UtM77H http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; XBZNu1 http://blog.numino.net/ $[StrUtils.pas Qw83G9 http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 aPGoD4 http://blog.numino.net/ 说明 当ACount为0时返回'' 08tpxa http://blog.numino.net/ 参考 function System.SetLength SjbY16 http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); vMj1t4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gEmBvb http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas PAZDJw http://blog.numino.net/ 功能 返回字符串AText的反序 ZjYdfc http://blog.numino.net/ 说明 ReverseString('1234') = '4321' R5STop http://blog.numino.net/ 参考 function System.SetLength Y264Nk http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); 396pqK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N5WQtL http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; l4P4O1 http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas wfWwvq http://blog.numino.net/ 功能 返回嵌套字符串 Wg10lb http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' Bvn5Fx http://blog.numino.net/ 参考 function System.Copy pDOED5 http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, iw8dP2 http://blog.numino.net/ Edit2.Text); t9Hlj0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QPIrUq http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; KjWcnn http://blog.numino.net/ $[StrUtils.pas kMC1m4 http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 dtL9Gy http://blog.numino.net/ 说明 之前建议执行Randomize Wl19vl http://blog.numino.net/ 参考 function System.Random 9h31Es http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); 4AxLA9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w4c6Y3 http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = d4l6ka http://blog.numino.net/ ''): string; overload; $[StrUtils.pas nlBm3d http://blog.numino.net/ 功能 返回指定的逻辑字符串 fDXzZ5 http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' U3UVCa http://blog.numino.net/ 参考 <NULL> cihNy0 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); rpOl63 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T2hTc7 http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; x158KP http://blog.numino.net/ $[StrUtils.pas l2bwm4 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 9NG9VX http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' nG08aO http://blog.numino.net/ 参考 function System.Copy 9v8qVn http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); J4QR7J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5n7HPV http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; dcnYmW http://blog.numino.net/ $[StrUtils.pas 2eb98E http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 9S8G9K http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' ZZzQ49 http://blog.numino.net/ 参考 function System.Copy 0nxEZx http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); Js4YhJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4f4821 http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): t239F1 http://blog.numino.net/ string; $[StrUtils.pas FjVsMI http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 dcIPgc http://blog.numino.net/ 说明 其实就是Copy 3ZS2cq http://blog.numino.net/ 参考 function System.Copy N3URg0 http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); mUYbpE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UBJRN3 http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: cFO77N http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): ZRr7xK http://blog.numino.net/ PChar; $[StrUtils.pas Wrkvs5 http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 623s2h http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 ox6ci7 http://blog.numino.net/ 参考 <NULL> xa51F7 http://blog.numino.net/ 例子 4mlc3j http://blog.numino.net/ ///////Begin SearchBuf Qyp9ak http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; MYrgb7 http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; CVWAyi http://blog.numino.net/ var WSA7mj http://blog.numino.net/ Buffer, P: PChar; D9W8cY http://blog.numino.net/ Size: Word; i6Gk1Y http://blog.numino.net/ begin FpLJDw http://blog.numino.net/ Result := False; k9BXv9 http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; Bo9jaK http://blog.numino.net/ Size := EditControl.GetTextLen; TJHqQE http://blog.numino.net/ if (Size = 0) then Exit; 6t1cEi http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 8eoPqa http://blog.numino.net/ try CM6PZL http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); mVeG1f http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, BEP9rH http://blog.numino.net/ SearchString, SearchOptions); TWr9gA http://blog.numino.net/ if P <> nil then begin SJP6xu http://blog.numino.net/ EditControl.SelStart := P - Buffer; q4GE4i http://blog.numino.net/ EditControl.SelLength := Length(SearchString); nN7YUZ http://blog.numino.net/ Result := True; 2qGLvN http://blog.numino.net/ end; kTBUD5 http://blog.numino.net/ finally V4QJqd http://blog.numino.net/ StrDispose(Buffer); eXep1N http://blog.numino.net/ end; f74n21 http://blog.numino.net/ end; 0pf94i http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); KRUJR5 http://blog.numino.net/ var eS6Sox http://blog.numino.net/ SearchOptions: TStringSearchOptions; Is3g9i http://blog.numino.net/ begin Ubhjd1 http://blog.numino.net/ SearchOptions := []; bdWG7a http://blog.numino.net/ if CheckBox1.Checked then 3CBn0F http://blog.numino.net/ Include(SearchOptions, soDown); PAm4Xl http://blog.numino.net/ if CheckBox2.Checked then 8oz1pM http://blog.numino.net/ Include(SearchOptions, soMatchCase); QN7434 http://blog.numino.net/ if CheckBox3.Checked then wvXlcX http://blog.numino.net/ Include(SearchOptions, soWholeWord); 3pxY11 http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); m7L0nk http://blog.numino.net/ Memo1.SetFocus; vt0laH http://blog.numino.net/ end; 7dOfie http://blog.numino.net/ ///////End SearchBuf td6t0A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ avIWSd http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): cK3l0l http://blog.numino.net/ string; $[StrUtils.pas Y6DHJR http://blog.numino.net/ 功能 返回探测字符串 Zl0NUg http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html ZR99d1 http://blog.numino.net/ 参考 <NULL> WkyvEN http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); U3mpxC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D06y34 http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = Q271y0 http://blog.numino.net/ 4): Integer; $[StrUtils.pas 32nGMh http://blog.numino.net/ 功能 返回探测整数 wYf7mH http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 yDcvPv http://blog.numino.net/ 参考 <NULL> J02H4G http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); U2nN5W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6WO41G http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas TuGVPb http://blog.numino.net/ 功能 返回探测整数的解码 Ce7u1k http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') IcG3yd http://blog.numino.net/ 参考 <NULL> M3ytKw http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); s7wjI0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f58OJT http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas Hw9lBN http://blog.numino.net/ 功能 返回探测文字数值 Nwh10i http://blog.numino.net/ 说明 没有参数ALength已经固定为4 71Zy18 http://blog.numino.net/ 参考 <NULL> JzM759 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); O7j6pr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CZczav http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas d63u2E http://blog.numino.net/ 功能 返回探测文字数值的解码 AN1c8a http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') WWi2Ru http://blog.numino.net/ 参考 <NULL> uziGd6 http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 4LFq73 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1zFE2X http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: mmb62g http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas B0YCRj http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 Db2zOT http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) IYPI59 http://blog.numino.net/ 参考 <NULL> GjvBpE http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 0BVc1w http://blog.numino.net/ SpinEdit1.Value); d7dRqU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RA58SE http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: m9B3cA http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas YtxX59 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 PMcTmw http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, gUwkH8 http://blog.numino.net/ ALength)) NUHanb http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr Es2Rnm http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, Xi6o8Z http://blog.numino.net/ SpinEdit1.Value); zN22Qo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nklrv7 http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; oyVwF5 http://blog.numino.net/ $[StrUtils.pas S1ab7S http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 rWnksX http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 ijXowu http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText qIIK14 http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] ov2vku http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 52j1K5 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas X25zPM http://blog.numino.net/ 功能 返回一个新的字符串指针地址 V5u5tt http://blog.numino.net/ 说明 字符串S为空时返回NullStr q9msor http://blog.numino.net/ 参考 procedure System.New iNPXyb http://blog.numino.net/ 例子 qWy9D8 http://blog.numino.net/ ////////Begin NewStr,DisposeStr OSPxX6 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); sj85Wy http://blog.numino.net/ var 4OfCyg http://blog.numino.net/ P: PString; UThmyi http://blog.numino.net/ begin sIYckz http://blog.numino.net/ P := NewStr(Edit1.Text); 5767Xn http://blog.numino.net/ Edit2.Text := P^; Dh9l55 http://blog.numino.net/ DisposeStr(P); kQp0rH http://blog.numino.net/ end; vwCVwA http://blog.numino.net/ ////////End NewStr,DisposeStr Lqfmpb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n2x5lI http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas Y0iJoF http://blog.numino.net/ 功能 释放字符串指针P资源 Gfak5t http://blog.numino.net/ 说明 配合函数NewStr使用 X8Y2oV http://blog.numino.net/ 参考 procedure System.Dispose 0vg1ma http://blog.numino.net/ 例子 <如上参见,如下参见> r9SmG8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9GHler http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; X6evG1 http://blog.numino.net/ $[SysUtils.pas 62biez http://blog.numino.net/ 功能 将字符串S更新给字符串指针P B7M9ff http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 0DHnck http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr EHMt8p http://blog.numino.net/ 例子 yFy0Xd http://blog.numino.net/ ////////Begin AssignStr IoxGCt http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3v9xjc http://blog.numino.net/ var G9utvv http://blog.numino.net/ P: PString; ne0Oau http://blog.numino.net/ begin EM0o8b http://blog.numino.net/ P := nil; I4cDmy http://blog.numino.net/ AssignStr(P, Edit1.Text); b06too http://blog.numino.net/ Edit2.Text := P^; VcaELv http://blog.numino.net/ DisposeStr(P); 19M0l0 http://blog.numino.net/ end; 2dkF4n http://blog.numino.net/ ////////End AssignStr 01w5cl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ my4uO0 http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; oDw8y7 http://blog.numino.net/ $[SysUtils.pas W55lgv http://blog.numino.net/ 功能 在字符串Dest后追加字符串S Ohtkv3 http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 CDSJVr http://blog.numino.net/ 参考 <NULL> XthLRp http://blog.numino.net/ 例子 Hsy3AY http://blog.numino.net/ ////////Begin AppendStr izEZK6 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JM8vFi http://blog.numino.net/ var XqPkay http://blog.numino.net/ S: string; En4klq http://blog.numino.net/ begin SYCV8P http://blog.numino.net/ S := Edit2.Text; 7OmZRV http://blog.numino.net/ AppendStr(S, Edit1.Text); z65O6R http://blog.numino.net/ Edit2.Text := S; x3M6fJ http://blog.numino.net/ end; 6Eeg9O http://blog.numino.net/ ////////End AppendStr ksa4ry http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DbKeF9 http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas YX8a2V http://blog.numino.net/ 功能 返回字符串S的大写形式 LMUG4m http://blog.numino.net/ 说明 非小写字符不处理 uJwH33 http://blog.numino.net/ 参考 procedure System.SetLength gKtnB0 http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); XyLOi6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2A0LQ6 http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas uv3JDd http://blog.numino.net/ 功能 返回字符串S的小写形式 OqA1lK http://blog.numino.net/ 说明 非大写字符不处理 xZ976U http://blog.numino.net/ 参考 procedure System.SetLength Xe8702 http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); p0ImZV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gGpsHu http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas 4teAS0 http://blog.numino.net/ 功能 返回比较两个字符 5hmV2S http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 ya58XZ http://blog.numino.net/ 参考 <NULL> b4G5rh http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); 1v5x6J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ co7J1u http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; N45qfc http://blog.numino.net/ assembler; $[SysUtils.pas 554P75 http://blog.numino.net/ 功能 返回比较两个内存指针 Ma3oGT http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), p1J0qU http://blog.numino.net/ PChar('12c'), 3)=False z8Gl1i http://blog.numino.net/ 参考 <NULL> dbt0kx http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); xl0cbW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 46ayz8 http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas v957re http://blog.numino.net/ 功能 返回比较两个字符串 GItqkH http://blog.numino.net/ 说明 不区分大小写 53ipEr http://blog.numino.net/ 参考 <NULL> T4G0L5 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 6r93mu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9I7os6 http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas jXFzrk http://blog.numino.net/ 功能 返回两个字符串是否相等 3cpCdc http://blog.numino.net/ 说明 不区分大小写 7atASP http://blog.numino.net/ 参考 <NULL> pY3wpk http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); M18b0Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PrnuDC http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas Fykl67 http://blog.numino.net/ 功能 返回字符串S的大写形式 vH195H http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 DhO4gX http://blog.numino.net/ 参考 function Windows.CharUpperBuff 3Pv799 http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); Ssfgh4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jCXK59 http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas fOnwXE http://blog.numino.net/ 功能 返回字符串S的小写形式 sIM0Vw http://blog.numino.net/ 说明 非大写字符不处理 O8cDvl http://blog.numino.net/ 参考 function Windows.CharLowerBuff 3FaV4r http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 5TFH3U http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 39d2DV http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas hf0M8l http://blog.numino.net/ 功能 反回比较两个字符串 o9k1Tu http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 mw0yw3 http://blog.numino.net/ 参考 function Windows.CompareString 9Dds49 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); T8FPL2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 877WJl http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 209o03 http://blog.numino.net/ 功能 返回两个字符串是否相等 f9hg2K http://blog.numino.net/ 说明 区分大小写 J7h543 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr yo0ZI5 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); O3kSMw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fl60l5 http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas pw6VfU http://blog.numino.net/ 功能 反回比较两个字符串 ON1LA0 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 uGpuQV http://blog.numino.net/ 参考 function Windows.CompareString SVIh88 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); V8g7xI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9s6Jy0 http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas IKC1q6 http://blog.numino.net/ 功能 返回两个字符串是否相等 J2ljDJ http://blog.numino.net/ 说明 不区分大小写 16UAJo http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText y01a98 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); V2cE4x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s6TBSG http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 7YV3t8 http://blog.numino.net/ 功能 返回比较两个指针字符串 xKO4Ta http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 nuzlEG http://blog.numino.net/ 参考 function System.CompareString HU1kKO http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) Pppgmy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GBhB10 http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas S5ysj4 http://blog.numino.net/ 功能 返回比较两个指针字符串 3dXXRC http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) O40T5d http://blog.numino.net/ 参考 function Windows.CompareString Q2VDzD http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) gV2XqM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8lMvn6 http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 8P7T8x http://blog.numino.net/ $[SysUtils.pas gxo4vH http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 kPK7jP http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) ZWnWhK http://blog.numino.net/ 参考 function Windows.CompareString 8RR7hI http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 1JGy18 http://blog.numino.net/ SpinEdit2.Value) JfJ7zP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 51gvNL http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; ZS3HZl http://blog.numino.net/ $[SysUtils.pas X5bTJ4 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 6ptwah http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 vYfjSK http://blog.numino.net/ 参考 function Windows.CompareString 4pOYqY http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), r7jwrL http://blog.numino.net/ SpinEdit2.Value) y5o5C3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0Dq5bh http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 003YYe http://blog.numino.net/ 功能 返回指针字符串小写形式 pQQKse http://blog.numino.net/ 说明 非大写字符不处理 KN179d http://blog.numino.net/ 参考 function Windows.CharLower 63GwBH http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); 526JJO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 52gABw http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 16QICF http://blog.numino.net/ 功能 返回指针字符串大写形式 pjCiUj http://blog.numino.net/ 说明 非小写字符不处理 8NiW0u http://blog.numino.net/ 参考 function Windows.CharUpper BtGpnC http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); mWWQq7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0G8MBQ http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas jeMIz9 http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 U8p3pw http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 Sd2vC5 http://blog.numino.net/ 参考 function SysUtils.ByteType 3CYE1e http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); 82ysw7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2gw19A http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas ElsccA http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 0I7k8s http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 1pHPc2 http://blog.numino.net/ 参考 function SysUtils.ByteType wK1eX0 http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); dDsm32 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hEwCL6 http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas wxY9ey http://blog.numino.net/ 功能 返回双字节字符串的大写形式 496S42 http://blog.numino.net/ 说明 WideChar双字节字符 R7OTTD http://blog.numino.net/ 参考 function Windows.CharUpperBuffW x3oIxl http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); afOQQS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ daNs1P http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas 8WSH3u http://blog.numino.net/ 功能 返回双字节字符串的小写形式 c07kzN http://blog.numino.net/ 说明 我怎么就测试不出来呢 r5ckGY http://blog.numino.net/ 参考 function Windows.CharLowerBuffW k1BiCx http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); mJ36Gs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xyHkVp http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; VRtGP9 http://blog.numino.net/ $[SysUtils.pas OS1S1h http://blog.numino.net/ 功能 返回比较两个双字节字符串 UxTDo5 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 a01KH1 http://blog.numino.net/ 参考 function Windows.CompareStringW 024LUs http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); hlM9xK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d1zm6T http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas DXCFQ5 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 XJ0kLE http://blog.numino.net/ 说明 区分大小写 drZNQ7 http://blog.numino.net/ 参考 function SysUtils.WideCompareStr UKb6iI http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); z7geM1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8vjj0f http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; 8rBI5m http://blog.numino.net/ $[SysUtils.pas 10zJ9i http://blog.numino.net/ 功能 返回比较两个双字节字符串 e360k3 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 2FbFOp http://blog.numino.net/ 参考 function Windows.CompareStringW Co3v94 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); qk0TuJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ keDfIX http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 0kTYh2 http://blog.numino.net/ $[SysUtils.pas XyE874 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 96md9q http://blog.numino.net/ 说明 不区分大小写 p2XWAy http://blog.numino.net/ 参考 function SysUtils.WideCompareText RRovel http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); nGjl9X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3j70R8 http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas KTg0Ej http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; L67nJF http://blog.numino.net/ $[SysUtils.pas 2N08uH http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 k0KAyC http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 03hRdW http://blog.numino.net/ 参考 function System.Copy a7brZk http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); sIhD22 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6J7iSE http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas sOcVw8 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; j197LQ http://blog.numino.net/ $[SysUtils.pas O2mW50 http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 iYlD77 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 prUlGQ http://blog.numino.net/ 参考 function System.Copy k61VbQ http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); aJj6H2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WW256d http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas Q2sO69 http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; M7YJes http://blog.numino.net/ $[SysUtils.pas 1cIAM9 http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 226h34 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 8DK2dm http://blog.numino.net/ 参考 function System.Copy 45vl63 http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); w3KHOe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4kEY7r http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas jkubBd http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 KWIaRr http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 dofX5x http://blog.numino.net/ 参考 procedure System.Insert 3noAm8 http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); ENDH04 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QwQ3Q9 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; z7qhTC http://blog.numino.net/ $[SysUtils.pas GqqNQ3 http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 HOshJG http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', yVXx26 http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 28nf9e http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan pGgya1 http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); TcM3h5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IMqbq3 http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; t7ydm1 http://blog.numino.net/ $[SysUtils.pas PlP1pI http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 Ar3XuT http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 n1fvlB http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan m0X0ix http://blog.numino.net/ 例子 f9775H http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr 0A3xBo http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); jbjEPZ http://blog.numino.net/ var E56jT2 http://blog.numino.net/ P: PChar; DqtEYR http://blog.numino.net/ begin eHu40J http://blog.numino.net/ P := PChar(Edit1.Text); GCVu2Z http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); l3guz0 http://blog.numino.net/ Edit3.Text := P; Vq0Z6o http://blog.numino.net/ end; 15dkDH http://blog.numino.net/ ///////End AnsiExtractQuotedStr rruiTw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ww4bj7 http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 0t51Q1 http://blog.numino.net/ $[SysUtils.pas MT5H3b http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 0CicsX http://blog.numino.net/ 说明 表现形式非法时则返回S F9CsOn http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr 44tZ8X http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); uzc31i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1ZJ4xk http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = uSVK55 http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): 1v9NPj http://blog.numino.net/ string; $[SysUtils.pas 67JWk2 http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 p1CRxF http://blog.numino.net/ 说明 iK5Hs2 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 IHeR9v http://blog.numino.net/ 参考 function SysUtils.StrNextChar aammPK http://blog.numino.net/ 例子 <NULL> P0qmi3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l2sI5A http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas a7ASFh http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 AZfRUc http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... 0uaAY1 http://blog.numino.net/ 参考 <NULL> Rn6nUF http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); GGtE69 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mr3Xx4 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 7Pv3Kw http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas c2j8R2 http://blog.numino.net/ 功能 返回整数Value转换成字符串 Ottdnu http://blog.numino.net/ 说明 Format('%d', [Value]) S0tae2 http://blog.numino.net/ 参考 function SysUtils.FmtStr 6Ssu74 http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); gFJZOs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r4CFFj http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; WPbE11 http://blog.numino.net/ $[SysUtils.pas Z01O52 http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; QH92Cb http://blog.numino.net/ $[SysUtils.pas 8QM0BV http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) bNiULb http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 PAi2LK http://blog.numino.net/ 参考 function SysUtils.FmtStr B2bYN1 http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); gew9GZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4578qo http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas bc8rq5 http://blog.numino.net/ 功能 返回字符串S转换成整数 F93bcA http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 tG2uT4 http://blog.numino.net/ 参考 procedure System.Val wnZN3L http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); 50okd4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 73EfOW http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; 7a0iTa http://blog.numino.net/ $[SysUtils.pas wyKp64 http://blog.numino.net/ 功能 返回字符串S转换成整数 6MJJqU http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default r8TCV6 http://blog.numino.net/ 参考 procedure System.Val 7k7Lmv http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); 4RvD79 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3U8xjY http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; LBOF72 http://blog.numino.net/ $[SysUtils.pas 26e4EY http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 PBG1SQ http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 N1581v http://blog.numino.net/ 参考 procedure System.Val WF01V7 http://blog.numino.net/ 例子 J09Bfn http://blog.numino.net/ ///////Begin TryStrToInt h5buAz http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 10TtGf http://blog.numino.net/ var GN1zKN http://blog.numino.net/ I: Integer; XLW7A3 http://blog.numino.net/ begin 91mxuY http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); GPYi0Y http://blog.numino.net/ SpinEdit1.Value := I; uKSybH http://blog.numino.net/ end; s7zHUY http://blog.numino.net/ ///////End TryStrToInt CRzxR9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fyi9w3 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas KNa556 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 TcZuqM http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 WV0bE1 http://blog.numino.net/ 参考 procedure System.Val jKxTts http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); RaFY3F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kAdwC1 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 6ZORXi http://blog.numino.net/ $[SysUtils.pas G9Jpnb http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 5EVMvL http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default J8VOX2 http://blog.numino.net/ 参考 procedure System.Val kb65PE http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); Ut5jyj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MSrrLI http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; w7poDq http://blog.numino.net/ $[SysUtils.pas WJailR http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 e6tQ94 http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 MetYp9 http://blog.numino.net/ 参考 procedure System.Val 4hF6ax http://blog.numino.net/ 例子 LmMP8b http://blog.numino.net/ ///////Begin TryStrToInt64 VIPTL3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); q7YLD9 http://blog.numino.net/ var KltH69 http://blog.numino.net/ I: Int64; i0bm5Z http://blog.numino.net/ begin jA84X9 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); 8JOHOV http://blog.numino.net/ SpinEdit1.Value := I; oXYP2h http://blog.numino.net/ end; a0O9ha http://blog.numino.net/ ///////End TryStrToInt64 M7Kq0b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rygH0N http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas i08Nee http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 iTNno1 http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 4O2028 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool h743Ug http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); aGiCd8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8mgyZI http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): 71tfzW http://blog.numino.net/ Boolean; $[SysUtils.pas D82Nvs http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 Qaj0BO http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default hHMsg1 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 3kalM0 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); Fub7h3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HQE7CV http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; DA9lA0 http://blog.numino.net/ $[SysUtils.pas asik6X http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 2F996A http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 W9ph21 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var 8r74An http://blog.numino.net/ SysUtils.FalseBoolStrs PnqLDO http://blog.numino.net/ 例子 vu1Snq http://blog.numino.net/ ///////Begin TryStrToBool 9vb7Ua http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7rreHR http://blog.numino.net/ var cA5pzT http://blog.numino.net/ B: Boolean; HwPLN3 http://blog.numino.net/ begin Ra3Pfb http://blog.numino.net/ SetLength(TrueBoolStrs, 2); ePf3AC http://blog.numino.net/ SetLength(FalseBoolStrs, 2); kUG9Nf http://blog.numino.net/ TrueBoolStrs[0] := 'True'; Nn22vC http://blog.numino.net/ FalseBoolStrs[0] := 'False'; a6245E http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; oD6cJe http://blog.numino.net/ FalseBoolStrs[1] := 'No'; M8z21T http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); viUAGv http://blog.numino.net/ CheckBox2.Checked := B; Lp3EeE http://blog.numino.net/ end; pUnmM0 http://blog.numino.net/ ///////End TryStrToBool zeDi8X http://blog.numino.net/ 附加 73d3WF http://blog.numino.net/ ///////Begin TryStrToBool Qw3kCb http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; a4ebXe http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; 9tKREd http://blog.numino.net/ var hYtbdP http://blog.numino.net/ I: Integer; 3LqFR6 http://blog.numino.net/ begin ChOLk7 http://blog.numino.net/ Result := False; PDtdQ0 http://blog.numino.net/ for I := Low(aArray) to High(aArray) do A5Drct http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then 3ln7Pb http://blog.numino.net/ begin XrqEYy http://blog.numino.net/ Result := True; d7022Q http://blog.numino.net/ Break; MmCL1h http://blog.numino.net/ end; m7wS1t http://blog.numino.net/ end; 2ItQra http://blog.numino.net/ var Nifd9B http://blog.numino.net/ LResult: Extended; Hl7K74 http://blog.numino.net/ begin 8agVig http://blog.numino.net/ Result := TryStrToFloat(S, LResult); Nc2N5Z http://blog.numino.net/ if Result then M4101t http://blog.numino.net/ Value := LResult <> 0 9Z3Ayy http://blog.numino.net/ else 235wQB http://blog.numino.net/ begin 2T7w49 http://blog.numino.net/ Result := True; //修正处 VT1p0P http://blog.numino.net/ VerifyBoolStrArray; p4FOff http://blog.numino.net/ if CompareWith(TrueBoolStrs) then N0kM5Z http://blog.numino.net/ Value := True l3415d http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then spP557 http://blog.numino.net/ Value := False TT69Je http://blog.numino.net/ else sdNKGm http://blog.numino.net/ Result := False; KzIEa5 http://blog.numino.net/ end; CeG0Nq http://blog.numino.net/ end; 4n7V9N http://blog.numino.net/ ///////End TryStrToBool k1kzxB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RO9ESq http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; DytZnW http://blog.numino.net/ $[SysUtils.pas LIpjmE http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 46Ie3e http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 6JccMp http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 0aDL9f http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); lkuDS8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5f9YKg http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 3b76jO http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 dokc4V http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 z7uqzT http://blog.numino.net/ 参考 function SysUtils.FindStringResource PQTR54 http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); UKSi3P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Sxsm6D http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): VpIZ9u http://blog.numino.net/ string; $[SysUtils.pas vbpRY1 http://blog.numino.net/ 功能 返回格式化的字符串资源 Hbv8I1 http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 aqzLrf http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 5zvAW0 http://blog.numino.net/ 例子 <NULL>; D3j7P2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ChuWMn http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas X7wE5P http://blog.numino.net/ 功能 返回指针字符串的长度 O4tH8j http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 dnDYK0 http://blog.numino.net/ 参考 <NULL> LTjIg1 http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 89rgf6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Z0npKT http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas 3i9RIp http://blog.numino.net/ 功能 返回指针字符串的结尾 6dF4tf http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 TSrEIX http://blog.numino.net/ 参考 <NULL> 185oiw http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; 0ygAHH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W48T4y http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): i3JHoJ http://blog.numino.net/ PChar; $[SysUtils.pas cOdx9r http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 LL59Zi http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 1f72CA http://blog.numino.net/ 参考 function System.Move j7br5d http://blog.numino.net/ 例子 Y6yDP5 http://blog.numino.net/ ///////Begin StrMove JMGTAP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ANNK0F http://blog.numino.net/ var QUODeg http://blog.numino.net/ vBuffer: PChar; 61WzT0 http://blog.numino.net/ begin JKN73F http://blog.numino.net/ vBuffer := '0123456789'; R407l4 http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 1z4G07 http://blog.numino.net/ Edit2.Text := vBuffer; m7cJCH http://blog.numino.net/ end; svL5v1 http://blog.numino.net/ ///////End StrMove 80yP3r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 79Jsap http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; 472B27 http://blog.numino.net/ $[SysUtils.pas GOh0sr http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 iZsxE3 http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 zx2Tkw http://blog.numino.net/ 参考 <NULL> UUD2Gl http://blog.numino.net/ 例子 oWCLhd http://blog.numino.net/ ///////Begin StrCopy JuXlvV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); XBvaoN http://blog.numino.net/ var vqwOwE http://blog.numino.net/ vBuffer: PChar; PGvf5j http://blog.numino.net/ begin 2fX5q6 http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); GYzXXr http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); uScP23 http://blog.numino.net/ Edit2.Text := vBuffer; h7hyI8 http://blog.numino.net/ FreeMem(vBuffer); gcb9P4 http://blog.numino.net/ end; LZClhz http://blog.numino.net/ ///////End StrCopy 69575L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OJo963 http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; W4uorQ http://blog.numino.net/ $[SysUtils.pas R9t9B9 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 lpVJok http://blog.numino.net/ 说明 可以连接指针字符串 ipdu4h http://blog.numino.net/ 参考 <NULL> d78C9V http://blog.numino.net/ 例子 JHAdNI http://blog.numino.net/ ///////Begin StrECopy fjo0Ga http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); N33I9P http://blog.numino.net/ var maLE24 http://blog.numino.net/ vBuffer: array[0..255] of Char; 0Gn9aU http://blog.numino.net/ begin XUUZHu http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); o2Psk2 http://blog.numino.net/ Edit3.Text := vBuffer; T4XU9C http://blog.numino.net/ end; 3uY4Kw http://blog.numino.net/ ///////End StrECopy 4AIHpk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v0H2Kg http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): nVt7Am http://blog.numino.net/ PChar; $[SysUtils.pas HR8JAH http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 2a85I7 http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 2nDWeE http://blog.numino.net/ 参考 <NULL> s91VwV http://blog.numino.net/ 例子 PoAk7V http://blog.numino.net/ ///////Begin StrLCopy K8B1lK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 98T67G http://blog.numino.net/ var 6szhON http://blog.numino.net/ vBuffer: array[0..255] of Char; Qtw0rE http://blog.numino.net/ begin TaQSNJ http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); OFiP3n http://blog.numino.net/ Edit2.Text := vBuffer; ZENAwa http://blog.numino.net/ end; Uf72YT http://blog.numino.net/ ///////End StrLCopy woq67S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HZ8T2L http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; 8w7E4T http://blog.numino.net/ $[SysUtils.pas nh8hcP http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 IL3F9f http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) pDXhya http://blog.numino.net/ 参考 function SysUtils.StrLCopy LBPc11 http://blog.numino.net/ 例子 ui32bI http://blog.numino.net/ ///////Begin StrPCopy 6lI6c7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hl9RHp http://blog.numino.net/ var kmCTSj http://blog.numino.net/ vBuffer: array[0..255] of Char; mt730E http://blog.numino.net/ begin jnJMr8 http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); E9mOaU http://blog.numino.net/ Edit2.Text := vBuffer; PC81A7 http://blog.numino.net/ end; NnLJA6 http://blog.numino.net/ ///////End StrPCopy 8vdwe7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X2LwfA http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 9M74EX http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas p1I96F http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 F6H20h http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) 7QT7Hw http://blog.numino.net/ 参考 function SysUtils.StrLCopy cFIvA3 http://blog.numino.net/ 例子 UHgm4y http://blog.numino.net/ ///////Begin StrPLCopy z4A2oH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); br4bfd http://blog.numino.net/ var 1IXul9 http://blog.numino.net/ vBuffer: array[0..255] of Char; ztfv6T http://blog.numino.net/ begin Nb5upz http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); dyyej9 http://blog.numino.net/ Edit2.Text := vBuffer; dK5QOA http://blog.numino.net/ end; T88iQd http://blog.numino.net/ ///////End StrPLCopy i6YS7E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SKg5R6 http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; 8WuFCV http://blog.numino.net/ $[SysUtils.pas zmACT9 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source UbkmV6 http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) QO9lTd http://blog.numino.net/ 参考 function SysUntils.StrCopy 3322LP http://blog.numino.net/ 例子 CqGo98 http://blog.numino.net/ ///////Begin StrCat 9KNXKr http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); gt9qGo http://blog.numino.net/ var 9Oxd3x http://blog.numino.net/ vBuffer: array[0..255] of Char; QQQBT4 http://blog.numino.net/ begin f0HyfM http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); V9VcVH http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); nkj4FJ http://blog.numino.net/ Edit3.Text := vBuffer; 9Z064W http://blog.numino.net/ end; B5r59W http://blog.numino.net/ ///////End StrCat WtQC6m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cj1dPq http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 7pSYsQ http://blog.numino.net/ PChar; $[SysUtils.pas Cmm03h http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source ePI9U4 http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 rQW6NC http://blog.numino.net/ 参考 <NULL> dX5Npp http://blog.numino.net/ 例子 314w76 http://blog.numino.net/ ///////Begin StrLCat WAF0MH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); oG4lIn http://blog.numino.net/ var p2aV9e http://blog.numino.net/ vBuffer: array[0..255] of Char; qM3ra2 http://blog.numino.net/ begin h8svmc http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); 1JwIdr http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); qBK7El http://blog.numino.net/ Edit3.Text := vBuffer; YQEdte http://blog.numino.net/ end; Xzk059 http://blog.numino.net/ ///////End StrLCat 1YN3j4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OCs2Ee http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas IMfKRa http://blog.numino.net/ 功能 返回比较两个指针字符串 56D77Q http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 0fzwck http://blog.numino.net/ 参考 <NULL> c6q06V http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); X1Y1Zw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HoXOO0 http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas LppG6H http://blog.numino.net/ 功能 返回比较两个指针字符串 LxpQqA http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 Ydnt1z http://blog.numino.net/ 参考 <NULL> S3QdSe http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); ZN7jKm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dF1dQy http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 3MK4rW http://blog.numino.net/ $[SysUtils.pas rhrNs8 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 Y3Y57s http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 BJ5C2V http://blog.numino.net/ 参考 <NULL> zlSbi0 http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), M193Mk http://blog.numino.net/ SpinEdit2.Value) R7QFwu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O758ga http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; a3yatB http://blog.numino.net/ $[SysUtils.pas vfnNOH http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 ob03OR http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 vxTUbT http://blog.numino.net/ 参考 <NULL> TubJLr http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), ahR30U http://blog.numino.net/ SpinEdit2.Value) yKlD9r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iQ4MgQ http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 376phw http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 wLDbxX http://blog.numino.net/ 说明 没有找到则返回空指针 Lu2OWT http://blog.numino.net/ 参考 <NULL> 2849b2 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); A91NQW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kL7H33 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas wKS6N4 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 hO6Ivm http://blog.numino.net/ 说明 没有找到则返回空指针 S8u8Yj http://blog.numino.net/ 参考 <NULL> DC4kKC http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); uX6Vf4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a2gYTu http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas F8DPhX http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 9Kuurn http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' 0k24QA http://blog.numino.net/ 参考 <NULL> Ff650k http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); SR1J3E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oE198D http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas vmmUMe http://blog.numino.net/ 功能 返回指针字符串Str大写 470OMy http://blog.numino.net/ 说明 非小写字符不处理 LM335r http://blog.numino.net/ 参考 <NULL> S8WzD2 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); Ar4yMe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 01Bc8x http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas Sqm45x http://blog.numino.net/ 功能 返回指针字符串Str小写 C8BLEl http://blog.numino.net/ 说明 非大写字符不处理 49TwT4 http://blog.numino.net/ 参考 <NULL> 53f0Ak http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); 5k6WRx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LHCrs1 http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas ChYwx6 http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 cBpDv1 http://blog.numino.net/ 说明 也可以直接赋值 tIC7Q1 http://blog.numino.net/ 参考 <NULL> zh92rK http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 5BEzhV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a220vj http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 5lS050 http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 1YKMxL http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 IOdBuv http://blog.numino.net/ 参考 function System.GetMem sg04S6 http://blog.numino.net/ 例子 VOcJ6g http://blog.numino.net/ ///////Begin StrAlloc 5DxbeL http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); v5bI4q http://blog.numino.net/ var 4jowT6 http://blog.numino.net/ P: PChar; PjTSG0 http://blog.numino.net/ begin nhCbom http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); P8c5Dg http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); z750Lu http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); jsjnrm http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); Mi60Pv http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); lt9JT4 http://blog.numino.net/ StrDispose(P); rXdByG http://blog.numino.net/ end; go0MWG http://blog.numino.net/ ///////End StrAlloc 48yZIc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DqkCJ2 http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas qvZg0M http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 Ad114i http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 H74x2a http://blog.numino.net/ 参考 function System.SizeOf daQ5iG http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); R29Lw6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Gm35R3 http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas mrNTU5 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 T3KD1T http://blog.numino.net/ 说明 如果Str为nil则返回nil QsI832 http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function JcGWXT http://blog.numino.net/ SysUtils.StrAlloc hO6wHW http://blog.numino.net/ 例子 Mx3ju6 http://blog.numino.net/ ///////Begin StrNew,StrDispose kdt9fy http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); nWJ0uV http://blog.numino.net/ var 3JmfuL http://blog.numino.net/ P: PChar; Dtz51M http://blog.numino.net/ begin 1Uz69a http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); Mz43UA http://blog.numino.net/ ShowMessage(P); H9eNu7 http://blog.numino.net/ StrDispose(P); TsOVRX http://blog.numino.net/ end; l6U5Fx http://blog.numino.net/ ///////End StrNew,StrDispose 5WF58z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3xm29M http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas 181xxF http://blog.numino.net/ 功能 释放指针字符串Str内存资源 LHu94j http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 3d88W6 http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem 17V69I http://blog.numino.net/ 例子 <参见StrNew> LZ2esP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H3SVIs http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): agg0L4 http://blog.numino.net/ string; $[SysUtils.pas PhFnXh http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 9VLEj0 http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 rH6kt7 http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 NhP2WO http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 L4fgxq http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 4A0Yeg http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 ftLzDC http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 yGy1Ik http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 t4j4vC http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 zyRFom http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 03ze90 http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 HEDtOt http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 2uY7hR http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 LFbRaD http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" L9JQ19 http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 rIWqiJ http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr CFjoJ1 http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); kRUXDg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vvF9dq http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: T8HB7c http://blog.numino.net/ array of const); $[SysUtils.pas Ez5bJb http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 JgmaVu http://blog.numino.net/ 说明 <参见Format> 86Rz9Y http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function WrYf0P http://blog.numino.net/ System.SetLength 3qNiYd http://blog.numino.net/ 例子 <参见Format> nB37fJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8ZjQ0C http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): i510q7 http://blog.numino.net/ PChar; $[SysUtils.pas ItW28M http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 CJV64a http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil bJ4rSm http://blog.numino.net/ 参考 function SysUtils.FormatBuf E8F7jt http://blog.numino.net/ 例子 <参见Format> o4JME2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qGpBX5 http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; 7Enk9d http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas kXquJW http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 3u0Uit http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; 1MAMub http://blog.numino.net/ 参考 function SysUtils.FormatBuf YWwriQ http://blog.numino.net/ 例子 <参见Format> kPnseg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CmpsgU http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: 3A3EIw http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas y76N2l http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 Sm4ZXg http://blog.numino.net/ 说明 <NULL> Ojwtst http://blog.numino.net/ 参考 <NULL> WyGr82 http://blog.numino.net/ 例子 <参见Format> 404J4b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l3SU2J http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of J0Sc31 http://blog.numino.net/ const): WideString; $[SysUtils.pas ZTB04B http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 2lvnQH http://blog.numino.net/ 说明 <NULL> BC0Zz6 http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr h3j80r http://blog.numino.net/ 例子 <参见Format> 5UhTnM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U61BFU http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; x5hq0J http://blog.numino.net/ const Args: array of const); $[SysUtils.pas S4YVaN http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 gf0G6o http://blog.numino.net/ 说明 <NULL> HEIr3t http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf JsDEbJ http://blog.numino.net/ 例子 <参见Format> kmuNhz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 900PqH http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; hSkp48 http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 403a6S http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 wUoqBT http://blog.numino.net/ 说明 <NULL> JghuWA http://blog.numino.net/ 参考 <NULL> ulPBFz http://blog.numino.net/ 例子 <参见Format> bc6cew http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 10I1i4 http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 0iELGk http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 UXKs5t http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 gQ4cKu http://blog.numino.net/ 参考 function SysUtils.FloatToText PAts5b http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); aF2yGS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YY09Le http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas wCaE73 http://blog.numino.net/ 功能 返回货币数Value转换成字符串 lzxWO6 http://blog.numino.net/ 说明 货币数只保留四位小数 xxf290 http://blog.numino.net/ 参考 function SysUtils.FloatToText RPs80C http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); SJsjj5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PDseXK http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas ubnl5o http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 Y4n8Bc http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 36Ic4U http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency NA2gyS http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); vgQHh6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cDXK82 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, 9kYN3y http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas qx3UbG http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 CXkC2b http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 B76ffB http://blog.numino.net/ 参考 function SysUtils.FloatToText P38HKY http://blog.numino.net/ 例子 q8w83I http://blog.numino.net/ ///////Begin FloatToStrF HT4Yd5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ojDeD8 http://blog.numino.net/ begin JNIq1d http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, vLrWEq http://blog.numino.net/ 0), WLpYf5 http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); sN7wGj http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, ehh94h http://blog.numino.net/ 0), 1CTo2h http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); yDiPX5 http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), RAaRQj http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); XYrA6V http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 6V6Yv2 http://blog.numino.net/ 0), 5o1ZfS http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); 5p7mep http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, XV1E7E http://blog.numino.net/ 0), kMFH0n http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); CxzZfK http://blog.numino.net/ end; 9P0MF1 http://blog.numino.net/ ///////End FloatToStrF 72C13N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5d2qDe http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: 2vff8J http://blog.numino.net/ Integer): string; $[SysUtils.pas envTsI http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 UiWE96 http://blog.numino.net/ 说明 Digits指定小数宽度 i3pF1m http://blog.numino.net/ 参考 function SysUtils.FloatToText y1VQwU http://blog.numino.net/ 例子 Sdl8be http://blog.numino.net/ ///////Begin CurrToStrF UJWEV5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 74oTqR http://blog.numino.net/ begin mPEY0Q http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), s1nFZO http://blog.numino.net/ ffGeneral, SpinEdit1.Value); wM0Tdu http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, T48DRT http://blog.numino.net/ 0), 65PsyN http://blog.numino.net/ ffExponent, SpinEdit1.Value); dlxWAs http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), Zhf1Q5 http://blog.numino.net/ ffFixed, SpinEdit1.Value); dfuuuD http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), Iq0P5t http://blog.numino.net/ ffNumber, SpinEdit1.Value); w4mja4 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, YYL314 http://blog.numino.net/ 0), fn0jN1 http://blog.numino.net/ ffCurrency, SpinEdit1.Value); 6uv7by http://blog.numino.net/ end; 942si4 http://blog.numino.net/ ///////End CurrToStrF whOso9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lkDNe8 http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: otn80x http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; UBDKfA http://blog.numino.net/ $[SysUtils.pas 2T6k0G http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 rH8HfO http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 Hm16TQ http://blog.numino.net/ 参考 <NULL> YqyumP http://blog.numino.net/ 例子 88XZsV http://blog.numino.net/ ///////Begin FloatToText wLjcgO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); yFUt74 http://blog.numino.net/ var 8humWr http://blog.numino.net/ vBuffer: array[0..255] of Char; OwniO2 http://blog.numino.net/ E: Extended; 6vdC0G http://blog.numino.net/ begin d0N1fH http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 9j1Gor http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 6mEFc5 http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 5f8S85 http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 3Uvcxg http://blog.numino.net/ end; V22hGN http://blog.numino.net/ ///////End FloatToText( aCYXv5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H8g11n http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; GD15po http://blog.numino.net/ $[SysUtils.pas fEYS72 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 MMZ5Er http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' dYi0Eb http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 248N48 http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); wVwaHA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oQA65n http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; zG97D3 http://blog.numino.net/ $[SysUtils.pas 6fzV6O http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 VKu50H http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' PiCExC http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 122Cb6 http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); kv2Bhe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S6nf9X http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: ZMm9vw http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas 21mQFH http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 zuA62j http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 V4jr1d http://blog.numino.net/ 参考 <NULL> 3IaGQL http://blog.numino.net/ 例子 0NSnpx http://blog.numino.net/ ///////Begin FloatToTextFmt N75437 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); GdHcxF http://blog.numino.net/ var 37faQj http://blog.numino.net/ vBuffer: array[0..255] of Char; nMmc20 http://blog.numino.net/ E: Extended; Ld32t2 http://blog.numino.net/ begin 1l21Ti http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); B0i9Y9 http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 1156v3 http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); 5H0fAD http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); twVinc http://blog.numino.net/ end; p6pB81 http://blog.numino.net/ ///////End FloatToTextFmt ugM2h9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4TY6FN http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas 5yM1Gi http://blog.numino.net/ 功能 返回字符串S转换成浮点数 8mE0BS http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 w72VmX http://blog.numino.net/ 参考 function SysUtils.TextToFloat VGHYD2 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; U7BvO0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2JijL9 http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): Mez41t http://blog.numino.net/ Extended; $[SysUtils.pas v2DBEh http://blog.numino.net/ 功能 返回字符串S转换成浮点数 WI461n http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default 5XqcCi http://blog.numino.net/ 参考 function SysUtils.TextToFloat T4THa3 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; g5xacM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w4bpss http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; fu2opX http://blog.numino.net/ overload; $[SysUtils.pas Z10y2c http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; FZ6Nou http://blog.numino.net/ overload; $[SysUtils.pas WdXA6E http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; ITq0ru http://blog.numino.net/ overload; $[SysUtils.pas 6zcTD4 http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 UoccVL http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 1W49vu http://blog.numino.net/ 参考 function SysUtils.TextToFloat lcEUiX http://blog.numino.net/ 例子 FG7IXC http://blog.numino.net/ ///////Begin TryStrToFloat a95AbU http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hu0O9u http://blog.numino.net/ var zCl70r http://blog.numino.net/ E: Extended; ULBPim http://blog.numino.net/ begin lZT6SI http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 6bLgY2 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); dpYccS http://blog.numino.net/ end; AG2305 http://blog.numino.net/ ///////End TryStrToFloat KQoB2P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8DY9R0 http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas 1w129c http://blog.numino.net/ 功能 返回字符串S转换成货币数 QXTpMH http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 S8Fz4q http://blog.numino.net/ 参考 function SysUtils.TextToFloat ws83Ea http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 52dK8r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3vaU5R http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): zF1wr4 http://blog.numino.net/ Currency; $[SysUtils.pas 1UtQwJ http://blog.numino.net/ 功能 返回字符串S转换成货币数 SGwIHD http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default 5CMNxP http://blog.numino.net/ 参考 function SysUtils.TextToFloat HhwF4y http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 3w0DJ2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kWmk9O http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; lRFZ0V http://blog.numino.net/ $[SysUtils.pas zx7Qhr http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 8IERY9 http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 Y0KrIE http://blog.numino.net/ 参考 function SysUtils.TextToFloat 0Ggxew http://blog.numino.net/ 例子 vbMGsH http://blog.numino.net/ ///////Begin TryStrToCurr ZUScP7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 99SFjt http://blog.numino.net/ var Ep2HZ7 http://blog.numino.net/ C: Currency; W64mC7 http://blog.numino.net/ begin aK8Be3 http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); 8iRP5Z http://blog.numino.net/ Edit2.Text := FormatCurr('', C); gAyqOB http://blog.numino.net/ end; sGug6o http://blog.numino.net/ ///////End TryStrToCurr JBTTYG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 08f7I9 http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): I45ztc http://blog.numino.net/ Boolean; $[SysUtils.pas u2bwZJ http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value 9o6U5i http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 j3GMIv http://blog.numino.net/ 参考 <NULL> 26ziTk http://blog.numino.net/ 例子 ljLhTg http://blog.numino.net/ ///////Begin TextToFloat 2Gangb http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); xq8mJ0 http://blog.numino.net/ var AACtK0 http://blog.numino.net/ E: Extended; 8112VD http://blog.numino.net/ begin E48W43 http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, DJ2zdd http://blog.numino.net/ fvExtended); xlrZh7 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); l8T6DL http://blog.numino.net/ end; R7KIyH http://blog.numino.net/ ///////End TextToFloat lW06Et http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6Dcd2A http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 0t2ZYO http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 yMrU39 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 e0pSjo http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat Ifhe74 http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); GpL87Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S3Ntt9 http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas oCeY4i http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 zHP0N5 http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 BS96bM http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat U3vMCr http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); 2pLF35 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3J08N8 http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; Df79rG http://blog.numino.net/ $[SysUtils.pas bR4A4m http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 9e6p3M http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 TRNV6y http://blog.numino.net/ 参考 function SysUtils.DateTimeToString 0VC04u http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); 453KdP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O6z93H http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas H2qtP2 http://blog.numino.net/ 功能 返回字符串S转换成日期 fb2iyw http://blog.numino.net/ 说明 字符非日期表达时将引起异常 J7MyP9 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate Mrf8j0 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); LfyGdJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k9gsyQ http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): wp4dpp http://blog.numino.net/ TDateTime; $[SysUtils.pas pIY25l http://blog.numino.net/ 功能 返回字符串S转换成日期 DQ03F5 http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default 26W9o4 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate gtGMa9 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); NKa98B http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uHyxmr http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; aQN55V http://blog.numino.net/ $[SysUtils.pas Q4aHtq http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 rRYSc1 http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 Z65444 http://blog.numino.net/ 参考 <NULL> lX1443 http://blog.numino.net/ 例子 ENxoqC http://blog.numino.net/ ///////Begin TryStrToDate fbj115 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 65s3q8 http://blog.numino.net/ var U7DAOW http://blog.numino.net/ vDateTime: TDateTime; jJFJ5T http://blog.numino.net/ begin OndXuN http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); kAOL0w http://blog.numino.net/ DateTimePicker1.Date := vDateTime; v8V8ZU http://blog.numino.net/ end; ef4tgM http://blog.numino.net/ ///////End TryStrToDate RR9v0Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N5y6lA http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas nYR353 http://blog.numino.net/ 功能 返回字符串S转换成时间 Fh7hF3 http://blog.numino.net/ 说明 字符非时间表达时将引起异常 0879qL http://blog.numino.net/ 参考 function SysUtils.TryStrToTime lfDQYR http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 6z01Q8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6vOaqF http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): ufGLy7 http://blog.numino.net/ TDateTime; $[SysUtils.pas 33ZW3S http://blog.numino.net/ 功能 返回字符串S转换成时间 K9uGkV http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default 34KIP8 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime d4ZM83 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 9k1p5C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uMrZt8 http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; KE6gGG http://blog.numino.net/ $[SysUtils.pas oH62i8 http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 dphmBp http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 6nqv0N http://blog.numino.net/ 参考 <NULL> 63loK5 http://blog.numino.net/ 例子 E1WS82 http://blog.numino.net/ ///////Begin TryStrToTime 0KAZAu http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); vCEisC http://blog.numino.net/ var GK3ttw http://blog.numino.net/ vDateTime: TDateTime; k9NjNt http://blog.numino.net/ begin olV4JK http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); CzWo3Z http://blog.numino.net/ DateTimePicker1.Time := vDateTime; 4RvUtj http://blog.numino.net/ end; 42EVBa http://blog.numino.net/ ///////End TryStrToTime vj9G80 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rp26ft http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas IF4f53 http://blog.numino.net/ 功能 返回字符串S转换成日期时间 JBeHVo http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 kKEcxg http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime yh0AC6 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); w44Sad http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MLpug9 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): 6NJZMP http://blog.numino.net/ TDateTime; $[SysUtils.pas GnmGWe http://blog.numino.net/ 功能 返回字符串S转换成日期时间 IPc55A http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default 29LmFW http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime TxdMWd http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); lwSj8m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ R0Hszy http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): fwzPRn http://blog.numino.net/ Boolean; $[SysUtils.pas uOdlN7 http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 D1N4qr http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 TBLIVc http://blog.numino.net/ 参考 <NULL> L86cR3 http://blog.numino.net/ 例子 13ZDX9 http://blog.numino.net/ ///////Begin TryStrToDateTime 9ck987 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hKo0u4 http://blog.numino.net/ var Bma7Ty http://blog.numino.net/ vDateTime: TDateTime; WIqwpZ http://blog.numino.net/ begin QWRx63 http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); wUw3X7 http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); pb8Z2w http://blog.numino.net/ end; 13lTV0 http://blog.numino.net/ ///////End TryStrToDateTime 797ns0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3k1r73 http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; sq1b8e http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas Mg7NA8 http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 432L93 http://blog.numino.net/ 说明 <参见FormatDateTime> XGRD72 http://blog.numino.net/ 参考 function System.SetString jE4M4k http://blog.numino.net/ 例子 <参见FormatDateTime> O97HBc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n8dR6v http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: htbpF2 http://blog.numino.net/ string): string; platform; $[SysUtils.pas D7uinD http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 O9E2BF http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' NXOEym http://blog.numino.net/ 参考 function Windows.GetLocaleInfo 2Pt8ym http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); bOt9p7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JC5OKl http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): u4LY4S http://blog.numino.net/ Char; platform; $[SysUtils.pas ax81VQ http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 3pfe50 http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' t3vf2s http://blog.numino.net/ 参考 function Windows.GetLocaleInfo Q1XsiL http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); VELRK5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SdKL48 http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; 1k9ull http://blog.numino.net/ $[SysUtils.pas SztZWu http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 8lV3SE http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) 1YkAES http://blog.numino.net/ 参考 var SysUtils.SysLocale kL7mF7 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); QAiJg7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l8WEio http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; pi05K7 http://blog.numino.net/ $[SysUtils.pas tS9G3G http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 3Bb2tV http://blog.numino.net/ 说明 Index从0开始 bA0xnC http://blog.numino.net/ 参考 var SysUtils.SysLocale Jf94iX http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), eWBRYY http://blog.numino.net/ SpinEdit2.Value)); 6HDLcp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o3vXiB http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; gIG4x2 http://blog.numino.net/ $[SysUtils.pas IN27Ck http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 jXqlpT http://blog.numino.net/ 说明 MaxLen指定处理字符个数 DmBgfA http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex B06nxL http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 59ZDNP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GS3NcD http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; J011f3 http://blog.numino.net/ $[SysUtils.pas LUOKyU http://blog.numino.net/ 功能 返回字符串S中有多少个字符 l36Fgu http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 Gjh3g9 http://blog.numino.net/ 参考 var SysUtils.SysLocale bWU449 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 7vVoAU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NPV80N http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; cK7cLR http://blog.numino.net/ $[SysUtils.pas tYEURi http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 LaT9UQ http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 kNW0H7 http://blog.numino.net/ 参考 function SysUtils.NextCharIndex MdoP5l http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); e9MeVH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UyllmS http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; sdog62 http://blog.numino.net/ $[SysUtils.pas Ih1Q28 http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 LORUDE http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 87bw59 http://blog.numino.net/ 参考 function System.Length whj2qU http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); cssL2T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 50scZn http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas sWqx1J http://blog.numino.net/ 功能 返回第一个字符的宽度 Ur1RXy http://blog.numino.net/ 说明 参数为空则返回0 i421Ur http://blog.numino.net/ 参考 function Windows.CharNext 0b4lSw http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); ZivE9Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8crVhN http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 416B3A http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 1NACPs http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; 93FVft http://blog.numino.net/ 参考 function Windows.CharNext hotUiT http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); i3S2wl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dYcjj6 http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; 3ta74G http://blog.numino.net/ $[SysUtils.pas yf9NL2 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 LPOCPE http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 4OykZ0 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength kC0gP3 http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); ow8lBd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sCK689 http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; 99ddM8 http://blog.numino.net/ $[SysUtils.pas muIlOn http://blog.numino.net/ 功能 返回下一个字符的位置 CQZspp http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 6gaeu6 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength qQEej9 http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); 7xu69I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i1TxmF http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; BOLAx4 http://blog.numino.net/ $[SysUtils.pas eGXHb6 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 25aUh7 http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True 3B7R1V http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType 0sa8z3 http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); Im2zRx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9S8Z00 http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): dXPZF0 http://blog.numino.net/ Boolean; $[SysUtils.pas 5iloCH http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters pCDAV2 http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True PUdXbD http://blog.numino.net/ 参考 function SysUtils.ByteType 7xKWVJ http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, 6sbzw2 http://blog.numino.net/ SpinEdit1.Value); hya85s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SY6s7A http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; Dlw67Q http://blog.numino.net/ $[SysUtils.pas sKfFFg http://blog.numino.net/ 功能 返回包括最后路径分隔符 77sIlq http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 QJP9oj http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length cTgYFL http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 6vf21c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GQ6VKJ http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; yG18Ho http://blog.numino.net/ $[SysUtils.pas 10VtlK http://blog.numino.net/ 功能 返回包括最后斜线 S2ZT7N http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); QrG5Vg http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter 8Bo8JS http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); Gdi68O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CE8pMj http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; sdQe88 http://blog.numino.net/ $[SysUtils.pas NMmeWS http://blog.numino.net/ 功能 返回排除最后路径分隔符 zBRrjg http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 uhZf59 http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function w3FS1i http://blog.numino.net/ System.SetLength rTKrPy http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); rqXQdr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ siV9m1 http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; Y3IYDS http://blog.numino.net/ $[SysUtils.pas rsD0NV http://blog.numino.net/ 功能 返回排除最后斜线 80YCbo http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) KzGDUl http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter lT3Q04 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); QMgjk9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 86o8ew http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; E6Ne8y http://blog.numino.net/ $[SysUtils.pas mHPgel http://blog.numino.net/ 功能 返回最后一个分隔符的位置 1RN7Xv http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 Z84nNn http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType k2Z4F9 http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); 1sF637 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7mFc7M http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; 98Jp0L http://blog.numino.net/ $[SysUtils.pas C5aL8M http://blog.numino.net/ 功能 返回比较两个文件名 730lq8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 1bueNz http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr eiOoAb http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); Y5UiAv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m1c26m http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas 2Fopq8 http://blog.numino.net/ 功能 返回两个文件名是否相等 G2MaD2 http://blog.numino.net/ 说明 区分大小写 X4TbIJ http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName 837a0s http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); wdI1ip http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Egvf8B http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas Ztu0Jr http://blog.numino.net/ 功能 返回小写文件名 4WmKvE http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase CB8705 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase 73tBhg http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); EM3Yz4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i9hlQG http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas HMF4vZ http://blog.numino.net/ 功能 返回大写文件名 8GbaOh http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 4isA60 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase vlL3vn http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); WTTRjG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9DZ0ji http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas RLkU5a http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 HSoya8 http://blog.numino.net/ 说明 不存在则返回0 o6Cy1s http://blog.numino.net/ 参考 SysUtils.AnsiStrPos VO3Di4 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); 43jzu4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fudv4V http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 03C3mC http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 2Y2wue http://blog.numino.net/ 说明 不存在则返回nil kLBC2z http://blog.numino.net/ 参考 function SysUtils.StrByteType 6Ovh1q http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); GMyB9l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t8s8le http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas l6M4BA http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 PVWMO8 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' LQORcv http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan h2nO0y http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); gM8h0b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TWIeXD http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 6rKHM3 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 9uk5P2 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' TrN2va http://blog.numino.net/ 参考 function SysUtils.StrScan TO3R6j http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); l3vxo4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 11ZksI http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: FbB96I http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas g9ab7e http://blog.numino.net/ 功能 返回替换后的字符串 vpG2vi http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 z1uwTS http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function fmu29V http://blog.numino.net/ System.Copy CjrCBb http://blog.numino.net/ 例子 Lv1kv1 http://blog.numino.net/ ///////Begin StringReplace i293KY http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 68HKQu http://blog.numino.net/ begin kwPgrk http://blog.numino.net/ Memo1.Lines.Values['[]'] := BYYE91 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); gNY42r http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := Mu5E1U http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); Op8Urj http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := AifANx http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); tz987J http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := 6vr6f1 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, zl9Xlj http://blog.numino.net/ rfIgnoreCase]); RY56T4 http://blog.numino.net/ end; KCsp2K http://blog.numino.net/ ///////End StringReplace ujg1q9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5EBm7z http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas q6cqZl http://blog.numino.net/ 功能 返回字符串S转换成全局标识 9xA1Gj http://blog.numino.net/ 说明 如果字符串非法将触发异常 aGIl8X http://blog.numino.net/ 参考 fuction Windows.Succeeded 83deHB http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 778B3T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MBjDnF http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas N0t304 http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 sDk6G1 http://blog.numino.net/ 说明 <NULL> 75juc7 http://blog.numino.net/ 参考 fuction Windows.Succeeded wBuK6D http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); dE4nSd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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