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

Delphi字符串函数大全 【字符串函数大全】 roUv51 http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; yS1vCe http://blog.numino.net/ $[StrUtils.pas 27KFIy http://blog.numino.net/ 功能 返回两个字符串是否相似 6Uh9Wa http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 6WeV82 http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 06SOR2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 1046w6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BTnug7 http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 3a7IxP http://blog.numino.net/ $[StrUtils.pas 5JybgN http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText l1CYdh http://blog.numino.net/ 说明 不区分大小写 G5fw4n http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 847XE5 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 08oS0g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1ACLtp http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; Qce4GN http://blog.numino.net/ $[StrUtils.pas 18RfC7 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 wQhHrA http://blog.numino.net/ 说明 不区分大小写 0x0I5a http://blog.numino.net/ 参考 function Windows.CompareString 8a9ERh http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); iOdpO7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zfbdzB http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; p4qb5g http://blog.numino.net/ $[StrUtils.pas rpONau http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 Jo9mGn http://blog.numino.net/ 说明 不区分大小写 027eye http://blog.numino.net/ 参考 function Windows.CompareString H894By http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); RX31MW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ItZcNQ http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): SL4MY4 http://blog.numino.net/ string; $[StrUtils.pas Krqvw5 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 gyTB3L http://blog.numino.net/ 说明 不区分大小写 liq81i http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 2ivZ39 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); hk4vWx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GYzT25 http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of NBEIQY http://blog.numino.net/ string): Boolean; $[StrUtils.pas gdafQy http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText eCj6x9 http://blog.numino.net/ 说明 不区分大小写 Vjaaz1 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText l78Ikp http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 3VSVuk http://blog.numino.net/ 'a4']); 78vg5d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8neZ8V http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of HZ917M http://blog.numino.net/ string): Integer; $[StrUtils.pas 3h74sB http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 kW363R http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 rjlKbt http://blog.numino.net/ 参考 function SysUtils.AnsiSameText CiAKF8 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); Hupd3x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bRVGl9 http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; N34xqF http://blog.numino.net/ $[StrUtils.pas cHHOC0 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText xGt29J http://blog.numino.net/ 说明 区分大小写 3O9L5o http://blog.numino.net/ 参考 function StrUtils.AnsiPos QTJq7f http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); TaOu5M http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ob94II http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; l7EAZ5 http://blog.numino.net/ $[StrUtils.pas 4OT804 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 Fk8Z13 http://blog.numino.net/ 说明 区分大小写 xO1EEf http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr ZoA51C http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); h6FTPI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jHNg5Z http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; CUQgzx http://blog.numino.net/ $[StrUtils.pas 017mNP http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 0CTe2M http://blog.numino.net/ 说明 区分大小写 Voj6SI http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr r5V4a0 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 99NNPf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ce938o http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): 5uMgWh http://blog.numino.net/ string; $[StrUtils.pas D3E831 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 ekNVyK http://blog.numino.net/ 说明 区分大小写 dgK3QO http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags KZkCLx http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); uepJjq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HXmDKf http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of Ae4Q3Q http://blog.numino.net/ string): Boolean; $[StrUtils.pas tb01N0 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText Z8aMZo http://blog.numino.net/ 说明 区分大小写 1Sotsc http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr 4j1sOv http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 1lBqM2 http://blog.numino.net/ 'a4']); FOyEYo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A0BYFw http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of uyp9z8 http://blog.numino.net/ string): Integer; $[StrUtils.pas EHX4aC http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 QavtTv http://blog.numino.net/ 说明 区分大小写 33Yp7m http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 6UTvdv http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 3nauZc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rfjU7K http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; 2K2Ocf http://blog.numino.net/ $[StrUtils.pas 60OR91 http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 Du7TYA http://blog.numino.net/ 说明 当ACount为0时返回'' 7N658O http://blog.numino.net/ 参考 function System.SetLength YFsy9w http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); v8uM3q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a9kMBf http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas Nw9ezQ http://blog.numino.net/ 功能 返回字符串AText的反序 CJYAX0 http://blog.numino.net/ 说明 ReverseString('1234') = '4321' xs2QBw http://blog.numino.net/ 参考 function System.SetLength cfN4O7 http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); 933fif http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bGV7HD http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; imOdMT http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas YjoO2L http://blog.numino.net/ 功能 返回嵌套字符串 nEu7o7 http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' YBhMUV http://blog.numino.net/ 参考 function System.Copy 1CsPNN http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, 1q8CYE http://blog.numino.net/ Edit2.Text); z1pHJw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4oAeQE http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; Avt78O http://blog.numino.net/ $[StrUtils.pas 6A84kV http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 bjd1TJ http://blog.numino.net/ 说明 之前建议执行Randomize Yj16Tm http://blog.numino.net/ 参考 function System.Random 1f8r3I http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); osiOPe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v0H1Hr http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ZI5g51 http://blog.numino.net/ ''): string; overload; $[StrUtils.pas F2j241 http://blog.numino.net/ 功能 返回指定的逻辑字符串 O4Ffb7 http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' Fx9hn1 http://blog.numino.net/ 参考 <NULL> 80y3nC http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); SvzfKy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7N3II6 http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; OylGoZ http://blog.numino.net/ $[StrUtils.pas 3Tx7RW http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 2v7tEu http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' dUlQiQ http://blog.numino.net/ 参考 function System.Copy 0bU95u http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); miaXIO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Lhb9BD http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; rzjkXg http://blog.numino.net/ $[StrUtils.pas MJVOBG http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 M6MP8b http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' 2Gl4wG http://blog.numino.net/ 参考 function System.Copy 1v2f75 http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); K3K2zO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KsPTeq http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): aTn7V0 http://blog.numino.net/ string; $[StrUtils.pas cXv2z5 http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 2kSy6U http://blog.numino.net/ 说明 其实就是Copy 7Fn2kX http://blog.numino.net/ 参考 function System.Copy 3oOZ3x http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 5K35f8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KnXMzS http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: c4rr90 http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): baao07 http://blog.numino.net/ PChar; $[StrUtils.pas 6ND0zg http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 dxKWeU http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 UEn6F5 http://blog.numino.net/ 参考 <NULL> 2U2sms http://blog.numino.net/ 例子 4QAbZw http://blog.numino.net/ ///////Begin SearchBuf 6PEP3L http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; IkxFT7 http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; uCPoo5 http://blog.numino.net/ var YcT027 http://blog.numino.net/ Buffer, P: PChar; 8nT9U5 http://blog.numino.net/ Size: Word; u137g1 http://blog.numino.net/ begin kmGFrF http://blog.numino.net/ Result := False; WzNUvZ http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; wSB8fn http://blog.numino.net/ Size := EditControl.GetTextLen; 15pNSr http://blog.numino.net/ if (Size = 0) then Exit; yeYzwU http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 2H59rZ http://blog.numino.net/ try k3M9st http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); 16u7aj http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, xYl2td http://blog.numino.net/ SearchString, SearchOptions); 5py0eK http://blog.numino.net/ if P <> nil then begin Am379D http://blog.numino.net/ EditControl.SelStart := P - Buffer; OJFDWS http://blog.numino.net/ EditControl.SelLength := Length(SearchString); uG62P3 http://blog.numino.net/ Result := True; PYiYvO http://blog.numino.net/ end; 07f64O http://blog.numino.net/ finally I9z2H8 http://blog.numino.net/ StrDispose(Buffer); ea12ps http://blog.numino.net/ end; emV4B5 http://blog.numino.net/ end; 0Y79tW http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9P96y5 http://blog.numino.net/ var Liyzd5 http://blog.numino.net/ SearchOptions: TStringSearchOptions; 1ocdbL http://blog.numino.net/ begin 37RQN0 http://blog.numino.net/ SearchOptions := []; l2sp5r http://blog.numino.net/ if CheckBox1.Checked then y0LD4v http://blog.numino.net/ Include(SearchOptions, soDown); 68eCof http://blog.numino.net/ if CheckBox2.Checked then 0a863g http://blog.numino.net/ Include(SearchOptions, soMatchCase); eVa7y4 http://blog.numino.net/ if CheckBox3.Checked then NQj49A http://blog.numino.net/ Include(SearchOptions, soWholeWord); MtrZFI http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 3Xt8fw http://blog.numino.net/ Memo1.SetFocus; 1qBd4L http://blog.numino.net/ end; 5si68R http://blog.numino.net/ ///////End SearchBuf baBdxc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 04226H http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): zgUz6c http://blog.numino.net/ string; $[StrUtils.pas 9wic1g http://blog.numino.net/ 功能 返回探测字符串 m8CL60 http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html HxmctI http://blog.numino.net/ 参考 <NULL> 57V2lS http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 3gL811 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E5LOZD http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = l7oTbu http://blog.numino.net/ 4): Integer; $[StrUtils.pas fWP55w http://blog.numino.net/ 功能 返回探测整数 77xd8X http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 23NWtO http://blog.numino.net/ 参考 <NULL> 5w5Cy7 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); RgMV2l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4BfcF6 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas SRTqYk http://blog.numino.net/ 功能 返回探测整数的解码 Fa3C1H http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') 4ev2Bi http://blog.numino.net/ 参考 <NULL> tdXoFJ http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); k5U41j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6go4JU http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas oyQVY0 http://blog.numino.net/ 功能 返回探测文字数值 ki1V21 http://blog.numino.net/ 说明 没有参数ALength已经固定为4 SDeHf5 http://blog.numino.net/ 参考 <NULL> kkDoYn http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); Ua6dUE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WzSExD http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas NaVjD9 http://blog.numino.net/ 功能 返回探测文字数值的解码 kvLXM0 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') yd7S0V http://blog.numino.net/ 参考 <NULL> 3E07Xq http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 98gz5O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C9QvdK http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: S9NMXB http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas KbPyX0 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 5996yL http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) hVhwg9 http://blog.numino.net/ 参考 <NULL> QF6rd4 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 2B79SG http://blog.numino.net/ SpinEdit1.Value); 3Ca3Xw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SvyKV8 http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: 8B20Vd http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas 4Wt3KK http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 J9N1Az http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, sIt4O3 http://blog.numino.net/ ALength)) srjB5S http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr QiVpwF http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, S1NWik http://blog.numino.net/ SpinEdit1.Value); Xt098O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ beTZVA http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; g9VhUb http://blog.numino.net/ $[StrUtils.pas I9KAi0 http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 jQKDgh http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 IXv63c http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText dkQodO http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 03KlGU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7i1Rr1 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas x4a1Jq http://blog.numino.net/ 功能 返回一个新的字符串指针地址 P30xjl http://blog.numino.net/ 说明 字符串S为空时返回NullStr okbzd9 http://blog.numino.net/ 参考 procedure System.New 95fKTR http://blog.numino.net/ 例子 82SeU2 http://blog.numino.net/ ////////Begin NewStr,DisposeStr 3Y3z2A http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 932Jw2 http://blog.numino.net/ var 4hpzsi http://blog.numino.net/ P: PString; bZPITy http://blog.numino.net/ begin GQ19Wj http://blog.numino.net/ P := NewStr(Edit1.Text); WOj20p http://blog.numino.net/ Edit2.Text := P^; pSalah http://blog.numino.net/ DisposeStr(P); ArVq38 http://blog.numino.net/ end; Mi205T http://blog.numino.net/ ////////End NewStr,DisposeStr nzcNtH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8FFpz3 http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas EJuna0 http://blog.numino.net/ 功能 释放字符串指针P资源 mRM21Y http://blog.numino.net/ 说明 配合函数NewStr使用 0dhyVe http://blog.numino.net/ 参考 procedure System.Dispose 1g9T3P http://blog.numino.net/ 例子 <如上参见,如下参见> 2om5dM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xPUPZy http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; gRsdsF http://blog.numino.net/ $[SysUtils.pas BmMqSc http://blog.numino.net/ 功能 将字符串S更新给字符串指针P uwFfXp http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 ZUgpe2 http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr FWndvo http://blog.numino.net/ 例子 O6VIe4 http://blog.numino.net/ ////////Begin AssignStr kENyIp http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); oP37uW http://blog.numino.net/ var WGrffT http://blog.numino.net/ P: PString; RXmj8w http://blog.numino.net/ begin XgC5uj http://blog.numino.net/ P := nil; 1Zo1VF http://blog.numino.net/ AssignStr(P, Edit1.Text); 9Ca881 http://blog.numino.net/ Edit2.Text := P^; 6OsEdg http://blog.numino.net/ DisposeStr(P); BQH5Xx http://blog.numino.net/ end; 565ydh http://blog.numino.net/ ////////End AssignStr G4y0LO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oCsRIw http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; Dn6LjZ http://blog.numino.net/ $[SysUtils.pas 8QJXpu http://blog.numino.net/ 功能 在字符串Dest后追加字符串S Z8vIqB http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 Ev0pgY http://blog.numino.net/ 参考 <NULL> 43E80X http://blog.numino.net/ 例子 5gx0I3 http://blog.numino.net/ ////////Begin AppendStr 8hgDbE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 69iWt2 http://blog.numino.net/ var yDVoY2 http://blog.numino.net/ S: string; 6DfxQP http://blog.numino.net/ begin J7Kw3U http://blog.numino.net/ S := Edit2.Text; Kptg6M http://blog.numino.net/ AppendStr(S, Edit1.Text); ZoFJk9 http://blog.numino.net/ Edit2.Text := S; DwKiOg http://blog.numino.net/ end; 01843Y http://blog.numino.net/ ////////End AppendStr X84Z4i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4gSaH2 http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas nO6RCz http://blog.numino.net/ 功能 返回字符串S的大写形式 VIC1O9 http://blog.numino.net/ 说明 非小写字符不处理 i2Kg7K http://blog.numino.net/ 参考 procedure System.SetLength B5fXvl http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); 2FxAvo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Rywl5T http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas IP1F3T http://blog.numino.net/ 功能 返回字符串S的小写形式 tnPaYz http://blog.numino.net/ 说明 非大写字符不处理 6mnqDp http://blog.numino.net/ 参考 procedure System.SetLength 1ZN06p http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); 8w1vYx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PKXVw0 http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas WHnysj http://blog.numino.net/ 功能 返回比较两个字符 M9XoTr http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 cCgt0q http://blog.numino.net/ 参考 <NULL> eub6Xn http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); Fgu0Iu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NuafTe http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; iCBzV2 http://blog.numino.net/ assembler; $[SysUtils.pas GO78Tq http://blog.numino.net/ 功能 返回比较两个内存指针 Qg8CmT http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), umtJt9 http://blog.numino.net/ PChar('12c'), 3)=False OxAs5s http://blog.numino.net/ 参考 <NULL> 5fyh3u http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 85ezDW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1r2JSJ http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 2Yc6NA http://blog.numino.net/ 功能 返回比较两个字符串 efphX5 http://blog.numino.net/ 说明 不区分大小写 173sfM http://blog.numino.net/ 参考 <NULL> 689Tb9 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 9tC5E3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Z2uecW http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas GgGmd4 http://blog.numino.net/ 功能 返回两个字符串是否相等 ttz0xh http://blog.numino.net/ 说明 不区分大小写 nK0BlR http://blog.numino.net/ 参考 <NULL> c2Zky4 http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); s7C2W9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1yE24K http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas bCVg08 http://blog.numino.net/ 功能 返回字符串S的大写形式 LU8xSi http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 U5Y960 http://blog.numino.net/ 参考 function Windows.CharUpperBuff veL1Ww http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); Gm7oLh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WsU71y http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 8ulOjJ http://blog.numino.net/ 功能 返回字符串S的小写形式 MJhXOK http://blog.numino.net/ 说明 非大写字符不处理 SpgX3h http://blog.numino.net/ 参考 function Windows.CharLowerBuff 638b65 http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); hSdTOX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uXY8EQ http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 9ixK37 http://blog.numino.net/ 功能 反回比较两个字符串 fKr5lf http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 j4tkC5 http://blog.numino.net/ 参考 function Windows.CompareString qGjYQW http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 4htL4z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EfMfJp http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 2x9n8e http://blog.numino.net/ 功能 返回两个字符串是否相等 IbNOmg http://blog.numino.net/ 说明 区分大小写 8llpw0 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr AdksAl http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); 5J600h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mwe3i1 http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas GKpez6 http://blog.numino.net/ 功能 反回比较两个字符串 1clCHS http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 IwW4KQ http://blog.numino.net/ 参考 function Windows.CompareString NC81Fq http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); 383lP1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G8dphs http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas sZ54yN http://blog.numino.net/ 功能 返回两个字符串是否相等 16D2aO http://blog.numino.net/ 说明 不区分大小写 RN528m http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText ZuxZmm http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); Rl2OQ2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8C9lhg http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas H80PCG http://blog.numino.net/ 功能 返回比较两个指针字符串 OSLb0i http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 Y4VmwN http://blog.numino.net/ 参考 function System.CompareString 3UJT77 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) pB086J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D0httt http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas Z00o67 http://blog.numino.net/ 功能 返回比较两个指针字符串 VmQdhJ http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) uo7Ioo http://blog.numino.net/ 参考 function Windows.CompareString rg3C2m http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) r5DxTQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9d7S5s http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; CEEAWj http://blog.numino.net/ $[SysUtils.pas 66kxVS http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 EtSX0d http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) PpXgEV http://blog.numino.net/ 参考 function Windows.CompareString 8p6WaW http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), pPjsmP http://blog.numino.net/ SpinEdit2.Value) ZHepd4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6Z4A6J http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 6T1kgG http://blog.numino.net/ $[SysUtils.pas nOT7qG http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 Yzn6Fd http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 5fgoDV http://blog.numino.net/ 参考 function Windows.CompareString 3rG8iJ http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), sqNnLB http://blog.numino.net/ SpinEdit2.Value) 9ttJvC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mxvwwm http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas K13So2 http://blog.numino.net/ 功能 返回指针字符串小写形式 CyxVUp http://blog.numino.net/ 说明 非大写字符不处理 auy2yr http://blog.numino.net/ 参考 function Windows.CharLower cYpX6K http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); pks0W5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pyEndF http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas EBCBh8 http://blog.numino.net/ 功能 返回指针字符串大写形式 R1F0FW http://blog.numino.net/ 说明 非小写字符不处理 jsm9JN http://blog.numino.net/ 参考 function Windows.CharUpper po1a9T http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); WtUdQq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1R4VFZ http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas lh7uw0 http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 KjnVUV http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 jfZ6LG http://blog.numino.net/ 参考 function SysUtils.ByteType SOK1DJ http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); Q4sC5R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 53jyrq http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas ZpNIxK http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 YgpLPK http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 st4jtA http://blog.numino.net/ 参考 function SysUtils.ByteType s23xsV http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); B405rW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5D0F5S http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas AWa009 http://blog.numino.net/ 功能 返回双字节字符串的大写形式 rM2ckA http://blog.numino.net/ 说明 WideChar双字节字符 HxxkJ6 http://blog.numino.net/ 参考 function Windows.CharUpperBuffW Td6vYY http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); ROMjvY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rDM9Pm http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas lZx2BY http://blog.numino.net/ 功能 返回双字节字符串的小写形式 j9X8m2 http://blog.numino.net/ 说明 我怎么就测试不出来呢 bPz4ST http://blog.numino.net/ 参考 function Windows.CharLowerBuffW h3a6i7 http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); l48PG4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vhuv65 http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; nxsl4G http://blog.numino.net/ $[SysUtils.pas IxTYZL http://blog.numino.net/ 功能 返回比较两个双字节字符串 Z1wFP7 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 ENw05D http://blog.numino.net/ 参考 function Windows.CompareStringW keX1l6 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); 9ZiLV1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nF92uU http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas WQlL6m http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 qiYyly http://blog.numino.net/ 说明 区分大小写 7V8d5y http://blog.numino.net/ 参考 function SysUtils.WideCompareStr rXjhib http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); TjHfez http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t1Oj95 http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; L9ZL1p http://blog.numino.net/ $[SysUtils.pas G3eB80 http://blog.numino.net/ 功能 返回比较两个双字节字符串 n0I0rO http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 3eeAjj http://blog.numino.net/ 参考 function Windows.CompareStringW uMRj2Z http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); pXekB0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2uRcyw http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; cN12yb http://blog.numino.net/ $[SysUtils.pas nyHy94 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 9ZYy5G http://blog.numino.net/ 说明 不区分大小写 UIb0Kl http://blog.numino.net/ 参考 function SysUtils.WideCompareText NTCCb1 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); h12lre http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 33hIUw http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas XIjVEA http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; yU01G6 http://blog.numino.net/ $[SysUtils.pas XXpVoJ http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 7dpom2 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 FiVEDT http://blog.numino.net/ 参考 function System.Copy 5DI1dn http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); HnD94j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2A389H http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas c4v61a http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; 7a9o0v http://blog.numino.net/ $[SysUtils.pas oQ8i8x http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 3cRSl3 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 ClZSb2 http://blog.numino.net/ 参考 function System.Copy J00fen http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); cUfBNa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P3vgv5 http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas D56Kf8 http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; 9SCUiX http://blog.numino.net/ $[SysUtils.pas 6K99VV http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 qDq24x http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 VAy2rX http://blog.numino.net/ 参考 function System.Copy tppT34 http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); zGIB0e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v1t1JI http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas n4LsYV http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 xztD5h http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 0bh6P9 http://blog.numino.net/ 参考 procedure System.Insert 4u2803 http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); vgzbuI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C2my4d http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; H77kD9 http://blog.numino.net/ $[SysUtils.pas TGWAVR http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 x9uoE9 http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', Zpxbx5 http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' YMjdcA http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan ObYwwn http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); EwrtMf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x7pa4i http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; g3kL65 http://blog.numino.net/ $[SysUtils.pas 2whvg4 http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 X2H69U http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 Yj5O5m http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan nK32fa http://blog.numino.net/ 例子 N8N81I http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr BGLVsS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 2Xn7SF http://blog.numino.net/ var h8ikX5 http://blog.numino.net/ P: PChar; 3Pf8x3 http://blog.numino.net/ begin FdR8k0 http://blog.numino.net/ P := PChar(Edit1.Text); ISOTJ1 http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); 8My19Z http://blog.numino.net/ Edit3.Text := P; 2NbBHb http://blog.numino.net/ end; Ryb0KM http://blog.numino.net/ ///////End AnsiExtractQuotedStr K7Lhgx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dV0hFE http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 9B7yRw http://blog.numino.net/ $[SysUtils.pas 6ha69t http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 wb00W9 http://blog.numino.net/ 说明 表现形式非法时则返回S z3quOS http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr 97OD82 http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); D3og1o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pEnz0X http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = Fc4YEN http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): kSTS39 http://blog.numino.net/ string; $[SysUtils.pas 8ekFNR http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 rywMfR http://blog.numino.net/ 说明 yN561m 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 BX3ypo http://blog.numino.net/ 参考 function SysUtils.StrNextChar tK6mny http://blog.numino.net/ 例子 <NULL> mM3ZJu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QBFov0 http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas h1Cwf5 http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 3NMLMN http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... EqnuJx http://blog.numino.net/ 参考 <NULL> 2tfsDh http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); Mde7yt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rIZoc1 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas SiRgYH http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 810azn http://blog.numino.net/ 功能 返回整数Value转换成字符串 KqGwH3 http://blog.numino.net/ 说明 Format('%d', [Value]) 7r10ds http://blog.numino.net/ 参考 function SysUtils.FmtStr WXs2AH http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 7VEJi9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4d6AGf http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; P480V0 http://blog.numino.net/ $[SysUtils.pas wQ0hCM http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; 4q1NTX http://blog.numino.net/ $[SysUtils.pas 11YHUd http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) dfq7F0 http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 j1DZd9 http://blog.numino.net/ 参考 function SysUtils.FmtStr Vay9k6 http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 7Y7VL3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vXhKab http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas L4907d http://blog.numino.net/ 功能 返回字符串S转换成整数 Qs552X http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 ic23H9 http://blog.numino.net/ 参考 procedure System.Val G1jeE7 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); Gg5700 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SOn3Zb http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; 355XNQ http://blog.numino.net/ $[SysUtils.pas 5wDVFC http://blog.numino.net/ 功能 返回字符串S转换成整数 yppzh0 http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default 97Ro4o http://blog.numino.net/ 参考 procedure System.Val Eo64N9 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); Ns9mRS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uoAlpv http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; GJp618 http://blog.numino.net/ $[SysUtils.pas SxKRr4 http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 a9522p http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 wT06si http://blog.numino.net/ 参考 procedure System.Val kAFG0E http://blog.numino.net/ 例子 rfbaOk http://blog.numino.net/ ///////Begin TryStrToInt itaZai http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 04LRDS http://blog.numino.net/ var ujj7K6 http://blog.numino.net/ I: Integer; gknoNO http://blog.numino.net/ begin Ewl9Ge http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); NpB1C4 http://blog.numino.net/ SpinEdit1.Value := I; 14Vf7d http://blog.numino.net/ end; 3h6Kl8 http://blog.numino.net/ ///////End TryStrToInt UXQ3s4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YUB69W http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas JUN0q7 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 ZQd462 http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 zp8WGf http://blog.numino.net/ 参考 procedure System.Val 2TmRfd http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); TacH57 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YIqikF http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; ZpW1CA http://blog.numino.net/ $[SysUtils.pas YnNf3q http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 uAQk13 http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default Ni925X http://blog.numino.net/ 参考 procedure System.Val 00HPwF http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); OikagL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XAileI http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; nEDtrd http://blog.numino.net/ $[SysUtils.pas qpwL49 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 D47dxG http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 3w6Zm5 http://blog.numino.net/ 参考 procedure System.Val OKyM6x http://blog.numino.net/ 例子 tsi00v http://blog.numino.net/ ///////Begin TryStrToInt64 V5MfuI http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); PRcLs8 http://blog.numino.net/ var fSGQza http://blog.numino.net/ I: Int64; X5Mgp6 http://blog.numino.net/ begin p5DTLA http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); IyxyQ4 http://blog.numino.net/ SpinEdit1.Value := I; tVV9NN http://blog.numino.net/ end; 1syWF1 http://blog.numino.net/ ///////End TryStrToInt64 IRejMB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ml4rME http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas 0GMJS9 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 8NCzj6 http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 e8qsjj http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 0Yjjo7 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); 1Jlos3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ynj9nB http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): nPe5uA http://blog.numino.net/ Boolean; $[SysUtils.pas 33OkPV http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 t1EuhU http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default jNXpE7 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 7xg0jD http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); 93W8O5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TUmFKU http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; t8vwZU http://blog.numino.net/ $[SysUtils.pas WQj1ES http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 wy0qtK http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 MVNWrp http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var z3vwIT http://blog.numino.net/ SysUtils.FalseBoolStrs HTXZ44 http://blog.numino.net/ 例子 nj17En http://blog.numino.net/ ///////Begin TryStrToBool 50D7ew http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 8f5w2M http://blog.numino.net/ var Lwlh4R http://blog.numino.net/ B: Boolean; qRS3Lv http://blog.numino.net/ begin vQ3Qso http://blog.numino.net/ SetLength(TrueBoolStrs, 2); ey29v7 http://blog.numino.net/ SetLength(FalseBoolStrs, 2); i54Og4 http://blog.numino.net/ TrueBoolStrs[0] := 'True'; vpBDxl http://blog.numino.net/ FalseBoolStrs[0] := 'False'; 7UnxUB http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; 8N8YR5 http://blog.numino.net/ FalseBoolStrs[1] := 'No'; 83pt8W http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); Wzke6I http://blog.numino.net/ CheckBox2.Checked := B; M3Sxsw http://blog.numino.net/ end; 0EFo5d http://blog.numino.net/ ///////End TryStrToBool amj08n http://blog.numino.net/ 附加 d9wPv5 http://blog.numino.net/ ///////Begin TryStrToBool wRNOdg http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; 8UcUqO http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; aqp57j http://blog.numino.net/ var 9Ksyc5 http://blog.numino.net/ I: Integer; 6VNJk0 http://blog.numino.net/ begin skp3GF http://blog.numino.net/ Result := False; Wr3Im5 http://blog.numino.net/ for I := Low(aArray) to High(aArray) do 530vJ1 http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then r5e2D2 http://blog.numino.net/ begin ywUn8i http://blog.numino.net/ Result := True; FbpDND http://blog.numino.net/ Break; 35bv9u http://blog.numino.net/ end; 2hk4yF http://blog.numino.net/ end; iOwSCf http://blog.numino.net/ var B6bpfu http://blog.numino.net/ LResult: Extended; nHQ2Sj http://blog.numino.net/ begin L1kE0H http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 344OyI http://blog.numino.net/ if Result then cK4CtM http://blog.numino.net/ Value := LResult <> 0 BDXo52 http://blog.numino.net/ else 34xo77 http://blog.numino.net/ begin RuaZwB http://blog.numino.net/ Result := True; //修正处 3yOGR3 http://blog.numino.net/ VerifyBoolStrArray; ntA226 http://blog.numino.net/ if CompareWith(TrueBoolStrs) then 5v7sIh http://blog.numino.net/ Value := True jcUweA http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then YXRvhR http://blog.numino.net/ Value := False k8vE64 http://blog.numino.net/ else 2D637d http://blog.numino.net/ Result := False; rSi1Kj http://blog.numino.net/ end; ETAoBA http://blog.numino.net/ end; xK293H http://blog.numino.net/ ///////End TryStrToBool 9ulfc6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4twnkZ http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; vz092Z http://blog.numino.net/ $[SysUtils.pas 4UfqBf http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 F4faex http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' HbslV2 http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs dQb84n http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); cNPPUf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C5r0WV http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas v455j9 http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 5g54nG http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 bo3n9i http://blog.numino.net/ 参考 function SysUtils.FindStringResource n9IjRN http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); 01y23u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O2NAin http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): cb9wbh http://blog.numino.net/ string; $[SysUtils.pas Bzk6Pz http://blog.numino.net/ 功能 返回格式化的字符串资源 Y61IyY http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 vI4o1J http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource SLN8ZZ http://blog.numino.net/ 例子 <NULL>; UByyi5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A6jk9l http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 342zDF http://blog.numino.net/ 功能 返回指针字符串的长度 cpgIdM http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 7Z45Q5 http://blog.numino.net/ 参考 <NULL> 0HL5JX http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 5CLD9Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OtggFA http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas WsWEew http://blog.numino.net/ 功能 返回指针字符串的结尾 426v5y http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 NHH4NV http://blog.numino.net/ 参考 <NULL> DUO08V http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; v2P64D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fy95Kf http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): fGIXmt http://blog.numino.net/ PChar; $[SysUtils.pas l8107u http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 ZlotcL http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s ld24b9 http://blog.numino.net/ 参考 function System.Move k135p7 http://blog.numino.net/ 例子 R2ZxKJ http://blog.numino.net/ ///////Begin StrMove kQQub7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Dh0H5w http://blog.numino.net/ var ERg8fK http://blog.numino.net/ vBuffer: PChar; H7Ke0r http://blog.numino.net/ begin CYgpm6 http://blog.numino.net/ vBuffer := '0123456789'; wUueLJ http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 8G7jEO http://blog.numino.net/ Edit2.Text := vBuffer; Pf99uM http://blog.numino.net/ end; l8c0Lt http://blog.numino.net/ ///////End StrMove 0jFf0O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5Y8p85 http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; xCKLV5 http://blog.numino.net/ $[SysUtils.pas VxYbJ4 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 au2VGM http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 EYHBR5 http://blog.numino.net/ 参考 <NULL> 9NKHk6 http://blog.numino.net/ 例子 yPWgE5 http://blog.numino.net/ ///////Begin StrCopy MaSR0e http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); U8LFN8 http://blog.numino.net/ var IrBU8B http://blog.numino.net/ vBuffer: PChar; 2yyFq3 http://blog.numino.net/ begin 02Kjt0 http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); h28efQ http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); ELCI30 http://blog.numino.net/ Edit2.Text := vBuffer; yMx66R http://blog.numino.net/ FreeMem(vBuffer); TCGl3F http://blog.numino.net/ end; 2jjD8K http://blog.numino.net/ ///////End StrCopy U8tlwP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V3RNEQ http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; YWsQ2A http://blog.numino.net/ $[SysUtils.pas lGGE5i http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 92Dt8V http://blog.numino.net/ 说明 可以连接指针字符串 SFgj1Z http://blog.numino.net/ 参考 <NULL> 38l7Ty http://blog.numino.net/ 例子 XUUy8T http://blog.numino.net/ ///////Begin StrECopy MwAXwk http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); uNbgC5 http://blog.numino.net/ var G0sGVR http://blog.numino.net/ vBuffer: array[0..255] of Char; PjmIjP http://blog.numino.net/ begin i6M9u4 http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); TYbMj9 http://blog.numino.net/ Edit3.Text := vBuffer; D3JDWF http://blog.numino.net/ end; XcrK67 http://blog.numino.net/ ///////End StrECopy G3onfV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3VMqiM http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): D4u996 http://blog.numino.net/ PChar; $[SysUtils.pas OHq9tr http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 q0pmqR http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 11eDGg http://blog.numino.net/ 参考 <NULL> C74J5A http://blog.numino.net/ 例子 yQ2Le3 http://blog.numino.net/ ///////Begin StrLCopy 6Dnjo4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 486eyi http://blog.numino.net/ var xqX9mN http://blog.numino.net/ vBuffer: array[0..255] of Char; 7BgZZI http://blog.numino.net/ begin G5KT8t http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 4m8FKv http://blog.numino.net/ Edit2.Text := vBuffer; I9rP6W http://blog.numino.net/ end; O76oRY http://blog.numino.net/ ///////End StrLCopy 26iWca http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1xLdoF http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; 2c0wO9 http://blog.numino.net/ $[SysUtils.pas hmODw4 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 wkx0wO http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) za8zXb http://blog.numino.net/ 参考 function SysUtils.StrLCopy o8TvZ2 http://blog.numino.net/ 例子 0n3oS1 http://blog.numino.net/ ///////Begin StrPCopy hZ3N5v http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); oy0P2J http://blog.numino.net/ var zAoyT8 http://blog.numino.net/ vBuffer: array[0..255] of Char; 28jaFm http://blog.numino.net/ begin FC7BGd http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); H006N9 http://blog.numino.net/ Edit2.Text := vBuffer; Nh73nH http://blog.numino.net/ end; E9ilv8 http://blog.numino.net/ ///////End StrPCopy 7vVrWv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zb4OHQ http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: VvPwV4 http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas 0AnC7t http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 biCzwm http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) sgLPNj http://blog.numino.net/ 参考 function SysUtils.StrLCopy eZS8g2 http://blog.numino.net/ 例子 qMxj34 http://blog.numino.net/ ///////Begin StrPLCopy yZNZTP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); axnryP http://blog.numino.net/ var q72RdU http://blog.numino.net/ vBuffer: array[0..255] of Char; g0705x http://blog.numino.net/ begin Tt5mVW http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); g8crxV http://blog.numino.net/ Edit2.Text := vBuffer; U7Ye5u http://blog.numino.net/ end; QAgMYd http://blog.numino.net/ ///////End StrPLCopy 0KR737 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9E4GpH http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; xn20i9 http://blog.numino.net/ $[SysUtils.pas xgY0FF http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source EKpF03 http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) af16KL http://blog.numino.net/ 参考 function SysUntils.StrCopy vadXDZ http://blog.numino.net/ 例子 v5dc6G http://blog.numino.net/ ///////Begin StrCat R521Xr http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5vf9W7 http://blog.numino.net/ var BfjhIZ http://blog.numino.net/ vBuffer: array[0..255] of Char; kJGSqF http://blog.numino.net/ begin g7KGa9 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); tvi6q4 http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); 1m77Zh http://blog.numino.net/ Edit3.Text := vBuffer; W8Cz11 http://blog.numino.net/ end; xZ3X3K http://blog.numino.net/ ///////End StrCat GHgiKX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WxuoX7 http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 19L9iN http://blog.numino.net/ PChar; $[SysUtils.pas 42HfW6 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source odK5Z1 http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 LYdhkY http://blog.numino.net/ 参考 <NULL> MDCfXQ http://blog.numino.net/ 例子 v8ATp1 http://blog.numino.net/ ///////Begin StrLCat OV57l3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); IsYTrW http://blog.numino.net/ var 26AthC http://blog.numino.net/ vBuffer: array[0..255] of Char; RQZ67x http://blog.numino.net/ begin 7y8bp4 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); Isfi4h http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 66M0M3 http://blog.numino.net/ Edit3.Text := vBuffer; ra1w77 http://blog.numino.net/ end; 6j737e http://blog.numino.net/ ///////End StrLCat B2c23b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LiJ1DU http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas qVx7z4 http://blog.numino.net/ 功能 返回比较两个指针字符串 449vTV http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 Nz2WJ9 http://blog.numino.net/ 参考 <NULL> ahETx4 http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); oQ8D04 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JOjpk0 http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas Zusip1 http://blog.numino.net/ 功能 返回比较两个指针字符串 oK6Tr4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 AC50Xr http://blog.numino.net/ 参考 <NULL> NC9PAS http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); Yyu40J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dYo4tr http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; c0G108 http://blog.numino.net/ $[SysUtils.pas Qw14lF http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 J03aFe http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 16PnEg http://blog.numino.net/ 参考 <NULL> fmem4X http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), vydOOC http://blog.numino.net/ SpinEdit2.Value) QqJNNr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2Pqe07 http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; J9Zqyy http://blog.numino.net/ $[SysUtils.pas 1a2dV0 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 70xzad http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 xcEkAy http://blog.numino.net/ 参考 <NULL> m3M242 http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 8GBbx2 http://blog.numino.net/ SpinEdit2.Value) 99h2Z1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2SEBfu http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas yYliQD http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 5MWcvV http://blog.numino.net/ 说明 没有找到则返回空指针 qgrMIt http://blog.numino.net/ 参考 <NULL> 6v4Dn5 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); n1L8q2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P99M4E http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas M4yGYS http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 5X9o0v http://blog.numino.net/ 说明 没有找到则返回空指针 5Xmjsr http://blog.numino.net/ 参考 <NULL> kxTz3A http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); OmapxY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ODCHvv http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 7PR8Q8 http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 7BpCn8 http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' NK6DvC http://blog.numino.net/ 参考 <NULL> v148Wo http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); M7DS2O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ax4T70 http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas cGAMUH http://blog.numino.net/ 功能 返回指针字符串Str大写 7xQopX http://blog.numino.net/ 说明 非小写字符不处理 72hggU http://blog.numino.net/ 参考 <NULL> H4GM2b http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); C2vDBR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4ApvH1 http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas KkMT6g http://blog.numino.net/ 功能 返回指针字符串Str小写 A5R5FI http://blog.numino.net/ 说明 非大写字符不处理 sQw8sU http://blog.numino.net/ 参考 <NULL> b07tBy http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); 79aXED http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HWn5wx http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas 84BoLP http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 oJ11Pu http://blog.numino.net/ 说明 也可以直接赋值 BN0ZJ5 http://blog.numino.net/ 参考 <NULL> 0B4WrY http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); lOtkh8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9yKRB9 http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas GOS5b4 http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 gH1VXW http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 D0RKnu http://blog.numino.net/ 参考 function System.GetMem 44MW6u http://blog.numino.net/ 例子 01YTHA http://blog.numino.net/ ///////Begin StrAlloc xs22Of http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Sm1v0M http://blog.numino.net/ var IHP2bI http://blog.numino.net/ P: PChar; 1l2g2J http://blog.numino.net/ begin h5a34w http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); Y421lr http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); 5hlyNe http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); WmWm0m http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); 6a025r http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); hd8q02 http://blog.numino.net/ StrDispose(P); aeAg3P http://blog.numino.net/ end; MOgPnV http://blog.numino.net/ ///////End StrAlloc Fox8j3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dnELVn http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas 2mth8v http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 17i0Mu http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 sYQhqi http://blog.numino.net/ 参考 function System.SizeOf 32syU5 http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); 2Dd7nG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t4it4Q http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas UpH8Q6 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 3h9zzL http://blog.numino.net/ 说明 如果Str为nil则返回nil 6fERjD http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function Jw3tP0 http://blog.numino.net/ SysUtils.StrAlloc UWbj93 http://blog.numino.net/ 例子 EcA8mb http://blog.numino.net/ ///////Begin StrNew,StrDispose 5ernJu http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); RBuiLT http://blog.numino.net/ var iU61N5 http://blog.numino.net/ P: PChar; b4Sc2u http://blog.numino.net/ begin B0ZS55 http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); Inasba http://blog.numino.net/ ShowMessage(P); q72P0r http://blog.numino.net/ StrDispose(P); tk3RHn http://blog.numino.net/ end; m235N6 http://blog.numino.net/ ///////End StrNew,StrDispose 93Xw1X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5Y7SaF http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas I3jyL1 http://blog.numino.net/ 功能 释放指针字符串Str内存资源 HC30E3 http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 jJ0OZC http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem A7A0Pq http://blog.numino.net/ 例子 <参见StrNew> 24Hvi0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ipho0e http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): MFnC5Z http://blog.numino.net/ string; $[SysUtils.pas 3bgFS0 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 fJSnfk http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 CnoeYn http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 yc68BU http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 4s3ZD4 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 4d7BZd http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 O725nb http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 DNxryK http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 hVHG1Q http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 H0QiX7 http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 9QnVk6 http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 M02ofK http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 A1xyEL http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 SvCq0h http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" 22iR0e http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 i5gE45 http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr T3IW89 http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); 1cO1eT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w5r36N http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: 1q675V http://blog.numino.net/ array of const); $[SysUtils.pas XCgkP1 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 LLIFzb http://blog.numino.net/ 说明 <参见Format> fGD9JO http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function oE8LL2 http://blog.numino.net/ System.SetLength XFy38u http://blog.numino.net/ 例子 <参见Format> eRlu9X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OerkvB http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): rhrPL1 http://blog.numino.net/ PChar; $[SysUtils.pas 4egJJG http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 05E1mv http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil 3arS5Q http://blog.numino.net/ 参考 function SysUtils.FormatBuf ilayhi http://blog.numino.net/ 例子 <参见Format> RxJmGN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d3Z8Iz http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; HkW7sF http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas wMXEjU http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 zByXuv http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; g33yz6 http://blog.numino.net/ 参考 function SysUtils.FormatBuf 4d36Zx http://blog.numino.net/ 例子 <参见Format> BQ595p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cH7LCE http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: RoJq9n http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas AfppO8 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 pNefIr http://blog.numino.net/ 说明 <NULL> 7k3jF2 http://blog.numino.net/ 参考 <NULL> uVyEIH http://blog.numino.net/ 例子 <参见Format> 22C4Fz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 99KqM8 http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of Vl25UW http://blog.numino.net/ const): WideString; $[SysUtils.pas G3afiF http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 WkSc13 http://blog.numino.net/ 说明 <NULL> hmxBgN http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr 35729a http://blog.numino.net/ 例子 <参见Format> u3IjG0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Xbe31n http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; xDZVx6 http://blog.numino.net/ const Args: array of const); $[SysUtils.pas L271Bi http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 P7N7AM http://blog.numino.net/ 说明 <NULL> e7M8L4 http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf fg5Pnq http://blog.numino.net/ 例子 <参见Format> SrZHrB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ldM9Vk http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; IPm0lC http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 6gp1z9 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 kaR639 http://blog.numino.net/ 说明 <NULL> XkS6NG http://blog.numino.net/ 参考 <NULL> 3s87H5 http://blog.numino.net/ 例子 <参见Format> 207dyg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fEYRFT http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 1uveKC http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 SSX2oh http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 QcAo5e http://blog.numino.net/ 参考 function SysUtils.FloatToText c1xCDY http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); HOzkL1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yYSSkf http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas ik3EKU http://blog.numino.net/ 功能 返回货币数Value转换成字符串 pwR55h http://blog.numino.net/ 说明 货币数只保留四位小数 RquOt8 http://blog.numino.net/ 参考 function SysUtils.FloatToText zoPQ2g http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); frY6EV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 13n3Qx http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas cs96pQ http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 okqd6K http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 N9DJCp http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency l4tvtl http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); rqDcQe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KMy57Q http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, shiXq4 http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas rM5uay http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 JWKUxL http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 4ICpqS http://blog.numino.net/ 参考 function SysUtils.FloatToText qGjR0F http://blog.numino.net/ 例子 KFv827 http://blog.numino.net/ ///////Begin FloatToStrF 8KK2d4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Sez5xN http://blog.numino.net/ begin 6r8nEp http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, u9hFMg http://blog.numino.net/ 0), A24s9o http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); 7TLBwv http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 5gFMsx http://blog.numino.net/ 0), iQlEt7 http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); PW6ssR http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), Wy5Uix http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); 0M4Uhv http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, v85B41 http://blog.numino.net/ 0), oivmzF http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); ZZ94DT http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, U0vR30 http://blog.numino.net/ 0), cs6FI7 http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); fDaa00 http://blog.numino.net/ end; DD5y37 http://blog.numino.net/ ///////End FloatToStrF rwqIAD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OAREUe http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: jvK872 http://blog.numino.net/ Integer): string; $[SysUtils.pas Cv1TdK http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 1iy4um http://blog.numino.net/ 说明 Digits指定小数宽度 NDmoTl http://blog.numino.net/ 参考 function SysUtils.FloatToText S1SA92 http://blog.numino.net/ 例子 emRXIC http://blog.numino.net/ ///////Begin CurrToStrF Ejilyp http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Gcd3hs http://blog.numino.net/ begin EdW9wv http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), z9jn82 http://blog.numino.net/ ffGeneral, SpinEdit1.Value); rII98V http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, x0OGqb http://blog.numino.net/ 0), GGJ65J http://blog.numino.net/ ffExponent, SpinEdit1.Value); 96xXFZ http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), NpUNRM http://blog.numino.net/ ffFixed, SpinEdit1.Value); o3EEOK http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), wokkMT http://blog.numino.net/ ffNumber, SpinEdit1.Value); Z1uP7o http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, h1ZDwm http://blog.numino.net/ 0), 5un2KO http://blog.numino.net/ ffCurrency, SpinEdit1.Value); Z0g0U5 http://blog.numino.net/ end; TNSJ9F http://blog.numino.net/ ///////End CurrToStrF T2mujJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9gD889 http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: 81cXpL http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; swQshu http://blog.numino.net/ $[SysUtils.pas NSb9BK http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 1whR6Y http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 E2C2Up http://blog.numino.net/ 参考 <NULL> aIDSX9 http://blog.numino.net/ 例子 cphXTE http://blog.numino.net/ ///////Begin FloatToText Oabirw http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 76GExA http://blog.numino.net/ var Dfe93p http://blog.numino.net/ vBuffer: array[0..255] of Char; HHiqCg http://blog.numino.net/ E: Extended; w2878J http://blog.numino.net/ begin 7qt3Kv http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); G1977X http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, Wzckjb http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); FNZmKp http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); c0DKB8 http://blog.numino.net/ end; Z17096 http://blog.numino.net/ ///////End FloatToText( wvJ7BG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p4M1He http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; PV5gqA http://blog.numino.net/ $[SysUtils.pas QDEelN http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 S4srY7 http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' e1E9i7 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt GejK6g http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); 4Y97KZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mFPwTT http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; rQ4JTT http://blog.numino.net/ $[SysUtils.pas NcveN3 http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 lMhMs0 http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' OXi7fS http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt ef6e7t http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 9bh7Vr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6z745L http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 4ZVhIp http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas U7ZO82 http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 3Okjcq http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 Ttph5C http://blog.numino.net/ 参考 <NULL> sZF25n http://blog.numino.net/ 例子 88R208 http://blog.numino.net/ ///////Begin FloatToTextFmt 1h05hr http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hrUD6s http://blog.numino.net/ var O63CdO http://blog.numino.net/ vBuffer: array[0..255] of Char; N183hD http://blog.numino.net/ E: Extended; xBC6m2 http://blog.numino.net/ begin 3BLWD5 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); P4mV7d http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, PkEd86 http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); FR5RMv http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); oQ4JXi http://blog.numino.net/ end; T1g4a4 http://blog.numino.net/ ///////End FloatToTextFmt sJsJmv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GSW3wU http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas sdM7dt http://blog.numino.net/ 功能 返回字符串S转换成浮点数 s7SX5h http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 8A32T9 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 3cLVD5 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; jk1eoz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1NTpNS http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): v8YRvk http://blog.numino.net/ Extended; $[SysUtils.pas 3Z91m9 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 l71WXN http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default EjK7PM http://blog.numino.net/ 参考 function SysUtils.TextToFloat oDm8ll http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; Z6MlCR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jXBe0e http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; Kje2n2 http://blog.numino.net/ overload; $[SysUtils.pas a1JYkS http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; 6IiUde http://blog.numino.net/ overload; $[SysUtils.pas 30Bu7n http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; U1V7gt http://blog.numino.net/ overload; $[SysUtils.pas 7ZRm1r http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 W55jB5 http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 LQTuza http://blog.numino.net/ 参考 function SysUtils.TextToFloat C5E1S4 http://blog.numino.net/ 例子 ZP42QL http://blog.numino.net/ ///////Begin TryStrToFloat CX1OMk http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7GgDCU http://blog.numino.net/ var nUwGcG http://blog.numino.net/ E: Extended; 05Q4Q6 http://blog.numino.net/ begin 1DnX44 http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); GFOnU3 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); yZUk1B http://blog.numino.net/ end; 9XJc6B http://blog.numino.net/ ///////End TryStrToFloat uy9c5d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qb8u0K http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas dew70q http://blog.numino.net/ 功能 返回字符串S转换成货币数 zAV1X2 http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 41N48Y http://blog.numino.net/ 参考 function SysUtils.TextToFloat q618QL http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; lvE512 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B960Qx http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): dJ8h9N http://blog.numino.net/ Currency; $[SysUtils.pas WNaGyZ http://blog.numino.net/ 功能 返回字符串S转换成货币数 238ENT http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default ZSyBnc http://blog.numino.net/ 参考 function SysUtils.TextToFloat Lh2c68 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 2zR42o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3a5dwX http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; IWXfG0 http://blog.numino.net/ $[SysUtils.pas kxN3eI http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 s8bPMI http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 uy2MW2 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 8ClDT2 http://blog.numino.net/ 例子 1dCzdb http://blog.numino.net/ ///////Begin TryStrToCurr r0KkyR http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); i7TK23 http://blog.numino.net/ var 0vIQNH http://blog.numino.net/ C: Currency; 76DDkc http://blog.numino.net/ begin FvffO6 http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); zw7e5a http://blog.numino.net/ Edit2.Text := FormatCurr('', C); Q3fEjm http://blog.numino.net/ end; cSL9Q6 http://blog.numino.net/ ///////End TryStrToCurr 73AfeM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MYwqCv http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Sxa3Sk http://blog.numino.net/ Boolean; $[SysUtils.pas zHNPn3 http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value 4b9IA3 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 4PYRo7 http://blog.numino.net/ 参考 <NULL> mjPz5p http://blog.numino.net/ 例子 JVlRr8 http://blog.numino.net/ ///////Begin TextToFloat ZXC259 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7sKCpk http://blog.numino.net/ var eM2wc6 http://blog.numino.net/ E: Extended; 9qJzw5 http://blog.numino.net/ begin EFwfbv http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, YZtAFi http://blog.numino.net/ fvExtended); bAFCd8 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); C56lIU http://blog.numino.net/ end; Z28MZR http://blog.numino.net/ ///////End TextToFloat uPPnRD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 29iB89 http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas I186b8 http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 Dq66jb http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 Qr922n http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat pi0oEA http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); Yts7Jo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sbZ36G http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 5K2k76 http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 GZu22w http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 64jkXt http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat 1j1cIg http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); 7wBsLU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7EIa4t http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; QQRPMn http://blog.numino.net/ $[SysUtils.pas YW9KS2 http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 nP8oQQ http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 KNdJ0G http://blog.numino.net/ 参考 function SysUtils.DateTimeToString Lb4LPs http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); dH7xrs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AI4AMx http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas OoVrSG http://blog.numino.net/ 功能 返回字符串S转换成日期 fk7FK3 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 sSl3nH http://blog.numino.net/ 参考 function SysUtils.TryStrToDate K3aoFt http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); 9jm6M0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Rrr837 http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): 0B3bGM http://blog.numino.net/ TDateTime; $[SysUtils.pas KMlrEy http://blog.numino.net/ 功能 返回字符串S转换成日期 15sd8K http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default h87DhV http://blog.numino.net/ 参考 function SysUtils.TryStrToDate Abxln2 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); 4p1Pl8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J6jyOP http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; 9zNJuI http://blog.numino.net/ $[SysUtils.pas aPUec7 http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 QTyA3w http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 XLfpIq http://blog.numino.net/ 参考 <NULL> oMbeDg http://blog.numino.net/ 例子 c77Kjd http://blog.numino.net/ ///////Begin TryStrToDate clL9Z3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); sBO40g http://blog.numino.net/ var Qhl9BX http://blog.numino.net/ vDateTime: TDateTime; mXTXmr http://blog.numino.net/ begin pV38j5 http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); m1wjP7 http://blog.numino.net/ DateTimePicker1.Date := vDateTime; h67WsH http://blog.numino.net/ end; MUf32G http://blog.numino.net/ ///////End TryStrToDate B81ZiM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n0e5X2 http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas JRhdKZ http://blog.numino.net/ 功能 返回字符串S转换成时间 EZ48dT http://blog.numino.net/ 说明 字符非时间表达时将引起异常 k4oxvP http://blog.numino.net/ 参考 function SysUtils.TryStrToTime gF93pN http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); B7kA0k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yWiUxk http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): bSWDG7 http://blog.numino.net/ TDateTime; $[SysUtils.pas R2GnXC http://blog.numino.net/ 功能 返回字符串S转换成时间 wz5Qpf http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default F2GaSG http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 8eQ0AD http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); bTDpAM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jKjaDH http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; Nlmzxp http://blog.numino.net/ $[SysUtils.pas kZiLA6 http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 NHcfZt http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 4L42ax http://blog.numino.net/ 参考 <NULL> h7CU5q http://blog.numino.net/ 例子 sS0v07 http://blog.numino.net/ ///////Begin TryStrToTime Xu5C99 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ZGOOgx http://blog.numino.net/ var THUe1V http://blog.numino.net/ vDateTime: TDateTime; u8KZkg http://blog.numino.net/ begin uo2Gr6 http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); alsiEg http://blog.numino.net/ DateTimePicker1.Time := vDateTime; WrEjX8 http://blog.numino.net/ end; BHGRol http://blog.numino.net/ ///////End TryStrToTime ujr3E0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x4HWh0 http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas n07k2P http://blog.numino.net/ 功能 返回字符串S转换成日期时间 1i712F http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 ailShG http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 5gqSRa http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 8Sf2kD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 80JD5F http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): zWqOMk http://blog.numino.net/ TDateTime; $[SysUtils.pas RV162h http://blog.numino.net/ 功能 返回字符串S转换成日期时间 JoZHaS http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default 9T0dG3 http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime ZWJUuO http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); thELh3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8sfKx1 http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): G26Z5n http://blog.numino.net/ Boolean; $[SysUtils.pas p6n64m http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 Np2Ytq http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 Uun6il http://blog.numino.net/ 参考 <NULL> 8O91w1 http://blog.numino.net/ 例子 39nOIZ http://blog.numino.net/ ///////Begin TryStrToDateTime V267uI http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); PD4xVl http://blog.numino.net/ var 3Y3gfi http://blog.numino.net/ vDateTime: TDateTime; oh0VSj http://blog.numino.net/ begin 1g97me http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 9wQovb http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); 5l1rcy http://blog.numino.net/ end; oYYeB3 http://blog.numino.net/ ///////End TryStrToDateTime AhqEEW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q9TadI http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; 9o1SO1 http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas 75GYC5 http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 4eqosH http://blog.numino.net/ 说明 <参见FormatDateTime> iRBTnA http://blog.numino.net/ 参考 function System.SetString sIxkLj http://blog.numino.net/ 例子 <参见FormatDateTime> iDY3M4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uxn0aQ http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: ET74cs http://blog.numino.net/ string): string; platform; $[SysUtils.pas EBeR5O http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 zrPx0u http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' STfh97 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo L2drBs http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); pOTB4w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IF71VT http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): I1VXHm http://blog.numino.net/ Char; platform; $[SysUtils.pas lrpR3O http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 LG280i http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' uQHO6R http://blog.numino.net/ 参考 function Windows.GetLocaleInfo W3U04Y http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); D0pBSK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wLt7EL http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; paxMyj http://blog.numino.net/ $[SysUtils.pas jw1qGu http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 I1uSt4 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) YncH3a http://blog.numino.net/ 参考 var SysUtils.SysLocale c9dudz http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); Y55XJr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TY2JpZ http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; W6JGAN http://blog.numino.net/ $[SysUtils.pas 31yfze http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 3yhcRg http://blog.numino.net/ 说明 Index从0开始 1chP2J http://blog.numino.net/ 参考 var SysUtils.SysLocale 7h7pR1 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), 1Y28Al http://blog.numino.net/ SpinEdit2.Value)); 6g8gfG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pYNw6s http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; 41nXU8 http://blog.numino.net/ $[SysUtils.pas ERcJp9 http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 HDD2a4 http://blog.numino.net/ 说明 MaxLen指定处理字符个数 JAwAIq http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex ejH0r5 http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); Z9w5Tb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t4apZN http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; v11Wl8 http://blog.numino.net/ $[SysUtils.pas f9EoLj http://blog.numino.net/ 功能 返回字符串S中有多少个字符 YDV15X http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 V0rU1I http://blog.numino.net/ 参考 var SysUtils.SysLocale liL6mv http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); GVTScG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2fjIra http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; sDN5de http://blog.numino.net/ $[SysUtils.pas g4IL3D http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 NYU3b1 http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 I1xzB0 http://blog.numino.net/ 参考 function SysUtils.NextCharIndex 03CR8G http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); GHrb6n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hMkBnu http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; 95r0G4 http://blog.numino.net/ $[SysUtils.pas L980CI http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 Qm7KW6 http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 4mE0k1 http://blog.numino.net/ 参考 function System.Length 89I9YM http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 5dbj17 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7tQmL0 http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas UTZB67 http://blog.numino.net/ 功能 返回第一个字符的宽度 8QriI6 http://blog.numino.net/ 说明 参数为空则返回0 LiS2bV http://blog.numino.net/ 参考 function Windows.CharNext 953sG2 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); psAl0h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U74vw8 http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas Ie97SY http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 5264HY http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; a0gSvU http://blog.numino.net/ 参考 function Windows.CharNext Q8eU8P http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); 8tB3JP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ og9nvJ http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; 76UlRy http://blog.numino.net/ $[SysUtils.pas 59zVO8 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 iHpn3o http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 7kKPDK http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 78jMHZ http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); sSvV3R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XTOAot http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; gm63XA http://blog.numino.net/ $[SysUtils.pas 3A4LMl http://blog.numino.net/ 功能 返回下一个字符的位置 XC3cr3 http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 b3HxBs http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength tYAp0J http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); fTIO6f http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7NVZb3 http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; T0DBky http://blog.numino.net/ $[SysUtils.pas vy3mrD http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 E6jC7y http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True tEi7Ye http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType TD559w http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); L3z7xL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QwQo2I http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): 5ZF01Z http://blog.numino.net/ Boolean; $[SysUtils.pas K5t78M http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters M13uF0 http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True km9mBX http://blog.numino.net/ 参考 function SysUtils.ByteType FIE0N9 http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, NsnEz6 http://blog.numino.net/ SpinEdit1.Value); l5L8cI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ onc7xm http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; t0RN1w http://blog.numino.net/ $[SysUtils.pas rePJZ0 http://blog.numino.net/ 功能 返回包括最后路径分隔符 z1tUq6 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 0dI0bV http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length PIdatM http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); VoZLsM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OY504E http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; qm1VC5 http://blog.numino.net/ $[SysUtils.pas wWncl6 http://blog.numino.net/ 功能 返回包括最后斜线 lJG9Yn http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 9furar http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter S51iWW http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); dko15p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hb8S3L http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; 9u1MBw http://blog.numino.net/ $[SysUtils.pas 7yohHe http://blog.numino.net/ 功能 返回排除最后路径分隔符 j9VKY2 http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 EB5641 http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function lxkl53 http://blog.numino.net/ System.SetLength wL0L5W http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); aSE6YU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J7ce9d http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; ui0RNz http://blog.numino.net/ $[SysUtils.pas N4EG3a http://blog.numino.net/ 功能 返回排除最后斜线 Zr3EYC http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) dCR5Hr http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter 3fb4i1 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); En8tKZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CBOE9y http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; nt6k39 http://blog.numino.net/ $[SysUtils.pas g5Gueh http://blog.numino.net/ 功能 返回最后一个分隔符的位置 fv1vkt http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 Q9vH3K http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType VPB4tr http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); t2j6pa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K7CoNh http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; jBnTrN http://blog.numino.net/ $[SysUtils.pas oZWqac http://blog.numino.net/ 功能 返回比较两个文件名 blpqOb http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 PVZInH http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr vNC6li http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); G0DDST http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Haj9aK http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas YE6iUx http://blog.numino.net/ 功能 返回两个文件名是否相等 OcJEHp http://blog.numino.net/ 说明 区分大小写 s89553 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName CR9pwR http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); ASDr0i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Tg6R0k http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas No3irQ http://blog.numino.net/ 功能 返回小写文件名 56Pj06 http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase 0QVdm8 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase H36z8J http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); PnFTyP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 71oE4Q http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas hH39pg http://blog.numino.net/ 功能 返回大写文件名 cArhVq http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase UpfkS6 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase C7yJcj http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); wudNE1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0UzWqg http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas yL9773 http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 fV30s6 http://blog.numino.net/ 说明 不存在则返回0 rNlk2G http://blog.numino.net/ 参考 SysUtils.AnsiStrPos ODgvhe http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); 9SvIuN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LmV50M http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 13cdYb http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 36z231 http://blog.numino.net/ 说明 不存在则返回nil bzsifc http://blog.numino.net/ 参考 function SysUtils.StrByteType dlpYPl http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); XrvAKC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8j5szb http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas g0tOtH http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 6Z3DEZ http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' e8vrOp http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan tjvmD8 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); a8z28R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0CHzZ4 http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 1N0bK3 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 f4YH7q http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' r4qlo5 http://blog.numino.net/ 参考 function SysUtils.StrScan W34gvz http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 0W5bHm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G21uxF http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: 7wHnng http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas 5efp67 http://blog.numino.net/ 功能 返回替换后的字符串 hWX3S9 http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 0KoK12 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function 95C2JE http://blog.numino.net/ System.Copy VoKFuP http://blog.numino.net/ 例子 3HL0fw http://blog.numino.net/ ///////Begin StringReplace DcgD22 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 41m5bE http://blog.numino.net/ begin 2omb2W http://blog.numino.net/ Memo1.Lines.Values['[]'] := R2Vn7C http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); 7723GM http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := E5FbZo http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); 64rzcN http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := 10mbDB http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); 7ytxdf http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := fzczua http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, trs2gG http://blog.numino.net/ rfIgnoreCase]); T2y1J1 http://blog.numino.net/ end; np6hsv http://blog.numino.net/ ///////End StringReplace IM3Iag http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e3kABr http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas N61D8R http://blog.numino.net/ 功能 返回字符串S转换成全局标识 ppDmQ2 http://blog.numino.net/ 说明 如果字符串非法将触发异常 82qa9j http://blog.numino.net/ 参考 fuction Windows.Succeeded mn4Kyq http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 0A0Er7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e6GGS9 http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas 71SeWs http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 sFQhHb http://blog.numino.net/ 说明 <NULL> V27t3k http://blog.numino.net/ 参考 fuction Windows.Succeeded RqC28a http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); B5A9bE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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