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

Delphi字符串函数大全 【字符串函数大全】 d5VioC http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; zq2WJ2 http://blog.numino.net/ $[StrUtils.pas 93CNd0 http://blog.numino.net/ 功能 返回两个字符串是否相似 sS0R4I http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 y7a5RP http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc soqC02 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); rvFNm5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Rjs6oL http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 5KXr3j http://blog.numino.net/ $[StrUtils.pas 3Oexl9 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText xUfw4Q http://blog.numino.net/ 说明 不区分大小写 wT7GBf http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos nz3XQU http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); NWEoUs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ amCfgt http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; 9Y94sX http://blog.numino.net/ $[StrUtils.pas hT3Qkn http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 0KLB88 http://blog.numino.net/ 说明 不区分大小写 P1H80D http://blog.numino.net/ 参考 function Windows.CompareString mG7Ho2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); 70npZV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pU9pbz http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 68E61j http://blog.numino.net/ $[StrUtils.pas hIDWWh http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 0XvgSI http://blog.numino.net/ 说明 不区分大小写 x1f6XT http://blog.numino.net/ 参考 function Windows.CompareString db9SeR http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); B7UNSM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5SqQ3Y http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 3R2OJJ http://blog.numino.net/ string; $[StrUtils.pas 3mdK6F http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 NnFlLY http://blog.numino.net/ 说明 不区分大小写 yZp8tu http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags tj5z1h http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); zlAg8P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wS333b http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of nxbl6w http://blog.numino.net/ string): Boolean; $[StrUtils.pas 42Ubr3 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText 5QFiEo http://blog.numino.net/ 说明 不区分大小写 lnl3P9 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText moA0T5 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', s3pU4m http://blog.numino.net/ 'a4']); MHyw42 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zJ8YX8 http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of uISDY3 http://blog.numino.net/ string): Integer; $[StrUtils.pas MJAQ0P http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 8x7Pf7 http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 aZhmoJ http://blog.numino.net/ 参考 function SysUtils.AnsiSameText xGa8xd http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); vBO707 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J53F1j http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; dgv9F8 http://blog.numino.net/ $[StrUtils.pas GMAGZP http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText xY06HO http://blog.numino.net/ 说明 区分大小写 2WhCxY http://blog.numino.net/ 参考 function StrUtils.AnsiPos D18cqs http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); loB3i1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dkC260 http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; 553c42 http://blog.numino.net/ $[StrUtils.pas BRV626 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 Vq4p8Q http://blog.numino.net/ 说明 区分大小写 4TThgK http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 139oi8 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); nKJB59 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UyVWn9 http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; SW58A9 http://blog.numino.net/ $[StrUtils.pas F0h4Du http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 97SKBm http://blog.numino.net/ 说明 区分大小写 7NcJAD http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr cmo74p http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); ikzF76 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F0953W http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): 7FIvsR http://blog.numino.net/ string; $[StrUtils.pas GNTXVf http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 Fy5QiB http://blog.numino.net/ 说明 区分大小写 9B5xhF http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags pZ4023 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); 6QDjoK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jUZ133 http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of jl6nDt http://blog.numino.net/ string): Boolean; $[StrUtils.pas 03101o http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText 12a6v4 http://blog.numino.net/ 说明 区分大小写 7iIKXh http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr 15LaHO http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 1MeVDp http://blog.numino.net/ 'a4']); hJ2dbM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nrn2bQ http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of lTjz32 http://blog.numino.net/ string): Integer; $[StrUtils.pas vFdmdN http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 sbGYop http://blog.numino.net/ 说明 区分大小写 24r4yG http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr NFZ58c http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); yYv9sX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uxb5E1 http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; ByAy8c http://blog.numino.net/ $[StrUtils.pas k8t295 http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 HQ4MJu http://blog.numino.net/ 说明 当ACount为0时返回'' H8Q272 http://blog.numino.net/ 参考 function System.SetLength Uz3Bkq http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); W50VeS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Xr6Z3p http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas Pp1p4n http://blog.numino.net/ 功能 返回字符串AText的反序 Z8dIhg http://blog.numino.net/ 说明 ReverseString('1234') = '4321' 0m8KX7 http://blog.numino.net/ 参考 function System.SetLength b31wWt http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); 10xRN4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pUkrTm http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; SI5w8U http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas 06Rs5w http://blog.numino.net/ 功能 返回嵌套字符串 bMTC2G http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' ah2bU6 http://blog.numino.net/ 参考 function System.Copy cVBYD5 http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, fs523I http://blog.numino.net/ Edit2.Text); bIZ34U http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v5G04h http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; yWC3rW http://blog.numino.net/ $[StrUtils.pas 7APw56 http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 I9fMeM http://blog.numino.net/ 说明 之前建议执行Randomize ztvdSR http://blog.numino.net/ 参考 function System.Random pWnESl http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); OeKXoW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 27bEdi http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = 2DlhQ8 http://blog.numino.net/ ''): string; overload; $[StrUtils.pas s0jR4v http://blog.numino.net/ 功能 返回指定的逻辑字符串 y5x3iE http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' onZKlH http://blog.numino.net/ 参考 <NULL> nM1jfV http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); 1waX71 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BADMtO http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; 1A0wId http://blog.numino.net/ $[StrUtils.pas dejaWN http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 GdvK0J http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' 20H2b4 http://blog.numino.net/ 参考 function System.Copy T30dEI http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); Hfl89f http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jzFdGr http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; 3482av http://blog.numino.net/ $[StrUtils.pas 1upj6W http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 fY2W2O http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' y95p6b http://blog.numino.net/ 参考 function System.Copy IJ1R7v http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); xz0827 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3MI3kA http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): v6DE3r http://blog.numino.net/ string; $[StrUtils.pas E3ViQ4 http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 IXBO9U http://blog.numino.net/ 说明 其实就是Copy 815QU7 http://blog.numino.net/ 参考 function System.Copy zuIl2h http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); fPhEeQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7E3SuP http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: GaD3BF http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): 5dPJwX http://blog.numino.net/ PChar; $[StrUtils.pas lb03Yh http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 192p0G http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 5TL9KS http://blog.numino.net/ 参考 <NULL> B5O51U http://blog.numino.net/ 例子 CyJ6of http://blog.numino.net/ ///////Begin SearchBuf G7Mo8q http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; A4uKho http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 3g4dsL http://blog.numino.net/ var 3I1m0l http://blog.numino.net/ Buffer, P: PChar; mOgA88 http://blog.numino.net/ Size: Word; goafww http://blog.numino.net/ begin 1LMyuC http://blog.numino.net/ Result := False; qQCmSR http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; hYx9pD http://blog.numino.net/ Size := EditControl.GetTextLen; vY3E66 http://blog.numino.net/ if (Size = 0) then Exit; 5XtK6U http://blog.numino.net/ Buffer := StrAlloc(Size + 1); BJ92s0 http://blog.numino.net/ try 4lCuqV http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); 0A0o77 http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, Nzt1pI http://blog.numino.net/ SearchString, SearchOptions); IFs00h http://blog.numino.net/ if P <> nil then begin XNON8W http://blog.numino.net/ EditControl.SelStart := P - Buffer; qI8Roj http://blog.numino.net/ EditControl.SelLength := Length(SearchString); ezdXbO http://blog.numino.net/ Result := True; 0qc6jH http://blog.numino.net/ end; R7BV58 http://blog.numino.net/ finally lMPdcK http://blog.numino.net/ StrDispose(Buffer); vQWNaU http://blog.numino.net/ end; Kx7ERE http://blog.numino.net/ end; iIRnQ1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); S12nLM http://blog.numino.net/ var rJxk6j http://blog.numino.net/ SearchOptions: TStringSearchOptions; o2NkHg http://blog.numino.net/ begin jO28Sy http://blog.numino.net/ SearchOptions := []; FojX04 http://blog.numino.net/ if CheckBox1.Checked then IimLj9 http://blog.numino.net/ Include(SearchOptions, soDown); kugPTj http://blog.numino.net/ if CheckBox2.Checked then NZk1Ia http://blog.numino.net/ Include(SearchOptions, soMatchCase); GK9lYj http://blog.numino.net/ if CheckBox3.Checked then JF7e3x http://blog.numino.net/ Include(SearchOptions, soWholeWord); W3oH3W http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 8xamo9 http://blog.numino.net/ Memo1.SetFocus; KZePXy http://blog.numino.net/ end; mTfU77 http://blog.numino.net/ ///////End SearchBuf sgGN0x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eY9kOw http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): 2nLfVf http://blog.numino.net/ string; $[StrUtils.pas 73xqnI http://blog.numino.net/ 功能 返回探测字符串 CAYuJ9 http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html An0pbQ http://blog.numino.net/ 参考 <NULL> 7lItAM http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 7fNJrN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 17CNeC http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 06aaly http://blog.numino.net/ 4): Integer; $[StrUtils.pas iSC8FB http://blog.numino.net/ 功能 返回探测整数 ibgol3 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 0G9h26 http://blog.numino.net/ 参考 <NULL> injN7n http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 8zZLnt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5M4nK1 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas 3bs33A http://blog.numino.net/ 功能 返回探测整数的解码 LcojGP http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') vGh1OJ http://blog.numino.net/ 参考 <NULL> 39Wy9k http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); 7rCrDb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SPZSk9 http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas SrIH7b http://blog.numino.net/ 功能 返回探测文字数值 uepk0v http://blog.numino.net/ 说明 没有参数ALength已经固定为4 1OdvAJ http://blog.numino.net/ 参考 <NULL> GU78f8 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); PAHL79 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OuZ1pV http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas xVDJzd http://blog.numino.net/ 功能 返回探测文字数值的解码 Q8wWR0 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') S9RuG4 http://blog.numino.net/ 参考 <NULL> Nald1G http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); O52kW7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9R3s3I http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: avxfWv http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas zt50x3 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 9Zu1tT http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) eWG506 http://blog.numino.net/ 参考 <NULL> pp5Yup http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, B2G8J5 http://blog.numino.net/ SpinEdit1.Value); S9nita http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 91OK0l http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: 63gVlq http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas ZkGMfQ http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 916Oj6 http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, PTt55G http://blog.numino.net/ ALength)) nzdFiJ http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr Wt2PFC http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, po7nvD http://blog.numino.net/ SpinEdit1.Value); ykwLxN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I41uO5 http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; HZGds9 http://blog.numino.net/ $[StrUtils.pas Qwy9zm http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 iBMvFq http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 PW2pKQ http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText kLMclm http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 5hiZMj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EhFUhp http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas F6VtvR http://blog.numino.net/ 功能 返回一个新的字符串指针地址 JCW9IP http://blog.numino.net/ 说明 字符串S为空时返回NullStr QkQfXY http://blog.numino.net/ 参考 procedure System.New kVbM36 http://blog.numino.net/ 例子 2NIBV2 http://blog.numino.net/ ////////Begin NewStr,DisposeStr KshiXx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); UKg77Q http://blog.numino.net/ var RgZXGA http://blog.numino.net/ P: PString; 4mX0qf http://blog.numino.net/ begin vFTnK8 http://blog.numino.net/ P := NewStr(Edit1.Text); b8uH71 http://blog.numino.net/ Edit2.Text := P^; XAe6jw http://blog.numino.net/ DisposeStr(P); 85KzgM http://blog.numino.net/ end; BAARUT http://blog.numino.net/ ////////End NewStr,DisposeStr gv6xS5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XN1eTZ http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas QT6417 http://blog.numino.net/ 功能 释放字符串指针P资源 wt8EHf http://blog.numino.net/ 说明 配合函数NewStr使用 SQETcj http://blog.numino.net/ 参考 procedure System.Dispose M8BO8J http://blog.numino.net/ 例子 <如上参见,如下参见> ggP1qG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E31LkS http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; FR0G61 http://blog.numino.net/ $[SysUtils.pas kMQoeJ http://blog.numino.net/ 功能 将字符串S更新给字符串指针P jkyE2l http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 HBg8wu http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr 3pc5v1 http://blog.numino.net/ 例子 TLw14g http://blog.numino.net/ ////////Begin AssignStr LVi2O0 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); IY9m5Q http://blog.numino.net/ var 6oh9Ij http://blog.numino.net/ P: PString; 9sZxYR http://blog.numino.net/ begin wS4028 http://blog.numino.net/ P := nil; za7nN9 http://blog.numino.net/ AssignStr(P, Edit1.Text); 7aQj9x http://blog.numino.net/ Edit2.Text := P^; js4cIa http://blog.numino.net/ DisposeStr(P); hzu4Yn http://blog.numino.net/ end; hK17bO http://blog.numino.net/ ////////End AssignStr 649jam http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F8R637 http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; 480bp4 http://blog.numino.net/ $[SysUtils.pas mOO1Bi http://blog.numino.net/ 功能 在字符串Dest后追加字符串S PJx0Ua http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 i40XUn http://blog.numino.net/ 参考 <NULL> rghwGY http://blog.numino.net/ 例子 mwd501 http://blog.numino.net/ ////////Begin AppendStr 41i64z http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7P2xoi http://blog.numino.net/ var a373pX http://blog.numino.net/ S: string; yuLl34 http://blog.numino.net/ begin jc4S2A http://blog.numino.net/ S := Edit2.Text; uvdbft http://blog.numino.net/ AppendStr(S, Edit1.Text); wL7h8q http://blog.numino.net/ Edit2.Text := S; Ed810D http://blog.numino.net/ end; hDXk6j http://blog.numino.net/ ////////End AppendStr fBehBy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5xtT8o http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas SqABU3 http://blog.numino.net/ 功能 返回字符串S的大写形式 7zJkFW http://blog.numino.net/ 说明 非小写字符不处理 I5jcjO http://blog.numino.net/ 参考 procedure System.SetLength fvL9gG http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); NT4aWg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AUmTqD http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas 2glZWC http://blog.numino.net/ 功能 返回字符串S的小写形式 88A5es http://blog.numino.net/ 说明 非大写字符不处理 n7S8Kx http://blog.numino.net/ 参考 procedure System.SetLength yHCRXI http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); jfXXsx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NFC8OL http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas xgH3Z3 http://blog.numino.net/ 功能 返回比较两个字符 Yb3nEU http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 6epw3Z http://blog.numino.net/ 参考 <NULL> HtMt0R http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); I6Xbi0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T5cSXN http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; 5v5J2E http://blog.numino.net/ assembler; $[SysUtils.pas 40SQcK http://blog.numino.net/ 功能 返回比较两个内存指针 Ge2037 http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), 397mB4 http://blog.numino.net/ PChar('12c'), 3)=False nEljRb http://blog.numino.net/ 参考 <NULL> 0IW1HF http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 83dU92 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EC2jWL http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas I8aLRm http://blog.numino.net/ 功能 返回比较两个字符串 FmYBy3 http://blog.numino.net/ 说明 不区分大小写 llJ89d http://blog.numino.net/ 参考 <NULL> VPTIFu http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 11DUbn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 32espq http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas Mj56WK http://blog.numino.net/ 功能 返回两个字符串是否相等 3hurzl http://blog.numino.net/ 说明 不区分大小写 9JTIzz http://blog.numino.net/ 参考 <NULL> 3xgtE1 http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 8E2G5R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4wPz78 http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas x9S92l http://blog.numino.net/ 功能 返回字符串S的大写形式 f82DW7 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 T4VbNq http://blog.numino.net/ 参考 function Windows.CharUpperBuff jFRaeD http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); UPB7u3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A6ioG0 http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 3Tn9tr http://blog.numino.net/ 功能 返回字符串S的小写形式 3c0oQH http://blog.numino.net/ 说明 非大写字符不处理 3mNmXg http://blog.numino.net/ 参考 function Windows.CharLowerBuff 2sH0xx http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); yI279U http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AUM4Ah http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas ajpCzw http://blog.numino.net/ 功能 反回比较两个字符串 yIrz6r http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 g7bdWI http://blog.numino.net/ 参考 function Windows.CompareString OevKOE http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 88nMdQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gPWqq1 http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas HaW5B5 http://blog.numino.net/ 功能 返回两个字符串是否相等 a48TxT http://blog.numino.net/ 说明 区分大小写 VLX6LE http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 8rhJqS http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); 2cvAJ4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5kYyHT http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas OIY1X7 http://blog.numino.net/ 功能 反回比较两个字符串 tNsR56 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 ydmGc6 http://blog.numino.net/ 参考 function Windows.CompareString VqP9CK http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); N0521P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jzfp95 http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas 1Hixsp http://blog.numino.net/ 功能 返回两个字符串是否相等 8uSWPh http://blog.numino.net/ 说明 不区分大小写 l4Sss8 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText 1euNhj http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); onbyA7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QUF106 http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas JSdOJP http://blog.numino.net/ 功能 返回比较两个指针字符串 b991gn http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 mk1lai http://blog.numino.net/ 参考 function System.CompareString bl7p0I http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) 0qxpG0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n01neG http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas Z39tLG http://blog.numino.net/ 功能 返回比较两个指针字符串 IYeiZf http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) C8nN9w http://blog.numino.net/ 参考 function Windows.CompareString 2fPcx1 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) c86WjX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a57f4G http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; bkwGWk http://blog.numino.net/ $[SysUtils.pas 6pX43U http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 lw2oZm http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 61JZxa http://blog.numino.net/ 参考 function Windows.CompareString H86DJn http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), J8jff4 http://blog.numino.net/ SpinEdit2.Value) 0gdt3V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 589Zbd http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; NlK4v7 http://blog.numino.net/ $[SysUtils.pas BG9h7X http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 5hfM7w http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 nj31v9 http://blog.numino.net/ 参考 function Windows.CompareString rc3JdC http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 5xXqVP http://blog.numino.net/ SpinEdit2.Value) 1dFey7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9q4K09 http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 307Se7 http://blog.numino.net/ 功能 返回指针字符串小写形式 3539uy http://blog.numino.net/ 说明 非大写字符不处理 J531hk http://blog.numino.net/ 参考 function Windows.CharLower A50sDS http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); m9H7V5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tRE0kt http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas a8tlD0 http://blog.numino.net/ 功能 返回指针字符串大写形式 NnEvUi http://blog.numino.net/ 说明 非小写字符不处理 4gLkg7 http://blog.numino.net/ 参考 function Windows.CharUpper 4DnIfb http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); 6W8Rrq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m1slve http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas lhj0fA http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 pFk3x4 http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 5zufYX http://blog.numino.net/ 参考 function SysUtils.ByteType 5c3N1V http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); IBPEib http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F9SQV8 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas YwTRqS http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 WEaXQ8 http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 uZWn9f http://blog.numino.net/ 参考 function SysUtils.ByteType 30kQ6m http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); TRdpS9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NX6Ln9 http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas N9fN34 http://blog.numino.net/ 功能 返回双字节字符串的大写形式 S1m2sw http://blog.numino.net/ 说明 WideChar双字节字符 8023Dr http://blog.numino.net/ 参考 function Windows.CharUpperBuffW qli6UP http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); 7MwolL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SrMPIz http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas 7Ly3dm http://blog.numino.net/ 功能 返回双字节字符串的小写形式 2JP9Ru http://blog.numino.net/ 说明 我怎么就测试不出来呢 uHP8H7 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW 4Ii26a http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); suurP8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5U8gkY http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; vd6upU http://blog.numino.net/ $[SysUtils.pas LnR4kR http://blog.numino.net/ 功能 返回比较两个双字节字符串 02ql55 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 u6BoN4 http://blog.numino.net/ 参考 function Windows.CompareStringW ZnFbSj http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); lnbjuY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 74E30F http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas a6Sygt http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 e7PJ8N http://blog.numino.net/ 说明 区分大小写 4IsUVB http://blog.numino.net/ 参考 function SysUtils.WideCompareStr KrZAWC http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 6BDm9G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AJ432u http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; sJ10nI http://blog.numino.net/ $[SysUtils.pas X9oGp4 http://blog.numino.net/ 功能 返回比较两个双字节字符串 1q46l8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 0zCFXe http://blog.numino.net/ 参考 function Windows.CompareStringW 9T9Vt7 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); xeXYiR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xbge20 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; mLldQ9 http://blog.numino.net/ $[SysUtils.pas oxS0mV http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 5hg09o http://blog.numino.net/ 说明 不区分大小写 DSBfDG http://blog.numino.net/ 参考 function SysUtils.WideCompareText iy0O3x http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); 9QrNub http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Xucj3k http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas c9eTUY http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; T43X4x http://blog.numino.net/ $[SysUtils.pas ijk89F http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 J3d433 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 S0nng9 http://blog.numino.net/ 参考 function System.Copy zsJ1Vs http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); 9tH18u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rCtoU9 http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas H7Wc5a http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; Ns6yc6 http://blog.numino.net/ $[SysUtils.pas hxmbzw http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 55bsNK http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 cRoBcU http://blog.numino.net/ 参考 function System.Copy xcFjb3 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); j1ZqJ2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3qXw0I http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas UNR16m http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; h5b9I1 http://blog.numino.net/ $[SysUtils.pas PgmtmE http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 M4Q5Zp http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 726w6o http://blog.numino.net/ 参考 function System.Copy wRx013 http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); dl8OX1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Bn32FZ http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas tTUdFk http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 c49BB9 http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 k7kpr1 http://blog.numino.net/ 参考 procedure System.Insert SdeuWM http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); AmFU1O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8HJgSB http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; ff4nSB http://blog.numino.net/ $[SysUtils.pas F91756 http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 zoY0aP http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', ID56qo http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' ZRxC7g http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 6viLee http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); Huy8W1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 90X1KI http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 6522Cz http://blog.numino.net/ $[SysUtils.pas 2rb4SJ http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 No3P8h http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 VMRI82 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan gTrM7I http://blog.numino.net/ 例子 v76qH6 http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr ZhGISP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5JBdFL http://blog.numino.net/ var 18t8JU http://blog.numino.net/ P: PChar; 398lsK http://blog.numino.net/ begin NG6FVZ http://blog.numino.net/ P := PChar(Edit1.Text); 5Ko7Wc http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); WJwilg http://blog.numino.net/ Edit3.Text := P; 3J4K27 http://blog.numino.net/ end; 6OPJK1 http://blog.numino.net/ ///////End AnsiExtractQuotedStr OR37UG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1rGoiz http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; qu2Cgy http://blog.numino.net/ $[SysUtils.pas 6h5SFY http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 hB2Vfr http://blog.numino.net/ 说明 表现形式非法时则返回S eykyqP http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr kgRXZZ http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); XL1eQJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aiTk5P http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = E0gvSf http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): WbgpDI http://blog.numino.net/ string; $[SysUtils.pas 001vVp http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 T2Y3dc http://blog.numino.net/ 说明 QZ5bo1 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 IeQ1Cn http://blog.numino.net/ 参考 function SysUtils.StrNextChar 28GGEK http://blog.numino.net/ 例子 <NULL> 9T7557 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3U2e8l http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas vy9XT0 http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 e4Fk0U http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... RTYcM9 http://blog.numino.net/ 参考 <NULL> plUq78 http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); BNTOd5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7PFxd0 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas EYWlYR http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas SXe21A http://blog.numino.net/ 功能 返回整数Value转换成字符串 6FM28z http://blog.numino.net/ 说明 Format('%d', [Value]) gtTQPS http://blog.numino.net/ 参考 function SysUtils.FmtStr pTLT69 http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); Pm030z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fdnPxR http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; Tt9iHh http://blog.numino.net/ $[SysUtils.pas TZ2MBp http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; qDmIJQ http://blog.numino.net/ $[SysUtils.pas znE5M1 http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 3SS7mY http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 eUfWts http://blog.numino.net/ 参考 function SysUtils.FmtStr 15kPy5 http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 8y6J03 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ikEqtA http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas np0h17 http://blog.numino.net/ 功能 返回字符串S转换成整数 2ENt48 http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 1n3EHt http://blog.numino.net/ 参考 procedure System.Val STtFaI http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); ci5Rr3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ykl5LH http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; ipopyw http://blog.numino.net/ $[SysUtils.pas r9ZzuJ http://blog.numino.net/ 功能 返回字符串S转换成整数 O8GM18 http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default VOz2uv http://blog.numino.net/ 参考 procedure System.Val eyCBlN http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); SaJzoS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3xe4WV http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; wSu9hU http://blog.numino.net/ $[SysUtils.pas GcKsX6 http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 h84xi4 http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 p95LpD http://blog.numino.net/ 参考 procedure System.Val LKh3g4 http://blog.numino.net/ 例子 uu8jRj http://blog.numino.net/ ///////Begin TryStrToInt 4QlfZz http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9c1pN3 http://blog.numino.net/ var 0235m2 http://blog.numino.net/ I: Integer; V3cao4 http://blog.numino.net/ begin 3xPZ8w http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); KZQwcs http://blog.numino.net/ SpinEdit1.Value := I; jaG8LU http://blog.numino.net/ end; KDl2bO http://blog.numino.net/ ///////End TryStrToInt 7Qc0Z7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ omk4H8 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas BQXq97 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 97nQ1o http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 eq1nq8 http://blog.numino.net/ 参考 procedure System.Val uIlsId http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); x0bZte http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6k5Oq0 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 0yqewE http://blog.numino.net/ $[SysUtils.pas HS9jyB http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 OC9Hkx http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default GK8I9R http://blog.numino.net/ 参考 procedure System.Val nBA1l4 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); mBh9k5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D0ODKa http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; c0zUTj http://blog.numino.net/ $[SysUtils.pas ASuloP http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 L7Cvxr http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 NE70Mb http://blog.numino.net/ 参考 procedure System.Val 8AradD http://blog.numino.net/ 例子 KxF3BI http://blog.numino.net/ ///////Begin TryStrToInt64 65YLX8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); mm7s7Q http://blog.numino.net/ var 87k8sz http://blog.numino.net/ I: Int64; YQ1qT8 http://blog.numino.net/ begin 69TOtm http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); O9W3cm http://blog.numino.net/ SpinEdit1.Value := I; Lr7m36 http://blog.numino.net/ end; EdhdNO http://blog.numino.net/ ///////End TryStrToInt64 9Qr07x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 02lM3g http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas 7PLAMT http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 6VZgQ9 http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 79pvlW http://blog.numino.net/ 参考 function SysUtils.TryStrToBool vAPb38 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); xgI6TT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b7LL3J http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): fXb0fu http://blog.numino.net/ Boolean; $[SysUtils.pas QiDj23 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 6kneLc http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default 0sfHVv http://blog.numino.net/ 参考 function SysUtils.TryStrToBool QN1Z45 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); ZhDpIb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6H4r1u http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; p2SH35 http://blog.numino.net/ $[SysUtils.pas 5NsgY8 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 4LEES2 http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 o35S0c http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var ZsHe7C http://blog.numino.net/ SysUtils.FalseBoolStrs eZhn2o http://blog.numino.net/ 例子 07244J http://blog.numino.net/ ///////Begin TryStrToBool 45uCX8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); tesKxc http://blog.numino.net/ var 9qt1pR http://blog.numino.net/ B: Boolean; qFrt33 http://blog.numino.net/ begin 2ox9BQ http://blog.numino.net/ SetLength(TrueBoolStrs, 2); Q7fsZ6 http://blog.numino.net/ SetLength(FalseBoolStrs, 2); 5f2i20 http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 5m4Cj0 http://blog.numino.net/ FalseBoolStrs[0] := 'False'; 6uPKFL http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; y9cuTh http://blog.numino.net/ FalseBoolStrs[1] := 'No'; lrFNGm http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); whae5A http://blog.numino.net/ CheckBox2.Checked := B; 1hEda4 http://blog.numino.net/ end; vgHnys http://blog.numino.net/ ///////End TryStrToBool z9T1E0 http://blog.numino.net/ 附加 gPyOnh http://blog.numino.net/ ///////Begin TryStrToBool 0vnofZ http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; MaOFjf http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; GOcpfi http://blog.numino.net/ var F3e1H4 http://blog.numino.net/ I: Integer; NP2Vq2 http://blog.numino.net/ begin GLRb5s http://blog.numino.net/ Result := False; 5pk4ap http://blog.numino.net/ for I := Low(aArray) to High(aArray) do MGY7xl http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then oQe8t0 http://blog.numino.net/ begin 1tgqnW http://blog.numino.net/ Result := True; u5NJrN http://blog.numino.net/ Break; MJHxKq http://blog.numino.net/ end; gFj579 http://blog.numino.net/ end; zDIYWO http://blog.numino.net/ var fhL4QG http://blog.numino.net/ LResult: Extended; LjnuFa http://blog.numino.net/ begin o5cL03 http://blog.numino.net/ Result := TryStrToFloat(S, LResult); h9nLi5 http://blog.numino.net/ if Result then Ssrqf7 http://blog.numino.net/ Value := LResult <> 0 1Un10t http://blog.numino.net/ else 8Wdf9Q http://blog.numino.net/ begin S50m08 http://blog.numino.net/ Result := True; //修正处 ZQ7xAh http://blog.numino.net/ VerifyBoolStrArray; GOZWS5 http://blog.numino.net/ if CompareWith(TrueBoolStrs) then RQU55z http://blog.numino.net/ Value := True 3J8fbv http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then 44c0vn http://blog.numino.net/ Value := False senwam http://blog.numino.net/ else S26n7d http://blog.numino.net/ Result := False; I0qsfk http://blog.numino.net/ end; 3Bhnhq http://blog.numino.net/ end; Hgf72O http://blog.numino.net/ ///////End TryStrToBool V4Ou8W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kao30F http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; T7R68P http://blog.numino.net/ $[SysUtils.pas cyAsUd http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 688981 http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' pHFFFV http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs XJ771H http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); I85Y8Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7IZpJi http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 2I53aj http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 9qFSSs http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 4wMmy4 http://blog.numino.net/ 参考 function SysUtils.FindStringResource y8H14n http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); oeUBNi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1te9bp http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): 0MMwwp http://blog.numino.net/ string; $[SysUtils.pas 6n3cpk http://blog.numino.net/ 功能 返回格式化的字符串资源 N6OsgL http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 x3zcLN http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource U4an5e http://blog.numino.net/ 例子 <NULL>; K43SAO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m22LAh http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas OppN5m http://blog.numino.net/ 功能 返回指针字符串的长度 j56wD6 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 1R19id http://blog.numino.net/ 参考 <NULL> EOyck5 http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); aNKCUd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gpHp2L http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas GJhg13 http://blog.numino.net/ 功能 返回指针字符串的结尾 vPjEUq http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 032MPp http://blog.numino.net/ 参考 <NULL> 7jBawn http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; wTq5mK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lOt1IY http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): pKoJ4d http://blog.numino.net/ PChar; $[SysUtils.pas UfUdjZ http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 HkHHVN http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 6xY7RL http://blog.numino.net/ 参考 function System.Move 0o8j2M http://blog.numino.net/ 例子 SSvcv2 http://blog.numino.net/ ///////Begin StrMove UHR59P http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Fbni1u http://blog.numino.net/ var msJUB9 http://blog.numino.net/ vBuffer: PChar; hHsqQ4 http://blog.numino.net/ begin PwJ3RO http://blog.numino.net/ vBuffer := '0123456789'; 3UEQ0d http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); Y7TpbW http://blog.numino.net/ Edit2.Text := vBuffer; M9KLKv http://blog.numino.net/ end; B6i0Gs http://blog.numino.net/ ///////End StrMove 8AtRpw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fXheih http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; jKMOpu http://blog.numino.net/ $[SysUtils.pas bvfDgU http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 l3L5ke http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 NDBs2I http://blog.numino.net/ 参考 <NULL> 7Kxobn http://blog.numino.net/ 例子 80RBDw http://blog.numino.net/ ///////Begin StrCopy k18NqN http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Xc1D30 http://blog.numino.net/ var dY1Hto http://blog.numino.net/ vBuffer: PChar; S41O31 http://blog.numino.net/ begin 3PC50P http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); 6ycqjd http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); aep4jD http://blog.numino.net/ Edit2.Text := vBuffer; t1h4rr http://blog.numino.net/ FreeMem(vBuffer); OKyOaV http://blog.numino.net/ end; h4Q6du http://blog.numino.net/ ///////End StrCopy Cb047W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1Z6e9J http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; qqjcIf http://blog.numino.net/ $[SysUtils.pas p31A1H http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 YQ8GIA http://blog.numino.net/ 说明 可以连接指针字符串 NJ68o7 http://blog.numino.net/ 参考 <NULL> hP3uM2 http://blog.numino.net/ 例子 M8C779 http://blog.numino.net/ ///////Begin StrECopy 41aa2u http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); zWN40u http://blog.numino.net/ var uEoXxt http://blog.numino.net/ vBuffer: array[0..255] of Char; 4HSdlu http://blog.numino.net/ begin NCouNn http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); 9Ivk5H http://blog.numino.net/ Edit3.Text := vBuffer; VFWKtr http://blog.numino.net/ end; Y5hkHy http://blog.numino.net/ ///////End StrECopy tVPv9a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GIi2E3 http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 6ItASk http://blog.numino.net/ PChar; $[SysUtils.pas dqQSsX http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 UMq52L http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 B16QLa http://blog.numino.net/ 参考 <NULL> H26TmV http://blog.numino.net/ 例子 57ii7E http://blog.numino.net/ ///////Begin StrLCopy 24Rvtl http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); i36149 http://blog.numino.net/ var EuKT9v http://blog.numino.net/ vBuffer: array[0..255] of Char; bbc8CO http://blog.numino.net/ begin j9ORTk http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); Z3jhJc http://blog.numino.net/ Edit2.Text := vBuffer; GncTi0 http://blog.numino.net/ end; Q0iMMs http://blog.numino.net/ ///////End StrLCopy 3pib4Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q9jzD2 http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; cJ49n4 http://blog.numino.net/ $[SysUtils.pas 2lqlS7 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 9XVc36 http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) M7Qzgr http://blog.numino.net/ 参考 function SysUtils.StrLCopy Y2uu4Z http://blog.numino.net/ 例子 LHuqBs http://blog.numino.net/ ///////Begin StrPCopy sf6n00 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); UtM58m http://blog.numino.net/ var 1s2Zu7 http://blog.numino.net/ vBuffer: array[0..255] of Char; 2bShvp http://blog.numino.net/ begin Lyd4NT http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); YZRbgf http://blog.numino.net/ Edit2.Text := vBuffer; dtaIvY http://blog.numino.net/ end; T3HM0t http://blog.numino.net/ ///////End StrPCopy WyeUGh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F1J4Xe http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: cKisET http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas q2i2vU http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 E76B99 http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) NxtBTX http://blog.numino.net/ 参考 function SysUtils.StrLCopy aC5RQg http://blog.numino.net/ 例子 9kEnbz http://blog.numino.net/ ///////Begin StrPLCopy 1mN4vS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); rQbiRR http://blog.numino.net/ var j1inOM http://blog.numino.net/ vBuffer: array[0..255] of Char; B3702X http://blog.numino.net/ begin vZQXGN http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); d613v6 http://blog.numino.net/ Edit2.Text := vBuffer; LX2bda http://blog.numino.net/ end; RESn6p http://blog.numino.net/ ///////End StrPLCopy 1eo9d9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6sUo9S http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; 02xM66 http://blog.numino.net/ $[SysUtils.pas P59e7X http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source O75SUY http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) S45Eoy http://blog.numino.net/ 参考 function SysUntils.StrCopy uX1tfZ http://blog.numino.net/ 例子 9uoUku http://blog.numino.net/ ///////Begin StrCat RC1P2U http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); KNEB1P http://blog.numino.net/ var XHrCJ5 http://blog.numino.net/ vBuffer: array[0..255] of Char; v1Av4q http://blog.numino.net/ begin sgDUgC http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); CzqTU9 http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); xKF1Y2 http://blog.numino.net/ Edit3.Text := vBuffer; hb6oEc http://blog.numino.net/ end; Wq5ehH http://blog.numino.net/ ///////End StrCat s1Dat0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WIB09R http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 8RK08R http://blog.numino.net/ PChar; $[SysUtils.pas F60my8 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source eIOeSu http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 49GnyP http://blog.numino.net/ 参考 <NULL> TF1H7i http://blog.numino.net/ 例子 XI2BRD http://blog.numino.net/ ///////Begin StrLCat wJmiSf http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); okvmW4 http://blog.numino.net/ var Ej3YtT http://blog.numino.net/ vBuffer: array[0..255] of Char; 8wocJp http://blog.numino.net/ begin Mk69tq http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); xj2OhZ http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); bSt2yG http://blog.numino.net/ Edit3.Text := vBuffer; vayytC http://blog.numino.net/ end; 3ueQYT http://blog.numino.net/ ///////End StrLCat GnGrfk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3REe7n http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas jPwZd5 http://blog.numino.net/ 功能 返回比较两个指针字符串 Des795 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 TALb7i http://blog.numino.net/ 参考 <NULL> y37WKZ http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); EfCOSF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 02EA9z http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 8DL1N7 http://blog.numino.net/ 功能 返回比较两个指针字符串 R7Mmff http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 8TJypa http://blog.numino.net/ 参考 <NULL> 9rl8XJ http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); EXG186 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w5gUeU http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; xG7Rw4 http://blog.numino.net/ $[SysUtils.pas ttqN1Y http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 Xyb4L5 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 QlFP6Q http://blog.numino.net/ 参考 <NULL> 9Ihknz http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 359T2T http://blog.numino.net/ SpinEdit2.Value) 2Wg16x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hkOwWg http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; RQ0IKH http://blog.numino.net/ $[SysUtils.pas ateTa3 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 5jlj9f http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 mOvs3l http://blog.numino.net/ 参考 <NULL> ou70dO http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 9X487v http://blog.numino.net/ SpinEdit2.Value) wCZKMm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JqogDv http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 2KkP2Z http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 QWboK7 http://blog.numino.net/ 说明 没有找到则返回空指针 AWCUP4 http://blog.numino.net/ 参考 <NULL> jg2EIc http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); RuRKk4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PK2fNj http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas FDobDn http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 Ciw5c2 http://blog.numino.net/ 说明 没有找到则返回空指针 HOv7V2 http://blog.numino.net/ 参考 <NULL> hGb0NU http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); 1v990s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P6X28f http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas gGq0AV http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 lk5BMV http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' rctwmC http://blog.numino.net/ 参考 <NULL> p74152 http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); Mp4YQR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DYdYbs http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas tw31h3 http://blog.numino.net/ 功能 返回指针字符串Str大写 HJEltc http://blog.numino.net/ 说明 非小写字符不处理 0q03IG http://blog.numino.net/ 参考 <NULL> f9EV18 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); sEpP9H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c4A4PV http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas 9902xf http://blog.numino.net/ 功能 返回指针字符串Str小写 bdaFEW http://blog.numino.net/ 说明 非大写字符不处理 37RYFh http://blog.numino.net/ 参考 <NULL> P7TBP2 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); d0ut5a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ukIVFO http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas 69Liv4 http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 z8BYOP http://blog.numino.net/ 说明 也可以直接赋值 07hwyP http://blog.numino.net/ 参考 <NULL> RsxOsq http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); K26Ce9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mUyyRF http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas c8439N http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 g6gCSD http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 BRIQn9 http://blog.numino.net/ 参考 function System.GetMem lIc5rU http://blog.numino.net/ 例子 498p5y http://blog.numino.net/ ///////Begin StrAlloc el1lMx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hvRe9Y http://blog.numino.net/ var 4eVZ8r http://blog.numino.net/ P: PChar; Rs6S44 http://blog.numino.net/ begin zLVyT4 http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); 33pSDF http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); 14ZK0o http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); udocuH http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); epZr3f http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); 4dRfzD http://blog.numino.net/ StrDispose(P); u0xD54 http://blog.numino.net/ end; hynty3 http://blog.numino.net/ ///////End StrAlloc 78A2iZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MdsxLv http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas bCrZt8 http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 jyA34t http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 vNVeaq http://blog.numino.net/ 参考 function System.SizeOf 55c6f2 http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); iiwBm8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6Tq79M http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas cF7B2c http://blog.numino.net/ 功能 返回复制一个新的指针字符串 YHPGwv http://blog.numino.net/ 说明 如果Str为nil则返回nil hTky5z http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function mAq92o http://blog.numino.net/ SysUtils.StrAlloc MB8Ap9 http://blog.numino.net/ 例子 k2v15I http://blog.numino.net/ ///////Begin StrNew,StrDispose 87SS18 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); k8FCru http://blog.numino.net/ var EgL0Ij http://blog.numino.net/ P: PChar; ipfsn4 http://blog.numino.net/ begin AHSku6 http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); W4p5rv http://blog.numino.net/ ShowMessage(P); hW5jLJ http://blog.numino.net/ StrDispose(P); Dj4x48 http://blog.numino.net/ end; 5yrTz9 http://blog.numino.net/ ///////End StrNew,StrDispose 7Kl8K1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rV0mXb http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas d2kp14 http://blog.numino.net/ 功能 释放指针字符串Str内存资源 4BOwhI http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 bZYNN1 http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem 7i7wZs http://blog.numino.net/ 例子 <参见StrNew> QiW0DY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Zt0BON http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): 7n3Efz http://blog.numino.net/ string; $[SysUtils.pas 2qf708 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 XafDvJ http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 DD5qTn http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 55o5d9 http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 2s1143 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 X152FV http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 yh5LXf http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 8x3qOy http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 Ja3gSG http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 s35zWy http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 93Vhz8 http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 KLzDAG http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 3185L1 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 8ckROL http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" sVRZa7 http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 24X8vp http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr 7O4nQ8 http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); HA6EEV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uPH0t8 http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: ga5ULN http://blog.numino.net/ array of const); $[SysUtils.pas TL9VzQ http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 ccpO8Y http://blog.numino.net/ 说明 <参见Format> n0z9U9 http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function t8Yx31 http://blog.numino.net/ System.SetLength 3pB481 http://blog.numino.net/ 例子 <参见Format> VlVXUb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dw2YRW http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): Lbo7DS http://blog.numino.net/ PChar; $[SysUtils.pas hEzyDi http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 FrnH2k http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil VIRsc5 http://blog.numino.net/ 参考 function SysUtils.FormatBuf 2V3336 http://blog.numino.net/ 例子 <参见Format> HTrfM2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UVwJ8p http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; 0zi3IH http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas v9aKp2 http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 nfZ3Jk http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; k800yI http://blog.numino.net/ 参考 function SysUtils.FormatBuf HdT6y4 http://blog.numino.net/ 例子 <参见Format> fDk3W9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5HG8x5 http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: 4Ze795 http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas eZNJH0 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 0LoqLN http://blog.numino.net/ 说明 <NULL> f09896 http://blog.numino.net/ 参考 <NULL> 1rDYgI http://blog.numino.net/ 例子 <参见Format> Djdm9t http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fvkZTw http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of 8yiRG1 http://blog.numino.net/ const): WideString; $[SysUtils.pas Lh0GI8 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 X0nOsO http://blog.numino.net/ 说明 <NULL> HClgrI http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr SdmhoJ http://blog.numino.net/ 例子 <参见Format> bc4n5x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WpVBC9 http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; e5BX6k http://blog.numino.net/ const Args: array of const); $[SysUtils.pas 6e4IoU http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 3t6Dl5 http://blog.numino.net/ 说明 <NULL> S0MtYb http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf e7060w http://blog.numino.net/ 例子 <参见Format> SFat79 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nKCdl3 http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; 5rEV6D http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 7okqc4 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 gg2tAc http://blog.numino.net/ 说明 <NULL> 215dA5 http://blog.numino.net/ 参考 <NULL> M45IAB http://blog.numino.net/ 例子 <参见Format> j98Fwy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FaLt0A http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas gv2pGC http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 0xqWJz http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 47Msjh http://blog.numino.net/ 参考 function SysUtils.FloatToText y52qf2 http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 4sfnXP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q4fwWJ http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas Hb1b16 http://blog.numino.net/ 功能 返回货币数Value转换成字符串 0vG0Kk http://blog.numino.net/ 说明 货币数只保留四位小数 IFq9jH http://blog.numino.net/ 参考 function SysUtils.FloatToText eNwYzZ http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); dsi9jZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s180s5 http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas ws93Hr http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 Y68Jc7 http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 83jkBR http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency 3rRCAF http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); 1BER44 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DPfZJo http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, alY4M5 http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas 69Bmuk http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 YXzIy9 http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 7XAH2a http://blog.numino.net/ 参考 function SysUtils.FloatToText F8XRWz http://blog.numino.net/ 例子 0u44fD http://blog.numino.net/ ///////Begin FloatToStrF 95xD5g http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); N76rUm http://blog.numino.net/ begin p2CmMc http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, n8Yp7e http://blog.numino.net/ 0), d61VBi http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); Rhnj3C http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, ug093V http://blog.numino.net/ 0), JS3oS0 http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); U70UI5 http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), k0YV6A http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); V35OyZ http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, gUCgm2 http://blog.numino.net/ 0), XkWuzN http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); PzG8zQ http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 6FSwF6 http://blog.numino.net/ 0), Sl1ioT http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); nj5KeR http://blog.numino.net/ end; GBJ7VA http://blog.numino.net/ ///////End FloatToStrF Grjl53 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q6QiJn http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Bn743q http://blog.numino.net/ Integer): string; $[SysUtils.pas j70Uu5 http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 wk6oio http://blog.numino.net/ 说明 Digits指定小数宽度 bM45gx http://blog.numino.net/ 参考 function SysUtils.FloatToText 1tErrJ http://blog.numino.net/ 例子 rUHKeB http://blog.numino.net/ ///////Begin CurrToStrF Vwgpk5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wEieOf http://blog.numino.net/ begin UuoWKf http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), WHR72Q http://blog.numino.net/ ffGeneral, SpinEdit1.Value); hAfTRH http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 8IMUZ2 http://blog.numino.net/ 0), 2OQHuO http://blog.numino.net/ ffExponent, SpinEdit1.Value); IrVjC8 http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), i0bTLs http://blog.numino.net/ ffFixed, SpinEdit1.Value); JH0Z6b http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), YVjh0u http://blog.numino.net/ ffNumber, SpinEdit1.Value); Hy8tuX http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, nWtOHT http://blog.numino.net/ 0), 7Kh5Sq http://blog.numino.net/ ffCurrency, SpinEdit1.Value); 52K8lJ http://blog.numino.net/ end; 9xdR4h http://blog.numino.net/ ///////End CurrToStrF TWaMxC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wYWAGF http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: erzBKK http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; wmo2U8 http://blog.numino.net/ $[SysUtils.pas g2QfE2 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 RD8XLc http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 IMNE8J http://blog.numino.net/ 参考 <NULL> 2858F5 http://blog.numino.net/ 例子 mg6z8S http://blog.numino.net/ ///////Begin FloatToText 4ssvjq http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7qQRsK http://blog.numino.net/ var ImcZ0x http://blog.numino.net/ vBuffer: array[0..255] of Char; V74mR8 http://blog.numino.net/ E: Extended; jEHC7G http://blog.numino.net/ begin I1B6y1 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 02zeEP http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, C7MjY0 http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); AO3T0n http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 1upRWf http://blog.numino.net/ end; qD1JsV http://blog.numino.net/ ///////End FloatToText( uL0kzH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7SnJq1 http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; EZjI1i http://blog.numino.net/ $[SysUtils.pas Mvuuqt http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 1eTfFz http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' VCFgei http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt F45QTE http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); VOjf3o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eN5QWI http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; XZ43lh http://blog.numino.net/ $[SysUtils.pas pHDtqo http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 9AkXne http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' Oj28n9 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt nzCf2H http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); OD4BLS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 95V46D http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: ufnR1r http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas u3rnA4 http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 1c9NDB http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 etf51r http://blog.numino.net/ 参考 <NULL> f23g9B http://blog.numino.net/ 例子 cWoZYs http://blog.numino.net/ ///////Begin FloatToTextFmt DqsC6j http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); BjtDQk http://blog.numino.net/ var Vi18nU http://blog.numino.net/ vBuffer: array[0..255] of Char; zKopoU http://blog.numino.net/ E: Extended; 7jJBbm http://blog.numino.net/ begin hLii8F http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); N6thBW http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 43LO9V http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); 6J31W7 http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); L9BeT5 http://blog.numino.net/ end; i6C5i4 http://blog.numino.net/ ///////End FloatToTextFmt BpXJhD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jb1Bg2 http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas W86Tni http://blog.numino.net/ 功能 返回字符串S转换成浮点数 dFMVqk http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 7hR8wO http://blog.numino.net/ 参考 function SysUtils.TextToFloat 16SuMi http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; M3sNCZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2hsDYk http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): atTw6z http://blog.numino.net/ Extended; $[SysUtils.pas T307bm http://blog.numino.net/ 功能 返回字符串S转换成浮点数 C7wLBa http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default Iqbz63 http://blog.numino.net/ 参考 function SysUtils.TextToFloat Fb0dC1 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; ldMN66 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XSkP2J http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; syn4c5 http://blog.numino.net/ overload; $[SysUtils.pas IX0l2Y http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; pbfR62 http://blog.numino.net/ overload; $[SysUtils.pas HUo25O http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; qDr2fX http://blog.numino.net/ overload; $[SysUtils.pas UNoSuo http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 SOthpZ http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 1SyF10 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 1NXHpq http://blog.numino.net/ 例子 QY64l2 http://blog.numino.net/ ///////Begin TryStrToFloat oBv2t4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); XLP5mg http://blog.numino.net/ var t0vE4D http://blog.numino.net/ E: Extended; 15fY6O http://blog.numino.net/ begin dv25L4 http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); SgVBI4 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); TVH6V2 http://blog.numino.net/ end; Kb45Z0 http://blog.numino.net/ ///////End TryStrToFloat 0Xelv4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X94FXI http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas PG0fAr http://blog.numino.net/ 功能 返回字符串S转换成货币数 solsu0 http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 AD836B http://blog.numino.net/ 参考 function SysUtils.TextToFloat 2AaL1m http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 5rF7xx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E0I2Wf http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): DxFb4H http://blog.numino.net/ Currency; $[SysUtils.pas k8ofZl http://blog.numino.net/ 功能 返回字符串S转换成货币数 2pme8O http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default wWeaD5 http://blog.numino.net/ 参考 function SysUtils.TextToFloat trsCCm http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 6C9kgw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yY5ksH http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; h41S4R http://blog.numino.net/ $[SysUtils.pas ZR1Q1V http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 OjS6ET http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 qWkvf6 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 55Y6I3 http://blog.numino.net/ 例子 wOf0Hj http://blog.numino.net/ ///////Begin TryStrToCurr tn1KWP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); C5aMHo http://blog.numino.net/ var nBadQW http://blog.numino.net/ C: Currency; 5Zd5xz http://blog.numino.net/ begin bWic4p http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); 1bhwp2 http://blog.numino.net/ Edit2.Text := FormatCurr('', C); OMTH7D http://blog.numino.net/ end; 9Tx2ji http://blog.numino.net/ ///////End TryStrToCurr 1S870d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p9gzCS http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): LRKJKa http://blog.numino.net/ Boolean; $[SysUtils.pas 3VwPJh http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value IpqGOP http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 0nyr2v http://blog.numino.net/ 参考 <NULL> 0eVlg5 http://blog.numino.net/ 例子 CwPYyp http://blog.numino.net/ ///////Begin TextToFloat EZCe9O http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); P6FsLR http://blog.numino.net/ var sOR5Bt http://blog.numino.net/ E: Extended; wOyVnq http://blog.numino.net/ begin Gi71xy http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, FuHx1T http://blog.numino.net/ fvExtended); 393sFf http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 5M2Ppy http://blog.numino.net/ end; ebM3If http://blog.numino.net/ ///////End TextToFloat nAoQJA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4i1A27 http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas bdCWl6 http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 RnynY2 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 III6p7 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat RZcNr5 http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); sxR4mw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8QxUE1 http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 9HCF23 http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 d4JXOw http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 ANnmnY http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat 45qmN4 http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); ycX4ma http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7wzYQQ http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; mWLvp2 http://blog.numino.net/ $[SysUtils.pas 155XEe http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 ePIcPu http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 VJPAY2 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString wL9385 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); VCjA1w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D0Gx5L http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas wGoSEl http://blog.numino.net/ 功能 返回字符串S转换成日期 UfdNs0 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 fuk5k1 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate F2xdH4 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); i39rt7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ txDlCT http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): XQR6Pi http://blog.numino.net/ TDateTime; $[SysUtils.pas jBS7fI http://blog.numino.net/ 功能 返回字符串S转换成日期 687nsU http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default 18h9hk http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 06NP19 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); 2d1VZ1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EsnSTQ http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; cWyM2R http://blog.numino.net/ $[SysUtils.pas 8AbNBa http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 1z887L http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 431zVf http://blog.numino.net/ 参考 <NULL> 2Gm53k http://blog.numino.net/ 例子 NFcbf5 http://blog.numino.net/ ///////Begin TryStrToDate hfjVZo http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); S2BLGv http://blog.numino.net/ var tNv2UL http://blog.numino.net/ vDateTime: TDateTime; 61hnz0 http://blog.numino.net/ begin 7Uk1Z6 http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); y7Og3Q http://blog.numino.net/ DateTimePicker1.Date := vDateTime; HI2eC8 http://blog.numino.net/ end; VDwTSn http://blog.numino.net/ ///////End TryStrToDate wB94M3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A8QY3c http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 6ea5JL http://blog.numino.net/ 功能 返回字符串S转换成时间 G5iiSB http://blog.numino.net/ 说明 字符非时间表达时将引起异常 h9TW16 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime TaHM9f http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); H0x0Vf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M2ZSP0 http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): 9613my http://blog.numino.net/ TDateTime; $[SysUtils.pas yrJvea http://blog.numino.net/ 功能 返回字符串S转换成时间 6JrON4 http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default 250Ix4 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime J9j023 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); QIPdTR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3nJ6bE http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; BpATNR http://blog.numino.net/ $[SysUtils.pas 9LsMdU http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 PTRbxo http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 gCG64i http://blog.numino.net/ 参考 <NULL> Y6y0m5 http://blog.numino.net/ 例子 6Y6TmA http://blog.numino.net/ ///////Begin TryStrToTime ETWuBN http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); q7Tmsl http://blog.numino.net/ var u570L0 http://blog.numino.net/ vDateTime: TDateTime; Xk9l3O http://blog.numino.net/ begin QB2KhO http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); KBV1w8 http://blog.numino.net/ DateTimePicker1.Time := vDateTime; E3sXQL http://blog.numino.net/ end; 7Fj4U8 http://blog.numino.net/ ///////End TryStrToTime B56f9g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XEhXo8 http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas vcN9e3 http://blog.numino.net/ 功能 返回字符串S转换成日期时间 TIiwd9 http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 FTDjAn http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime sgK27y http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); h20P2f http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rdlzio http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): UUK1L0 http://blog.numino.net/ TDateTime; $[SysUtils.pas 34AqxV http://blog.numino.net/ 功能 返回字符串S转换成日期时间 lek3dr http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default Wu9yR7 http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 8TqWKB http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); U90eba http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7nehCa http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): Dtq82X http://blog.numino.net/ Boolean; $[SysUtils.pas H59gNQ http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 o8pU5E http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 Td1nD4 http://blog.numino.net/ 参考 <NULL> G8Jmdi http://blog.numino.net/ 例子 J050NY http://blog.numino.net/ ///////Begin TryStrToDateTime ZUcuZ3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wF6634 http://blog.numino.net/ var E7BHMH http://blog.numino.net/ vDateTime: TDateTime; kMpReZ http://blog.numino.net/ begin nKlol0 http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 3uK4E8 http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); kMJUGs http://blog.numino.net/ end; 155yT5 http://blog.numino.net/ ///////End TryStrToDateTime 41px3G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jZjg7N http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; NR4E07 http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas 84696k http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 gAiy16 http://blog.numino.net/ 说明 <参见FormatDateTime> PKaOtU http://blog.numino.net/ 参考 function System.SetString Y30mtP http://blog.numino.net/ 例子 <参见FormatDateTime> Cm6adE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2vULCR http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: l0UwIA http://blog.numino.net/ string): string; platform; $[SysUtils.pas 4xRthU http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 psQ66K http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' io1zGv http://blog.numino.net/ 参考 function Windows.GetLocaleInfo 4iGBx0 http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); wBtomw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 72IuVt http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Pnn2Es http://blog.numino.net/ Char; platform; $[SysUtils.pas PlzDhp http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 7e1USE http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' SpICt6 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo v76lsf http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); 1JAw70 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JER7Rb http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; ws8V03 http://blog.numino.net/ $[SysUtils.pas e4kCXe http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 m165rS http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) 43Cnw4 http://blog.numino.net/ 参考 var SysUtils.SysLocale G0MFbM http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); 7N84Oz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oPTJk8 http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; p20z2i http://blog.numino.net/ $[SysUtils.pas 2T7cg1 http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 v09E7d http://blog.numino.net/ 说明 Index从0开始 1E77j8 http://blog.numino.net/ 参考 var SysUtils.SysLocale 8mOfuy http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), r5w3Om http://blog.numino.net/ SpinEdit2.Value)); y06nFt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1OINPy http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; 7F7eqf http://blog.numino.net/ $[SysUtils.pas 7bTzyf http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 VrOZ0h http://blog.numino.net/ 说明 MaxLen指定处理字符个数 g5358N http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex fNs9EI http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 84PfE4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A12xf7 http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; 8fUPmP http://blog.numino.net/ $[SysUtils.pas ekGFk5 http://blog.numino.net/ 功能 返回字符串S中有多少个字符 EjqrK6 http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 HPuyeG http://blog.numino.net/ 参考 var SysUtils.SysLocale 2ge3x4 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 7sx0hr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 86THI3 http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; S7f3t3 http://blog.numino.net/ $[SysUtils.pas RwjOav http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 80N579 http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 K6JTY8 http://blog.numino.net/ 参考 function SysUtils.NextCharIndex OSdEOj http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); 8O0k35 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N5901M http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; GeSpq5 http://blog.numino.net/ $[SysUtils.pas rZlD3x http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 Zbv7tX http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 Zdt5oH http://blog.numino.net/ 参考 function System.Length 19bklJ http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); G0y89r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GmVv44 http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas x3gfL0 http://blog.numino.net/ 功能 返回第一个字符的宽度 NyYQ79 http://blog.numino.net/ 说明 参数为空则返回0 n6upkv http://blog.numino.net/ 参考 function Windows.CharNext QfGXwf http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); ORLyVV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yo4XkI http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas Aqu01O http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 0Gj63E http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; 209qkV http://blog.numino.net/ 参考 function Windows.CharNext 851N3Z http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); 9W4mHv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9b925T http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; fXq7H0 http://blog.numino.net/ $[SysUtils.pas S6bPX2 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 hbj0MO http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 Yi1mfK http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength HCY12e http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); w78wnc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PBKR4s http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; 68KLWM http://blog.numino.net/ $[SysUtils.pas Jkc733 http://blog.numino.net/ 功能 返回下一个字符的位置 sw257G http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 YQZhfS http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 5OX98E http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); zz7EZO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 666wb2 http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; q0ZcrW http://blog.numino.net/ $[SysUtils.pas 06VR1G http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 L4aL6p http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True n9ez41 http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType cpb57x http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); NluSJU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MOJQc8 http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): nxyg1R http://blog.numino.net/ Boolean; $[SysUtils.pas 35Jlh8 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters FhCkCe http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 9LV1g2 http://blog.numino.net/ 参考 function SysUtils.ByteType 6ZcN5p http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, Te57YE http://blog.numino.net/ SpinEdit1.Value); 1wvYC9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u0RrNy http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; fFv5FM http://blog.numino.net/ $[SysUtils.pas a3FMrd http://blog.numino.net/ 功能 返回包括最后路径分隔符 ufFsd2 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 aY9c3c http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length SD3LG6 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); OSoVgM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zM9cPa http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; 9iz8P5 http://blog.numino.net/ $[SysUtils.pas U8TU2p http://blog.numino.net/ 功能 返回包括最后斜线 errx87 http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 4G7uSM http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter 67jLoN http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); j1qxUa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T1HVDh http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; fJ5kSh http://blog.numino.net/ $[SysUtils.pas 6TG0lx http://blog.numino.net/ 功能 返回排除最后路径分隔符 9pETek http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 7eLnaJ http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function W4wdW2 http://blog.numino.net/ System.SetLength chq6E6 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); U92B95 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fyp3Zq http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; 92u4CY http://blog.numino.net/ $[SysUtils.pas Bn3Rl6 http://blog.numino.net/ 功能 返回排除最后斜线 9vPc0L http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) 6urL2G http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter x9v8cu http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); ntEPw9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0uc0Mf http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; aDEKli http://blog.numino.net/ $[SysUtils.pas hSAlI0 http://blog.numino.net/ 功能 返回最后一个分隔符的位置 pZAP6N http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 v8Y2XK http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType FIh7vm http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); vxBhtN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8814vo http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; 7ZTmNK http://blog.numino.net/ $[SysUtils.pas zRIAd2 http://blog.numino.net/ 功能 返回比较两个文件名 sxzcsx http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 d0tN90 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 7J9iq3 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); T4AUfF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hbfVm5 http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas iI9u1l http://blog.numino.net/ 功能 返回两个文件名是否相等 7LLt2x http://blog.numino.net/ 说明 区分大小写 tImOKx http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName 12Lxy0 http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); FRvyF8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Cgyuxj http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas O7bnu5 http://blog.numino.net/ 功能 返回小写文件名 QDkD5A http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase bWyJXa http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase EfZGwJ http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); CX4CXO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d3fW7u http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas F0j8bh http://blog.numino.net/ 功能 返回大写文件名 s0o46b http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase H7m3eT http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase NcJ0J2 http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); lCoFde http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 79Jyjn http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas 1q4hAB http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 6BcH2X http://blog.numino.net/ 说明 不存在则返回0 A5HTp4 http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 6vnZ8c http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); jlR7GV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CY04uv http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 9w0W0P http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 Z0D4fw http://blog.numino.net/ 说明 不存在则返回nil gJNL9u http://blog.numino.net/ 参考 function SysUtils.StrByteType 4xl7SF http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); yk09fH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MpH4I1 http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 2N6z7N http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 DTzj04 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' KABdU0 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan ByUMVM http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); C6pk0I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qD1rFE http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas ywEquZ http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 GJcWm8 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 0e4pNB http://blog.numino.net/ 参考 function SysUtils.StrScan WM0K1E http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); hnQZWc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ keP7Ce http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: 3F2jPm http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas SNCgR1 http://blog.numino.net/ 功能 返回替换后的字符串 KZbGUi http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 a60b2J http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function 7YjT18 http://blog.numino.net/ System.Copy oaSeV3 http://blog.numino.net/ 例子 sOvm1Z http://blog.numino.net/ ///////Begin StringReplace 3y27zr http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ybq1No http://blog.numino.net/ begin VKByhb http://blog.numino.net/ Memo1.Lines.Values['[]'] := 78I41E http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); ZkvHvZ http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := bi7sIb http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); 22fe9Z http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := ht6uoL http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); tmEksV http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := u8yExJ http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, d91fDy http://blog.numino.net/ rfIgnoreCase]); VJzgSK http://blog.numino.net/ end; U4zGTH http://blog.numino.net/ ///////End StringReplace 1jz23j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jnF07U http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas U2b6VA http://blog.numino.net/ 功能 返回字符串S转换成全局标识 tRbZi5 http://blog.numino.net/ 说明 如果字符串非法将触发异常 m2TPRG http://blog.numino.net/ 参考 fuction Windows.Succeeded r3wyLT http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); m7O09G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1d4vXx http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas C5salW http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 MY9zvf http://blog.numino.net/ 说明 <NULL> FdqJ8z http://blog.numino.net/ 参考 fuction Windows.Succeeded WbUp7f http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); p4D7Tt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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