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

Delphi字符串函数大全 【字符串函数大全】 5QjfQ3 http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; CKAAaZ http://blog.numino.net/ $[StrUtils.pas ZPxL6V http://blog.numino.net/ 功能 返回两个字符串是否相似 0ze69o http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 PL66wc http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc FUcJa7 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 4M5cr6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5AURau http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 6649K3 http://blog.numino.net/ $[StrUtils.pas Qo0aak http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText qBFw1U http://blog.numino.net/ 说明 不区分大小写 Bv6cU4 http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos B9b9ww http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); s9X6aQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8F9u35 http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; 1IpJ7h http://blog.numino.net/ $[StrUtils.pas wAB26B http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 9pzX2u http://blog.numino.net/ 说明 不区分大小写 23SF6L http://blog.numino.net/ 参考 function Windows.CompareString IgXNGR http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); YZ13dc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o4262l http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; AvjBz7 http://blog.numino.net/ $[StrUtils.pas 9AyXHW http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 GCedns http://blog.numino.net/ 说明 不区分大小写 C04t51 http://blog.numino.net/ 参考 function Windows.CompareString iym8en http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); 2uvXzf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Oo2Bl4 http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 48tHI8 http://blog.numino.net/ string; $[StrUtils.pas FGfj65 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 UckNpr http://blog.numino.net/ 说明 不区分大小写 3c8w6j http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 4lXB26 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); FyUR88 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V3L6E2 http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of 2VQ5F2 http://blog.numino.net/ string): Boolean; $[StrUtils.pas s3TymV http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText wC9W5x http://blog.numino.net/ 说明 不区分大小写 36d8tw http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText 20l5E9 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', OMS6nl http://blog.numino.net/ 'a4']); Yzks11 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Pozv7r http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of bHetJU http://blog.numino.net/ string): Integer; $[StrUtils.pas uu1Bcm http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 krKc8M http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 57h9zI http://blog.numino.net/ 参考 function SysUtils.AnsiSameText 1iXvey http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); jF5GIa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5EtT2c http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; hf9hYT http://blog.numino.net/ $[StrUtils.pas Cyl31M http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText rRIo0i http://blog.numino.net/ 说明 区分大小写 0HcO7O http://blog.numino.net/ 参考 function StrUtils.AnsiPos 4U8A0g http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 90jS0e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0dJA98 http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; jwA3x1 http://blog.numino.net/ $[StrUtils.pas jPxsR6 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 B84nUe http://blog.numino.net/ 说明 区分大小写 GeyiL8 http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr ohyTKK http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); z3win3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4DKyEh http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; BK1lOr http://blog.numino.net/ $[StrUtils.pas w6tFzZ http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 T0KGPH http://blog.numino.net/ 说明 区分大小写 997vDs http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr n3pWmD http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); ebJ4vA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WK9Gng http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): 00l4GR http://blog.numino.net/ string; $[StrUtils.pas Q0ls0P http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 2I109C http://blog.numino.net/ 说明 区分大小写 fpXTzq http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 3j3cbw http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); 2p0621 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kAP7iT http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of TrIgKl http://blog.numino.net/ string): Boolean; $[StrUtils.pas jUb0oZ http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText J66ml3 http://blog.numino.net/ 说明 区分大小写 BZgE25 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr uY6EmC http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', ko5SKU http://blog.numino.net/ 'a4']); 4DQ58Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nz1g4T http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of y1x98D http://blog.numino.net/ string): Integer; $[StrUtils.pas QImjXA http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 JG1zlF http://blog.numino.net/ 说明 区分大小写 15eFqq http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr l8S6DH http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 98n3ut http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4UPY2f http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; 686jlX http://blog.numino.net/ $[StrUtils.pas Nhvv6A http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 ai4D9q http://blog.numino.net/ 说明 当ACount为0时返回'' li7371 http://blog.numino.net/ 参考 function System.SetLength 3twL4p http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); R58vYM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xdCj7I http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas hqkab2 http://blog.numino.net/ 功能 返回字符串AText的反序 11q4B3 http://blog.numino.net/ 说明 ReverseString('1234') = '4321' Sw329p http://blog.numino.net/ 参考 function System.SetLength HY81dH http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); O8cXak http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7EuOd4 http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; Yyinzw http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas WQSzvO http://blog.numino.net/ 功能 返回嵌套字符串 XFxr4v http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' D7MRDl http://blog.numino.net/ 参考 function System.Copy iQ6DEx http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, 9Y6273 http://blog.numino.net/ Edit2.Text); 2bT5oA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tbftPS http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; LCn33u http://blog.numino.net/ $[StrUtils.pas QS5y4L http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 8yFbBP http://blog.numino.net/ 说明 之前建议执行Randomize IRIlJH http://blog.numino.net/ 参考 function System.Random WXawCi http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); 0kVbY3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wEnq73 http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = T40cnF http://blog.numino.net/ ''): string; overload; $[StrUtils.pas Cf77U4 http://blog.numino.net/ 功能 返回指定的逻辑字符串 7v39LO http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' nqDKn8 http://blog.numino.net/ 参考 <NULL> ElWnCU http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); 94d8HS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PKpWq5 http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; S8hWK6 http://blog.numino.net/ $[StrUtils.pas JeJB37 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 xmiMuG http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' rGjwh3 http://blog.numino.net/ 参考 function System.Copy 0AqsKI http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); rf9RJs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x6u5Kj http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; JcwVep http://blog.numino.net/ $[StrUtils.pas o8kY49 http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 ITnqOj http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' 67lx2A http://blog.numino.net/ 参考 function System.Copy HGPx2t http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); XLcdg8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ g221X6 http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): 7hHdmY http://blog.numino.net/ string; $[StrUtils.pas bwY54o http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 6e983y http://blog.numino.net/ 说明 其实就是Copy B61geS http://blog.numino.net/ 参考 function System.Copy IP2eYo http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 6iay3n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7FuH9v http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: mu831K http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): bvXE0b http://blog.numino.net/ PChar; $[StrUtils.pas wrf5fa http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 mg5L7V http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 vpD9W9 http://blog.numino.net/ 参考 <NULL> m8x3Ul http://blog.numino.net/ 例子 nrn92K http://blog.numino.net/ ///////Begin SearchBuf cLkUGQ http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; thTWbh http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; Evv5Iy http://blog.numino.net/ var DNZZ3I http://blog.numino.net/ Buffer, P: PChar; mJOLaw http://blog.numino.net/ Size: Word; P8GNFK http://blog.numino.net/ begin jT7RFg http://blog.numino.net/ Result := False; BPYbTJ http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; 3503EA http://blog.numino.net/ Size := EditControl.GetTextLen; VUJIk5 http://blog.numino.net/ if (Size = 0) then Exit; G8oMcK http://blog.numino.net/ Buffer := StrAlloc(Size + 1); btF7O4 http://blog.numino.net/ try 06Uff4 http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); H4f6N5 http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, C73x82 http://blog.numino.net/ SearchString, SearchOptions); SPS59b http://blog.numino.net/ if P <> nil then begin 2zeM2j http://blog.numino.net/ EditControl.SelStart := P - Buffer; XJ8dx2 http://blog.numino.net/ EditControl.SelLength := Length(SearchString); j54cEl http://blog.numino.net/ Result := True; GG9ACJ http://blog.numino.net/ end; M0V50B http://blog.numino.net/ finally 8HmM7q http://blog.numino.net/ StrDispose(Buffer); XxJYYD http://blog.numino.net/ end; Eq8F3g http://blog.numino.net/ end; KNa52F http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); dLV9F1 http://blog.numino.net/ var fp3Ru6 http://blog.numino.net/ SearchOptions: TStringSearchOptions; MzWj3k http://blog.numino.net/ begin SFU31W http://blog.numino.net/ SearchOptions := []; zJbKIl http://blog.numino.net/ if CheckBox1.Checked then HPnQwm http://blog.numino.net/ Include(SearchOptions, soDown); ojHpDe http://blog.numino.net/ if CheckBox2.Checked then Ka9AY9 http://blog.numino.net/ Include(SearchOptions, soMatchCase); Px367o http://blog.numino.net/ if CheckBox3.Checked then PWaG9l http://blog.numino.net/ Include(SearchOptions, soWholeWord); w09tVD http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); dw8LXQ http://blog.numino.net/ Memo1.SetFocus; B29xZU http://blog.numino.net/ end; fX0jor http://blog.numino.net/ ///////End SearchBuf SJso9g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ atw3U7 http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): FVKsng http://blog.numino.net/ string; $[StrUtils.pas v1MC1d http://blog.numino.net/ 功能 返回探测字符串 vaPid5 http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html k9VHnZ http://blog.numino.net/ 参考 <NULL> lA8XT3 http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); csHpj5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nj8AGs http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = ne7TCj http://blog.numino.net/ 4): Integer; $[StrUtils.pas 6GmjIX http://blog.numino.net/ 功能 返回探测整数 x398g0 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 1T7U2A http://blog.numino.net/ 参考 <NULL> p3hp13 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); kjfJ4Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QQMEfl http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas Hsg6kL http://blog.numino.net/ 功能 返回探测整数的解码 v2pd0n http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') o86W0n http://blog.numino.net/ 参考 <NULL> HnHqhK http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); woSUa3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dAbWnM http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas gqa16P http://blog.numino.net/ 功能 返回探测文字数值 2Vr2mP http://blog.numino.net/ 说明 没有参数ALength已经固定为4 UxO35f http://blog.numino.net/ 参考 <NULL> B29mCp http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); I2KJv6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nF79nY http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas S6VRP2 http://blog.numino.net/ 功能 返回探测文字数值的解码 IELl1u http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') l4dUtq http://blog.numino.net/ 参考 <NULL> s107Br http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); vGoltc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L1Ty0z http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: gixC5a http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas So31kY http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 GIJD12 http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 676QCv http://blog.numino.net/ 参考 <NULL> 3VSZB9 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, ZDaQjR http://blog.numino.net/ SpinEdit1.Value); 5OCEsJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aqL6ih http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: hui32r http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas dt25vs http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 AHD54O http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, Je11c4 http://blog.numino.net/ ALength)) x1qc8B http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr tS62q7 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, Hgp59w http://blog.numino.net/ SpinEdit1.Value); LL3793 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yhTl4E http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; M40T2u http://blog.numino.net/ $[StrUtils.pas fPd9Z5 http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 CDWu7Q http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 2WF0ug http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText Ep09JF http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] DHMuGY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m8sKJ6 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas Vtv26S http://blog.numino.net/ 功能 返回一个新的字符串指针地址 0V1Elw http://blog.numino.net/ 说明 字符串S为空时返回NullStr d5YslM http://blog.numino.net/ 参考 procedure System.New 4eI7lf http://blog.numino.net/ 例子 4fnK37 http://blog.numino.net/ ////////Begin NewStr,DisposeStr 8a1sZp http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); xg1K3y http://blog.numino.net/ var p7M27E http://blog.numino.net/ P: PString; pyo9Yx http://blog.numino.net/ begin 51319B http://blog.numino.net/ P := NewStr(Edit1.Text); OQvflB http://blog.numino.net/ Edit2.Text := P^; 0tE2Vf http://blog.numino.net/ DisposeStr(P); wIXPL1 http://blog.numino.net/ end; z1E6JJ http://blog.numino.net/ ////////End NewStr,DisposeStr JMy9NM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6S3Dr6 http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas Y58MU5 http://blog.numino.net/ 功能 释放字符串指针P资源 S8sn5J http://blog.numino.net/ 说明 配合函数NewStr使用 j29wk3 http://blog.numino.net/ 参考 procedure System.Dispose ZqJNNI http://blog.numino.net/ 例子 <如上参见,如下参见> JBNn2L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JHeeMY http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; 6sWdY4 http://blog.numino.net/ $[SysUtils.pas MdAnpS http://blog.numino.net/ 功能 将字符串S更新给字符串指针P 174AgA http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 84Gy82 http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr 9twdo9 http://blog.numino.net/ 例子 J2fWqg http://blog.numino.net/ ////////Begin AssignStr Ut6C3G http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); SKwEIr http://blog.numino.net/ var 40shnh http://blog.numino.net/ P: PString; 9jW3Iy http://blog.numino.net/ begin fDFijO http://blog.numino.net/ P := nil; nU20n2 http://blog.numino.net/ AssignStr(P, Edit1.Text); Tjurc2 http://blog.numino.net/ Edit2.Text := P^; ZOkczL http://blog.numino.net/ DisposeStr(P); rAWHLb http://blog.numino.net/ end; j7SS02 http://blog.numino.net/ ////////End AssignStr fV1uTN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 03CnpU http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; BSTBAu http://blog.numino.net/ $[SysUtils.pas RLYkd8 http://blog.numino.net/ 功能 在字符串Dest后追加字符串S 3aY1nt http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 ycubsE http://blog.numino.net/ 参考 <NULL> PdpL5z http://blog.numino.net/ 例子 XS1OF5 http://blog.numino.net/ ////////Begin AppendStr Nh2IJQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); oz4hKH http://blog.numino.net/ var 7iShJl http://blog.numino.net/ S: string; Do1bes http://blog.numino.net/ begin uLcv5R http://blog.numino.net/ S := Edit2.Text; S617I6 http://blog.numino.net/ AppendStr(S, Edit1.Text); iMWsKq http://blog.numino.net/ Edit2.Text := S; 2kdhhG http://blog.numino.net/ end; h1Hnm1 http://blog.numino.net/ ////////End AppendStr g40Fkd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3ensV7 http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas Ihe7Kt http://blog.numino.net/ 功能 返回字符串S的大写形式 wySnSo http://blog.numino.net/ 说明 非小写字符不处理 jQ97r0 http://blog.numino.net/ 参考 procedure System.SetLength c63SJL http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); ssoYba http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a94s03 http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas R0a2ZX http://blog.numino.net/ 功能 返回字符串S的小写形式 tENsP8 http://blog.numino.net/ 说明 非大写字符不处理 6F9Edm http://blog.numino.net/ 参考 procedure System.SetLength SXtxA8 http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); jS67w6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PB8u7r http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas 2P2Sc2 http://blog.numino.net/ 功能 返回比较两个字符 CT5SQ9 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 1XPopc http://blog.numino.net/ 参考 <NULL> py8Nz4 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); 2KG4If http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MdUsan http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; 444A3n http://blog.numino.net/ assembler; $[SysUtils.pas Ib5xt1 http://blog.numino.net/ 功能 返回比较两个内存指针 yzNA21 http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), 6EWbck http://blog.numino.net/ PChar('12c'), 3)=False YnfAKc http://blog.numino.net/ 参考 <NULL> bO9oWj http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); xitZ16 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q77CUW http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas QdT29b http://blog.numino.net/ 功能 返回比较两个字符串 p1T0bC http://blog.numino.net/ 说明 不区分大小写 SJZK2W http://blog.numino.net/ 参考 <NULL> cncMia http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); Ni42ns http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EZc6X7 http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas B5kQ58 http://blog.numino.net/ 功能 返回两个字符串是否相等 mYdtcq http://blog.numino.net/ 说明 不区分大小写 CAgnbx http://blog.numino.net/ 参考 <NULL> 1tpUyu http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); zmc431 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O08EDi http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas zaLLvs http://blog.numino.net/ 功能 返回字符串S的大写形式 WAFtGh http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 TTR6W4 http://blog.numino.net/ 参考 function Windows.CharUpperBuff udNHac http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); Hk07Vg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L2nyi1 http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas wHN6l2 http://blog.numino.net/ 功能 返回字符串S的小写形式 w36gN7 http://blog.numino.net/ 说明 非大写字符不处理 47nA2C http://blog.numino.net/ 参考 function Windows.CharLowerBuff Vp1gka http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); HUXYLX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c51it6 http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas xT7l1c http://blog.numino.net/ 功能 反回比较两个字符串 WvrCR9 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 rf3dOt http://blog.numino.net/ 参考 function Windows.CompareString vHzCYX http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 1OFb7D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m5Q63K http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas O68FAR http://blog.numino.net/ 功能 返回两个字符串是否相等 neB2Ag http://blog.numino.net/ 说明 区分大小写 w9E5JP http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr RgMYcB http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); 4X0jNA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w9zYJk http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 6YPIkv http://blog.numino.net/ 功能 反回比较两个字符串 wL46Cu http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 7Qy3tl http://blog.numino.net/ 参考 function Windows.CompareString wT942j http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); 2zXGCo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8hcPrQ http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas 5F0m96 http://blog.numino.net/ 功能 返回两个字符串是否相等 m6Y0W8 http://blog.numino.net/ 说明 不区分大小写 oSOa3P http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText 355G3u http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); wPMe8i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TtD9yu http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 6g5m2u http://blog.numino.net/ 功能 返回比较两个指针字符串 FVaw3V http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 BilL0D http://blog.numino.net/ 参考 function System.CompareString t7krx3 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) F75b6Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 10hJBA http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas 1W3175 http://blog.numino.net/ 功能 返回比较两个指针字符串 4z9pL1 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) Ts5SdX http://blog.numino.net/ 参考 function Windows.CompareString 2iR582 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) HjS0f2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Vi5F72 http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; Oo2Pau http://blog.numino.net/ $[SysUtils.pas b8Zp3Q http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 V4ij0R http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 7PheMH http://blog.numino.net/ 参考 function Windows.CompareString S0hesi http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 2O7nTk http://blog.numino.net/ SpinEdit2.Value) aNWrBV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0sjeuk http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 3j3Clc http://blog.numino.net/ $[SysUtils.pas QX4D7k http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 5m94zP http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 5L5J54 http://blog.numino.net/ 参考 function Windows.CompareString O5n7ep http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), CVczuu http://blog.numino.net/ SpinEdit2.Value) iI5iym http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YBm2R0 http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas OEiW7c http://blog.numino.net/ 功能 返回指针字符串小写形式 W3Yos8 http://blog.numino.net/ 说明 非大写字符不处理 vUfNNb http://blog.numino.net/ 参考 function Windows.CharLower M572lM http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); MyiZ50 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 96oc98 http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas UA81he http://blog.numino.net/ 功能 返回指针字符串大写形式 poJ4DB http://blog.numino.net/ 说明 非小写字符不处理 tX0TU8 http://blog.numino.net/ 参考 function Windows.CharUpper nT1kdF http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); 6ML7aK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1i7Ez8 http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 65XLX8 http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 VvFDOU http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 bvk55R http://blog.numino.net/ 参考 function SysUtils.ByteType vnUbBz http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); Vyzg1h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gQLQcy http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas b9F8OW http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 Ez7Ken http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 8GuJ7G http://blog.numino.net/ 参考 function SysUtils.ByteType w8cyjJ http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); QpJqf2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 486drH http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas tp5Yl4 http://blog.numino.net/ 功能 返回双字节字符串的大写形式 kSSzDu http://blog.numino.net/ 说明 WideChar双字节字符 qw1at5 http://blog.numino.net/ 参考 function Windows.CharUpperBuffW vJ9fS6 http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); QMH9lt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CIpO76 http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas oG6Zig http://blog.numino.net/ 功能 返回双字节字符串的小写形式 OHgifB http://blog.numino.net/ 说明 我怎么就测试不出来呢 i5opcZ http://blog.numino.net/ 参考 function Windows.CharLowerBuffW Fw8Nax http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); aIgeDd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 46h2ZF http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; HscUw0 http://blog.numino.net/ $[SysUtils.pas 8890Tn http://blog.numino.net/ 功能 返回比较两个双字节字符串 h07AqL http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 9bJtg8 http://blog.numino.net/ 参考 function Windows.CompareStringW 4f2MU4 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); To6h72 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hjOHLd http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas YY9FIQ http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 riQZaC http://blog.numino.net/ 说明 区分大小写 rzX2MV http://blog.numino.net/ 参考 function SysUtils.WideCompareStr 78iyQn http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 8qUpkG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O800VZ http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; 6Y1Zal http://blog.numino.net/ $[SysUtils.pas 4F8j3Z http://blog.numino.net/ 功能 返回比较两个双字节字符串 0zncZY http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 7x7er3 http://blog.numino.net/ 参考 function Windows.CompareStringW vu17wC http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); 7fJSIt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 736I71 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; Sp6udL http://blog.numino.net/ $[SysUtils.pas 5TeEZ4 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 D3ZF6L http://blog.numino.net/ 说明 不区分大小写 aZjDJ9 http://blog.numino.net/ 参考 function SysUtils.WideCompareText 7tL7x2 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); bFV3G5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Hbw00j http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas KapIB7 http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; J1A20p http://blog.numino.net/ $[SysUtils.pas P1ci9N http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 exo1WU http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 vm623O http://blog.numino.net/ 参考 function System.Copy rmqPxL http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); 9h1ZFA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WA5vfE http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas zDwFc3 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; 5AA5Ge http://blog.numino.net/ $[SysUtils.pas Dir89p http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 A799yI http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 t7EdZM http://blog.numino.net/ 参考 function System.Copy vjYuom http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); y4771F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3qe01I http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas eD6dxZ http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; Nj4Mgv http://blog.numino.net/ $[SysUtils.pas PVG69H http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 vuoHuf http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 sk1Ve4 http://blog.numino.net/ 参考 function System.Copy uemF3O http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); YpBVHv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tKxwe1 http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas Uz2gec http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 sSxQJR http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 9Y28Be http://blog.numino.net/ 参考 procedure System.Insert j1UsO4 http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); 0ncc9z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VhCTEL http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; KPOAli http://blog.numino.net/ $[SysUtils.pas EXW6M4 http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 jpezc2 http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', Z44AqN http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' NLFWMT http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan tj6MEy http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); 3wVTYU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ li9iXq http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; nXx5q0 http://blog.numino.net/ $[SysUtils.pas ZE3J59 http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 ah698Z http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 01HrZr http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan LLI8C8 http://blog.numino.net/ 例子 DKdotK http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr 6K3h9w http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7V9UAu http://blog.numino.net/ var cNYLXL http://blog.numino.net/ P: PChar; MaH9vY http://blog.numino.net/ begin cA9TZq http://blog.numino.net/ P := PChar(Edit1.Text); 84hf7n http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); V4T649 http://blog.numino.net/ Edit3.Text := P; z1o9oR http://blog.numino.net/ end; SNHv2B http://blog.numino.net/ ///////End AnsiExtractQuotedStr 219kty http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eijp61 http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 2p9qnA http://blog.numino.net/ $[SysUtils.pas QGTAMc http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 gcmJ1Q http://blog.numino.net/ 说明 表现形式非法时则返回S Ani19e http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr 9iwYD9 http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); vXJZWB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ it5gEa http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = TyPUkD http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): iGPQMA http://blog.numino.net/ string; $[SysUtils.pas dNAKyG http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 S7KsaX http://blog.numino.net/ 说明 h2G2Le 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 mwcLu4 http://blog.numino.net/ 参考 function SysUtils.StrNextChar 3UWq5J http://blog.numino.net/ 例子 <NULL> vq5rEp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WQVU0O http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 3AZ9rn http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 7x25l8 http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... W09jSm http://blog.numino.net/ 参考 <NULL> RtFuvt http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); wwO0I0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nGy5q0 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas NQTSER http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas gef7da http://blog.numino.net/ 功能 返回整数Value转换成字符串 4qUZ8H http://blog.numino.net/ 说明 Format('%d', [Value]) i8TsVF http://blog.numino.net/ 参考 function SysUtils.FmtStr sQl632 http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 3zSw5Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KvN6pv http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; IApc11 http://blog.numino.net/ $[SysUtils.pas zLBTSB http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; 8VDREg http://blog.numino.net/ $[SysUtils.pas z2R727 http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) UQu0o0 http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 a1A0LG http://blog.numino.net/ 参考 function SysUtils.FmtStr TLgVTY http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); pd2wNz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0FG0a1 http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas 7tY4ec http://blog.numino.net/ 功能 返回字符串S转换成整数 byw1sr http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 AF2eF8 http://blog.numino.net/ 参考 procedure System.Val 8VZrUy http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); 0xQzQh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ acU052 http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; aoV5F9 http://blog.numino.net/ $[SysUtils.pas kKZsy2 http://blog.numino.net/ 功能 返回字符串S转换成整数 6KFTQR http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default S628E3 http://blog.numino.net/ 参考 procedure System.Val zK2PWn http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); w0TJyj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y404GV http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; xps7R9 http://blog.numino.net/ $[SysUtils.pas DgC2Gz http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 yx10o6 http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 WUrTUD http://blog.numino.net/ 参考 procedure System.Val W3tW7C http://blog.numino.net/ 例子 3PBV7n http://blog.numino.net/ ///////Begin TryStrToInt PAewPb http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9Gf2Ro http://blog.numino.net/ var BuA58V http://blog.numino.net/ I: Integer; n7ygfg http://blog.numino.net/ begin p91PEz http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); n88o13 http://blog.numino.net/ SpinEdit1.Value := I; Fozt7Z http://blog.numino.net/ end; vTs3bM http://blog.numino.net/ ///////End TryStrToInt 1PcxDt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8572cP http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas 6ZvtkX http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 e0Q7Kn http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 3Q52hG http://blog.numino.net/ 参考 procedure System.Val 5lo4Ov http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); L63xgb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5mP326 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 174KI4 http://blog.numino.net/ $[SysUtils.pas iDP3Gf http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 05DLr0 http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default s9vYYC http://blog.numino.net/ 参考 procedure System.Val VPe27c http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); 1Gz3Wn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KzJY0I http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; mW3E19 http://blog.numino.net/ $[SysUtils.pas 2A67Td http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 cYNX8q http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 Davz7n http://blog.numino.net/ 参考 procedure System.Val 448y3Z http://blog.numino.net/ 例子 1Xbpgb http://blog.numino.net/ ///////Begin TryStrToInt64 U2VR2y http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); J8f555 http://blog.numino.net/ var oDaPvm http://blog.numino.net/ I: Int64; D1dGd1 http://blog.numino.net/ begin zIsbB0 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); Bkrv0q http://blog.numino.net/ SpinEdit1.Value := I; pB8Gcg http://blog.numino.net/ end; th2HW1 http://blog.numino.net/ ///////End TryStrToInt64 suiNrU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QkAI3B http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas cSGmla http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 S4rK2M http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 3GH4kX http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 3B187r http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); 7k2u4D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JP45xj http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): kNS97W http://blog.numino.net/ Boolean; $[SysUtils.pas It01ht http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 UzrcLr http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default 4y2soa http://blog.numino.net/ 参考 function SysUtils.TryStrToBool o4e8qF http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); r7olHQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4MiVet http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; MwCUrl http://blog.numino.net/ $[SysUtils.pas RWNp7c http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 Qqa954 http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 1S3jLY http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var 94Zy04 http://blog.numino.net/ SysUtils.FalseBoolStrs goRh08 http://blog.numino.net/ 例子 4y7yzi http://blog.numino.net/ ///////Begin TryStrToBool 145Y2b http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); eOkwp1 http://blog.numino.net/ var IbJB6G http://blog.numino.net/ B: Boolean; 8yzJZR http://blog.numino.net/ begin mAG6kS http://blog.numino.net/ SetLength(TrueBoolStrs, 2); UbQLRL http://blog.numino.net/ SetLength(FalseBoolStrs, 2); 4FK12T http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 0h5H92 http://blog.numino.net/ FalseBoolStrs[0] := 'False'; I1J5h2 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; 5783xl http://blog.numino.net/ FalseBoolStrs[1] := 'No'; Z80ps1 http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); pAQIbP http://blog.numino.net/ CheckBox2.Checked := B; EdfA2Z http://blog.numino.net/ end; i09p3T http://blog.numino.net/ ///////End TryStrToBool NjIRny http://blog.numino.net/ 附加 1bryVw http://blog.numino.net/ ///////Begin TryStrToBool 47QWPZ http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; yxxNiG http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; Y2gVBq http://blog.numino.net/ var 4T574j http://blog.numino.net/ I: Integer; YRkyWq http://blog.numino.net/ begin s4aaD1 http://blog.numino.net/ Result := False; apy5ct http://blog.numino.net/ for I := Low(aArray) to High(aArray) do KUXDYo http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then 926Am3 http://blog.numino.net/ begin aQx8R6 http://blog.numino.net/ Result := True; z14Vxm http://blog.numino.net/ Break; G70OET http://blog.numino.net/ end; 5ioKu4 http://blog.numino.net/ end; pBtgkk http://blog.numino.net/ var 51VNu2 http://blog.numino.net/ LResult: Extended; zeaNPH http://blog.numino.net/ begin 7cXp6K http://blog.numino.net/ Result := TryStrToFloat(S, LResult); KpVd7G http://blog.numino.net/ if Result then QIc1t7 http://blog.numino.net/ Value := LResult <> 0 pJ8Kmi http://blog.numino.net/ else Cz2v30 http://blog.numino.net/ begin 8H3BW7 http://blog.numino.net/ Result := True; //修正处 96DwCz http://blog.numino.net/ VerifyBoolStrArray; 8ZjL8v http://blog.numino.net/ if CompareWith(TrueBoolStrs) then O9xUeg http://blog.numino.net/ Value := True 9O4uOo http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then 4fn5Yt http://blog.numino.net/ Value := False x5c24m http://blog.numino.net/ else 87vvOe http://blog.numino.net/ Result := False; aQIi47 http://blog.numino.net/ end; dIKIMA http://blog.numino.net/ end; sNY904 http://blog.numino.net/ ///////End TryStrToBool 5w7e5z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KV3qub http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; 4oYg2U http://blog.numino.net/ $[SysUtils.pas qnSVZK http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 8gcnfx http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 485p5b http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs mQ8T94 http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); 5cpr8L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TEBuow http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 44diuw http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 5M7dPq http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 wJ2zg4 http://blog.numino.net/ 参考 function SysUtils.FindStringResource Erqs6G http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); q731lK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7816Y5 http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): Ybno00 http://blog.numino.net/ string; $[SysUtils.pas kHyDuN http://blog.numino.net/ 功能 返回格式化的字符串资源 Izf03v http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 Gw8vIj http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource on12dN http://blog.numino.net/ 例子 <NULL>; 5StGcf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 57jtj4 http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas mexO9m http://blog.numino.net/ 功能 返回指针字符串的长度 rw6ojZ http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 2D5M98 http://blog.numino.net/ 参考 <NULL> Lmmp2p http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); ep6ASi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VkX80a http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas SdQPEk http://blog.numino.net/ 功能 返回指针字符串的结尾 2r1afA http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 CNa5Qt http://blog.numino.net/ 参考 <NULL> 9G1p5y http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; uVJv7z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v0m3xT http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): ZZk5Nx http://blog.numino.net/ PChar; $[SysUtils.pas No8dkx http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 Xn4vN3 http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 2beT4D http://blog.numino.net/ 参考 function System.Move yY3H7s http://blog.numino.net/ 例子 sGcwf3 http://blog.numino.net/ ///////Begin StrMove kOPOhz http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); X2cD1v http://blog.numino.net/ var als3eP http://blog.numino.net/ vBuffer: PChar; uyRL8R http://blog.numino.net/ begin mT3w2v http://blog.numino.net/ vBuffer := '0123456789'; 2XmQ16 http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); pRJ6Zv http://blog.numino.net/ Edit2.Text := vBuffer; ieM11s http://blog.numino.net/ end; MW9CCw http://blog.numino.net/ ///////End StrMove Q708n1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TS01o8 http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; VaB6V0 http://blog.numino.net/ $[SysUtils.pas Nsgotw http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 IQI1Lf http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 aW7nTG http://blog.numino.net/ 参考 <NULL> 3K1qrr http://blog.numino.net/ 例子 00JO9i http://blog.numino.net/ ///////Begin StrCopy p0oLc0 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7DlK9z http://blog.numino.net/ var FOR9Et http://blog.numino.net/ vBuffer: PChar; 0rZa0c http://blog.numino.net/ begin idJ92c http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); 7M1XA8 http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); 20KvKk http://blog.numino.net/ Edit2.Text := vBuffer; i4bkLw http://blog.numino.net/ FreeMem(vBuffer); lrkDFw http://blog.numino.net/ end; Gk6DlN http://blog.numino.net/ ///////End StrCopy RKE3Lq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UUu1lF http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; Zpj6d1 http://blog.numino.net/ $[SysUtils.pas GZ9Kd0 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 nCXG6A http://blog.numino.net/ 说明 可以连接指针字符串 Oz3XC6 http://blog.numino.net/ 参考 <NULL> GP97Pf http://blog.numino.net/ 例子 9cqob8 http://blog.numino.net/ ///////Begin StrECopy 6I4Mv1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); QpHxVr http://blog.numino.net/ var hjGqFl http://blog.numino.net/ vBuffer: array[0..255] of Char; h1AEA9 http://blog.numino.net/ begin 16H2N6 http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); Z8AJM2 http://blog.numino.net/ Edit3.Text := vBuffer; 5KJ2ri http://blog.numino.net/ end; bWTx9t http://blog.numino.net/ ///////End StrECopy y6zAtY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 983LXb http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 3Vbpn6 http://blog.numino.net/ PChar; $[SysUtils.pas 5L263I http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 Q91wIi http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 FT1HB9 http://blog.numino.net/ 参考 <NULL> iDQs4n http://blog.numino.net/ 例子 5XKEPF http://blog.numino.net/ ///////Begin StrLCopy xvoQhK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Cwum9F http://blog.numino.net/ var EDUup4 http://blog.numino.net/ vBuffer: array[0..255] of Char; 9246rO http://blog.numino.net/ begin F78s0X http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); cbuXZr http://blog.numino.net/ Edit2.Text := vBuffer; TSMeA9 http://blog.numino.net/ end; URSOSu http://blog.numino.net/ ///////End StrLCopy fzCB5C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ le4FcA http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; awbMQ5 http://blog.numino.net/ $[SysUtils.pas Ff314E http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 8HCqK4 http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) YVNRK0 http://blog.numino.net/ 参考 function SysUtils.StrLCopy 5z076m http://blog.numino.net/ 例子 r8ZLC3 http://blog.numino.net/ ///////Begin StrPCopy onLy2D http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9PAc94 http://blog.numino.net/ var 1Hj7N9 http://blog.numino.net/ vBuffer: array[0..255] of Char; qi4Tp9 http://blog.numino.net/ begin Ldho2t http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); XiYS04 http://blog.numino.net/ Edit2.Text := vBuffer; 4Q0VoI http://blog.numino.net/ end; x34Y0U http://blog.numino.net/ ///////End StrPCopy I6gen5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O4Yv6e http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 3EvuSU http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas 6p7a4y http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 A5Nbet http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) DTAVB4 http://blog.numino.net/ 参考 function SysUtils.StrLCopy tl1TRm http://blog.numino.net/ 例子 z7tiFy http://blog.numino.net/ ///////Begin StrPLCopy D58osS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JykogX http://blog.numino.net/ var 5y3tLn http://blog.numino.net/ vBuffer: array[0..255] of Char; Ip0rO5 http://blog.numino.net/ begin lfrzsF http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); GEwi9U http://blog.numino.net/ Edit2.Text := vBuffer; RRO73S http://blog.numino.net/ end; V1kLlg http://blog.numino.net/ ///////End StrPLCopy L1jMu8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2OeZ7b http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; yZp0B3 http://blog.numino.net/ $[SysUtils.pas OsilR6 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source 2JKnPL http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) 537sjR http://blog.numino.net/ 参考 function SysUntils.StrCopy ZXaZD8 http://blog.numino.net/ 例子 G39w6r http://blog.numino.net/ ///////Begin StrCat 2sMZDx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); N2VL8t http://blog.numino.net/ var n0XoYj http://blog.numino.net/ vBuffer: array[0..255] of Char; qrRhRJ http://blog.numino.net/ begin BnRXxG http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); CeTyq8 http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); 6SP8i5 http://blog.numino.net/ Edit3.Text := vBuffer; qQj40q http://blog.numino.net/ end; fzw6p3 http://blog.numino.net/ ///////End StrCat 45yTs7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tnb702 http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 64pUIy http://blog.numino.net/ PChar; $[SysUtils.pas 99HjC3 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source 3r3Jxr http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 4xnz4t http://blog.numino.net/ 参考 <NULL> 8bc9dx http://blog.numino.net/ 例子 1JMWLN http://blog.numino.net/ ///////Begin StrLCat N7nqYU http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ECCgK5 http://blog.numino.net/ var fZku2C http://blog.numino.net/ vBuffer: array[0..255] of Char; ONYVG0 http://blog.numino.net/ begin oChbM7 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); q3X9y6 http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); mZDRfV http://blog.numino.net/ Edit3.Text := vBuffer; q32eUd http://blog.numino.net/ end; d57nZ4 http://blog.numino.net/ ///////End StrLCat 8g129z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 07NkP6 http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas Lamu8e http://blog.numino.net/ 功能 返回比较两个指针字符串 X1K3hB http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 qQe57J http://blog.numino.net/ 参考 <NULL> nLqgss http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); g8GU9Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ks781A http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 29O48R http://blog.numino.net/ 功能 返回比较两个指针字符串 bR4OP2 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 RqrQ9Q http://blog.numino.net/ 参考 <NULL> uhzHE8 http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); U9B2hI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3r3H07 http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 7B71ge http://blog.numino.net/ $[SysUtils.pas 4j6bDf http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 9Yq5LR http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 FgEfbm http://blog.numino.net/ 参考 <NULL> 6ikP9V http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), tmceD9 http://blog.numino.net/ SpinEdit2.Value) EyIqO0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J1Rsc6 http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; BMH6P2 http://blog.numino.net/ $[SysUtils.pas 7EFV3P http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 s4CRuB http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 6tHOfK http://blog.numino.net/ 参考 <NULL> u130Zw http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), ok0rQQ http://blog.numino.net/ SpinEdit2.Value) 7eVX4C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HLiDvX http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas U36e5m http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 TqSumz http://blog.numino.net/ 说明 没有找到则返回空指针 eb8TDv http://blog.numino.net/ 参考 <NULL> emzPnU http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); qyPH7p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A9XnF4 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas uHO2BG http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 sJDERo http://blog.numino.net/ 说明 没有找到则返回空指针 oEw7Y0 http://blog.numino.net/ 参考 <NULL> 1Vq9Cp http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); H14XDl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ko9G77 http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas EqENgZ http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 7DXw8h http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' 0RYJO7 http://blog.numino.net/ 参考 <NULL> ah46Ao http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 17VfER http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IQ0p93 http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas sRhQrd http://blog.numino.net/ 功能 返回指针字符串Str大写 aj2OwX http://blog.numino.net/ 说明 非小写字符不处理 Sv2od8 http://blog.numino.net/ 参考 <NULL> 89MHiB http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); W2Rdzo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TfYAb9 http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas W7q9HE http://blog.numino.net/ 功能 返回指针字符串Str小写 rKEj9t http://blog.numino.net/ 说明 非大写字符不处理 axje5W http://blog.numino.net/ 参考 <NULL> xadc0m http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); aKAB5R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6Qj0yh http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas XXKaT2 http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 x41X5u http://blog.numino.net/ 说明 也可以直接赋值 G1qG6t http://blog.numino.net/ 参考 <NULL> 8DHsNJ http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 4m7krc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1AtcHB http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 7v7TCY http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 6M0YnW http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 MYxM51 http://blog.numino.net/ 参考 function System.GetMem rorN6n http://blog.numino.net/ 例子 NqZoDv http://blog.numino.net/ ///////Begin StrAlloc VAXp7o http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); LBbI9h http://blog.numino.net/ var 15ckey http://blog.numino.net/ P: PChar; sn4j3N http://blog.numino.net/ begin a49Kbq http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); 6t4M2O http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); 8SR0Q4 http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); FvTzG6 http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); RjuFKx http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); ATldaU http://blog.numino.net/ StrDispose(P); BMI1KT http://blog.numino.net/ end; 38NURb http://blog.numino.net/ ///////End StrAlloc oUvMrQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5jtA5l http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas CK9nrw http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 ssM7tg http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 eEkZUx http://blog.numino.net/ 参考 function System.SizeOf 1iIc2M http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); K3Et64 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HlgVGu http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 782CDq http://blog.numino.net/ 功能 返回复制一个新的指针字符串 5Av40G http://blog.numino.net/ 说明 如果Str为nil则返回nil CGMD3b http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function f40NN7 http://blog.numino.net/ SysUtils.StrAlloc 68J72b http://blog.numino.net/ 例子 75oLH3 http://blog.numino.net/ ///////Begin StrNew,StrDispose 9AMJnk http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9wehV7 http://blog.numino.net/ var i43zqX http://blog.numino.net/ P: PChar; 4U2325 http://blog.numino.net/ begin h3FjFA http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); xU7oK7 http://blog.numino.net/ ShowMessage(P); rnLGi4 http://blog.numino.net/ StrDispose(P); z28s5U http://blog.numino.net/ end; JO5I0F http://blog.numino.net/ ///////End StrNew,StrDispose u7GOs1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b58r50 http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas il7958 http://blog.numino.net/ 功能 释放指针字符串Str内存资源 y86G94 http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 bg1lR7 http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem oV78R8 http://blog.numino.net/ 例子 <参见StrNew> 2w07tY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 875ThE http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): pGy6S3 http://blog.numino.net/ string; $[SysUtils.pas RM85rQ http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 Isl1Nw http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 46hve7 http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 65cBFS http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 3F6OO7 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 NLQuik http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 t34z3x http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 zM1f7P http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 bGmos0 http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 xffiHR http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 Hk4bto http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 ebH6ty http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 lxKMNK http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 7FB3aj http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" OcI5O6 http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 6N1k4R http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr WD4FXk http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); 8VDgXs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 62YGka http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: f6sx9B http://blog.numino.net/ array of const); $[SysUtils.pas yMWhAB http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 0yF5Q5 http://blog.numino.net/ 说明 <参见Format> 9Cpm2h http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function bZLu18 http://blog.numino.net/ System.SetLength uKk29a http://blog.numino.net/ 例子 <参见Format> m8Gy3c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4aT9cm http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): kbVvrH http://blog.numino.net/ PChar; $[SysUtils.pas XfRzOA http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 05qNvB http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil 21TvBU http://blog.numino.net/ 参考 function SysUtils.FormatBuf Rki2Ck http://blog.numino.net/ 例子 <参见Format> 5WZuHY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PZN8GJ http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; FXW0jc http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas VL1htz http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 Va523r http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; cOVYHx http://blog.numino.net/ 参考 function SysUtils.FormatBuf I2cF1P http://blog.numino.net/ 例子 <参见Format> PKH529 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Cn5ebt http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: A221fI http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas mU5m3B http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 j11rTZ http://blog.numino.net/ 说明 <NULL> e2OHWa http://blog.numino.net/ 参考 <NULL> j0r0o5 http://blog.numino.net/ 例子 <参见Format> 7QyEoq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HCTm3B http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of 6GQbfa http://blog.numino.net/ const): WideString; $[SysUtils.pas 8TFqxb http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 KySF19 http://blog.numino.net/ 说明 <NULL> ODea3m http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr 0BxyEl http://blog.numino.net/ 例子 <参见Format> fX7EUV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bu0PpL http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; 9wO6tr http://blog.numino.net/ const Args: array of const); $[SysUtils.pas 4IXq63 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 YWU73p http://blog.numino.net/ 说明 <NULL> 4GiOOT http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf zjmrQ1 http://blog.numino.net/ 例子 <参见Format> n2F73C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gB8axA http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; g5QmpR http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas s3qttE http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 Rrd23a http://blog.numino.net/ 说明 <NULL> PQgFro http://blog.numino.net/ 参考 <NULL> 6L0Q9o http://blog.numino.net/ 例子 <参见Format> kAcRx4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PIK0Qb http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas RMj4tG http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 tQOaqW http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 LeazfX http://blog.numino.net/ 参考 function SysUtils.FloatToText x9579w http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); EdOnEC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9gpx8P http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas JRo0Tk http://blog.numino.net/ 功能 返回货币数Value转换成字符串 8h8e1W http://blog.numino.net/ 说明 货币数只保留四位小数 i57nfR http://blog.numino.net/ 参考 function SysUtils.FloatToText pt4y23 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); g4tiR1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E9ooJD http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 6O738r http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 VAq01n http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 EKZZFo http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency 36jx7q http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); bJWqRJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Irg55G http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, 2020MZ http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas y7AUQT http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 Wgjkv9 http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 IPwU6D http://blog.numino.net/ 参考 function SysUtils.FloatToText 04I1Jk http://blog.numino.net/ 例子 AY7VL4 http://blog.numino.net/ ///////Begin FloatToStrF P84MyG http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5fg97q http://blog.numino.net/ begin 3m1c6y http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, E9fJ03 http://blog.numino.net/ 0), cGATxc http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); H0Fp3e http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, Av2mjU http://blog.numino.net/ 0), 6KeAmC http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); eVMWoT http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), Ph1xXy http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); GflueB http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 6K5x48 http://blog.numino.net/ 0), aRbpd0 http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); y4ihB1 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, k2aM71 http://blog.numino.net/ 0), gDBfqu http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); I44Nzm http://blog.numino.net/ end; VeuLA9 http://blog.numino.net/ ///////End FloatToStrF R44ou5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4YAkvQ http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: qBdznF http://blog.numino.net/ Integer): string; $[SysUtils.pas tIJO8M http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 x1eA6Z http://blog.numino.net/ 说明 Digits指定小数宽度 EQkGuG http://blog.numino.net/ 参考 function SysUtils.FloatToText 02Kvt3 http://blog.numino.net/ 例子 Auc8Jm http://blog.numino.net/ ///////Begin CurrToStrF qUseoe http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); atK7nv http://blog.numino.net/ begin mA4P8V http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), bwTDM5 http://blog.numino.net/ ffGeneral, SpinEdit1.Value); zTrVFs http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, Hy0p0o http://blog.numino.net/ 0), FYZbr6 http://blog.numino.net/ ffExponent, SpinEdit1.Value); b7CFko http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 71yep5 http://blog.numino.net/ ffFixed, SpinEdit1.Value); ZOZl7t http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), vvq3xe http://blog.numino.net/ ffNumber, SpinEdit1.Value); 4OmAJY http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, R344o8 http://blog.numino.net/ 0), b9jsiz http://blog.numino.net/ ffCurrency, SpinEdit1.Value); mlMOR3 http://blog.numino.net/ end; 3tuRm3 http://blog.numino.net/ ///////End CurrToStrF Ku0b3W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3u9S51 http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: lGNm05 http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; Ge0r99 http://blog.numino.net/ $[SysUtils.pas fZIX4v http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 c6Q5R5 http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 T08FrA http://blog.numino.net/ 参考 <NULL> Ck23Mq http://blog.numino.net/ 例子 uaIAtJ http://blog.numino.net/ ///////Begin FloatToText s2hS78 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5MrQnK http://blog.numino.net/ var 2VCn1v http://blog.numino.net/ vBuffer: array[0..255] of Char; a15Y52 http://blog.numino.net/ E: Extended; JI55Ug http://blog.numino.net/ begin BVCyMz http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 8KW7bb http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 0hzhcT http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 3gkbLW http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); p8O2Qb http://blog.numino.net/ end; KO4cOz http://blog.numino.net/ ///////End FloatToText( 7IWHWK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cgMbFE http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; 2PYcYZ http://blog.numino.net/ $[SysUtils.pas xrQQ29 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 5DSCNk http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' Ro7GFQ http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt hyNJ5K http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); vOjnPW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7TEaJy http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; tGso6t http://blog.numino.net/ $[SysUtils.pas 7K8luw http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 kHQqI8 http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' 3l77ok http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt qrq97K http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); QdGmQz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZAUHkk http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: tMkGmD http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas PAdBZY http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 7DH3sz http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 Z8my67 http://blog.numino.net/ 参考 <NULL> tKOLxn http://blog.numino.net/ 例子 aezdrV http://blog.numino.net/ ///////Begin FloatToTextFmt zThTGm http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Kt7TNo http://blog.numino.net/ var 6z440n http://blog.numino.net/ vBuffer: array[0..255] of Char; L00JM2 http://blog.numino.net/ E: Extended; aea6NH http://blog.numino.net/ begin K4SL8I http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); HLKgl2 http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, we5yfX http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); rkCS57 http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); F27Far http://blog.numino.net/ end; 67KD2k http://blog.numino.net/ ///////End FloatToTextFmt x2f4xt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V6jUpQ http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas 4J0GFc http://blog.numino.net/ 功能 返回字符串S转换成浮点数 AOb5r2 http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 5U6JAP http://blog.numino.net/ 参考 function SysUtils.TextToFloat 970A2s http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; AnJw7Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 83kg7S http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): TrrC3b http://blog.numino.net/ Extended; $[SysUtils.pas UUQ2Wt http://blog.numino.net/ 功能 返回字符串S转换成浮点数 04Fux0 http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default 21jCN3 http://blog.numino.net/ 参考 function SysUtils.TextToFloat o65Y6Z http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; G1nsXa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9n3ohG http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; pi92M8 http://blog.numino.net/ overload; $[SysUtils.pas AJ1fUL http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; Nre0y4 http://blog.numino.net/ overload; $[SysUtils.pas pMRWeO http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; 8qeUiF http://blog.numino.net/ overload; $[SysUtils.pas 2e00eO http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 T34Axc http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 7OIwHc http://blog.numino.net/ 参考 function SysUtils.TextToFloat i1192C http://blog.numino.net/ 例子 RAY9T7 http://blog.numino.net/ ///////Begin TryStrToFloat G3sjW5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); w7tm46 http://blog.numino.net/ var Y3zTL2 http://blog.numino.net/ E: Extended; 4fSl63 http://blog.numino.net/ begin MsZeMb http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); u6wTPp http://blog.numino.net/ Edit2.Text := FormatFloat('', E); imlMHh http://blog.numino.net/ end; j3np2B http://blog.numino.net/ ///////End TryStrToFloat T2T8Mf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oV8j6u http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas GEY581 http://blog.numino.net/ 功能 返回字符串S转换成货币数 o1bjCV http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 dAXEnM http://blog.numino.net/ 参考 function SysUtils.TextToFloat 4t43X9 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 2mO0AD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZjoP9T http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): pe5ih9 http://blog.numino.net/ Currency; $[SysUtils.pas 0K96Nw http://blog.numino.net/ 功能 返回字符串S转换成货币数 G0jjWJ http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default jx7zK0 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 5feafI http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; UhAm4T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CH0Ypo http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; l4FM4L http://blog.numino.net/ $[SysUtils.pas hIX9Hf http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 y19nrn http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 4qDh1h http://blog.numino.net/ 参考 function SysUtils.TextToFloat x43zE9 http://blog.numino.net/ 例子 9doxE4 http://blog.numino.net/ ///////Begin TryStrToCurr s4JO0K http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1i8H67 http://blog.numino.net/ var 8bj8nO http://blog.numino.net/ C: Currency; ssihh5 http://blog.numino.net/ begin 1B6E7r http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); W1nvJO http://blog.numino.net/ Edit2.Text := FormatCurr('', C); nR5Ci9 http://blog.numino.net/ end; Hsw8MV http://blog.numino.net/ ///////End TryStrToCurr spjOfc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Gk1Kr5 http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): eLD2w5 http://blog.numino.net/ Boolean; $[SysUtils.pas qlMnxm http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value 1vIHWg http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 EMH2cv http://blog.numino.net/ 参考 <NULL> 46Wz6r http://blog.numino.net/ 例子 80XVLG http://blog.numino.net/ ///////Begin TextToFloat wS332j http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); v2zHiU http://blog.numino.net/ var aP06UN http://blog.numino.net/ E: Extended; 72ik0R http://blog.numino.net/ begin T2jP7T http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, etg0CN http://blog.numino.net/ fvExtended); eCT906 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); Tx00l1 http://blog.numino.net/ end; OQ85K4 http://blog.numino.net/ ///////End TextToFloat 877Ug9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sOoPko http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 4juRkM http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 SpvIb2 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 WhW6Ex http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat sJ8NN4 http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); sG6uxO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QRoeC8 http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas nZsNK9 http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 umhkBG http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 o1WGPg http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat sVb4uv http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); pc6H1a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y014od http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; p9cOzY http://blog.numino.net/ $[SysUtils.pas i60z6R http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 7PM6xg http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 tc9zVe http://blog.numino.net/ 参考 function SysUtils.DateTimeToString vYy238 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); 5E5c6b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S7UYN6 http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas P9z6yz http://blog.numino.net/ 功能 返回字符串S转换成日期 C3Vnr2 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 kQynh5 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate o4kb5Q http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); u3DWca http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0lIZ3l http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): 620g8y http://blog.numino.net/ TDateTime; $[SysUtils.pas 0jBPuL http://blog.numino.net/ 功能 返回字符串S转换成日期 F6A6T8 http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default AgPStR http://blog.numino.net/ 参考 function SysUtils.TryStrToDate N6ESLc http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); eokf0E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LC4Dpg http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; lc0EWy http://blog.numino.net/ $[SysUtils.pas 29VNsU http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 4bx1ST http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 L91e8C http://blog.numino.net/ 参考 <NULL> 0fAdl3 http://blog.numino.net/ 例子 pA3EkH http://blog.numino.net/ ///////Begin TryStrToDate w2iQeT http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); EY0d17 http://blog.numino.net/ var 6nTW38 http://blog.numino.net/ vDateTime: TDateTime; TqqcXR http://blog.numino.net/ begin qM27ik http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); C2o9hC http://blog.numino.net/ DateTimePicker1.Date := vDateTime; 8z5zPJ http://blog.numino.net/ end; tzH1nl http://blog.numino.net/ ///////End TryStrToDate bHl0pB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wFLx03 http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas C0jDe1 http://blog.numino.net/ 功能 返回字符串S转换成时间 ESmM3b http://blog.numino.net/ 说明 字符非时间表达时将引起异常 8m9738 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime AJpyr9 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 4xfVF8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ clCn0M http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): 13z6H2 http://blog.numino.net/ TDateTime; $[SysUtils.pas 0Mnl0L http://blog.numino.net/ 功能 返回字符串S转换成时间 qVpqnX http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default 1AFj66 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime Qg16hp http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); Rq20fW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D62eOi http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; R08VBJ http://blog.numino.net/ $[SysUtils.pas 7OtYbt http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 iKzPhL http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 r91DGz http://blog.numino.net/ 参考 <NULL> e6GR6u http://blog.numino.net/ 例子 VIHe8p http://blog.numino.net/ ///////Begin TryStrToTime O9f9aJ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); psC5bt http://blog.numino.net/ var 56GWar http://blog.numino.net/ vDateTime: TDateTime; 54dfuM http://blog.numino.net/ begin Rs0NYP http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); xp7yGq http://blog.numino.net/ DateTimePicker1.Time := vDateTime; HohQ19 http://blog.numino.net/ end; EMDoyU http://blog.numino.net/ ///////End TryStrToTime 3T5ID8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E8LN9T http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas g7UxEb http://blog.numino.net/ 功能 返回字符串S转换成日期时间 hyRCOd http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 LfnNMj http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime lR47GW http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); yqM6j7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ asuLWl http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): 5m0YCz http://blog.numino.net/ TDateTime; $[SysUtils.pas U1ZE67 http://blog.numino.net/ 功能 返回字符串S转换成日期时间 2hgXq8 http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default j6S6Dv http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime IUg5N6 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); ntwXbZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5qQZx2 http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): 6YuMgH http://blog.numino.net/ Boolean; $[SysUtils.pas Jqr0Qf http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 4Y994x http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 x09u76 http://blog.numino.net/ 参考 <NULL> P0SSTM http://blog.numino.net/ 例子 dicl9O http://blog.numino.net/ ///////Begin TryStrToDateTime 5n9zql http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); dW08WP http://blog.numino.net/ var Vp8ni9 http://blog.numino.net/ vDateTime: TDateTime; Urrnc1 http://blog.numino.net/ begin HC7xY3 http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); fycCRN http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); 5JFyRm http://blog.numino.net/ end; bhM1Ch http://blog.numino.net/ ///////End TryStrToDateTime a6Xai8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2NJDn9 http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; jI5Vec http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas r3kaeo http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 tgfxLz http://blog.numino.net/ 说明 <参见FormatDateTime> 6YBXKY http://blog.numino.net/ 参考 function System.SetString kdV23j http://blog.numino.net/ 例子 <参见FormatDateTime> 9zSYae http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3pe0QO http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: C0AeHX http://blog.numino.net/ string): string; platform; $[SysUtils.pas 8XSd8o http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 x0baGn http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' pnBaCH http://blog.numino.net/ 参考 function Windows.GetLocaleInfo 6gmXO8 http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); rY1lvp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wd30iL http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): kkOUtl http://blog.numino.net/ Char; platform; $[SysUtils.pas FGlZ29 http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 774bJ7 http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' fPewO2 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo B0v4Jr http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); Axs49Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C5eXbR http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; SGrX6z http://blog.numino.net/ $[SysUtils.pas 05fkr0 http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 G7zs9v http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) DyY27J http://blog.numino.net/ 参考 var SysUtils.SysLocale zs4pF2 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); Jn5441 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4K7E1H http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; i08oc9 http://blog.numino.net/ $[SysUtils.pas FyN7XB http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 hp5E21 http://blog.numino.net/ 说明 Index从0开始 UTAU1e http://blog.numino.net/ 参考 var SysUtils.SysLocale IcPDZG http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), Mj7Un1 http://blog.numino.net/ SpinEdit2.Value)); n1J2Ur http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W8PyUG http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; 1CDmjf http://blog.numino.net/ $[SysUtils.pas OdRD7A http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 2mRSA8 http://blog.numino.net/ 说明 MaxLen指定处理字符个数 TNT38G http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex TG126u http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 4U0WtH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 82JJ01 http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; X5giwS http://blog.numino.net/ $[SysUtils.pas t206mx http://blog.numino.net/ 功能 返回字符串S中有多少个字符 cb1q91 http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 c9hD41 http://blog.numino.net/ 参考 var SysUtils.SysLocale haZX46 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); JPe670 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2TF2tX http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; xVg640 http://blog.numino.net/ $[SysUtils.pas VaOydt http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 mX1YC9 http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 EFsNfE http://blog.numino.net/ 参考 function SysUtils.NextCharIndex l7W71H http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); 8u680R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Lz80YM http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; 5TL5Ew http://blog.numino.net/ $[SysUtils.pas qRn21l http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 QRlabL http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 oVmNPC http://blog.numino.net/ 参考 function System.Length U7GU3Y http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 6NX913 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZlwZxW http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas 8P7F10 http://blog.numino.net/ 功能 返回第一个字符的宽度 jqBr98 http://blog.numino.net/ 说明 参数为空则返回0 TI3Unp http://blog.numino.net/ 参考 function Windows.CharNext 2426Mn http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); 9x3VrQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ru8gya http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 6kX6sO http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 2mUXAu http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; 7nFy2q http://blog.numino.net/ 参考 function Windows.CharNext C19M91 http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); MSv309 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Jo6LUp http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; 7iWJ9J http://blog.numino.net/ $[SysUtils.pas ne3200 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 08u4bw http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 HSXN2F http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength zU7gyp http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); L1h50h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8V93VQ http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; g4bgr4 http://blog.numino.net/ $[SysUtils.pas e0nD4i http://blog.numino.net/ 功能 返回下一个字符的位置 r72QO6 http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 Ohk7S8 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength rxVJDh http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); zRcEa7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 75Td1b http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; J1VJ7F http://blog.numino.net/ $[SysUtils.pas 4lh0Ui http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 043GLd http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True 2lPi6P http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType W07e01 http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); Fdu5ZG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dk2PmI http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): Rce7GS http://blog.numino.net/ Boolean; $[SysUtils.pas m3nfs3 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters AkU3Tv http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 9N29pR http://blog.numino.net/ 参考 function SysUtils.ByteType kE7ON5 http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, mI7Y53 http://blog.numino.net/ SpinEdit1.Value); Hnq8J2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WAv8Go http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; HGbBPX http://blog.numino.net/ $[SysUtils.pas xK2Sf1 http://blog.numino.net/ 功能 返回包括最后路径分隔符 cQLYJo http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 XvBVhp http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length 1a23yf http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); t6545z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5CTThU http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; u3pFmf http://blog.numino.net/ $[SysUtils.pas WTcE61 http://blog.numino.net/ 功能 返回包括最后斜线 DnQUE6 http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); O01a9N http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter w80tNm http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); x1N1ug http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6F9TWP http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; X6SGbo http://blog.numino.net/ $[SysUtils.pas bI8AU5 http://blog.numino.net/ 功能 返回排除最后路径分隔符 03kDm3 http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 M3z0Ur http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function 63ylw7 http://blog.numino.net/ System.SetLength dSAJPO http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); z7Zv8i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B634M3 http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; EwfF82 http://blog.numino.net/ $[SysUtils.pas 1KgYgQ http://blog.numino.net/ 功能 返回排除最后斜线 oonWPL http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) POe79g http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter sqd4Un http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); 7KPEFs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q0RNno http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; ywfKh9 http://blog.numino.net/ $[SysUtils.pas W4QJv6 http://blog.numino.net/ 功能 返回最后一个分隔符的位置 dG0cKZ http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 38uwGp http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType n20d2w http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); ZqkB25 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DD6qeL http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; 85phZr http://blog.numino.net/ $[SysUtils.pas oJymxr http://blog.numino.net/ 功能 返回比较两个文件名 4eBQ2P http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 KrrgoL http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 3Cj693 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); lI0aim http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WzA7Kb http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas 4GIm0q http://blog.numino.net/ 功能 返回两个文件名是否相等 WCPde5 http://blog.numino.net/ 说明 区分大小写 bqo7FN http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName s448Kw http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); 78mIJ5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2f4ZPn http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas Y15OIw http://blog.numino.net/ 功能 返回小写文件名 FhUAn0 http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase uIM2cH http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase qBn4VO http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); hY6os0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M5bGrz http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas ie0e8N http://blog.numino.net/ 功能 返回大写文件名 aoV2U6 http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase hRDqqC http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase l9kW1Q http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); ApE7ca http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9f4eBt http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas yn68mR http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 oYxX55 http://blog.numino.net/ 说明 不存在则返回0 7qk4A9 http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 8cdWko http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); 28qQD3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L5TqrP http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas QHKroO http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 l5Hxp5 http://blog.numino.net/ 说明 不存在则返回nil 3OkWHq http://blog.numino.net/ 参考 function SysUtils.StrByteType KMDeUk http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); BlBYXE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FGewH3 http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas cx8tkj http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 Tv8ukg http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' fKDX2z http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 31EcKV http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); LXWdAp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u9waoo http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 2rHyMA http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 WtKxn8 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' GU4R23 http://blog.numino.net/ 参考 function SysUtils.StrScan R7i3ST http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); urIpwk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 78172p http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: 8ck9fa http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas 9piXWR http://blog.numino.net/ 功能 返回替换后的字符串 s2ZN8y http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 PLQQ7c http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function e7aGrZ http://blog.numino.net/ System.Copy LezADu http://blog.numino.net/ 例子 xWe0Sl http://blog.numino.net/ ///////Begin StringReplace w98u09 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); upDYcV http://blog.numino.net/ begin hVD8ZU http://blog.numino.net/ Memo1.Lines.Values['[]'] := SxTPNE http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); ELu1o4 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := xwF2BN http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); Puhuk1 http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := 5zQh0g http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); JSiNq2 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := 86YpK8 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, Zc7p2f http://blog.numino.net/ rfIgnoreCase]); q24CRy http://blog.numino.net/ end; 4lnnFp http://blog.numino.net/ ///////End StringReplace Xz7rv6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bue77B http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas 7CVW79 http://blog.numino.net/ 功能 返回字符串S转换成全局标识 O68TI3 http://blog.numino.net/ 说明 如果字符串非法将触发异常 IHr30A http://blog.numino.net/ 参考 fuction Windows.Succeeded 7TR2Jn http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); AHsCt1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IsxCil http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas 8lm2SH http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 x5AK1b http://blog.numino.net/ 说明 <NULL> MZ6gm1 http://blog.numino.net/ 参考 fuction Windows.Succeeded 2d7cJC http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); HuW8ez http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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