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

Delphi字符串函数大全 【字符串函数大全】 3z758G http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; 7lh3Z7 http://blog.numino.net/ $[StrUtils.pas K51fgu http://blog.numino.net/ 功能 返回两个字符串是否相似 c04Qe1 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 pgB9Sv http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc eDh9lU http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); BzKUl5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LJ75wy http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; BfprJF http://blog.numino.net/ $[StrUtils.pas kNq801 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText 4q0BGy http://blog.numino.net/ 说明 不区分大小写 V8g38m http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 7ybUzZ http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); M2cVRW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7cWDQi http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; UrZ96f http://blog.numino.net/ $[StrUtils.pas Xl5WM1 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 ZO5ZD4 http://blog.numino.net/ 说明 不区分大小写 pSEHmE http://blog.numino.net/ 参考 function Windows.CompareString 9w60WI http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ctJ22G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w25nK2 http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 0lv7M1 http://blog.numino.net/ $[StrUtils.pas F8Rjyz http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 nkaIrT http://blog.numino.net/ 说明 不区分大小写 W9806z http://blog.numino.net/ 参考 function Windows.CompareString qK5ToV http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); HfAZ5V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Hjh85O http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): S5y7q9 http://blog.numino.net/ string; $[StrUtils.pas CXMDX6 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 iHNjTh http://blog.numino.net/ 说明 不区分大小写 4cpEx2 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags I8lx7v http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); I0ko0s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GfL2Ij http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of Gc0jF9 http://blog.numino.net/ string): Boolean; $[StrUtils.pas Hh38g1 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText F7858Y http://blog.numino.net/ 说明 不区分大小写 Yxr5ih http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText 2257v4 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', V552sg http://blog.numino.net/ 'a4']); 4m0J93 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f2365g http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of ygPVkM http://blog.numino.net/ string): Integer; $[StrUtils.pas fO7bq4 http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 Zt5bI2 http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 jmqjIM http://blog.numino.net/ 参考 function SysUtils.AnsiSameText he3Zgh http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 0EOqUg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2ndAMV http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; iAAqAq http://blog.numino.net/ $[StrUtils.pas F2t784 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText Y8gXZO http://blog.numino.net/ 说明 区分大小写 uj73Nl http://blog.numino.net/ 参考 function StrUtils.AnsiPos fJvMMm http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); Qnjk9E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WQlXpK http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; 79796W http://blog.numino.net/ $[StrUtils.pas 4mtNSo http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 Ll0OhO http://blog.numino.net/ 说明 区分大小写 NJJ2iP http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 3eePrK http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); VOqBi4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TzTBTu http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; Xio3of http://blog.numino.net/ $[StrUtils.pas 8rScTh http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 298Foe http://blog.numino.net/ 说明 区分大小写 OxI6CH http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr gvNy95 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); geD0IH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P9g144 http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): W2pMve http://blog.numino.net/ string; $[StrUtils.pas xq4N7t http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 tLhdd1 http://blog.numino.net/ 说明 区分大小写 y59ros http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags XSh5W6 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); DJJ92y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dWa9v1 http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of 1v6MaI http://blog.numino.net/ string): Boolean; $[StrUtils.pas o653X1 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText ySmZjR http://blog.numino.net/ 说明 区分大小写 ogcmU1 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr 9z94I8 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', ChKjPI http://blog.numino.net/ 'a4']); UCqRrZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V3w2fT http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of rA9b0s http://blog.numino.net/ string): Integer; $[StrUtils.pas caok7s http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 1CgFQc http://blog.numino.net/ 说明 区分大小写 ynSaiy http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 5pt2Xw http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); K5w6xu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 07Zq60 http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; NUmMg2 http://blog.numino.net/ $[StrUtils.pas C7044Y http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 YonMT3 http://blog.numino.net/ 说明 当ACount为0时返回'' kmLv3E http://blog.numino.net/ 参考 function System.SetLength 0od2U5 http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); 08MZ16 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3tltsM http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas ztA07p http://blog.numino.net/ 功能 返回字符串AText的反序 1fY2r0 http://blog.numino.net/ 说明 ReverseString('1234') = '4321' S9YfRN http://blog.numino.net/ 参考 function System.SetLength 79I9G4 http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); 8eIB3e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UbkZ9P http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; 7p7uit http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas QJXv6H http://blog.numino.net/ 功能 返回嵌套字符串 3b1o2Q http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' MP5w1Z http://blog.numino.net/ 参考 function System.Copy s1W95N http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, QFiaMD http://blog.numino.net/ Edit2.Text); ng633Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DXi90u http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; lvo08T http://blog.numino.net/ $[StrUtils.pas K2RbQc http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 D5zLAk http://blog.numino.net/ 说明 之前建议执行Randomize q1obV6 http://blog.numino.net/ 参考 function System.Random vb5QW0 http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); cnLf2z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nUNFXV http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = rN4qBB http://blog.numino.net/ ''): string; overload; $[StrUtils.pas Ay6M0Q http://blog.numino.net/ 功能 返回指定的逻辑字符串 rOATzY http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' n5D2m3 http://blog.numino.net/ 参考 <NULL> m783RL http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); d4Gv28 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M2g3sw http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; q5ZNmt http://blog.numino.net/ $[StrUtils.pas efqCfX http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 xF4FhI http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' RFQH9R http://blog.numino.net/ 参考 function System.Copy P66Nq1 http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); wRO54U http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Yxnuxi http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; 7vTrzv http://blog.numino.net/ $[StrUtils.pas k2pADS http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 P24jfu http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' qb9Je0 http://blog.numino.net/ 参考 function System.Copy kBHSaI http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); y0yHAK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gK1FZO http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): K1Y0Nj http://blog.numino.net/ string; $[StrUtils.pas z8r61u http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 gsCfs0 http://blog.numino.net/ 说明 其实就是Copy dwSntM http://blog.numino.net/ 参考 function System.Copy 254okG http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 0bL37s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nKCIdI http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: 7he8Bz http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): di9Id9 http://blog.numino.net/ PChar; $[StrUtils.pas gACXMj http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 FnP2t1 http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 u47iGv http://blog.numino.net/ 参考 <NULL> puWauU http://blog.numino.net/ 例子 cgr36e http://blog.numino.net/ ///////Begin SearchBuf ZimT6R http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; 5zWP2R http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 0q1mc5 http://blog.numino.net/ var 69PTNv http://blog.numino.net/ Buffer, P: PChar; e3pvs0 http://blog.numino.net/ Size: Word; dI67hK http://blog.numino.net/ begin xlISxm http://blog.numino.net/ Result := False; FoonFm http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; WW1sU6 http://blog.numino.net/ Size := EditControl.GetTextLen; k4nz47 http://blog.numino.net/ if (Size = 0) then Exit; 8N9QEg http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 0i9igi http://blog.numino.net/ try Qt6Rc6 http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); iKcNS6 http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, 18v42m http://blog.numino.net/ SearchString, SearchOptions); Q8Zhlk http://blog.numino.net/ if P <> nil then begin CxqI5s http://blog.numino.net/ EditControl.SelStart := P - Buffer; 8KtbP3 http://blog.numino.net/ EditControl.SelLength := Length(SearchString); 2p59ZZ http://blog.numino.net/ Result := True; tpIBsb http://blog.numino.net/ end; l7WkUS http://blog.numino.net/ finally CIMC0x http://blog.numino.net/ StrDispose(Buffer); 0V2Mg1 http://blog.numino.net/ end; DOe00h http://blog.numino.net/ end; A90kaO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); N4UAQJ http://blog.numino.net/ var 0559S2 http://blog.numino.net/ SearchOptions: TStringSearchOptions; 63Q07P http://blog.numino.net/ begin LO4A3i http://blog.numino.net/ SearchOptions := []; 6x1Lux http://blog.numino.net/ if CheckBox1.Checked then a2w3Lj http://blog.numino.net/ Include(SearchOptions, soDown); XVZG5J http://blog.numino.net/ if CheckBox2.Checked then 3lEoGw http://blog.numino.net/ Include(SearchOptions, soMatchCase); P8tskq http://blog.numino.net/ if CheckBox3.Checked then 9430B3 http://blog.numino.net/ Include(SearchOptions, soWholeWord); 95qcI5 http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); v4gVuI http://blog.numino.net/ Memo1.SetFocus; aRARbl http://blog.numino.net/ end; E6ph9D http://blog.numino.net/ ///////End SearchBuf e8l76k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lcRjgj http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): sRfqax http://blog.numino.net/ string; $[StrUtils.pas 1A6V7x http://blog.numino.net/ 功能 返回探测字符串 8tIfsQ http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html kSbmby http://blog.numino.net/ 参考 <NULL> ifofZo http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 6tcYB3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uGtZkI http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = AHaQ37 http://blog.numino.net/ 4): Integer; $[StrUtils.pas 7IzFZ4 http://blog.numino.net/ 功能 返回探测整数 uFr0m4 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 juejGO http://blog.numino.net/ 参考 <NULL> 2L4p3r http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 7TO5oi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kYogBC http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas 9D2p6q http://blog.numino.net/ 功能 返回探测整数的解码 3gr98s http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') MR0GS3 http://blog.numino.net/ 参考 <NULL> avBvAs http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); V4MZMg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P28qbc http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas nW4am7 http://blog.numino.net/ 功能 返回探测文字数值 hmBMMe http://blog.numino.net/ 说明 没有参数ALength已经固定为4 E4M4Zb http://blog.numino.net/ 参考 <NULL> 8Z4sTw http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); 8GMWUM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 96cIuy http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas r2Z6M5 http://blog.numino.net/ 功能 返回探测文字数值的解码 8xfqi9 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') BNShPh http://blog.numino.net/ 参考 <NULL> Wm6g8O http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 8VQIhu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tmrn0m http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: Kmg65o http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas OQXV95 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 1ZuKuQ http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 55SrU8 http://blog.numino.net/ 参考 <NULL> 2CY1k0 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 45x1k2 http://blog.numino.net/ SpinEdit1.Value); KCQ4js http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JzZGvc http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: zC4s8g http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas gSkqr4 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 F5GcvC http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, v28nsT http://blog.numino.net/ ALength)) ySOg80 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr odcWUV http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, pYspE7 http://blog.numino.net/ SpinEdit1.Value); 6HN1H8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9pnvSs http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; 09N9U2 http://blog.numino.net/ $[StrUtils.pas FB2Tep http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 FEpNe5 http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 bL3pKg http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText 4XLNf5 http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] DdEWY3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 58W2Aw http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas Vu57Ni http://blog.numino.net/ 功能 返回一个新的字符串指针地址 87UXO4 http://blog.numino.net/ 说明 字符串S为空时返回NullStr xB456t http://blog.numino.net/ 参考 procedure System.New C43ZHl http://blog.numino.net/ 例子 2GXb0Z http://blog.numino.net/ ////////Begin NewStr,DisposeStr n1r18T http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); o3e30p http://blog.numino.net/ var Wcdw2h http://blog.numino.net/ P: PString; 3W29mi http://blog.numino.net/ begin GALMxj http://blog.numino.net/ P := NewStr(Edit1.Text); leQrDX http://blog.numino.net/ Edit2.Text := P^; 5a6rto http://blog.numino.net/ DisposeStr(P); 9G8WD3 http://blog.numino.net/ end; YF4T8q http://blog.numino.net/ ////////End NewStr,DisposeStr M6zH55 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mfUu4t http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas KHn2vm http://blog.numino.net/ 功能 释放字符串指针P资源 1lkbxj http://blog.numino.net/ 说明 配合函数NewStr使用 hqH1Yj http://blog.numino.net/ 参考 procedure System.Dispose jBv5yQ http://blog.numino.net/ 例子 <如上参见,如下参见> 5m0Bwu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Hq2oWr http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; fgs1rw http://blog.numino.net/ $[SysUtils.pas R1SYtP http://blog.numino.net/ 功能 将字符串S更新给字符串指针P 81sL86 http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 Ep7Jv0 http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr eOe1Jq http://blog.numino.net/ 例子 1Er307 http://blog.numino.net/ ////////Begin AssignStr ND1Ugi http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); MvwB5U http://blog.numino.net/ var CSObOH http://blog.numino.net/ P: PString; T0u85j http://blog.numino.net/ begin 0puPb5 http://blog.numino.net/ P := nil; pdKXpT http://blog.numino.net/ AssignStr(P, Edit1.Text); 5dQjj1 http://blog.numino.net/ Edit2.Text := P^; Jmdnm4 http://blog.numino.net/ DisposeStr(P); VCyTt4 http://blog.numino.net/ end; MsM93o http://blog.numino.net/ ////////End AssignStr sDXMYX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y4jF3j http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; 6U4UBr http://blog.numino.net/ $[SysUtils.pas XB3ZkA http://blog.numino.net/ 功能 在字符串Dest后追加字符串S g02Ty9 http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 pu13tx http://blog.numino.net/ 参考 <NULL> uJCZZ1 http://blog.numino.net/ 例子 40HbZH http://blog.numino.net/ ////////Begin AppendStr 7Q8hCO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); eIy0z4 http://blog.numino.net/ var EFuS2V http://blog.numino.net/ S: string; 987LJT http://blog.numino.net/ begin Xd1v17 http://blog.numino.net/ S := Edit2.Text; TVQd1C http://blog.numino.net/ AppendStr(S, Edit1.Text); RhTviL http://blog.numino.net/ Edit2.Text := S; ZcWYXZ http://blog.numino.net/ end; 73W4J7 http://blog.numino.net/ ////////End AppendStr nu8XXo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x8fxt7 http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas MaYfFd http://blog.numino.net/ 功能 返回字符串S的大写形式 nI30j8 http://blog.numino.net/ 说明 非小写字符不处理 SJ68c1 http://blog.numino.net/ 参考 procedure System.SetLength WxRQW8 http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); 0IbwD1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ haVFIc http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas w5Mu04 http://blog.numino.net/ 功能 返回字符串S的小写形式 1TAC83 http://blog.numino.net/ 说明 非大写字符不处理 fQLY0y http://blog.numino.net/ 参考 procedure System.SetLength zmQYR6 http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); Qp5Ymr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EgFD8j http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas 8W0yW3 http://blog.numino.net/ 功能 返回比较两个字符 ymhXu6 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 bIR053 http://blog.numino.net/ 参考 <NULL> QQhZZk http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); Q4rDls http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GF9B9F http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; 3NxZAw http://blog.numino.net/ assembler; $[SysUtils.pas 62g8y3 http://blog.numino.net/ 功能 返回比较两个内存指针 43Mi8J http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), 09StfN http://blog.numino.net/ PChar('12c'), 3)=False eOnhs0 http://blog.numino.net/ 参考 <NULL> i0r5ko http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); g2IPOd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B3WILP http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas uW9Bak http://blog.numino.net/ 功能 返回比较两个字符串 nXgi4F http://blog.numino.net/ 说明 不区分大小写 AtIquY http://blog.numino.net/ 参考 <NULL> rb03SZ http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 3TrGH5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TGOf7k http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas emKTdC http://blog.numino.net/ 功能 返回两个字符串是否相等 w6gg2m http://blog.numino.net/ 说明 不区分大小写 Jov4fv http://blog.numino.net/ 参考 <NULL> A0dAp1 http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); sEWS9Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AP53EN http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas ds1mI7 http://blog.numino.net/ 功能 返回字符串S的大写形式 nFJi5X http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 9DO0VU http://blog.numino.net/ 参考 function Windows.CharUpperBuff SlZjZ3 http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); jk52Ud http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ efbPBG http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 41r0Wc http://blog.numino.net/ 功能 返回字符串S的小写形式 AVAv82 http://blog.numino.net/ 说明 非大写字符不处理 6X0Cds http://blog.numino.net/ 参考 function Windows.CharLowerBuff 46m0j1 http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 1488DH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 894Y79 http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 8SSK5i http://blog.numino.net/ 功能 反回比较两个字符串 7v08tb http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 xw6EH5 http://blog.numino.net/ 参考 function Windows.CompareString l0G25E http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); aYCXY0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4kF4ZO http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas bw94Y9 http://blog.numino.net/ 功能 返回两个字符串是否相等 S1rqXP http://blog.numino.net/ 说明 区分大小写 FFZtz2 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr AnYKXW http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); kNGAaJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Kh32cK http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas a5xjTA http://blog.numino.net/ 功能 反回比较两个字符串 914Qh0 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 gDJ6S3 http://blog.numino.net/ 参考 function Windows.CompareString TF27T8 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); ssVWBR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 922qiR http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas MXYcQX http://blog.numino.net/ 功能 返回两个字符串是否相等 bPzOmf http://blog.numino.net/ 说明 不区分大小写 ZSuiQ1 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText F8ziAJ http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); mZlblD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kKR63z http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 8U82P8 http://blog.numino.net/ 功能 返回比较两个指针字符串 Wl777l http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 bQ2j8K http://blog.numino.net/ 参考 function System.CompareString A152yN http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) A67N7M http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C8ds1O http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas 2yHNu0 http://blog.numino.net/ 功能 返回比较两个指针字符串 QvC4qN http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 44XIwe http://blog.numino.net/ 参考 function Windows.CompareString A3C6ZT http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) Y9q35S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dNHu35 http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; urNUSy http://blog.numino.net/ $[SysUtils.pas i9lAXA http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 lKGa2i http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) qcTTFe http://blog.numino.net/ 参考 function Windows.CompareString QzByqh http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 9p8OZQ http://blog.numino.net/ SpinEdit2.Value) 592yIQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b2OIgV http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; xveX8p http://blog.numino.net/ $[SysUtils.pas rMgPSg http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 e9n8AH http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 LA5h9L http://blog.numino.net/ 参考 function Windows.CompareString a1mFmt http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), fi9hni http://blog.numino.net/ SpinEdit2.Value) F3Z9lI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pTm4Tf http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas ovB9mt http://blog.numino.net/ 功能 返回指针字符串小写形式 iNW89M http://blog.numino.net/ 说明 非大写字符不处理 BQJ0e0 http://blog.numino.net/ 参考 function Windows.CharLower df4t7J http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); hMuZ8B http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Z8kmsD http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas E0mmYO http://blog.numino.net/ 功能 返回指针字符串大写形式 fwWpB5 http://blog.numino.net/ 说明 非小写字符不处理 frMPe9 http://blog.numino.net/ 参考 function Windows.CharUpper 5a144g http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); 7sxWm7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C8ucSi http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas Mg7QvK http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 kKE2i3 http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 4stx76 http://blog.numino.net/ 参考 function SysUtils.ByteType 76a5C1 http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); 96lchh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4uqXk8 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas SwY9z5 http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 7a6sI0 http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 mISCyu http://blog.numino.net/ 参考 function SysUtils.ByteType EpIQZq http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 8eZCCR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ko2d3D http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas lVQnlx http://blog.numino.net/ 功能 返回双字节字符串的大写形式 bfzSQw http://blog.numino.net/ 说明 WideChar双字节字符 R98uee http://blog.numino.net/ 参考 function Windows.CharUpperBuffW qJdQ4w http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); 54C7Mm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cNI7T9 http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas nO2iO8 http://blog.numino.net/ 功能 返回双字节字符串的小写形式 YYFJ54 http://blog.numino.net/ 说明 我怎么就测试不出来呢 19GfO4 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW C12C1J http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); C40Tjd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JPpLWO http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; ofwNwe http://blog.numino.net/ $[SysUtils.pas b0g9W9 http://blog.numino.net/ 功能 返回比较两个双字节字符串 i001u4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 4VjoiB http://blog.numino.net/ 参考 function Windows.CompareStringW 95tti7 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); bm15e1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L716om http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 5mppOd http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 65EFh7 http://blog.numino.net/ 说明 区分大小写 znTrw9 http://blog.numino.net/ 参考 function SysUtils.WideCompareStr 0TBvyO http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 6mP7Q5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tNBJVB http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; WR8UuC http://blog.numino.net/ $[SysUtils.pas J8Ay1J http://blog.numino.net/ 功能 返回比较两个双字节字符串 Xz0aSP http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 IwQvAi http://blog.numino.net/ 参考 function Windows.CompareStringW 65k7Ve http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); Rn4UNi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V7wLYQ http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; Bt4qOh http://blog.numino.net/ $[SysUtils.pas WL7kLp http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 6p2nfS http://blog.numino.net/ 说明 不区分大小写 bj2b34 http://blog.numino.net/ 参考 function SysUtils.WideCompareText idDoCL http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); FqXgBL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p5jlM8 http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas oqE29C http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; xjYWoZ http://blog.numino.net/ $[SysUtils.pas sT0rBe http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 6rZsG4 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 zvT4ki http://blog.numino.net/ 参考 function System.Copy gCrq4B http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); G4QALJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W7Pm2x http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas FGoDR1 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; if9t3U http://blog.numino.net/ $[SysUtils.pas Deg9st http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 eer2b0 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 Lz1V6w http://blog.numino.net/ 参考 function System.Copy 2K9OPm http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); T7Y1NK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 34LdVm http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas i9DfZB http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; NthEe9 http://blog.numino.net/ $[SysUtils.pas ZFI9oN http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 n46yDj http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 ZMUe12 http://blog.numino.net/ 参考 function System.Copy 4ODjvY http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); CPISAs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JVfAol http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas Ke60m6 http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 rA75gC http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 i1itnx http://blog.numino.net/ 参考 procedure System.Insert jfyvwj http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); FTsTOS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7PUgWE http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; Q626yb http://blog.numino.net/ $[SysUtils.pas 56138z http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 9dRhxa http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', f5H419 http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' e9XGso http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan q5Y61q http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); Bam87F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wuyCL2 http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; BZp9jB http://blog.numino.net/ $[SysUtils.pas 90Msmu http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 fbl93q http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 x4lfn0 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 6JClyO http://blog.numino.net/ 例子 oWcvDf http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr Ws54OV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); K6v52c http://blog.numino.net/ var EZ2ab4 http://blog.numino.net/ P: PChar; S69uNs http://blog.numino.net/ begin M5KDjd http://blog.numino.net/ P := PChar(Edit1.Text); J6Fxn1 http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); sQ46L1 http://blog.numino.net/ Edit3.Text := P; TZ1Qj7 http://blog.numino.net/ end; cy5f33 http://blog.numino.net/ ///////End AnsiExtractQuotedStr Dja9jN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1l2IAb http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 6v2L6b http://blog.numino.net/ $[SysUtils.pas IjAyve http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 A2dI7a http://blog.numino.net/ 说明 表现形式非法时则返回S h1w2bW http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr 3GA5mq http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); BqxqOF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MnraS0 http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = 6BPoMl http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): WEsAGS http://blog.numino.net/ string; $[SysUtils.pas AeR07S http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 EPXvQQ http://blog.numino.net/ 说明 xi8F0O 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 JMo1R9 http://blog.numino.net/ 参考 function SysUtils.StrNextChar sHZ61T http://blog.numino.net/ 例子 <NULL> P2gRxn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ANOfkm http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas cm25Dv http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 4gZaLa http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... S9L4x8 http://blog.numino.net/ 参考 <NULL> qDpd8O http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); HOh0kP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ snqLon http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas kj7Qn0 http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas D716SQ http://blog.numino.net/ 功能 返回整数Value转换成字符串 RT4fZn http://blog.numino.net/ 说明 Format('%d', [Value]) ZU0kRV http://blog.numino.net/ 参考 function SysUtils.FmtStr Sq638I http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 1k69fR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kQsYRo http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; solq26 http://blog.numino.net/ $[SysUtils.pas leqNY7 http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; Vn09Nj http://blog.numino.net/ $[SysUtils.pas 6YH702 http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) DT01L4 http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 PuB3xB http://blog.numino.net/ 参考 function SysUtils.FmtStr 7C3KKz http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); If8u9K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EMhDqc http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas 54gmyg http://blog.numino.net/ 功能 返回字符串S转换成整数 fQ8ZgW http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 YBgOk0 http://blog.numino.net/ 参考 procedure System.Val Jv8byP http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); lc3bVe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OxMZ1A http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; Q8Kx78 http://blog.numino.net/ $[SysUtils.pas 1Nh7aK http://blog.numino.net/ 功能 返回字符串S转换成整数 2HMOFO http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default 4664Fb http://blog.numino.net/ 参考 procedure System.Val 0hq1r4 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); Ft164F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aErhtZ http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; ZLX3tT http://blog.numino.net/ $[SysUtils.pas 1C70e6 http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 YzFU99 http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 upSuy3 http://blog.numino.net/ 参考 procedure System.Val 1oVOIb http://blog.numino.net/ 例子 1bJLai http://blog.numino.net/ ///////Begin TryStrToInt 65nHMb http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0rKJAq http://blog.numino.net/ var 583h8B http://blog.numino.net/ I: Integer; ltND9g http://blog.numino.net/ begin IJVmV3 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); qkyxSw http://blog.numino.net/ SpinEdit1.Value := I; MCIjdK http://blog.numino.net/ end; 6gdNg7 http://blog.numino.net/ ///////End TryStrToInt URWEX1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 77cdgW http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas FTBAe7 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 pE27Rj http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 0HHnXb http://blog.numino.net/ 参考 procedure System.Val 3mgwCT http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); EtzbzY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q700fj http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; p9b7oe http://blog.numino.net/ $[SysUtils.pas 8W9STG http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 15kn9R http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default bERkn9 http://blog.numino.net/ 参考 procedure System.Val RDymyg http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); fCxr73 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BkiUTU http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; 2EYw32 http://blog.numino.net/ $[SysUtils.pas GwxPIn http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 86h7S0 http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 4puA40 http://blog.numino.net/ 参考 procedure System.Val 344GMQ http://blog.numino.net/ 例子 v1p34Y http://blog.numino.net/ ///////Begin TryStrToInt64 sw4JGe http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hFGkEK http://blog.numino.net/ var pFsfes http://blog.numino.net/ I: Int64; LTJ49p http://blog.numino.net/ begin m9vAPF http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); RFRc1o http://blog.numino.net/ SpinEdit1.Value := I; 4FuaqE http://blog.numino.net/ end; 7T1tx5 http://blog.numino.net/ ///////End TryStrToInt64 4GDgNv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 55c819 http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas o198Qs http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 48Msiu http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 FnEx2W http://blog.numino.net/ 参考 function SysUtils.TryStrToBool qTGfko http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); C2L94O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5JmyEJ http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): N3jTzZ http://blog.numino.net/ Boolean; $[SysUtils.pas pUCOR8 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 WMm2ep http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default n53sFH http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 3FfQ2y http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); EicHzm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1HNdio http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; NpJ0ea http://blog.numino.net/ $[SysUtils.pas vmZ41w http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 WQ54Df http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 j3YH3G http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var Jrw64S http://blog.numino.net/ SysUtils.FalseBoolStrs 5Gg9wx http://blog.numino.net/ 例子 KD9vv5 http://blog.numino.net/ ///////Begin TryStrToBool 5250xX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); RT0R09 http://blog.numino.net/ var 9u4ebV http://blog.numino.net/ B: Boolean; 4vIRZ7 http://blog.numino.net/ begin 4UbV8m http://blog.numino.net/ SetLength(TrueBoolStrs, 2); oq4WhT http://blog.numino.net/ SetLength(FalseBoolStrs, 2); m56YVN http://blog.numino.net/ TrueBoolStrs[0] := 'True'; F1K9bL http://blog.numino.net/ FalseBoolStrs[0] := 'False'; wU1gp8 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; 0suYQQ http://blog.numino.net/ FalseBoolStrs[1] := 'No'; jNAc52 http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); f2fZ4N http://blog.numino.net/ CheckBox2.Checked := B; 2F1I0b http://blog.numino.net/ end; rt0576 http://blog.numino.net/ ///////End TryStrToBool 83d80z http://blog.numino.net/ 附加 8ZTljt http://blog.numino.net/ ///////Begin TryStrToBool B7D27m http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; 5Vloh9 http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; n3MsPN http://blog.numino.net/ var ktSvBC http://blog.numino.net/ I: Integer; 4CMKTU http://blog.numino.net/ begin l42Pm3 http://blog.numino.net/ Result := False; Gm5A6r http://blog.numino.net/ for I := Low(aArray) to High(aArray) do SgVRH6 http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then kInLm2 http://blog.numino.net/ begin 5Lm4Q3 http://blog.numino.net/ Result := True; CaRc9e http://blog.numino.net/ Break; X6Yd9X http://blog.numino.net/ end; YEGzEd http://blog.numino.net/ end; a4GesU http://blog.numino.net/ var L8Dnik http://blog.numino.net/ LResult: Extended; kHlcpI http://blog.numino.net/ begin JtJDDM http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 55wbeZ http://blog.numino.net/ if Result then Gi462g http://blog.numino.net/ Value := LResult <> 0 XRhNU4 http://blog.numino.net/ else 0vIiGt http://blog.numino.net/ begin 0shchL http://blog.numino.net/ Result := True; //修正处 ICyvfK http://blog.numino.net/ VerifyBoolStrArray; y67rDQ http://blog.numino.net/ if CompareWith(TrueBoolStrs) then 0tOuaA http://blog.numino.net/ Value := True q0v7AW http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then 8Ka1C9 http://blog.numino.net/ Value := False 26SJHT http://blog.numino.net/ else 9KoEBi http://blog.numino.net/ Result := False; FFvn6H http://blog.numino.net/ end; a9VE3U http://blog.numino.net/ end; VC5x30 http://blog.numino.net/ ///////End TryStrToBool uvjRr2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ In28iO http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; 8dgI7w http://blog.numino.net/ $[SysUtils.pas DP8pGH http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 B5Cnas http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' vX5SmT http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 0543u6 http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); 68QZim http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BTA0kN http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 0WSJYX http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 mioRNJ http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 wt9o7W http://blog.numino.net/ 参考 function SysUtils.FindStringResource IPwMVV http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); 8afJwU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zfQXGl http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): qi9KF5 http://blog.numino.net/ string; $[SysUtils.pas IE810H http://blog.numino.net/ 功能 返回格式化的字符串资源 g1nSet http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 I4z6Uq http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource mzaNAr http://blog.numino.net/ 例子 <NULL>; 2nw623 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ebc9CF http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas x0qV9y http://blog.numino.net/ 功能 返回指针字符串的长度 2W7P4p http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 9oGwED http://blog.numino.net/ 参考 <NULL> g53Rud http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 264Mio http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gbvUaM http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas n1Hc72 http://blog.numino.net/ 功能 返回指针字符串的结尾 5uOrM5 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 8aTAQ2 http://blog.numino.net/ 参考 <NULL> 6rq9pO http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; wPvo14 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w12I6I http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): 0Q16WF http://blog.numino.net/ PChar; $[SysUtils.pas L8UD09 http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 dgInJh http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s kW9ENd http://blog.numino.net/ 参考 function System.Move Z1H6ap http://blog.numino.net/ 例子 FBjdXT http://blog.numino.net/ ///////Begin StrMove 8wLR81 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5a5JgO http://blog.numino.net/ var 2dTrYX http://blog.numino.net/ vBuffer: PChar; 1U12Lz http://blog.numino.net/ begin WNh94H http://blog.numino.net/ vBuffer := '0123456789'; 28w04r http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); QRZliz http://blog.numino.net/ Edit2.Text := vBuffer; zEvRWs http://blog.numino.net/ end; udVhF6 http://blog.numino.net/ ///////End StrMove xSsJBg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hQQ7Xk http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; ASfr25 http://blog.numino.net/ $[SysUtils.pas ZtaSC0 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 Fv3oha http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 3EuP8b http://blog.numino.net/ 参考 <NULL> 8LYxRO http://blog.numino.net/ 例子 5ND4RI http://blog.numino.net/ ///////Begin StrCopy mKWf5u http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); uw5cx1 http://blog.numino.net/ var 2YV55r http://blog.numino.net/ vBuffer: PChar; Z24vZ8 http://blog.numino.net/ begin PZ1Sr4 http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); PB6I1K http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); UM3ItH http://blog.numino.net/ Edit2.Text := vBuffer; WK8IS3 http://blog.numino.net/ FreeMem(vBuffer); 3b66x3 http://blog.numino.net/ end; 1I3peP http://blog.numino.net/ ///////End StrCopy 1R1NnJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4zwYHy http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; 8wNP7z http://blog.numino.net/ $[SysUtils.pas 454Y19 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 tBxZgI http://blog.numino.net/ 说明 可以连接指针字符串 Vcbim1 http://blog.numino.net/ 参考 <NULL> 4OsbQv http://blog.numino.net/ 例子 F30NEP http://blog.numino.net/ ///////Begin StrECopy 6E0BDw http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); u6mHcG http://blog.numino.net/ var f6u1CG http://blog.numino.net/ vBuffer: array[0..255] of Char; cF0Ovy http://blog.numino.net/ begin vVfgKV http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); 2rCkUL http://blog.numino.net/ Edit3.Text := vBuffer; kkg6ZG http://blog.numino.net/ end; FrE9QQ http://blog.numino.net/ ///////End StrECopy s57cxd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 413UVv http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): Coa5I2 http://blog.numino.net/ PChar; $[SysUtils.pas 80hsrJ http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 77XUZv http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 DnhlUu http://blog.numino.net/ 参考 <NULL> IQ2GUN http://blog.numino.net/ 例子 w73gOL http://blog.numino.net/ ///////Begin StrLCopy p5HGb5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); h8l9wN http://blog.numino.net/ var CCFCbO http://blog.numino.net/ vBuffer: array[0..255] of Char; G01Bdv http://blog.numino.net/ begin 8FUyaP http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 8GjXRN http://blog.numino.net/ Edit2.Text := vBuffer; G11tlj http://blog.numino.net/ end; o6DYfi http://blog.numino.net/ ///////End StrLCopy N4k10K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A791Ak http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; ObrWA7 http://blog.numino.net/ $[SysUtils.pas sVW3z9 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 6PYCfK http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) 377M7O http://blog.numino.net/ 参考 function SysUtils.StrLCopy dN4ls2 http://blog.numino.net/ 例子 f5T6fM http://blog.numino.net/ ///////Begin StrPCopy owswAO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Rc1ym9 http://blog.numino.net/ var lEV9nA http://blog.numino.net/ vBuffer: array[0..255] of Char; WBBfJG http://blog.numino.net/ begin T4lyGr http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); DMFc7R http://blog.numino.net/ Edit2.Text := vBuffer; cr1jLE http://blog.numino.net/ end; JY21Tv http://blog.numino.net/ ///////End StrPCopy D577Ka http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9S0M46 http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 2h1P8V http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas bsLSur http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 lF5o7m http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) VaV384 http://blog.numino.net/ 参考 function SysUtils.StrLCopy 6Lm45W http://blog.numino.net/ 例子 59I6l4 http://blog.numino.net/ ///////Begin StrPLCopy etWPQv http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); eU1AYy http://blog.numino.net/ var wdF3uL http://blog.numino.net/ vBuffer: array[0..255] of Char; E8KvVz http://blog.numino.net/ begin bbyX3X http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); X4LGEg http://blog.numino.net/ Edit2.Text := vBuffer; 0v9epW http://blog.numino.net/ end; NSqRTu http://blog.numino.net/ ///////End StrPLCopy 6bR2YS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q275dd http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; u1eHqN http://blog.numino.net/ $[SysUtils.pas 6AuJr8 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source vFTdRH http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) iJUhXr http://blog.numino.net/ 参考 function SysUntils.StrCopy 5m6EzZ http://blog.numino.net/ 例子 2woNG8 http://blog.numino.net/ ///////Begin StrCat Bmc4Md http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JgL8b6 http://blog.numino.net/ var kfvmbX http://blog.numino.net/ vBuffer: array[0..255] of Char; Bd541r http://blog.numino.net/ begin ckDEHw http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); 5BNkyH http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); wd6vEK http://blog.numino.net/ Edit3.Text := vBuffer; MK98DK http://blog.numino.net/ end; j1NGrt http://blog.numino.net/ ///////End StrCat 9cFMgy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ziHeY1 http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 9ZrT35 http://blog.numino.net/ PChar; $[SysUtils.pas 70w7Qo http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source h2xlp8 http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 S5fk97 http://blog.numino.net/ 参考 <NULL> 7Lkc5K http://blog.numino.net/ 例子 lFTJ7P http://blog.numino.net/ ///////Begin StrLCat Dp0HKV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); PJePxR http://blog.numino.net/ var 1rXFqA http://blog.numino.net/ vBuffer: array[0..255] of Char; aQvtPm http://blog.numino.net/ begin DzYc34 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); C8tD2o http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); hMno52 http://blog.numino.net/ Edit3.Text := vBuffer; KIBPr1 http://blog.numino.net/ end; kxxC2Z http://blog.numino.net/ ///////End StrLCat VH7V81 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ er2bu4 http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas jAk8Wa http://blog.numino.net/ 功能 返回比较两个指针字符串 61be51 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 ccU39D http://blog.numino.net/ 参考 <NULL> MP8N73 http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); k5SJ2R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2ZTp40 http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 8lbx52 http://blog.numino.net/ 功能 返回比较两个指针字符串 1DGPZ8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 EnGA20 http://blog.numino.net/ 参考 <NULL> 47Xcfu http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); GEM6Hx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1YC0gs http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 408SQX http://blog.numino.net/ $[SysUtils.pas x6shw1 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 kFfXc2 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 U9wcar http://blog.numino.net/ 参考 <NULL> aH9kPH http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), tjBy70 http://blog.numino.net/ SpinEdit2.Value) KH2ErD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ei8ze4 http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; u212wB http://blog.numino.net/ $[SysUtils.pas B3fX77 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 82EBmK http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 6pZwWB http://blog.numino.net/ 参考 <NULL> Uuxgfm http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), N6vAk7 http://blog.numino.net/ SpinEdit2.Value) vfcNiv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mOq9Sy http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 0on4X5 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 z2RluH http://blog.numino.net/ 说明 没有找到则返回空指针 WE6pvL http://blog.numino.net/ 参考 <NULL> 0VwCEw http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); jFbqD0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1gFE24 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 5PKh76 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 V7CBg2 http://blog.numino.net/ 说明 没有找到则返回空指针 3lC74o http://blog.numino.net/ 参考 <NULL> B3t2LX http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); PPv2XJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T2chTO http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas GTxT30 http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 PPcEXR http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' vBv5nj http://blog.numino.net/ 参考 <NULL> ZN6Frv http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); tN5EQ9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 00UGN7 http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas 6YwB3j http://blog.numino.net/ 功能 返回指针字符串Str大写 uqtlxb http://blog.numino.net/ 说明 非小写字符不处理 MW9R9H http://blog.numino.net/ 参考 <NULL> 2Kl8Gd http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); V40aFr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1v898q http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas eTpH3r http://blog.numino.net/ 功能 返回指针字符串Str小写 jx9H0x http://blog.numino.net/ 说明 非大写字符不处理 u0pN1f http://blog.numino.net/ 参考 <NULL> 5HCDd0 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); WqM8Fo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y9h6DW http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas k5xI3K http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 ewYM19 http://blog.numino.net/ 说明 也可以直接赋值 JT91Jx http://blog.numino.net/ 参考 <NULL> yFYgHP http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); XrqeLy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c25wde http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas pPAY6F http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 RchVkS http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 l4Zahw http://blog.numino.net/ 参考 function System.GetMem 1ZZZf3 http://blog.numino.net/ 例子 p9weru http://blog.numino.net/ ///////Begin StrAlloc YCxz0K http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); me4Vr8 http://blog.numino.net/ var dP2EWa http://blog.numino.net/ P: PChar; Q7P9he http://blog.numino.net/ begin Rb345d http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); 3X4KmB http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); GY26gp http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); eu6SPN http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); qXT1Q1 http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); 2sF50Z http://blog.numino.net/ StrDispose(P); S3Bo73 http://blog.numino.net/ end; Tqn63T http://blog.numino.net/ ///////End StrAlloc 43nvv7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lh9Bk2 http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas k7DbsU http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 8MnN35 http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 SHFJEs http://blog.numino.net/ 参考 function System.SizeOf u97f8p http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); 41LyVY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DxCPm5 http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 9n43vl http://blog.numino.net/ 功能 返回复制一个新的指针字符串 HToWtZ http://blog.numino.net/ 说明 如果Str为nil则返回nil Yokwsl http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function QdMk2t http://blog.numino.net/ SysUtils.StrAlloc js04fB http://blog.numino.net/ 例子 pq9MF6 http://blog.numino.net/ ///////Begin StrNew,StrDispose 6yXy6k http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); cl1V8f http://blog.numino.net/ var 25EFI1 http://blog.numino.net/ P: PChar; Txn5bZ http://blog.numino.net/ begin 9LSlXy http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); NF6fzZ http://blog.numino.net/ ShowMessage(P); dld5iQ http://blog.numino.net/ StrDispose(P); P8sSIS http://blog.numino.net/ end; SmhyT4 http://blog.numino.net/ ///////End StrNew,StrDispose WoC716 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ezc6u5 http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas gYvyBZ http://blog.numino.net/ 功能 释放指针字符串Str内存资源 hfN36x http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 1e9VME http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem aTs7un http://blog.numino.net/ 例子 <参见StrNew> XTEf10 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 77iz7S http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): a3x7BX http://blog.numino.net/ string; $[SysUtils.pas VkppSv http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 fvGhEw http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 3XI2hv http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 m5bvz5 http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 T23v7E http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 H1qpR3 http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 Tg49nm http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 N2EAEl http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 UCWKfo http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 JShdPQ http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 sxBRg7 http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 YtoEgA http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 Rtsxu6 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 5TlQts http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" 2tnbWk http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 IF495y http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr 9T9LOQ http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); LGi5aU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9UKTjh http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: AyEvQG http://blog.numino.net/ array of const); $[SysUtils.pas 2FAj2v http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 9r2lII http://blog.numino.net/ 说明 <参见Format> SU053w http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function FWTDNO http://blog.numino.net/ System.SetLength 29z0Ig http://blog.numino.net/ 例子 <参见Format> 9odsZ9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xptmx8 http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): nYW3pe http://blog.numino.net/ PChar; $[SysUtils.pas f24GGp http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 BbNiVf http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil TYvIO3 http://blog.numino.net/ 参考 function SysUtils.FormatBuf rNhYZZ http://blog.numino.net/ 例子 <参见Format> E3U0Dg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pA3jer http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; TVQQov http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas dlJICn http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 58Y22i http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; eMgU77 http://blog.numino.net/ 参考 function SysUtils.FormatBuf h3Q1gS http://blog.numino.net/ 例子 <参见Format> i9XV12 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qD7nnh http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: 52SySw http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas no9MyV http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 oLF3dE http://blog.numino.net/ 说明 <NULL> 9h3OiA http://blog.numino.net/ 参考 <NULL> 959rp6 http://blog.numino.net/ 例子 <参见Format> tBt5yr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8td8mu http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of pO47MO http://blog.numino.net/ const): WideString; $[SysUtils.pas 1tQe42 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 IfuHBA http://blog.numino.net/ 说明 <NULL> NO0Y7m http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr Dlky9U http://blog.numino.net/ 例子 <参见Format> bJYxMc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZW8MF0 http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; wDOq4e http://blog.numino.net/ const Args: array of const); $[SysUtils.pas t4YJVX http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 aq9f1w http://blog.numino.net/ 说明 <NULL> 9vye3Q http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf 5e02Qw http://blog.numino.net/ 例子 <参见Format> ND0o8I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aD24Ts http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; 4Uo657 http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas yCTn9h http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 Lo2Zw3 http://blog.numino.net/ 说明 <NULL> i95jE8 http://blog.numino.net/ 参考 <NULL> eBi8oC http://blog.numino.net/ 例子 <参见Format> 7bt318 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zB8XYc http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 7qIPE7 http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 lsT6c0 http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 0Mw2bN http://blog.numino.net/ 参考 function SysUtils.FloatToText tP7pQn http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 8L704a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FYqdW1 http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas 8C6n8l http://blog.numino.net/ 功能 返回货币数Value转换成字符串 Ug0G3w http://blog.numino.net/ 说明 货币数只保留四位小数 t1A2zW http://blog.numino.net/ 参考 function SysUtils.FloatToText Q6iHWc http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); L3nFI2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lxTUUJ http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas WYemeX http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 fF6hpR http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 SU1PUb http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency D74B57 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); Q65SJ5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 47OOlK http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, xKV1VF http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas dpUpxL http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 0PtBxd http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 3l7uB9 http://blog.numino.net/ 参考 function SysUtils.FloatToText 26fZY2 http://blog.numino.net/ 例子 0jricx http://blog.numino.net/ ///////Begin FloatToStrF qbiBqU http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); EIca9g http://blog.numino.net/ begin b62tmb http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 9LH2qC http://blog.numino.net/ 0), 18zU4C http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); 38Y9Qe http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, gqLHfw http://blog.numino.net/ 0), tmXAkM http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); URMtFW http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), zQH3uj http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); 4whK0V http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, CLefpM http://blog.numino.net/ 0), 1dYm9W http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); 2lD05M http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, ML7I8i http://blog.numino.net/ 0), 9kdU56 http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); 6NJe18 http://blog.numino.net/ end; n3y2jJ http://blog.numino.net/ ///////End FloatToStrF gt7NJS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5k7y63 http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: YkPD7l http://blog.numino.net/ Integer): string; $[SysUtils.pas gW81cI http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 9lfYkH http://blog.numino.net/ 说明 Digits指定小数宽度 JxXwmA http://blog.numino.net/ 参考 function SysUtils.FloatToText Am4xJK http://blog.numino.net/ 例子 GhpWZw http://blog.numino.net/ ///////Begin CurrToStrF 51vP8F http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3JdVr1 http://blog.numino.net/ begin oAzVLc http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), AMsgkS http://blog.numino.net/ ffGeneral, SpinEdit1.Value); lXrA7K http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, Fk6USe http://blog.numino.net/ 0), JJp0qx http://blog.numino.net/ ffExponent, SpinEdit1.Value); bhf1IG http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), hK01fw http://blog.numino.net/ ffFixed, SpinEdit1.Value); 125iOU http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), l1aS3G http://blog.numino.net/ ffNumber, SpinEdit1.Value); kv2N30 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, VWiVv3 http://blog.numino.net/ 0), l43Swj http://blog.numino.net/ ffCurrency, SpinEdit1.Value); 089YBB http://blog.numino.net/ end; FO46U4 http://blog.numino.net/ ///////End CurrToStrF u5eQ6p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3iqY9O http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: rMjRy3 http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; PZ4IR8 http://blog.numino.net/ $[SysUtils.pas BjYZSa http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 FobZYR http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 037Buy http://blog.numino.net/ 参考 <NULL> DaH7kr http://blog.numino.net/ 例子 88a42K http://blog.numino.net/ ///////Begin FloatToText uEVHxQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); q9XM49 http://blog.numino.net/ var 1sc92H http://blog.numino.net/ vBuffer: array[0..255] of Char; r8AOxy http://blog.numino.net/ E: Extended; 8tebE8 http://blog.numino.net/ begin 6wQEno http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); x8sozZ http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, TQCWsC http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 3bX3jj http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); iyLEar http://blog.numino.net/ end; BSw04S http://blog.numino.net/ ///////End FloatToText( 51794F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IQc0aI http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; G94603 http://blog.numino.net/ $[SysUtils.pas yO7Wo7 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 9zGcAU http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' xPlex9 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 53QcPT http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); Wy3O8q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1s9ZG3 http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; LOWSww http://blog.numino.net/ $[SysUtils.pas ln3aM7 http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 fxzrF8 http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' QhAEis http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt r9hMl8 http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); DaCVFi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BgkOAv http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: Poe57S http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas wJZ29o http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 PjdrXk http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 1iutmS http://blog.numino.net/ 参考 <NULL> p93wCc http://blog.numino.net/ 例子 CUU1eH http://blog.numino.net/ ///////Begin FloatToTextFmt JP5bB3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); p0Sp9X http://blog.numino.net/ var i5j3kV http://blog.numino.net/ vBuffer: array[0..255] of Char; 85LeVe http://blog.numino.net/ E: Extended; 04BzTl http://blog.numino.net/ begin abczhY http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); Ol8U1Y http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 9Z01w5 http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); 6lH97Q http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); M3o4P3 http://blog.numino.net/ end; 4m8R0S http://blog.numino.net/ ///////End FloatToTextFmt r5SvDG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2iKIE9 http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas 7L7w2T http://blog.numino.net/ 功能 返回字符串S转换成浮点数 X3OCKY http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 0TOrVG http://blog.numino.net/ 参考 function SysUtils.TextToFloat VHA2Ru http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; s0544u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2KJck3 http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): Wh6ZWA http://blog.numino.net/ Extended; $[SysUtils.pas 37Y27f http://blog.numino.net/ 功能 返回字符串S转换成浮点数 frhqjs http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default TxAChf http://blog.numino.net/ 参考 function SysUtils.TextToFloat S0796I http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; xu0bbK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cGrmeK http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; N4FccA http://blog.numino.net/ overload; $[SysUtils.pas 90CoO2 http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; 7f32hh http://blog.numino.net/ overload; $[SysUtils.pas 5e2Juh http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; GBJu09 http://blog.numino.net/ overload; $[SysUtils.pas wHqVe2 http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 2WOB0y http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 MF37S6 http://blog.numino.net/ 参考 function SysUtils.TextToFloat ZqNxwU http://blog.numino.net/ 例子 5OrUUh http://blog.numino.net/ ///////Begin TryStrToFloat UGFQXU http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); O2cgNO http://blog.numino.net/ var KWG3wT http://blog.numino.net/ E: Extended; 3azqap http://blog.numino.net/ begin CFINoY http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); DzEigH http://blog.numino.net/ Edit2.Text := FormatFloat('', E); R8p5vL http://blog.numino.net/ end; iF421a http://blog.numino.net/ ///////End TryStrToFloat j9Gj79 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Tsg8Jl http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas SFUFu0 http://blog.numino.net/ 功能 返回字符串S转换成货币数 Bu6757 http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 Q3Qg03 http://blog.numino.net/ 参考 function SysUtils.TextToFloat hQwWxO http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 8wY0pd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0IeFBO http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): HFGqtJ http://blog.numino.net/ Currency; $[SysUtils.pas 8PSjA3 http://blog.numino.net/ 功能 返回字符串S转换成货币数 Rfj3lk http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default EY8Xf8 http://blog.numino.net/ 参考 function SysUtils.TextToFloat Mh6YCv http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 1h7HqD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Odym31 http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; 4IM67K http://blog.numino.net/ $[SysUtils.pas yV97nP http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 2t29jI http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 6cMQhP http://blog.numino.net/ 参考 function SysUtils.TextToFloat 7B08PW http://blog.numino.net/ 例子 1znfco http://blog.numino.net/ ///////Begin TryStrToCurr amXe3b http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1RNbbY http://blog.numino.net/ var 58bN2b http://blog.numino.net/ C: Currency; 37ureI http://blog.numino.net/ begin CEIwF0 http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); 4GkxvC http://blog.numino.net/ Edit2.Text := FormatCurr('', C); cNE13F http://blog.numino.net/ end; QCE0YN http://blog.numino.net/ ///////End TryStrToCurr RLw8g8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LPN1D4 http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): 8yY0W1 http://blog.numino.net/ Boolean; $[SysUtils.pas lO10su http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value r4U3n6 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 j9eApY http://blog.numino.net/ 参考 <NULL> 0562FM http://blog.numino.net/ 例子 am156u http://blog.numino.net/ ///////Begin TextToFloat h2Mm9O http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7FD46o http://blog.numino.net/ var rFKbso http://blog.numino.net/ E: Extended; 658Hc1 http://blog.numino.net/ begin SkFHo9 http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, E3L7bM http://blog.numino.net/ fvExtended); lBh6yL http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 8je6z2 http://blog.numino.net/ end; fSd4Jh http://blog.numino.net/ ///////End TextToFloat 3ww6R0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0thbj2 http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas WVUDG3 http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 EPiXWu http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 zroA5f http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat MdzkXG http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); mLJ9Kw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sI5z3T http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 4Xxq0O http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 VbKHcw http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 9sL6mu http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat yk4DBN http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); 3Ne7HX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L6wmZv http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; kOsDi3 http://blog.numino.net/ $[SysUtils.pas EzKCKr http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 Jj3T3m http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 iWGmb6 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString K31qi9 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); dVs7kM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ls5iCM http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas bOJRo6 http://blog.numino.net/ 功能 返回字符串S转换成日期 qNXA47 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 4HcTOy http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 8g7Fbo http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); YRI75j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Mr3tYE http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): Yg7UKY http://blog.numino.net/ TDateTime; $[SysUtils.pas y9w041 http://blog.numino.net/ 功能 返回字符串S转换成日期 tyVnTR http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default BfeLo8 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate Ms7wue http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); btXpPR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y20DzS http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; Ts0BIP http://blog.numino.net/ $[SysUtils.pas UXPL7m http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 i3OSZk http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 JYl9mI http://blog.numino.net/ 参考 <NULL> Ez6kcC http://blog.numino.net/ 例子 22bsyd http://blog.numino.net/ ///////Begin TryStrToDate 8bZKug http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); P7Oj7Z http://blog.numino.net/ var REe7ei http://blog.numino.net/ vDateTime: TDateTime; 5whmBp http://blog.numino.net/ begin 4ilZpt http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); j1AQVN http://blog.numino.net/ DateTimePicker1.Date := vDateTime; zYx2md http://blog.numino.net/ end; 7TqBLk http://blog.numino.net/ ///////End TryStrToDate 48M96c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8Y2831 http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas H86ze7 http://blog.numino.net/ 功能 返回字符串S转换成时间 ZaAm7S http://blog.numino.net/ 说明 字符非时间表达时将引起异常 WGqHK0 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime IGvF00 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); yaSnL1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 65RJ77 http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): 906fgW http://blog.numino.net/ TDateTime; $[SysUtils.pas maPyOc http://blog.numino.net/ 功能 返回字符串S转换成时间 Oxe4oJ http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default B3Pg6a http://blog.numino.net/ 参考 function SysUtils.TryStrToTime cQBu53 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); c645EK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X0iBGa http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; DrTVBD http://blog.numino.net/ $[SysUtils.pas 4IqKdf http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 0wA46J http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 Ab5I9q http://blog.numino.net/ 参考 <NULL> zDjJXB http://blog.numino.net/ 例子 A9X1pC http://blog.numino.net/ ///////Begin TryStrToTime 13TQuM http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 77cClX http://blog.numino.net/ var 7P4qgY http://blog.numino.net/ vDateTime: TDateTime; PNv2Q3 http://blog.numino.net/ begin gqKnAt http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); UtGZso http://blog.numino.net/ DateTimePicker1.Time := vDateTime; I0Qkl1 http://blog.numino.net/ end; yEsYZr http://blog.numino.net/ ///////End TryStrToTime Ej8l65 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nIUBJf http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas DY0cAV http://blog.numino.net/ 功能 返回字符串S转换成日期时间 uXv9Dn http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 jw1Z5A http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime P5z3PE http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 7l800n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xkcWHs http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): a7bY5t http://blog.numino.net/ TDateTime; $[SysUtils.pas TTnytj http://blog.numino.net/ 功能 返回字符串S转换成日期时间 bYtbsB http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default eWi98E http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime DpX3Jn http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); qU64ug http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T7IZbO http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): UJH1if http://blog.numino.net/ Boolean; $[SysUtils.pas 5JaYBG http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 S1wpk1 http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 26299b http://blog.numino.net/ 参考 <NULL> yJ02DK http://blog.numino.net/ 例子 DW3Q7m http://blog.numino.net/ ///////Begin TryStrToDateTime v2bBEM http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); K04mE4 http://blog.numino.net/ var H99Ki7 http://blog.numino.net/ vDateTime: TDateTime; 1GK1CG http://blog.numino.net/ begin Gl44O8 http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 5OR9Q6 http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); hfHQB8 http://blog.numino.net/ end; I2ck96 http://blog.numino.net/ ///////End TryStrToDateTime vpWo6T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wA5R0V http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; gxRSWG http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas M2H2T7 http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 85AB4c http://blog.numino.net/ 说明 <参见FormatDateTime> 8r9r6X http://blog.numino.net/ 参考 function System.SetString x48QbX http://blog.numino.net/ 例子 <参见FormatDateTime> 6ZzEJJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3YL8Yl http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: 5ynF25 http://blog.numino.net/ string): string; platform; $[SysUtils.pas dAmInX http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 j724il http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' Tn6OSf http://blog.numino.net/ 参考 function Windows.GetLocaleInfo V0A493 http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); IJ13O9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FH92WU http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): nX2TOF http://blog.numino.net/ Char; platform; $[SysUtils.pas j1B9T3 http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 Q0rKkN http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' nlFfc5 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo WFQNrx http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); 210OdM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 50SyZw http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; 5c5Kr6 http://blog.numino.net/ $[SysUtils.pas lGBV07 http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 7ESEN0 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) QfwCdK http://blog.numino.net/ 参考 var SysUtils.SysLocale n4mQAF http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); uEJZzq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B47s7g http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 7x67MA http://blog.numino.net/ $[SysUtils.pas n69ZE8 http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 qXJ9NK http://blog.numino.net/ 说明 Index从0开始 T2uCbi http://blog.numino.net/ 参考 var SysUtils.SysLocale 5KX51y http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), 1e89y5 http://blog.numino.net/ SpinEdit2.Value)); EM05xl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cCXDOo http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; GjP4e2 http://blog.numino.net/ $[SysUtils.pas trNnj7 http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 Xco5Gh http://blog.numino.net/ 说明 MaxLen指定处理字符个数 m391ow http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex 1wuH4j http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 1B213E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AZi56a http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; 1uy58V http://blog.numino.net/ $[SysUtils.pas IRCQFe http://blog.numino.net/ 功能 返回字符串S中有多少个字符 g3Pk9J http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 rB4NjO http://blog.numino.net/ 参考 var SysUtils.SysLocale TzOJE4 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 8Dif5b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8hxPjI http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; z4Baxx http://blog.numino.net/ $[SysUtils.pas 5794L8 http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 l6uWai http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 TIY6qw http://blog.numino.net/ 参考 function SysUtils.NextCharIndex u2bJfZ http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); TpjOY8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a49mBU http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; Hv02dk http://blog.numino.net/ $[SysUtils.pas 66Pxb5 http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 i13G1t http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 eyMj0r http://blog.numino.net/ 参考 function System.Length 0aI5Rj http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); mx6aKC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LLh27m http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas fi361o http://blog.numino.net/ 功能 返回第一个字符的宽度 eKDMwG http://blog.numino.net/ 说明 参数为空则返回0 Pp3mjM http://blog.numino.net/ 参考 function Windows.CharNext pGm8TX http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); i77Xkj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9otZop http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas PZm4G0 http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 qKyuJM http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; pCRXQ8 http://blog.numino.net/ 参考 function Windows.CharNext 36h7Mv http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); Qd1lg8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2GAXnv http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; xCni0A http://blog.numino.net/ $[SysUtils.pas FOpi1Y http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 PFNlZ4 http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 9m1tH7 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength vBhLA2 http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); L4EaNO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6O6u53 http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; lzHu57 http://blog.numino.net/ $[SysUtils.pas ERPLCn http://blog.numino.net/ 功能 返回下一个字符的位置 WSJnvr http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 F9GYXJ http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength FpBZrJ http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); 5u3Ov4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dMj8m0 http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; qLyXTb http://blog.numino.net/ $[SysUtils.pas HPB18w http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 0q2fDD http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True TEMMsq http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType XYXXGo http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); cdtPzZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l8xWQo http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): vo32HQ http://blog.numino.net/ Boolean; $[SysUtils.pas 9AGGGp http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters uZV37a http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 9v6DJ8 http://blog.numino.net/ 参考 function SysUtils.ByteType v3Uyz1 http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, 13cWEM http://blog.numino.net/ SpinEdit1.Value); BSnuvp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a49oqC http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; kfMhyy http://blog.numino.net/ $[SysUtils.pas 9UzvDo http://blog.numino.net/ 功能 返回包括最后路径分隔符 2vMk9J http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 2IV50E http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length fIiPmZ http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 4G4QiY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ We5bd0 http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; KUZF67 http://blog.numino.net/ $[SysUtils.pas G8pSYe http://blog.numino.net/ 功能 返回包括最后斜线 uN5ICd http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); Ec87DR http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter 91i3tC http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); Fv8a9A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bd6FU4 http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; wh9lcy http://blog.numino.net/ $[SysUtils.pas aW8lR9 http://blog.numino.net/ 功能 返回排除最后路径分隔符 kTiYZn http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 LloQx2 http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function reX8gw http://blog.numino.net/ System.SetLength 0X3fh7 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); kbz2NH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MrcXyR http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; 2x6Qr9 http://blog.numino.net/ $[SysUtils.pas ayf6BH http://blog.numino.net/ 功能 返回排除最后斜线 cOGY3x http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) 30txms http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter fUDQqJ http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); wfC4W4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q56F9I http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; MwfDh5 http://blog.numino.net/ $[SysUtils.pas dv3ZkG http://blog.numino.net/ 功能 返回最后一个分隔符的位置 0Q0cM2 http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 oTcw47 http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType W22iwl http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); t7ZkXw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rqN0nL http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; glWGPB http://blog.numino.net/ $[SysUtils.pas 43YPzS http://blog.numino.net/ 功能 返回比较两个文件名 6ehPQg http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 b9HCf7 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr B2q512 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); dTWqHl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UB86Zk http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas K8pdKO http://blog.numino.net/ 功能 返回两个文件名是否相等 Yoj0Y7 http://blog.numino.net/ 说明 区分大小写 3tfAxP http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName 2g9u1N http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); QsGG98 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FN5h06 http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas AUJAHh http://blog.numino.net/ 功能 返回小写文件名 uiD5nv http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase D9sNGm http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase 6iAM9O http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); 9o4TIq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CZ9F3t http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas uJ35AD http://blog.numino.net/ 功能 返回大写文件名 0mvtDV http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase b6O2bI http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase UzM48S http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); kanF97 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 046yt3 http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas 63WIsR http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 VKFB5n http://blog.numino.net/ 说明 不存在则返回0 42eKcO http://blog.numino.net/ 参考 SysUtils.AnsiStrPos pVsYWM http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); nz1VG2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k6ti6c http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas kt0KSj http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 tHf477 http://blog.numino.net/ 说明 不存在则返回nil SdmO0D http://blog.numino.net/ 参考 function SysUtils.StrByteType N7O74A http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 2E3Kk0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wKvCDV http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas mk2GX2 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 7GgZrH http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' dXu8LS http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan F6RfQo http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); Rx0C7H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8AqIZS http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 5q564V http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 wggxrN http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' A2uBMt http://blog.numino.net/ 参考 function SysUtils.StrScan Waq0SY http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 6u8dvA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cfjeC8 http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: 9jk0n7 http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas x02J2t http://blog.numino.net/ 功能 返回替换后的字符串 4RATiu http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 5CRJRc http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function pImq5v http://blog.numino.net/ System.Copy r4Q55H http://blog.numino.net/ 例子 7ahNzJ http://blog.numino.net/ ///////Begin StringReplace Ioy0lu http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); zvPPNz http://blog.numino.net/ begin ACcYs9 http://blog.numino.net/ Memo1.Lines.Values['[]'] := IKh07k http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); b0ZEVv http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := hhL7x0 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); o2Blc0 http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := HJW4AS http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); ud8I81 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := On4Djc http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, gd7F2Y http://blog.numino.net/ rfIgnoreCase]); OPOK2M http://blog.numino.net/ end; 64Nx0a http://blog.numino.net/ ///////End StringReplace mROOoL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rzHZDa http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas O86QWr http://blog.numino.net/ 功能 返回字符串S转换成全局标识 RGs0JB http://blog.numino.net/ 说明 如果字符串非法将触发异常 Q03PV1 http://blog.numino.net/ 参考 fuction Windows.Succeeded e3DQ5p http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); Kbfm54 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JEvc8N http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas JxgMdo http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 kFOdn1 http://blog.numino.net/ 说明 <NULL> 7hvkwo http://blog.numino.net/ 参考 fuction Windows.Succeeded lj5a9S http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); n4L3ib http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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