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

Delphi字符串函数大全 【字符串函数大全】 foil3n http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; d8K6ZW http://blog.numino.net/ $[StrUtils.pas t0PLs0 http://blog.numino.net/ 功能 返回两个字符串是否相似 0hyNK3 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 z86Bta http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 7wK2N9 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 5FYy1p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ R345l2 http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 05560D http://blog.numino.net/ $[StrUtils.pas 6dDlBi http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText e5yexr http://blog.numino.net/ 说明 不区分大小写 dEL100 http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 84CBM6 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); Y4ccL4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZoeHF2 http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; JtsQP7 http://blog.numino.net/ $[StrUtils.pas oB3o4v http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 3BgXzo http://blog.numino.net/ 说明 不区分大小写 H6wQIC http://blog.numino.net/ 参考 function Windows.CompareString 0Uip98 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); 9L8ltR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hwa8kc http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 52k3Lp http://blog.numino.net/ $[StrUtils.pas fOvKRP http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 ApiDlu http://blog.numino.net/ 说明 不区分大小写 zQhJg7 http://blog.numino.net/ 参考 function Windows.CompareString Z2eXB9 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); pDnx9L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BWC68M http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): z1Y90d http://blog.numino.net/ string; $[StrUtils.pas wk9eY7 http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 vnBzzR http://blog.numino.net/ 说明 不区分大小写 R7Tj08 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags gLtOP6 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); p4ux0K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v5IC7t http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of j58kdp http://blog.numino.net/ string): Boolean; $[StrUtils.pas 3n98JC http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText rmy20O http://blog.numino.net/ 说明 不区分大小写 TEvvwK http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText Wl3TUP http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', za2k9t http://blog.numino.net/ 'a4']); x6Xf3t http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wVnJxk http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of wN9T8D http://blog.numino.net/ string): Integer; $[StrUtils.pas WpHzbu http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 rcmRe2 http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 dvJxP2 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText empMaS http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); kGbDYS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 124cbt http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; cz5VLl http://blog.numino.net/ $[StrUtils.pas U7740u http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText 6zs2Cu http://blog.numino.net/ 说明 区分大小写 OZ7gY3 http://blog.numino.net/ 参考 function StrUtils.AnsiPos DvQff1 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 6J11fQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P5vXci http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; L50xgQ http://blog.numino.net/ $[StrUtils.pas 1yqqDM http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 R145km http://blog.numino.net/ 说明 区分大小写 UwED6f http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr q4PA2j http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); RT24gU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sQXhJ0 http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; n2q7OV http://blog.numino.net/ $[StrUtils.pas 6AVRl2 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 UhZNDY http://blog.numino.net/ 说明 区分大小写 YQvKLp http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr E6qt7e http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); huuTB1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e5c0dl http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): 2ccKdM http://blog.numino.net/ string; $[StrUtils.pas QAhvIB http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 t2eWfb http://blog.numino.net/ 说明 区分大小写 6t5JP6 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags U14mck http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); XW5C8b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 78DHz5 http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of Gb7e4i http://blog.numino.net/ string): Boolean; $[StrUtils.pas 15LP2S http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText vy4PrO http://blog.numino.net/ 说明 区分大小写 XmwC4M http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr fFZFFi http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', VIA4lg http://blog.numino.net/ 'a4']); 7C3iEv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dnb3fJ http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of HqP4lw http://blog.numino.net/ string): Integer; $[StrUtils.pas Yvk4d1 http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 4o09LH http://blog.numino.net/ 说明 区分大小写 o8YWS1 http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr ucfF17 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); d4bwI1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xROnqF http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; KKvD1s http://blog.numino.net/ $[StrUtils.pas xK8rNG http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 7RAq03 http://blog.numino.net/ 说明 当ACount为0时返回'' vwASKp http://blog.numino.net/ 参考 function System.SetLength yf9939 http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); w1FNLm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3jJh83 http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas KJwUl8 http://blog.numino.net/ 功能 返回字符串AText的反序 14o4WZ http://blog.numino.net/ 说明 ReverseString('1234') = '4321' 0ajssw http://blog.numino.net/ 参考 function System.SetLength c7610Y http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); 7Xw5OT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xT92GD http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; esQsu7 http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas u97aCN http://blog.numino.net/ 功能 返回嵌套字符串 xy2Cm7 http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' 6Y6dsl http://blog.numino.net/ 参考 function System.Copy We418C http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, R0xnXt http://blog.numino.net/ Edit2.Text); M3K50T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TuaJXX http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; rBPL22 http://blog.numino.net/ $[StrUtils.pas nLIBDq http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 v0F6UF http://blog.numino.net/ 说明 之前建议执行Randomize iU6s60 http://blog.numino.net/ 参考 function System.Random HHNIG2 http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); L0FrFU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jXpVIF http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = Bi231G http://blog.numino.net/ ''): string; overload; $[StrUtils.pas aIyQ10 http://blog.numino.net/ 功能 返回指定的逻辑字符串 Z7OC3w http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' UzMfb7 http://blog.numino.net/ 参考 <NULL> h4uuk8 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); rSxX0o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lFoGDj http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; 2CKH3q http://blog.numino.net/ $[StrUtils.pas 805755 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 97VL3Y http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' HLrc69 http://blog.numino.net/ 参考 function System.Copy jON6lm http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); B160Nm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8od2A4 http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; pPPC0a http://blog.numino.net/ $[StrUtils.pas 74sV7M http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 9M5v0Z http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' y0q9e7 http://blog.numino.net/ 参考 function System.Copy 6TpJcM http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); xhDAvA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GCm2KQ http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): M8Gt2j http://blog.numino.net/ string; $[StrUtils.pas 5YtEwi http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 qE3dnZ http://blog.numino.net/ 说明 其实就是Copy 8J5vf0 http://blog.numino.net/ 参考 function System.Copy sRLYCu http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); Mm8F0a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Gfi6g7 http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: 5Lc9sk http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): 5ReUAb http://blog.numino.net/ PChar; $[StrUtils.pas G14re2 http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 1IXm89 http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 XWnm88 http://blog.numino.net/ 参考 <NULL> PM385u http://blog.numino.net/ 例子 d7SOls http://blog.numino.net/ ///////Begin SearchBuf Zi0nqt http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; J3tXCU http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 0i9LuP http://blog.numino.net/ var V7ogAs http://blog.numino.net/ Buffer, P: PChar; 36oPYR http://blog.numino.net/ Size: Word; 861AyG http://blog.numino.net/ begin vHKnJd http://blog.numino.net/ Result := False; 7EI7jN http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; 52Zvgj http://blog.numino.net/ Size := EditControl.GetTextLen; g5i3k1 http://blog.numino.net/ if (Size = 0) then Exit; vm82Tb http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 7UPBzz http://blog.numino.net/ try P9aCk8 http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); ONDqQl http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, h9T72z http://blog.numino.net/ SearchString, SearchOptions); ol1kn7 http://blog.numino.net/ if P <> nil then begin KQB55O http://blog.numino.net/ EditControl.SelStart := P - Buffer; xnCCvY http://blog.numino.net/ EditControl.SelLength := Length(SearchString); k87dsf http://blog.numino.net/ Result := True; z7tBhJ http://blog.numino.net/ end; rnGvOn http://blog.numino.net/ finally PzqM09 http://blog.numino.net/ StrDispose(Buffer); ya0B3V http://blog.numino.net/ end; zJJd6r http://blog.numino.net/ end; R75NC5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 33lTgN http://blog.numino.net/ var 0Dv3IR http://blog.numino.net/ SearchOptions: TStringSearchOptions; hHmb0E http://blog.numino.net/ begin iTY4e4 http://blog.numino.net/ SearchOptions := []; qQbps1 http://blog.numino.net/ if CheckBox1.Checked then DitaD5 http://blog.numino.net/ Include(SearchOptions, soDown); oSPgDL http://blog.numino.net/ if CheckBox2.Checked then 2jy5k3 http://blog.numino.net/ Include(SearchOptions, soMatchCase); 235lHL http://blog.numino.net/ if CheckBox3.Checked then RuiNMs http://blog.numino.net/ Include(SearchOptions, soWholeWord); 3ePch4 http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 0K5720 http://blog.numino.net/ Memo1.SetFocus; iH72ld http://blog.numino.net/ end; PjKqNW http://blog.numino.net/ ///////End SearchBuf 288WkS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Jn6ni3 http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): W2MFU1 http://blog.numino.net/ string; $[StrUtils.pas 88T32J http://blog.numino.net/ 功能 返回探测字符串 QplpMA http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html 65WzMB http://blog.numino.net/ 参考 <NULL> Us7GB1 http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 54E9O2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K6cc0a http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = Fl0t3q http://blog.numino.net/ 4): Integer; $[StrUtils.pas VfEGyV http://blog.numino.net/ 功能 返回探测整数 M3MJ2L http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 w2IJkO http://blog.numino.net/ 参考 <NULL> SG2DQZ http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); jXeu7C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OMF9Bx http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas Y4yxCi http://blog.numino.net/ 功能 返回探测整数的解码 EywAg1 http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') 1rkL6d http://blog.numino.net/ 参考 <NULL> udv2eL http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); XOu093 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K8ddXH http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas F4FvCg http://blog.numino.net/ 功能 返回探测文字数值 wenWiu http://blog.numino.net/ 说明 没有参数ALength已经固定为4 G0WzP0 http://blog.numino.net/ 参考 <NULL> KXEaxI http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); P679n5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KT86R5 http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas N8fxth http://blog.numino.net/ 功能 返回探测文字数值的解码 nqYWCZ http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') B3daD2 http://blog.numino.net/ 参考 <NULL> ObXi0c http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); mms5aG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BDH0e1 http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: j7NOtu http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas pieAI5 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 BporNS http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 7FLz0q http://blog.numino.net/ 参考 <NULL> s8CafD http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, H08EWP http://blog.numino.net/ SpinEdit1.Value); 7CDEPH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e739qb http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: E6U3LK http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas uQCngS http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 M5m2N0 http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, 1L3hRP http://blog.numino.net/ ALength)) S5x0lF http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr cZpL7k http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, Hp3S4R http://blog.numino.net/ SpinEdit1.Value); e6gd5E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6dpPlA http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; 592mi3 http://blog.numino.net/ $[StrUtils.pas ww25v6 http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 z8AQ36 http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 47n9wM http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText F1sfTR http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 77OV5V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ser50S http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas acdBkt http://blog.numino.net/ 功能 返回一个新的字符串指针地址 vigtvC http://blog.numino.net/ 说明 字符串S为空时返回NullStr 96czgH http://blog.numino.net/ 参考 procedure System.New 5TiQ29 http://blog.numino.net/ 例子 I4PMgG http://blog.numino.net/ ////////Begin NewStr,DisposeStr 9hrGKQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JucMf3 http://blog.numino.net/ var 3chRDm http://blog.numino.net/ P: PString; 6T7J3A http://blog.numino.net/ begin rSk1x5 http://blog.numino.net/ P := NewStr(Edit1.Text); r8dLWK http://blog.numino.net/ Edit2.Text := P^; VpliG1 http://blog.numino.net/ DisposeStr(P); CqFNrM http://blog.numino.net/ end; PgZs3d http://blog.numino.net/ ////////End NewStr,DisposeStr eAhw1w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pz2yQa http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas Gs73co http://blog.numino.net/ 功能 释放字符串指针P资源 ERSwm8 http://blog.numino.net/ 说明 配合函数NewStr使用 g5bnJ4 http://blog.numino.net/ 参考 procedure System.Dispose A7YWOy http://blog.numino.net/ 例子 <如上参见,如下参见> stXMKU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lWy6M7 http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; aeVEMo http://blog.numino.net/ $[SysUtils.pas m3kBHI http://blog.numino.net/ 功能 将字符串S更新给字符串指针P q7EYEx http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 8FczhV http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr 5K8Ueh http://blog.numino.net/ 例子 w1Aw0X http://blog.numino.net/ ////////Begin AssignStr rNg7D9 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wTvHQd http://blog.numino.net/ var Z3PaGF http://blog.numino.net/ P: PString; 1u6N3P http://blog.numino.net/ begin KI1CQX http://blog.numino.net/ P := nil; dvXaxY http://blog.numino.net/ AssignStr(P, Edit1.Text); 6ORRi7 http://blog.numino.net/ Edit2.Text := P^; 6RUO5p http://blog.numino.net/ DisposeStr(P); dxujfw http://blog.numino.net/ end; 0Y8C8D http://blog.numino.net/ ////////End AssignStr vgpfl2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FI4zLS http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; Rcp7ap http://blog.numino.net/ $[SysUtils.pas nrWuWV http://blog.numino.net/ 功能 在字符串Dest后追加字符串S AXi3l5 http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 uVKgC8 http://blog.numino.net/ 参考 <NULL> bk1396 http://blog.numino.net/ 例子 muHCBh http://blog.numino.net/ ////////Begin AppendStr GArUSM http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); r70fCd http://blog.numino.net/ var 4mhEN6 http://blog.numino.net/ S: string; E3gZKs http://blog.numino.net/ begin Sy3I9F http://blog.numino.net/ S := Edit2.Text; 4ii3vJ http://blog.numino.net/ AppendStr(S, Edit1.Text); 3ja2nc http://blog.numino.net/ Edit2.Text := S; 4XslD7 http://blog.numino.net/ end; yZVsf6 http://blog.numino.net/ ////////End AppendStr mjkUMP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H9RIYt http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas Sv05ed http://blog.numino.net/ 功能 返回字符串S的大写形式 YwoNAF http://blog.numino.net/ 说明 非小写字符不处理 16K503 http://blog.numino.net/ 参考 procedure System.SetLength IU4ap8 http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); K19UY1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2PDMG0 http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas QcksUY http://blog.numino.net/ 功能 返回字符串S的小写形式 0u3WZI http://blog.numino.net/ 说明 非大写字符不处理 553gto http://blog.numino.net/ 参考 procedure System.SetLength 8BV6Or http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); 19Htwo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jBQFsd http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas jB5ZDs http://blog.numino.net/ 功能 返回比较两个字符 9Gow29 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 qk01kT http://blog.numino.net/ 参考 <NULL> q49UN4 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); KzOuc7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y1Q38j http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; KI9vRc http://blog.numino.net/ assembler; $[SysUtils.pas hWoaHT http://blog.numino.net/ 功能 返回比较两个内存指针 O86d18 http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), J3twjK http://blog.numino.net/ PChar('12c'), 3)=False VAtkO4 http://blog.numino.net/ 参考 <NULL> SLCr1W http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); akkScq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YNdjc6 http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas mCC1Wn http://blog.numino.net/ 功能 返回比较两个字符串 Sra4HG http://blog.numino.net/ 说明 不区分大小写 N54qn4 http://blog.numino.net/ 参考 <NULL> Yy46i2 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 17B7r5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MDcDmV http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas h6v6k9 http://blog.numino.net/ 功能 返回两个字符串是否相等 cDY8a6 http://blog.numino.net/ 说明 不区分大小写 GxOtdT http://blog.numino.net/ 参考 <NULL> Uumr0J http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); FUq0IA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yxy0Pk http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas 6mORH4 http://blog.numino.net/ 功能 返回字符串S的大写形式 HUe5OS http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 xu2yS7 http://blog.numino.net/ 参考 function Windows.CharUpperBuff rZbkLP http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); iE2nTd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OFdk7k http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas bfaOYv http://blog.numino.net/ 功能 返回字符串S的小写形式 4Ra938 http://blog.numino.net/ 说明 非大写字符不处理 Z10j0v http://blog.numino.net/ 参考 function Windows.CharLowerBuff VhliyA http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); vHI3Vs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rrB82I http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 8i6FXc http://blog.numino.net/ 功能 反回比较两个字符串 i167Ej http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 i5hazl http://blog.numino.net/ 参考 function Windows.CompareString x6vckr http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 10x1Yk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 55Hx5n http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 8dMN4l http://blog.numino.net/ 功能 返回两个字符串是否相等 uJoHEA http://blog.numino.net/ 说明 区分大小写 s516a4 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 5ENxTy http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); O24CiK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j9K3GH http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas hEDMQq http://blog.numino.net/ 功能 反回比较两个字符串 U86jkj http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 nZyV42 http://blog.numino.net/ 参考 function Windows.CompareString 398ADU http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); 2X8zXR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jMA1XA http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas hHtl5o http://blog.numino.net/ 功能 返回两个字符串是否相等 ImzSiR http://blog.numino.net/ 说明 不区分大小写 K90hVB http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText 2z48NS http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); Y28p24 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cLZony http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas QE5L91 http://blog.numino.net/ 功能 返回比较两个指针字符串 kS92YR http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 f3xZAR http://blog.numino.net/ 参考 function System.CompareString lmQT1a http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) hWtYVZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2P34Ce http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas VZVt0E http://blog.numino.net/ 功能 返回比较两个指针字符串 Wu3R6u http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) bn3PuI http://blog.numino.net/ 参考 function Windows.CompareString jqZy3V http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) JlIY9I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 31PxaA http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; rY47b7 http://blog.numino.net/ $[SysUtils.pas cy9JiQ http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 STKyuY http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 72hpcS http://blog.numino.net/ 参考 function Windows.CompareString FxwUp4 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), Ytb80V http://blog.numino.net/ SpinEdit2.Value) Xwsq1G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eBAk6q http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 9Rrg36 http://blog.numino.net/ $[SysUtils.pas f5aj74 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 z73cDn http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 ry88cM http://blog.numino.net/ 参考 function Windows.CompareString LzN00j http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 9RTyGG http://blog.numino.net/ SpinEdit2.Value) 7g7HfL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7C4d56 http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas IAMqxZ http://blog.numino.net/ 功能 返回指针字符串小写形式 1NP4P4 http://blog.numino.net/ 说明 非大写字符不处理 86izYb http://blog.numino.net/ 参考 function Windows.CharLower pep17b http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); ILRC9h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7Nj3wG http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas VO5N1g http://blog.numino.net/ 功能 返回指针字符串大写形式 J4a7ns http://blog.numino.net/ 说明 非小写字符不处理 ls53EL http://blog.numino.net/ 参考 function Windows.CharUpper 4trtS0 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); XT28Q1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4RZPI0 http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 8ITl8z http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 e1BUf5 http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 U4rBRf http://blog.numino.net/ 参考 function SysUtils.ByteType 1NQuKR http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); 5jgRUO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qL4zp9 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas B1oh4X http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 2WcKSn http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 ftKEaP http://blog.numino.net/ 参考 function SysUtils.ByteType x31PoE http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); nLW82I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mS0l34 http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas MY23Vw http://blog.numino.net/ 功能 返回双字节字符串的大写形式 br3XUi http://blog.numino.net/ 说明 WideChar双字节字符 2GNhyl http://blog.numino.net/ 参考 function Windows.CharUpperBuffW 2UNOfg http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); wGFWXp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T1DMsU http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas 8CvFVR http://blog.numino.net/ 功能 返回双字节字符串的小写形式 36fWOr http://blog.numino.net/ 说明 我怎么就测试不出来呢 MBmCf7 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW EI9H7H http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); aB9Sl1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RfyLR0 http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; gz6PuW http://blog.numino.net/ $[SysUtils.pas 4W8n80 http://blog.numino.net/ 功能 返回比较两个双字节字符串 Y3l75b http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 H8bGKF http://blog.numino.net/ 参考 function Windows.CompareStringW eEj8fU http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); 6tj8GU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UgcZ4i http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 66aUty http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 RN5eFT http://blog.numino.net/ 说明 区分大小写 5BCU81 http://blog.numino.net/ 参考 function SysUtils.WideCompareStr Oa6YY0 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); JOg78c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AEjD4g http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; GWV2HM http://blog.numino.net/ $[SysUtils.pas I15EYJ http://blog.numino.net/ 功能 返回比较两个双字节字符串 JeC4nu http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 80CQSn http://blog.numino.net/ 参考 function Windows.CompareStringW iA5ItX http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); 9vmv4i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uiv0G4 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; qbpPps http://blog.numino.net/ $[SysUtils.pas n1Q93J http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 t0Cyjx http://blog.numino.net/ 说明 不区分大小写 eyzLWb http://blog.numino.net/ 参考 function SysUtils.WideCompareText 9104mb http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); B573dy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Mzqir7 http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas IGc77f http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; lncyrd http://blog.numino.net/ $[SysUtils.pas J8WR8q http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 101Ma4 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 SVJ3x2 http://blog.numino.net/ 参考 function System.Copy Ec04T8 http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); f7BuCR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ySBCIF http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas bJAvxH http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; WbaS1f http://blog.numino.net/ $[SysUtils.pas e1kujA http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 xBs8p7 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 75S1LU http://blog.numino.net/ 参考 function System.Copy 6J6O35 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); 8bojS2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y3Du5x http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas PJ982x http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; EZHHna http://blog.numino.net/ $[SysUtils.pas FsSbX1 http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 WOz3iO http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 eOtqBz http://blog.numino.net/ 参考 function System.Copy R3BKop http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); 4196Go http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZajKCH http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 3Htmgv http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 28d2Xl http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 l5AbyC http://blog.numino.net/ 参考 procedure System.Insert nX8qc2 http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); jm9XdJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I2Wkzh http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; Cjd4GZ http://blog.numino.net/ $[SysUtils.pas w2GQ0Y http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 q10C63 http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', 4CMR2A http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' i1Co2x http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan Fn54I9 http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); jeS85h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7HhQum http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; vgJ1al http://blog.numino.net/ $[SysUtils.pas H7t7n7 http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 NIpNph http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 FWGO0U http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan VcJMhw http://blog.numino.net/ 例子 ysEZhL http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr UfcTfA http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 8no2ML http://blog.numino.net/ var CcwBwX http://blog.numino.net/ P: PChar; nGNF44 http://blog.numino.net/ begin BYmjE0 http://blog.numino.net/ P := PChar(Edit1.Text); 6PI8tl http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); my2KD6 http://blog.numino.net/ Edit3.Text := P; lU3rk8 http://blog.numino.net/ end; TAS14S http://blog.numino.net/ ///////End AnsiExtractQuotedStr UGnebx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8vZ1X1 http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; I44EZ9 http://blog.numino.net/ $[SysUtils.pas QQ9r98 http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 aNfC3o http://blog.numino.net/ 说明 表现形式非法时则返回S K0Wr9r http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr IOi2ix http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); 5gwZwW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CnpZ2u http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = PtS77x http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): 765kDN http://blog.numino.net/ string; $[SysUtils.pas 3IMtcw http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 20l1cN http://blog.numino.net/ 说明 c26WKV 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 if4f0b http://blog.numino.net/ 参考 function SysUtils.StrNextChar SgE9Hb http://blog.numino.net/ 例子 <NULL> wJkfA7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FUeVd8 http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas U01k8M http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 9JAy9Z http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... huZ3C0 http://blog.numino.net/ 参考 <NULL> ogt8yo http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 0isA0l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U2c59f http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas borVCm http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas RtShLS http://blog.numino.net/ 功能 返回整数Value转换成字符串 qK57Kt http://blog.numino.net/ 说明 Format('%d', [Value]) PLlqtn http://blog.numino.net/ 参考 function SysUtils.FmtStr 7735eZ http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); f86LvT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lEFawi http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; 3tA4Wt http://blog.numino.net/ $[SysUtils.pas x6qQir http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; SHIafZ http://blog.numino.net/ $[SysUtils.pas 06u6P0 http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) Y1f20H http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 ZI7X6p http://blog.numino.net/ 参考 function SysUtils.FmtStr SGcMuz http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); veGT28 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xuE7QR http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas QIL7LL http://blog.numino.net/ 功能 返回字符串S转换成整数 H8MZuC http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 P7hDYg http://blog.numino.net/ 参考 procedure System.Val F9bVPy http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); tRTsqI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QCooQd http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; cv08PG http://blog.numino.net/ $[SysUtils.pas Tj2KM8 http://blog.numino.net/ 功能 返回字符串S转换成整数 ctt4f3 http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default s37Lg7 http://blog.numino.net/ 参考 procedure System.Val pVNh24 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); 6UQodt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u6EAbj http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; v3XmEA http://blog.numino.net/ $[SysUtils.pas 4DTNwl http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 qmDolU http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 YINRGL http://blog.numino.net/ 参考 procedure System.Val nCIm3e http://blog.numino.net/ 例子 rtFHAi http://blog.numino.net/ ///////Begin TryStrToInt siTd8h http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); rQUbJA http://blog.numino.net/ var hB5zcr http://blog.numino.net/ I: Integer; NxCBC8 http://blog.numino.net/ begin 15bwEo http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); jCYRfK http://blog.numino.net/ SpinEdit1.Value := I; WHC2e5 http://blog.numino.net/ end; fd3ByA http://blog.numino.net/ ///////End TryStrToInt j35FlB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c2o8XW http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas GEtVwm http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 wy5u79 http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 8W2e7O http://blog.numino.net/ 参考 procedure System.Val LosXl5 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 24e3T5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q8Wmk2 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; Klt36W http://blog.numino.net/ $[SysUtils.pas xvUIV2 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 qme64I http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default 53Y1Gv http://blog.numino.net/ 参考 procedure System.Val 0yRcVu http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); W67vtW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3BfXtM http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; ZHGz42 http://blog.numino.net/ $[SysUtils.pas kC9xnK http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 9N1t8A http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 lq0q43 http://blog.numino.net/ 参考 procedure System.Val f7lqg9 http://blog.numino.net/ 例子 tI34db http://blog.numino.net/ ///////Begin TryStrToInt64 5hjix4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); OtFUTk http://blog.numino.net/ var I5DL5Q http://blog.numino.net/ I: Int64; noUHy8 http://blog.numino.net/ begin Q23hOQ http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); lxzSEJ http://blog.numino.net/ SpinEdit1.Value := I; 3wJpbF http://blog.numino.net/ end; Cs94wC http://blog.numino.net/ ///////End TryStrToInt64 4etvya http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zQNfyi http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas 3lKfyb http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 2Y6R0I http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 PRgXTy http://blog.numino.net/ 参考 function SysUtils.TryStrToBool m8X76W http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); JZgnI5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Vxu3pp http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): OrUG1c http://blog.numino.net/ Boolean; $[SysUtils.pas dKU76B http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 7d4wx2 http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default EOLviu http://blog.numino.net/ 参考 function SysUtils.TryStrToBool Ske788 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); 3VjiU7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z2rxVO http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; HIzD4h http://blog.numino.net/ $[SysUtils.pas 6ERR97 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 Vfo5pq http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 vT6cPf http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var iaPtM3 http://blog.numino.net/ SysUtils.FalseBoolStrs bq266o http://blog.numino.net/ 例子 GlJ06I http://blog.numino.net/ ///////Begin TryStrToBool 5x45h4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 4leYrC http://blog.numino.net/ var Pp54vo http://blog.numino.net/ B: Boolean; v9PgYv http://blog.numino.net/ begin 7x0d27 http://blog.numino.net/ SetLength(TrueBoolStrs, 2); R3vNCS http://blog.numino.net/ SetLength(FalseBoolStrs, 2); 1cqn6n http://blog.numino.net/ TrueBoolStrs[0] := 'True'; jQABxN http://blog.numino.net/ FalseBoolStrs[0] := 'False'; tEc043 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; Iw4vnz http://blog.numino.net/ FalseBoolStrs[1] := 'No'; Zj818e http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); D931J0 http://blog.numino.net/ CheckBox2.Checked := B; mZ0FEE http://blog.numino.net/ end; E4oQYI http://blog.numino.net/ ///////End TryStrToBool FGFR7d http://blog.numino.net/ 附加 ge2vI0 http://blog.numino.net/ ///////Begin TryStrToBool 0WJTvC http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; KQ47dd http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; 6XjSPT http://blog.numino.net/ var 9JBj79 http://blog.numino.net/ I: Integer; H1byC0 http://blog.numino.net/ begin JuLaqQ http://blog.numino.net/ Result := False; 5qMGCK http://blog.numino.net/ for I := Low(aArray) to High(aArray) do 6n6sbS http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then EtlJof http://blog.numino.net/ begin lsnZxR http://blog.numino.net/ Result := True; HGXbGq http://blog.numino.net/ Break; Itzsfu http://blog.numino.net/ end; lu5M0G http://blog.numino.net/ end; BljcwA http://blog.numino.net/ var fYnkem http://blog.numino.net/ LResult: Extended; VF68L9 http://blog.numino.net/ begin h8E0de http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 7woK7Z http://blog.numino.net/ if Result then azF202 http://blog.numino.net/ Value := LResult <> 0 EwJbgW http://blog.numino.net/ else aSi8me http://blog.numino.net/ begin e5h90y http://blog.numino.net/ Result := True; //修正处 06H15J http://blog.numino.net/ VerifyBoolStrArray; otH1Cg http://blog.numino.net/ if CompareWith(TrueBoolStrs) then 1G8fgE http://blog.numino.net/ Value := True IUXfg0 http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then 7J65Za http://blog.numino.net/ Value := False C6791Y http://blog.numino.net/ else qz3EyD http://blog.numino.net/ Result := False; Pix5Vz http://blog.numino.net/ end; Jc5nVG http://blog.numino.net/ end; Dmo5z6 http://blog.numino.net/ ///////End TryStrToBool DztGb6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w7URFW http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; ns0vG5 http://blog.numino.net/ $[SysUtils.pas c1QfGK http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 N7S9jD http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 3RRNH4 http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs Kd0sp9 http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); XbF4zH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tL884v http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas iKR3eK http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 I0qEzP http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 WNgL5l http://blog.numino.net/ 参考 function SysUtils.FindStringResource JaR6pl http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); C5Nhyp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RWfanq http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): izmQma http://blog.numino.net/ string; $[SysUtils.pas l9W2bm http://blog.numino.net/ 功能 返回格式化的字符串资源 2706D2 http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 55U4D7 http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource za0F7p http://blog.numino.net/ 例子 <NULL>; 5XJU5N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dX1naz http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 6mg69Y http://blog.numino.net/ 功能 返回指针字符串的长度 5D0p5y http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 iTSjCF http://blog.numino.net/ 参考 <NULL> O9Fs1b http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); N4neuI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XvxJzn http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas y0UJ9b http://blog.numino.net/ 功能 返回指针字符串的结尾 9q3GD1 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 p75Fti http://blog.numino.net/ 参考 <NULL> 3Qmo2M http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; iYQino http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X84KnT http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): byphZr http://blog.numino.net/ PChar; $[SysUtils.pas LFWK5j http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 jUm1GJ http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 69y4jf http://blog.numino.net/ 参考 function System.Move ik9uz6 http://blog.numino.net/ 例子 tbyjYW http://blog.numino.net/ ///////Begin StrMove 3AGxJK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); sv43l7 http://blog.numino.net/ var mbrT7i http://blog.numino.net/ vBuffer: PChar; ncEcO6 http://blog.numino.net/ begin s6EzI8 http://blog.numino.net/ vBuffer := '0123456789'; 37ZKd4 http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); TtID8a http://blog.numino.net/ Edit2.Text := vBuffer; 6fiTc4 http://blog.numino.net/ end; yF15y3 http://blog.numino.net/ ///////End StrMove 5Y23nh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NaN73r http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; B98728 http://blog.numino.net/ $[SysUtils.pas 511UCY http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 Q66lTK http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 T1Qk5r http://blog.numino.net/ 参考 <NULL> gSibp0 http://blog.numino.net/ 例子 zPNctU http://blog.numino.net/ ///////Begin StrCopy onesgP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3lhg14 http://blog.numino.net/ var B6U2jU http://blog.numino.net/ vBuffer: PChar; QoBRyP http://blog.numino.net/ begin 5m39xD http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); Fa76OA http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); eezrnN http://blog.numino.net/ Edit2.Text := vBuffer; 9f7fAg http://blog.numino.net/ FreeMem(vBuffer); MGPjgz http://blog.numino.net/ end; L7oHc7 http://blog.numino.net/ ///////End StrCopy o3QYZ4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wXcB96 http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; Qeo1l2 http://blog.numino.net/ $[SysUtils.pas EmRjrt http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 wNuM01 http://blog.numino.net/ 说明 可以连接指针字符串 Bi7awo http://blog.numino.net/ 参考 <NULL> ALtQUT http://blog.numino.net/ 例子 XMFSbl http://blog.numino.net/ ///////Begin StrECopy MXu0fP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 4pE6w1 http://blog.numino.net/ var 1eIG0k http://blog.numino.net/ vBuffer: array[0..255] of Char; tt4PLZ http://blog.numino.net/ begin T06fgd http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); Y348mc http://blog.numino.net/ Edit3.Text := vBuffer; 84Op9B http://blog.numino.net/ end; 10XsqK http://blog.numino.net/ ///////End StrECopy e5z7dC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9kBI3H http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): okEXL8 http://blog.numino.net/ PChar; $[SysUtils.pas 3DE3dI http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 H17IHf http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 4fd46R http://blog.numino.net/ 参考 <NULL> FWb0mk http://blog.numino.net/ 例子 kUof3v http://blog.numino.net/ ///////Begin StrLCopy O8Tz58 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); mOL3kh http://blog.numino.net/ var My9dOj http://blog.numino.net/ vBuffer: array[0..255] of Char; KzgcoY http://blog.numino.net/ begin PvyaIU http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 4rGtFs http://blog.numino.net/ Edit2.Text := vBuffer; J3VfIZ http://blog.numino.net/ end; nVwjqe http://blog.numino.net/ ///////End StrLCopy 1Tdthw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IIFJvd http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; 0yPC8i http://blog.numino.net/ $[SysUtils.pas QOk1xp http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 f29X4y http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) ZB25AX http://blog.numino.net/ 参考 function SysUtils.StrLCopy 0h0Mt4 http://blog.numino.net/ 例子 NNDnYB http://blog.numino.net/ ///////Begin StrPCopy T66QMj http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Vq3Cxt http://blog.numino.net/ var NCNeUG http://blog.numino.net/ vBuffer: array[0..255] of Char; 5aC9DZ http://blog.numino.net/ begin 46V2be http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); oXM1oV http://blog.numino.net/ Edit2.Text := vBuffer; 2u3G1p http://blog.numino.net/ end; VrLqjs http://blog.numino.net/ ///////End StrPCopy D77USG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0272X0 http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: RrNcqB http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas xjiwxa http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 L40Gru http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) 3mTZwo http://blog.numino.net/ 参考 function SysUtils.StrLCopy N2KKQa http://blog.numino.net/ 例子 E28nfp http://blog.numino.net/ ///////Begin StrPLCopy G5XcI8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); INxfSu http://blog.numino.net/ var 3JIBX8 http://blog.numino.net/ vBuffer: array[0..255] of Char; hzAUSl http://blog.numino.net/ begin QaMJOI http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); C7f47f http://blog.numino.net/ Edit2.Text := vBuffer; o2FbWZ http://blog.numino.net/ end; 8Y2Xvr http://blog.numino.net/ ///////End StrPLCopy cHWcVy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ R5mH20 http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; VIIGD3 http://blog.numino.net/ $[SysUtils.pas DXxANY http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source uRQk6p http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) VyxVfP http://blog.numino.net/ 参考 function SysUntils.StrCopy Aot5OE http://blog.numino.net/ 例子 8Ah9jz http://blog.numino.net/ ///////Begin StrCat c4KVCQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); EvMI8J http://blog.numino.net/ var ZnDBQo http://blog.numino.net/ vBuffer: array[0..255] of Char; M31xo7 http://blog.numino.net/ begin 942lx2 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); Frm4d0 http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); hSi23a http://blog.numino.net/ Edit3.Text := vBuffer; nHVYlX http://blog.numino.net/ end; 1dd10e http://blog.numino.net/ ///////End StrCat NR6S24 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZTBBnk http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): OvKITW http://blog.numino.net/ PChar; $[SysUtils.pas AFB525 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source 2d474t http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 mM8pxI http://blog.numino.net/ 参考 <NULL> rrKhb0 http://blog.numino.net/ 例子 ErhF3P http://blog.numino.net/ ///////Begin StrLCat 7c2yNh http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6fgNAZ http://blog.numino.net/ var T7eUUh http://blog.numino.net/ vBuffer: array[0..255] of Char; dzdEAF http://blog.numino.net/ begin 5aPvkG http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); XFYCUC http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); q6r84e http://blog.numino.net/ Edit3.Text := vBuffer; 1BLUDo http://blog.numino.net/ end; ENaF7t http://blog.numino.net/ ///////End StrLCat O5gNMh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aDH7HQ http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas sqc03W http://blog.numino.net/ 功能 返回比较两个指针字符串 pCRt0n http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 q7nrg1 http://blog.numino.net/ 参考 <NULL> MqOU2r http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); Q8O0q5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AMNrZ4 http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas kKSwj3 http://blog.numino.net/ 功能 返回比较两个指针字符串 5LovK9 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 x68R1U http://blog.numino.net/ 参考 <NULL> k6Xri7 http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); w3UNFD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kLL8uq http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; q7bNm7 http://blog.numino.net/ $[SysUtils.pas 93dqB6 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 B0F7lN http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 14X4iX http://blog.numino.net/ 参考 <NULL> JIjOEG http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), ULade6 http://blog.numino.net/ SpinEdit2.Value) 3Q76jB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x4gQgS http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 2lMMPi http://blog.numino.net/ $[SysUtils.pas umiO7x http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 0zHLD6 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 45xqeL http://blog.numino.net/ 参考 <NULL> WH480O http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 7iZBXV http://blog.numino.net/ SpinEdit2.Value) L1cVg9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BBdjZI http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas l34Ita http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 mfzexa http://blog.numino.net/ 说明 没有找到则返回空指针 Oe7q4p http://blog.numino.net/ 参考 <NULL> 1NbmPn http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); 9LGYUk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OF36q7 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas r9nqde http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 yd1F31 http://blog.numino.net/ 说明 没有找到则返回空指针 Dxew6W http://blog.numino.net/ 参考 <NULL> 71hhQQ http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); 1lslrO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0WBf3H http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas JMonkL http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 8oUO7W http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' 7P39hm http://blog.numino.net/ 参考 <NULL> gppA40 http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); Z8Dq38 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wKehc8 http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas YHuS7Z http://blog.numino.net/ 功能 返回指针字符串Str大写 2JJ909 http://blog.numino.net/ 说明 非小写字符不处理 mGAp1i http://blog.numino.net/ 参考 <NULL> JJB27c http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); oLyHdm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NB10tx http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas uQRlSk http://blog.numino.net/ 功能 返回指针字符串Str小写 4BpS2B http://blog.numino.net/ 说明 非大写字符不处理 BGn1vK http://blog.numino.net/ 参考 <NULL> 6erv70 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); p4LLza http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MFL1lv http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas D4sEyp http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 mz2J50 http://blog.numino.net/ 说明 也可以直接赋值 t406HZ http://blog.numino.net/ 参考 <NULL> nu6zzR http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 9Y9KUl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8fX02u http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 0xEFbf http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 tI7w73 http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 0YN63W http://blog.numino.net/ 参考 function System.GetMem vlc8gZ http://blog.numino.net/ 例子 gefQT8 http://blog.numino.net/ ///////Begin StrAlloc 9mtYzn http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wfBILR http://blog.numino.net/ var psZyqH http://blog.numino.net/ P: PChar; oEes3k http://blog.numino.net/ begin 16hg42 http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); Hfc3TV http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); p3QYqC http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); S18wLl http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); T035cR http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); kBK45t http://blog.numino.net/ StrDispose(P); 2Ovm6W http://blog.numino.net/ end; WE7joO http://blog.numino.net/ ///////End StrAlloc 3CA6HG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pjifvt http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas h2tK04 http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 8e6aX5 http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 Vo4I0K http://blog.numino.net/ 参考 function System.SizeOf piAwHm http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); iy1L85 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ajw9J4 http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas UoNlFE http://blog.numino.net/ 功能 返回复制一个新的指针字符串 RHwfyD http://blog.numino.net/ 说明 如果Str为nil则返回nil U3S3LQ http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function z4Ffuz http://blog.numino.net/ SysUtils.StrAlloc 3m26a7 http://blog.numino.net/ 例子 Aef4MR http://blog.numino.net/ ///////Begin StrNew,StrDispose ydu2EI http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); s5g948 http://blog.numino.net/ var Lmhsuy http://blog.numino.net/ P: PChar; 2KZ3D9 http://blog.numino.net/ begin svM09I http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); vNK1y5 http://blog.numino.net/ ShowMessage(P); f1x0k7 http://blog.numino.net/ StrDispose(P); S0FlJ3 http://blog.numino.net/ end; 27pWz7 http://blog.numino.net/ ///////End StrNew,StrDispose dwdtHT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HjrMQL http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas Si9a8u http://blog.numino.net/ 功能 释放指针字符串Str内存资源 Tlumnt http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 Q0LqRl http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem 7qEGdE http://blog.numino.net/ 例子 <参见StrNew> TcDJF5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ APybh4 http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): UiHQu5 http://blog.numino.net/ string; $[SysUtils.pas hW3Yx2 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 b6z3WT http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 mo5188 http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 Q29MN8 http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 f9LKs3 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 PO9Qfg http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 O9J88r http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 lAxegd http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 OXtSsS http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 MlbKSx http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 6v1DkP http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 MUgYfm http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 M205H7 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 0E8DA8 http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" 2OeuV3 http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 I64smX http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr 4kg7WS http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); MzRmC4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4zML83 http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: pMFT3A http://blog.numino.net/ array of const); $[SysUtils.pas ZuYzFz http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 E3B2g9 http://blog.numino.net/ 说明 <参见Format> 65FIOU http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function 2IoXq9 http://blog.numino.net/ System.SetLength W3RGly http://blog.numino.net/ 例子 <参见Format> tN12co http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UgS06h http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): wSJqrX http://blog.numino.net/ PChar; $[SysUtils.pas SPVkGF http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 B809c0 http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil Hf9NpO http://blog.numino.net/ 参考 function SysUtils.FormatBuf Q6FicF http://blog.numino.net/ 例子 <参见Format> ihm495 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OYrtFD http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; 4oCH5k http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas 460Mhi http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 8mnICL http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; SsMnzm http://blog.numino.net/ 参考 function SysUtils.FormatBuf Lv9BDG http://blog.numino.net/ 例子 <参见Format> 18Ec1g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LeVwM9 http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: FDv0Rm http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas v7lMA9 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 wpP7hF http://blog.numino.net/ 说明 <NULL> 2bCCfD http://blog.numino.net/ 参考 <NULL> EasMaU http://blog.numino.net/ 例子 <参见Format> k4rNnZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G1CP0S http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of jiLm84 http://blog.numino.net/ const): WideString; $[SysUtils.pas qwvD6E http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 YbqswM http://blog.numino.net/ 说明 <NULL> Ue1i93 http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr OrH2ac http://blog.numino.net/ 例子 <参见Format> l1vulq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LoXKoL http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; Af6gS0 http://blog.numino.net/ const Args: array of const); $[SysUtils.pas mueJx0 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 RWQrle http://blog.numino.net/ 说明 <NULL> bQguvm http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf 3WqsnK http://blog.numino.net/ 例子 <参见Format> Esnr2j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GkJohA http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; 7MDxLv http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas fDagCF http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 eL13gv http://blog.numino.net/ 说明 <NULL> 37v8Dg http://blog.numino.net/ 参考 <NULL> H0Z4B8 http://blog.numino.net/ 例子 <参见Format> 8V654k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0MDPt2 http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 1ZEAu4 http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 sWyxOR http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 OESs9D http://blog.numino.net/ 参考 function SysUtils.FloatToText 3nH6ty http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); RPBiC9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v6604N http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas WR8CH2 http://blog.numino.net/ 功能 返回货币数Value转换成字符串 YwAWk8 http://blog.numino.net/ 说明 货币数只保留四位小数 lXlN4x http://blog.numino.net/ 参考 function SysUtils.FloatToText YShpOU http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); 0xsGWk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 301qIB http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas nPY2uM http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 PYb8N8 http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 Alw6db http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency F7eCL5 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); dz0r2x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E8any1 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, q0GtRi http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas evE41R http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 32FunA http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 C9ohhH http://blog.numino.net/ 参考 function SysUtils.FloatToText F8e4Yh http://blog.numino.net/ 例子 l2eZ9n http://blog.numino.net/ ///////Begin FloatToStrF MT5RPU http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); v0z51n http://blog.numino.net/ begin 77WdOt http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, T07ISa http://blog.numino.net/ 0), HpA8tl http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); u0EnQv http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0DA7oi http://blog.numino.net/ 0), TYke4s http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); 8UfoxX http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), vJ13Ue http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); 5Emger http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, r1Lccf http://blog.numino.net/ 0), HSnXV7 http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); 10WDck http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 8E2Xj1 http://blog.numino.net/ 0), 9rYGFz http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); 3i4An5 http://blog.numino.net/ end; qD7Uzv http://blog.numino.net/ ///////End FloatToStrF 5gb8zT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LoNrlu http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: B0TKyd http://blog.numino.net/ Integer): string; $[SysUtils.pas VD2x17 http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 1tUSvV http://blog.numino.net/ 说明 Digits指定小数宽度 W4uC08 http://blog.numino.net/ 参考 function SysUtils.FloatToText 9PBfMO http://blog.numino.net/ 例子 gkv9hm http://blog.numino.net/ ///////Begin CurrToStrF jSu3aY http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Ncz4xJ http://blog.numino.net/ begin w1v912 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), qrZX6O http://blog.numino.net/ ffGeneral, SpinEdit1.Value); r53FwP http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, V2Wd40 http://blog.numino.net/ 0), IGXId2 http://blog.numino.net/ ffExponent, SpinEdit1.Value); WD353A http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 26JX26 http://blog.numino.net/ ffFixed, SpinEdit1.Value); mld42H http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), i6WkLu http://blog.numino.net/ ffNumber, SpinEdit1.Value); 11OLNT http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, xk2FTL http://blog.numino.net/ 0), suhW37 http://blog.numino.net/ ffCurrency, SpinEdit1.Value); 40H0Pg http://blog.numino.net/ end; 1UnW6J http://blog.numino.net/ ///////End CurrToStrF 1Z6JY1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hKlYz6 http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: piEcNI http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; 38AuMh http://blog.numino.net/ $[SysUtils.pas d3yHte http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 NVp4hB http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 G0E0E2 http://blog.numino.net/ 参考 <NULL> e6GmOz http://blog.numino.net/ 例子 uw1ISS http://blog.numino.net/ ///////Begin FloatToText wCy2UH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ShaT8A http://blog.numino.net/ var yHt2qO http://blog.numino.net/ vBuffer: array[0..255] of Char; gTh61U http://blog.numino.net/ E: Extended; qE9G5c http://blog.numino.net/ begin 6v4k61 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); l4TgWC http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 2driPg http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); iNT1N6 http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 81YtA9 http://blog.numino.net/ end; wLNGyH http://blog.numino.net/ ///////End FloatToText( YNZDQf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eQ7jK4 http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; W6Mnyp http://blog.numino.net/ $[SysUtils.pas 2glIqA http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 i4Qjmz http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' RzdKiw http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt d2LSwV http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); nWt98o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W449UD http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; 7xe6dC http://blog.numino.net/ $[SysUtils.pas Qv43Ph http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 GELcoO http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' uXK6Yx http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt Axf871 http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 46Pt44 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O9u2pz http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 2DjmUT http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas bd8jge http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 TEXakw http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 K8Fc5R http://blog.numino.net/ 参考 <NULL> c0f66v http://blog.numino.net/ 例子 WaAzx7 http://blog.numino.net/ ///////Begin FloatToTextFmt ryxy32 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0OWFXI http://blog.numino.net/ var 0HFEN4 http://blog.numino.net/ vBuffer: array[0..255] of Char; uTNUdw http://blog.numino.net/ E: Extended; 47v0I0 http://blog.numino.net/ begin 2sA6rj http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 5gzm8z http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, ZMS1dd http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); OagdbV http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); O08X1u http://blog.numino.net/ end; 2h5sUs http://blog.numino.net/ ///////End FloatToTextFmt EGk4dn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Obscd4 http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas dj06gF http://blog.numino.net/ 功能 返回字符串S转换成浮点数 yLQJL9 http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 Zxp2a2 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 3L7ZQR http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; 7yZRD5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D8x6sL http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): BUo70h http://blog.numino.net/ Extended; $[SysUtils.pas DgXIS2 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 1jUMF9 http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default L6LDxK http://blog.numino.net/ 参考 function SysUtils.TextToFloat d3zpY1 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 67UFBm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L0H3DK http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; 90y2SG http://blog.numino.net/ overload; $[SysUtils.pas 8GASIQ http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; j8ry60 http://blog.numino.net/ overload; $[SysUtils.pas 2Z5X2Q http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; 7hl6m5 http://blog.numino.net/ overload; $[SysUtils.pas znnyVI http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 QQELT7 http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 VzH9CR http://blog.numino.net/ 参考 function SysUtils.TextToFloat NnjvcW http://blog.numino.net/ 例子 wED7f9 http://blog.numino.net/ ///////Begin TryStrToFloat wANAy3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6KCi33 http://blog.numino.net/ var 762Lp9 http://blog.numino.net/ E: Extended; QFk9sw http://blog.numino.net/ begin qzDZgx http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); K4NYRB http://blog.numino.net/ Edit2.Text := FormatFloat('', E); R1UHae http://blog.numino.net/ end; R90cU6 http://blog.numino.net/ ///////End TryStrToFloat qF7f6h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IGZrfQ http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas tKnfJK http://blog.numino.net/ 功能 返回字符串S转换成货币数 e054cY http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 bsX58m http://blog.numino.net/ 参考 function SysUtils.TextToFloat XVq5Nw http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; a6rGS6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NcL2JP http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): vcGUcx http://blog.numino.net/ Currency; $[SysUtils.pas Re876B http://blog.numino.net/ 功能 返回字符串S转换成货币数 lfl1h2 http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default WGFYlj http://blog.numino.net/ 参考 function SysUtils.TextToFloat N5mn9w http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; EV216O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u7dI3G http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; DLHT9x http://blog.numino.net/ $[SysUtils.pas N20qYe http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 k6XimB http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 x2F1Q1 http://blog.numino.net/ 参考 function SysUtils.TextToFloat quVuY7 http://blog.numino.net/ 例子 sfIDzQ http://blog.numino.net/ ///////Begin TryStrToCurr 23fPZg http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); djxvXt http://blog.numino.net/ var kaMs5I http://blog.numino.net/ C: Currency; OXxq6Q http://blog.numino.net/ begin 978dW0 http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); oTWmfW http://blog.numino.net/ Edit2.Text := FormatCurr('', C); aq68pI http://blog.numino.net/ end; 5M4ac2 http://blog.numino.net/ ///////End TryStrToCurr bB49wp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9WR0yA http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): lAmA9l http://blog.numino.net/ Boolean; $[SysUtils.pas z8z9c0 http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value 1EpOBe http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 bBYw9V http://blog.numino.net/ 参考 <NULL> 9uVh1a http://blog.numino.net/ 例子 Fn7696 http://blog.numino.net/ ///////Begin TextToFloat 6327q8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); qFos25 http://blog.numino.net/ var dYjQkc http://blog.numino.net/ E: Extended; iBSNza http://blog.numino.net/ begin cQgxnP http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, habGz0 http://blog.numino.net/ fvExtended); N8m4V7 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); Qr7CK3 http://blog.numino.net/ end; VfZMB1 http://blog.numino.net/ ///////End TextToFloat AHs775 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LM56E2 http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas qFs7l9 http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 QVKltd http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 gPUtam http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat XM1Lj6 http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); vnsAcE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EPrhYh http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas baJ9cQ http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 lZYbjB http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 fx5I5p http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat 3Jxd6n http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); AaTkHO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lYn4JT http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; 43Dyli http://blog.numino.net/ $[SysUtils.pas fqeT7M http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 LSpXHn http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 qVxAdz http://blog.numino.net/ 参考 function SysUtils.DateTimeToString 649a8Y http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); T49qM8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5gX623 http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas sA126t http://blog.numino.net/ 功能 返回字符串S转换成日期 U4xAaN http://blog.numino.net/ 说明 字符非日期表达时将引起异常 yQiT9H http://blog.numino.net/ 参考 function SysUtils.TryStrToDate z8MN7C http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); 543QiS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fgZbJY http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): 2F5M15 http://blog.numino.net/ TDateTime; $[SysUtils.pas 6XCEVc http://blog.numino.net/ 功能 返回字符串S转换成日期 VGEIgz http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default GKPFx8 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate iP0P8X http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); HPxYsO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FUnT7x http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; aAXmD8 http://blog.numino.net/ $[SysUtils.pas uEa0xQ http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 LXtNn2 http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 rvK470 http://blog.numino.net/ 参考 <NULL> 15ARbw http://blog.numino.net/ 例子 8zIx7U http://blog.numino.net/ ///////Begin TryStrToDate wrhLX9 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); PQCq55 http://blog.numino.net/ var oAAcEf http://blog.numino.net/ vDateTime: TDateTime; egAsd4 http://blog.numino.net/ begin ZsZk5J http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); ogPDKi http://blog.numino.net/ DateTimePicker1.Date := vDateTime; BNnnTy http://blog.numino.net/ end; pggzQs http://blog.numino.net/ ///////End TryStrToDate YZHBUX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VwkQqQ http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas XkoMbf http://blog.numino.net/ 功能 返回字符串S转换成时间 zkjYY4 http://blog.numino.net/ 说明 字符非时间表达时将引起异常 RVp157 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime lzWDj5 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 4YOtPe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I311Zk http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): zI76ri http://blog.numino.net/ TDateTime; $[SysUtils.pas dnqPHi http://blog.numino.net/ 功能 返回字符串S转换成时间 NwEk5k http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default DgIB7m http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 3WJ9n8 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); Y1gVKB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xnH3ug http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; 1ivlVM http://blog.numino.net/ $[SysUtils.pas 17D2ux http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 5cGKz4 http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 rh3vg5 http://blog.numino.net/ 参考 <NULL> v31goq http://blog.numino.net/ 例子 92Wa8L http://blog.numino.net/ ///////Begin TryStrToTime 0gr80Q http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); B9S51m http://blog.numino.net/ var oahJ1K http://blog.numino.net/ vDateTime: TDateTime; yRTu6q http://blog.numino.net/ begin t04EWL http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 6sWsE9 http://blog.numino.net/ DateTimePicker1.Time := vDateTime; 3jq5dw http://blog.numino.net/ end; AHdGcP http://blog.numino.net/ ///////End TryStrToTime KFWyK2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o2HVy7 http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas Ju2c8m http://blog.numino.net/ 功能 返回字符串S转换成日期时间 VrO9aq http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 PgXl4J http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime pvRXbQ http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); G23Y5V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CLrs17 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): iXfR0C http://blog.numino.net/ TDateTime; $[SysUtils.pas 0MCyc5 http://blog.numino.net/ 功能 返回字符串S转换成日期时间 aQ8Pdy http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default Pp0Z7a http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime LFsg50 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); Neq90o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1s26dH http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): cbWrgn http://blog.numino.net/ Boolean; $[SysUtils.pas 95pGW3 http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 8727Dp http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 s7CceG http://blog.numino.net/ 参考 <NULL> 4tP5q7 http://blog.numino.net/ 例子 SZ41OC http://blog.numino.net/ ///////Begin TryStrToDateTime cUHD5j http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); A7yxuK http://blog.numino.net/ var 0IRKeT http://blog.numino.net/ vDateTime: TDateTime; yrk13f http://blog.numino.net/ begin cCE7Gv http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 2beq4b http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); GUmDN5 http://blog.numino.net/ end; TA2SB7 http://blog.numino.net/ ///////End TryStrToDateTime B5Y8NZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I0G0xo http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; 8btjpO http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas J7eFCc http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 13c6Fa http://blog.numino.net/ 说明 <参见FormatDateTime> nWEurK http://blog.numino.net/ 参考 function System.SetString 8P7OqM http://blog.numino.net/ 例子 <参见FormatDateTime> a6OiNZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zuwqgJ http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: o9amV2 http://blog.numino.net/ string): string; platform; $[SysUtils.pas je03eu http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 V624Bn http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' ZdlR7e http://blog.numino.net/ 参考 function Windows.GetLocaleInfo Ce7a0a http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); nEX0eB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gnV6VQ http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): 7QrtaC http://blog.numino.net/ Char; platform; $[SysUtils.pas gCRsNt http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 2axG75 http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' b6tm3Q http://blog.numino.net/ 参考 function Windows.GetLocaleInfo fPecjD http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); PZx3YC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5c7Qbz http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; 9t1Ou9 http://blog.numino.net/ $[SysUtils.pas x535f5 http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 lYMkL9 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) 1cQk6m http://blog.numino.net/ 参考 var SysUtils.SysLocale XKSUT2 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); mnU2TH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zvrN4Z http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 2TS00s http://blog.numino.net/ $[SysUtils.pas zetuQL http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 09C5vJ http://blog.numino.net/ 说明 Index从0开始 H4Kd5j http://blog.numino.net/ 参考 var SysUtils.SysLocale kr0fju http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), 14qCl5 http://blog.numino.net/ SpinEdit2.Value)); 52S8lO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GWa5Fh http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; Hx9z1j http://blog.numino.net/ $[SysUtils.pas jsXEvN http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 69RdzF http://blog.numino.net/ 说明 MaxLen指定处理字符个数 59ukV4 http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex lZS9k7 http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); R3YOE9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 22fayz http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; yr1wtu http://blog.numino.net/ $[SysUtils.pas o4BqjO http://blog.numino.net/ 功能 返回字符串S中有多少个字符 u5RAqT http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 UGqW48 http://blog.numino.net/ 参考 var SysUtils.SysLocale wMYJhm http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 4i2k83 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wFUJ4n http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; 6o6v4k http://blog.numino.net/ $[SysUtils.pas WIEmjA http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 1gdgUA http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 1SX3i2 http://blog.numino.net/ 参考 function SysUtils.NextCharIndex CtrA7a http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); Z5PcGT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tnh8HU http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; 3ymiqs http://blog.numino.net/ $[SysUtils.pas 7I05j5 http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 0aLlE7 http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 7jXe4p http://blog.numino.net/ 参考 function System.Length h7tS90 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); hn6P2t http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ElQ4io http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas ApLjTE http://blog.numino.net/ 功能 返回第一个字符的宽度 kcTLsj http://blog.numino.net/ 说明 参数为空则返回0 r64HWw http://blog.numino.net/ 参考 function Windows.CharNext 63AmN4 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); FW0WvY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SntPVc http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas Mt2IMO http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 Cw1oOe http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; e1o6JN http://blog.numino.net/ 参考 function Windows.CharNext tTnxD3 http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); aF2dgy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7zaSot http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; fTSzrE http://blog.numino.net/ $[SysUtils.pas O45367 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 pshVC5 http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 xk5S98 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength ThSTL4 http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); 8VIt2l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 144ki5 http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; PEjKpA http://blog.numino.net/ $[SysUtils.pas 0JFm4o http://blog.numino.net/ 功能 返回下一个字符的位置 X9cQdo http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 F3H4Ft http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength VbrAV9 http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); S99Noa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j5Ia8T http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; 00uX98 http://blog.numino.net/ $[SysUtils.pas 6kVrJe http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 4Xccu2 http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True 5bKoJ3 http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType nWvR7j http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); WE9dKl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nGg0Nt http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): EPH7QD http://blog.numino.net/ Boolean; $[SysUtils.pas lD9C8S http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 9L867C http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True VZD5IL http://blog.numino.net/ 参考 function SysUtils.ByteType 1XT1UI http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, 23D0jg http://blog.numino.net/ SpinEdit1.Value); aGevd9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PYS8I6 http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; I9c4x6 http://blog.numino.net/ $[SysUtils.pas tYaE0q http://blog.numino.net/ 功能 返回包括最后路径分隔符 2ASxrL http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 n1CuaN http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length foykRs http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); gTDNtM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4ldu3h http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; 2fqL17 http://blog.numino.net/ $[SysUtils.pas rYehi9 http://blog.numino.net/ 功能 返回包括最后斜线 nbisqk http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); v3F8c4 http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter 53G0bx http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); LyX1Cu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9Ao2j0 http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; zXsXGn http://blog.numino.net/ $[SysUtils.pas JiLdrw http://blog.numino.net/ 功能 返回排除最后路径分隔符 SVLfhK http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 G7HPHR http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function UuTCc2 http://blog.numino.net/ System.SetLength hCPEkv http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); uFMcgc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 36nU35 http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; 0EPEwS http://blog.numino.net/ $[SysUtils.pas aOM2qM http://blog.numino.net/ 功能 返回排除最后斜线 IUxKpY http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) yFPsnz http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter rdsRbf http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); kD9pCZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c37gnM http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; NYki7F http://blog.numino.net/ $[SysUtils.pas kwk3yB http://blog.numino.net/ 功能 返回最后一个分隔符的位置 nnTvNR http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 0dC3A3 http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType 6baAH2 http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); DyqwuP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l7ph47 http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; 2bV3BY http://blog.numino.net/ $[SysUtils.pas 8ikXey http://blog.numino.net/ 功能 返回比较两个文件名 q7T53t http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 U4U7YN http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 8pAaNv http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); Hm2M6d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N8aNgI http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas oKrGb2 http://blog.numino.net/ 功能 返回两个文件名是否相等 N2V36T http://blog.numino.net/ 说明 区分大小写 R9jkSQ http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName r1i4MM http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); E96HT8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TqghTd http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas YqW3sZ http://blog.numino.net/ 功能 返回小写文件名 e4wuPy http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase c73BWS http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase dKnGJz http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); Yv8xIJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X2gk8h http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas i28EoZ http://blog.numino.net/ 功能 返回大写文件名 RHpA6T http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 3cRXCU http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase t0OC1O http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); xzLsYo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sHH2m7 http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas gqwg3D http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 1eKK7G http://blog.numino.net/ 说明 不存在则返回0 resfs4 http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 1wiE8G http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); eWSvrK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vM4jUl http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas zSbBe7 http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 g4pe4b http://blog.numino.net/ 说明 不存在则返回nil suj4wb http://blog.numino.net/ 参考 function SysUtils.StrByteType Bk90xp http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); F58RFA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ An4AAt http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas Ai1wAA http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 1532YC http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' h9vrXV http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan nog67j http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); kH4y2k http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WoG5c3 http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas tKS0C0 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 7K4kuD http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' LE8dYD http://blog.numino.net/ 参考 function SysUtils.StrScan wZ0Q8w http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); AbeV3F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oD6gHc http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: MG4uaW http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas 939en2 http://blog.numino.net/ 功能 返回替换后的字符串 V8kuT8 http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 766RUy http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function 9pSI2D http://blog.numino.net/ System.Copy rwwsy8 http://blog.numino.net/ 例子 69qvKX http://blog.numino.net/ ///////Begin StringReplace 17301t http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9Z9In4 http://blog.numino.net/ begin 4J290F http://blog.numino.net/ Memo1.Lines.Values['[]'] := 7deWi2 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); eDTC8g http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := 019amq http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); f7r5N1 http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := t4x9BU http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); 3cvmt6 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := NiJa4q http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, diUCR2 http://blog.numino.net/ rfIgnoreCase]); bZSMxe http://blog.numino.net/ end; 1090jt http://blog.numino.net/ ///////End StringReplace DfUV7m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ai2z4k http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas tUSK5Q http://blog.numino.net/ 功能 返回字符串S转换成全局标识 pL1UsD http://blog.numino.net/ 说明 如果字符串非法将触发异常 t57FI1 http://blog.numino.net/ 参考 fuction Windows.Succeeded 0mW296 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); NaXR01 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AI5gs5 http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas ccvXS5 http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 XFDMPe http://blog.numino.net/ 说明 <NULL> SjO4Qx http://blog.numino.net/ 参考 fuction Windows.Succeeded 10kQTi http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); x7lzg7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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