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

Delphi字符串函数大全 【字符串函数大全】 rx9ZcV http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; dlCn6R http://blog.numino.net/ $[StrUtils.pas APcn8N http://blog.numino.net/ 功能 返回两个字符串是否相似 2jf2V2 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 fNMAiz http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc pSt4L5 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); hiKsSd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8FXU2a http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; J8r2Nq http://blog.numino.net/ $[StrUtils.pas atl3OU http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText 6Gq7Mp http://blog.numino.net/ 说明 不区分大小写 N759RO http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 8Y51VG http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); vj8x3m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lEOclW http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; XKaoa7 http://blog.numino.net/ $[StrUtils.pas 5o7eh0 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 ol5OaY http://blog.numino.net/ 说明 不区分大小写 UBb98q http://blog.numino.net/ 参考 function Windows.CompareString QeuBow http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); aBiANH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tp72l5 http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; D4kLV9 http://blog.numino.net/ $[StrUtils.pas FfR0sQ http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 9s18ch http://blog.numino.net/ 说明 不区分大小写 db0c07 http://blog.numino.net/ 参考 function Windows.CompareString 9jC4sX http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); 1VqEXJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2Q6QYd http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 7cIvkB http://blog.numino.net/ string; $[StrUtils.pas NFfjbe http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 5Ew2Zr http://blog.numino.net/ 说明 不区分大小写 JGWFnS http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags ef57Ih http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); u8ZRLG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 88p3S2 http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of 7noA1y http://blog.numino.net/ string): Boolean; $[StrUtils.pas 8U8JJu http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText 14sJLa http://blog.numino.net/ 说明 不区分大小写 0s41hv http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText l7g9H2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', V2b1zJ http://blog.numino.net/ 'a4']); 2ONr5b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4tbx0v http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of v16tXC http://blog.numino.net/ string): Integer; $[StrUtils.pas 8U8pTO http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 rMruYP http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 L2PwT6 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText itswdL http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); ImIo4E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v8K4kV http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; Ru8ZwC http://blog.numino.net/ $[StrUtils.pas PCy38Q http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText hx9ms5 http://blog.numino.net/ 说明 区分大小写 2b49wC http://blog.numino.net/ 参考 function StrUtils.AnsiPos 8RD1T3 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); bMez75 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j2h6d6 http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; 99v6S4 http://blog.numino.net/ $[StrUtils.pas QJJpHw http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 Lq8762 http://blog.numino.net/ 说明 区分大小写 90wZaE http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 3mRS0d http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); PWJYWs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5mC2xj http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; 6n1OBt http://blog.numino.net/ $[StrUtils.pas 2qLBMF http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 0z8o0W http://blog.numino.net/ 说明 区分大小写 IYiKbb http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr in3YKm http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); hSUNyN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5GVnKA http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): GdJr54 http://blog.numino.net/ string; $[StrUtils.pas v25Qae http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 D4Ix0J http://blog.numino.net/ 说明 区分大小写 MsbBjb http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags bcy16l http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); cxP3xE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jJN784 http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of 6t7686 http://blog.numino.net/ string): Boolean; $[StrUtils.pas iNiM7R http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText nW257M http://blog.numino.net/ 说明 区分大小写 AKb0U0 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr moU1zK http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', d2wJU4 http://blog.numino.net/ 'a4']); PgEXNh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Zz4qm4 http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of B4wvb8 http://blog.numino.net/ string): Integer; $[StrUtils.pas iASraF http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 ec0Xuf http://blog.numino.net/ 说明 区分大小写 xVdqeU http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr q5GFl0 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 9gnzDm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8NaFS3 http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; 9F4Unx http://blog.numino.net/ $[StrUtils.pas hYAPi2 http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 9MgDHV http://blog.numino.net/ 说明 当ACount为0时返回'' 0S0Zw5 http://blog.numino.net/ 参考 function System.SetLength T4Z6qx http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); 01bycq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7nU7sb http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas imv4H3 http://blog.numino.net/ 功能 返回字符串AText的反序 FU9pk9 http://blog.numino.net/ 说明 ReverseString('1234') = '4321' RSZS33 http://blog.numino.net/ 参考 function System.SetLength ZQRELN http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); IAANMI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NS6Imq http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; 8DvmEh http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas nzYDc3 http://blog.numino.net/ 功能 返回嵌套字符串 pPn56V http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' Qz4Jtk http://blog.numino.net/ 参考 function System.Copy oCkVNi http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, sAVO0L http://blog.numino.net/ Edit2.Text); G5nro8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OayC4l http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; Ve8obG http://blog.numino.net/ $[StrUtils.pas Qj86VF http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 f2sP73 http://blog.numino.net/ 说明 之前建议执行Randomize t2dmOA http://blog.numino.net/ 参考 function System.Random 6mXCQU http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); w58csZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CdAD9K http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = csgX7h http://blog.numino.net/ ''): string; overload; $[StrUtils.pas RP6Ex8 http://blog.numino.net/ 功能 返回指定的逻辑字符串 KK4wxl http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 1Bz8RV http://blog.numino.net/ 参考 <NULL> MqYhSh http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); qSUQLL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5e0925 http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; Vz4lMN http://blog.numino.net/ $[StrUtils.pas dM034e http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 wjqh1o http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' 07ijdj http://blog.numino.net/ 参考 function System.Copy R9t31i http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); kaO91V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8T257p http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; oO3j4D http://blog.numino.net/ $[StrUtils.pas 7JFWbr http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 I3S5rE http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' Zw1pfS http://blog.numino.net/ 参考 function System.Copy IlHBxb http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); oCBtlQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oIk87r http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): XgyNYm http://blog.numino.net/ string; $[StrUtils.pas 3i2TK8 http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 LhB93m http://blog.numino.net/ 说明 其实就是Copy 7lMUM0 http://blog.numino.net/ 参考 function System.Copy Q3AE7Z http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); Ab2QmZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7lWnP3 http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: QwOQIK http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): UC93h7 http://blog.numino.net/ PChar; $[StrUtils.pas YJGGqH http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 9InzXH http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 asvHst http://blog.numino.net/ 参考 <NULL> 64fCZu http://blog.numino.net/ 例子 sMpZpL http://blog.numino.net/ ///////Begin SearchBuf rB6PsZ http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; 9HyDx0 http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 8wVmJO http://blog.numino.net/ var bE4xY6 http://blog.numino.net/ Buffer, P: PChar; j74F0t http://blog.numino.net/ Size: Word; f6r4cX http://blog.numino.net/ begin saZ9rI http://blog.numino.net/ Result := False; CVb3cp http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; ja9mAQ http://blog.numino.net/ Size := EditControl.GetTextLen; 74775H http://blog.numino.net/ if (Size = 0) then Exit; M0j56o http://blog.numino.net/ Buffer := StrAlloc(Size + 1); hCPbhT http://blog.numino.net/ try 81w04J http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); buvUYn http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, qIm8bn http://blog.numino.net/ SearchString, SearchOptions); R8Y3a8 http://blog.numino.net/ if P <> nil then begin 92GRsf http://blog.numino.net/ EditControl.SelStart := P - Buffer; 2O8wdC http://blog.numino.net/ EditControl.SelLength := Length(SearchString); 5i16Fe http://blog.numino.net/ Result := True; Vso3Hz http://blog.numino.net/ end; v6fobI http://blog.numino.net/ finally Ab6k83 http://blog.numino.net/ StrDispose(Buffer); KK7fxr http://blog.numino.net/ end; F4JKKD http://blog.numino.net/ end; HnLqcX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9HhOWh http://blog.numino.net/ var 3yOvNN http://blog.numino.net/ SearchOptions: TStringSearchOptions; t4UR68 http://blog.numino.net/ begin g4x7Bv http://blog.numino.net/ SearchOptions := []; Pr09aR http://blog.numino.net/ if CheckBox1.Checked then Bq68iT http://blog.numino.net/ Include(SearchOptions, soDown); Ow3i54 http://blog.numino.net/ if CheckBox2.Checked then KB63ME http://blog.numino.net/ Include(SearchOptions, soMatchCase); uVGDcQ http://blog.numino.net/ if CheckBox3.Checked then KZYuyc http://blog.numino.net/ Include(SearchOptions, soWholeWord); t9y0Uv http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); X59bsM http://blog.numino.net/ Memo1.SetFocus; ZCy1JB http://blog.numino.net/ end; 9Hqbrl http://blog.numino.net/ ///////End SearchBuf 3kVxsv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tjavg2 http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): dK6APs http://blog.numino.net/ string; $[StrUtils.pas 82YCnC http://blog.numino.net/ 功能 返回探测字符串 39X27v http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html YrMwYy http://blog.numino.net/ 参考 <NULL> P3o9R8 http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 4ty5KT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A3yO4g http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 1U75qA http://blog.numino.net/ 4): Integer; $[StrUtils.pas tZq4zg http://blog.numino.net/ 功能 返回探测整数 BvvU1q http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 uEJMLf http://blog.numino.net/ 参考 <NULL> Si3RtN http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 33z0s7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9IfKD8 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas WYfhXF http://blog.numino.net/ 功能 返回探测整数的解码 IMAlzR http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') c6M48P http://blog.numino.net/ 参考 <NULL> 3dLPqm http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); yBzm5R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ skb0TW http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas mhBT98 http://blog.numino.net/ 功能 返回探测文字数值 Yofjjn http://blog.numino.net/ 说明 没有参数ALength已经固定为4 YNpuuu http://blog.numino.net/ 参考 <NULL> 3T5L2O http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); IkEDAs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zzDzBn http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas 05y6kK http://blog.numino.net/ 功能 返回探测文字数值的解码 Nb4BK1 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') EM0CGx http://blog.numino.net/ 参考 <NULL> LDmDvM http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 40p5o8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W926dj http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: 0c1LD6 http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas LcK7J7 http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 uSZ3kI http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 0ZU9wE http://blog.numino.net/ 参考 <NULL> S9tDg9 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 2fSm27 http://blog.numino.net/ SpinEdit1.Value); 3Glncb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n8E2N9 http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: q0tv3a http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas BszrVD http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 vR7th8 http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, p8OIG7 http://blog.numino.net/ ALength)) a7mK2V http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 08ICpn http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, 21ZoTy http://blog.numino.net/ SpinEdit1.Value); AMeMVB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3iQvG8 http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; wAdOcZ http://blog.numino.net/ $[StrUtils.pas 5fwJSH http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 yTHDBB http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 b6QDkP http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText mU49zS http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 5c30QO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LOnLEQ http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas 10k67a http://blog.numino.net/ 功能 返回一个新的字符串指针地址 kwo8FV http://blog.numino.net/ 说明 字符串S为空时返回NullStr Jthw0o http://blog.numino.net/ 参考 procedure System.New zpbOsB http://blog.numino.net/ 例子 jWI1dy http://blog.numino.net/ ////////Begin NewStr,DisposeStr qu0tLZ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); KUo05U http://blog.numino.net/ var hvbZf2 http://blog.numino.net/ P: PString; VkqrOT http://blog.numino.net/ begin COMG8O http://blog.numino.net/ P := NewStr(Edit1.Text); 1mEcST http://blog.numino.net/ Edit2.Text := P^; 9JsDf6 http://blog.numino.net/ DisposeStr(P); ezZrp1 http://blog.numino.net/ end; VjT3m2 http://blog.numino.net/ ////////End NewStr,DisposeStr NPmjy2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gmKak3 http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas UJeq10 http://blog.numino.net/ 功能 释放字符串指针P资源 lTB3B6 http://blog.numino.net/ 说明 配合函数NewStr使用 CE7N6X http://blog.numino.net/ 参考 procedure System.Dispose tH3Bfm http://blog.numino.net/ 例子 <如上参见,如下参见> FIr5PB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Vo6v9K http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; sMtG3c http://blog.numino.net/ $[SysUtils.pas 215lDN http://blog.numino.net/ 功能 将字符串S更新给字符串指针P LJ602h http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 sfGwJz http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr X5P9sG http://blog.numino.net/ 例子 h2YQvR http://blog.numino.net/ ////////Begin AssignStr ndbg48 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); zV3prq http://blog.numino.net/ var AqbAlc http://blog.numino.net/ P: PString; 41svlC http://blog.numino.net/ begin Zo5Z91 http://blog.numino.net/ P := nil; q7XuX5 http://blog.numino.net/ AssignStr(P, Edit1.Text); uyfkIl http://blog.numino.net/ Edit2.Text := P^; bynxoD http://blog.numino.net/ DisposeStr(P); Mp5L57 http://blog.numino.net/ end; oyb98Q http://blog.numino.net/ ////////End AssignStr R3IpRk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lj8Uor http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; 3ofBiK http://blog.numino.net/ $[SysUtils.pas RG1KEL http://blog.numino.net/ 功能 在字符串Dest后追加字符串S 1g06JQ http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 XXD5XJ http://blog.numino.net/ 参考 <NULL> gba4mS http://blog.numino.net/ 例子 0ePd16 http://blog.numino.net/ ////////Begin AppendStr Jtuf3b http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Fx4I3U http://blog.numino.net/ var gM5teK http://blog.numino.net/ S: string; Odzd3T http://blog.numino.net/ begin egxNQn http://blog.numino.net/ S := Edit2.Text; 8Trfnm http://blog.numino.net/ AppendStr(S, Edit1.Text); nOsgIK http://blog.numino.net/ Edit2.Text := S; nWVHSL http://blog.numino.net/ end; 7d27cG http://blog.numino.net/ ////////End AppendStr ar5A4q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nab715 http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas EfIm55 http://blog.numino.net/ 功能 返回字符串S的大写形式 AV25w5 http://blog.numino.net/ 说明 非小写字符不处理 yqFUqf http://blog.numino.net/ 参考 procedure System.SetLength 9OUyZk http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); lRnYxV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8C3tkt http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas rYtKKG http://blog.numino.net/ 功能 返回字符串S的小写形式 5euyjD http://blog.numino.net/ 说明 非大写字符不处理 Io2x4Z http://blog.numino.net/ 参考 procedure System.SetLength 09Wd30 http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); SLlcL6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3ATOSx http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas p9h3c1 http://blog.numino.net/ 功能 返回比较两个字符 Av7opI http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 wCOuIv http://blog.numino.net/ 参考 <NULL> F7GHmq http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); R9BelP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k06Nhg http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; 5fW5st http://blog.numino.net/ assembler; $[SysUtils.pas 5dz6aY http://blog.numino.net/ 功能 返回比较两个内存指针 SrMRIp http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), X82yGH http://blog.numino.net/ PChar('12c'), 3)=False X8z7es http://blog.numino.net/ 参考 <NULL> UDkube http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); V6dAv8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N3jVqO http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas UlAR3r http://blog.numino.net/ 功能 返回比较两个字符串 19Oo4Q http://blog.numino.net/ 说明 不区分大小写 bR1aAi http://blog.numino.net/ 参考 <NULL> D0I2hY http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); e8a2W4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K1saaa http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas D6x2d6 http://blog.numino.net/ 功能 返回两个字符串是否相等 VxGhPp http://blog.numino.net/ 说明 不区分大小写 89VSdc http://blog.numino.net/ 参考 <NULL> 0t872v http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 28ab94 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aLP52W http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas grci18 http://blog.numino.net/ 功能 返回字符串S的大写形式 bOqE4m http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 TUI2cv http://blog.numino.net/ 参考 function Windows.CharUpperBuff d77GxJ http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); hMwSmk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JLL7gU http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas Ed18Cv http://blog.numino.net/ 功能 返回字符串S的小写形式 SlfezI http://blog.numino.net/ 说明 非大写字符不处理 3J84wG http://blog.numino.net/ 参考 function Windows.CharLowerBuff 9lEWAg http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); VIIUV0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZjQM3H http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas dt8D9z http://blog.numino.net/ 功能 反回比较两个字符串 vN0695 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 1l1Kr4 http://blog.numino.net/ 参考 function Windows.CompareString SOIzB2 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); rzQT75 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Gjy7vU http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas NEwq4Q http://blog.numino.net/ 功能 返回两个字符串是否相等 ynhWIF http://blog.numino.net/ 说明 区分大小写 dUukhl http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr rWn7UR http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); H91bIu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VoGsUZ http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas G5xpp0 http://blog.numino.net/ 功能 反回比较两个字符串 987hke http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 zJ1fA1 http://blog.numino.net/ 参考 function Windows.CompareString Ubr4ar http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); 5ADkzt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lrp1Jg http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas Y4cIiD http://blog.numino.net/ 功能 返回两个字符串是否相等 Tj31Vq http://blog.numino.net/ 说明 不区分大小写 uCOic2 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText CEgk9v http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); Li35mk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cy4x7t http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas vn0E1I http://blog.numino.net/ 功能 返回比较两个指针字符串 F6z2B7 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 2l6BK1 http://blog.numino.net/ 参考 function System.CompareString F4rU3A http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) iS4zy1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xU14fX http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas B4Uh7e http://blog.numino.net/ 功能 返回比较两个指针字符串 0R2lrF http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) bqlEwp http://blog.numino.net/ 参考 function Windows.CompareString qe2osM http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) 0Rr90J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v8NsCZ http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; AAmdOC http://blog.numino.net/ $[SysUtils.pas p2gLtY http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 cslsa1 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) n18p7U http://blog.numino.net/ 参考 function Windows.CompareString 2bRRbx http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), IQWFOc http://blog.numino.net/ SpinEdit2.Value) FfoU4w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1u2n5A http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 6WzXJI http://blog.numino.net/ $[SysUtils.pas EA2w1q http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 qzgu3C http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 S8q5a5 http://blog.numino.net/ 参考 function Windows.CompareString xd2r50 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), Df2FkG http://blog.numino.net/ SpinEdit2.Value) anseBD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kXo57Y http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas c7hplh http://blog.numino.net/ 功能 返回指针字符串小写形式 jHg8u3 http://blog.numino.net/ 说明 非大写字符不处理 GKk8ZA http://blog.numino.net/ 参考 function Windows.CharLower GxeiUA http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); T9n13r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8QoZcJ http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas DaTtwU http://blog.numino.net/ 功能 返回指针字符串大写形式 5z8LZW http://blog.numino.net/ 说明 非小写字符不处理 pBbIN8 http://blog.numino.net/ 参考 function Windows.CharUpper DdB856 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); GD5Aw2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oVGJxS http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 66G1bg http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 erAAm6 http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 JSj47Q http://blog.numino.net/ 参考 function SysUtils.ByteType rV89SY http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); TQ9EU0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7hjgR6 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 1w9ro5 http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 b33gKx http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 Q1Ds00 http://blog.numino.net/ 参考 function SysUtils.ByteType 1MJrha http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 0YUTEV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0CEz5M http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas WLRDXy http://blog.numino.net/ 功能 返回双字节字符串的大写形式 rAkKR6 http://blog.numino.net/ 说明 WideChar双字节字符 l6OIS5 http://blog.numino.net/ 参考 function Windows.CharUpperBuffW pdYhLI http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); j926mo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i8INeR http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas PxJ0ZI http://blog.numino.net/ 功能 返回双字节字符串的小写形式 hCzGs4 http://blog.numino.net/ 说明 我怎么就测试不出来呢 ZWVlx2 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW NNFCGI http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); 5e2XhV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qpW8V6 http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; 6dhiOj http://blog.numino.net/ $[SysUtils.pas MC5X6L http://blog.numino.net/ 功能 返回比较两个双字节字符串 AdXbfr http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 i88L9F http://blog.numino.net/ 参考 function Windows.CompareStringW 7iY3K8 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); VMn3Wg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ slRK0g http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas IzZg2N http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 O4phR4 http://blog.numino.net/ 说明 区分大小写 zgg50z http://blog.numino.net/ 参考 function SysUtils.WideCompareStr rX1d1B http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); fqc4kE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1GVVSH http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; nKVkyg http://blog.numino.net/ $[SysUtils.pas VvGYjp http://blog.numino.net/ 功能 返回比较两个双字节字符串 wxy1H6 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 xgh7JB http://blog.numino.net/ 参考 function Windows.CompareStringW k0Xf6A http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); KHTcFj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HRxc5d http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 308NVg http://blog.numino.net/ $[SysUtils.pas AXc5PF http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 1E6P1x http://blog.numino.net/ 说明 不区分大小写 n5927S http://blog.numino.net/ 参考 function SysUtils.WideCompareText 8s4Y0d http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); V9KCcV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Wh68lp http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas pf1A5b http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; 0Uxq64 http://blog.numino.net/ $[SysUtils.pas 1R9nBq http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 zH3iuy http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 3X2Y81 http://blog.numino.net/ 参考 function System.Copy 92w26j http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); 5F43R1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KI5xjr http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas VNz057 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; qDII0u http://blog.numino.net/ $[SysUtils.pas Y05J4c http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 TEGMUI http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 Oue7QT http://blog.numino.net/ 参考 function System.Copy 3ypD0H http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); P01ObC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5LO26B http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas b3mlDY http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; QPs93H http://blog.numino.net/ $[SysUtils.pas L26CTs http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 972QtI http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 YsNflC http://blog.numino.net/ 参考 function System.Copy Cd9Rbn http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); 8OERs9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Irc5Qf http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas n2BC86 http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 5fyPGd http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 19pWaM http://blog.numino.net/ 参考 procedure System.Insert pCcWtP http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); 56wHPK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3aENKg http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; t4o78Y http://blog.numino.net/ $[SysUtils.pas 3je32q http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 v550Ik http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', Dj4rkQ http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' goJYER http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 0ETqiL http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); nbB4iZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y1Xgy3 http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; JaKU53 http://blog.numino.net/ $[SysUtils.pas gG2ojh http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 DIJN2p http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 awQ1Vd http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan Nm2ZPm http://blog.numino.net/ 例子 pdNByg http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr qD8GHX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 06K1bD http://blog.numino.net/ var ldi7xb http://blog.numino.net/ P: PChar; CX2m6i http://blog.numino.net/ begin aVrQ7I http://blog.numino.net/ P := PChar(Edit1.Text); hr57sL http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); khIK4F http://blog.numino.net/ Edit3.Text := P; 8R46so http://blog.numino.net/ end; zHG5wt http://blog.numino.net/ ///////End AnsiExtractQuotedStr iB2wOE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8wD5LX http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 1iCne2 http://blog.numino.net/ $[SysUtils.pas g4Nb19 http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 SqNfuz http://blog.numino.net/ 说明 表现形式非法时则返回S 4ZiAly http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr 8jWvJd http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); PD65Ow http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 53OVSp http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = Y5PUD5 http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): 86dY0w http://blog.numino.net/ string; $[SysUtils.pas XRUVgL http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 8BLt3q http://blog.numino.net/ 说明 864vU0 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 zt93r6 http://blog.numino.net/ 参考 function SysUtils.StrNextChar vcqztJ http://blog.numino.net/ 例子 <NULL> pdS3LV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0D6FF7 http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 9KWe5F http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 T7SsS9 http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... AGoVUK http://blog.numino.net/ 参考 <NULL> 22g9AA http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 9oD851 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6A2CSY http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 4nLkcE http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 7qEMFG http://blog.numino.net/ 功能 返回整数Value转换成字符串 5VC9Ff http://blog.numino.net/ 说明 Format('%d', [Value]) NXpeID http://blog.numino.net/ 参考 function SysUtils.FmtStr t91VyY http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); W1Uj35 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iSy28U http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; XgEmsq http://blog.numino.net/ $[SysUtils.pas pXo5u3 http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; he6nuW http://blog.numino.net/ $[SysUtils.pas QdLLna http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) HqwWFx http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 d8Aw5G http://blog.numino.net/ 参考 function SysUtils.FmtStr 0F88rr http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); Eci4L1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b8dZ34 http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas cjpZg3 http://blog.numino.net/ 功能 返回字符串S转换成整数 ygOwhm http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 7qNB3N http://blog.numino.net/ 参考 procedure System.Val eydWxd http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); IQDIX1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e0EQYF http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; ZHaf8L http://blog.numino.net/ $[SysUtils.pas OWMc2u http://blog.numino.net/ 功能 返回字符串S转换成整数 sO5KKG http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default rdOi77 http://blog.numino.net/ 参考 procedure System.Val qrSnwK http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); XR1Z2q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 03FMTc http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; x7sSU3 http://blog.numino.net/ $[SysUtils.pas E6raEG http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 8EkHE6 http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 4d962E http://blog.numino.net/ 参考 procedure System.Val UTq80L http://blog.numino.net/ 例子 u8Xnl1 http://blog.numino.net/ ///////Begin TryStrToInt MJh9vd http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wvb8Hl http://blog.numino.net/ var 2lKPmo http://blog.numino.net/ I: Integer; sj21Vt http://blog.numino.net/ begin 5I0gGn http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); g9xoRB http://blog.numino.net/ SpinEdit1.Value := I; y4D0SK http://blog.numino.net/ end; 2BW2MG http://blog.numino.net/ ///////End TryStrToInt 4R71me http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t9scp3 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas AgER9F http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 chJc1M http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 tV60aC http://blog.numino.net/ 参考 procedure System.Val D5NiaW http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); ih0U44 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DMWCT9 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; pTm4hF http://blog.numino.net/ $[SysUtils.pas O1hKW3 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 35EByW http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default BDdUN1 http://blog.numino.net/ 参考 procedure System.Val 4PSG8T http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); Q1qaAB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oUmiVT http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; D9133S http://blog.numino.net/ $[SysUtils.pas 5s4XSK http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 BwKkZS http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 cY46is http://blog.numino.net/ 参考 procedure System.Val PP50UO http://blog.numino.net/ 例子 qt0004 http://blog.numino.net/ ///////Begin TryStrToInt64 6tx48Q http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); nNndgL http://blog.numino.net/ var 7n3d3a http://blog.numino.net/ I: Int64; 126rtx http://blog.numino.net/ begin ET62AJ http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); Gc0Us5 http://blog.numino.net/ SpinEdit1.Value := I; vUoVrm http://blog.numino.net/ end; LBVAVW http://blog.numino.net/ ///////End TryStrToInt64 twRlRd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ De48Xp http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas 21skrw http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 DO1X5Q http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 9KT7sL http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 6JVofa http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); oqZ4l8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xH7fjW http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): UJQ9y6 http://blog.numino.net/ Boolean; $[SysUtils.pas ewf8uI http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 2243pb http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default 2P3x8x http://blog.numino.net/ 参考 function SysUtils.TryStrToBool aaHdJO http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); y2c1Vd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3l9X41 http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; GcMvmN http://blog.numino.net/ $[SysUtils.pas 6Qn4rQ http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 1rpoi9 http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 pRpAjK http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var lHh8MD http://blog.numino.net/ SysUtils.FalseBoolStrs nIJGY8 http://blog.numino.net/ 例子 WyUJ6E http://blog.numino.net/ ///////Begin TryStrToBool kRdL05 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); l3UEqt http://blog.numino.net/ var 5Z1JN7 http://blog.numino.net/ B: Boolean; kB6t1L http://blog.numino.net/ begin g9Ps34 http://blog.numino.net/ SetLength(TrueBoolStrs, 2); HRAokC http://blog.numino.net/ SetLength(FalseBoolStrs, 2); d2He78 http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 3f6B9y http://blog.numino.net/ FalseBoolStrs[0] := 'False'; 6MgaJ5 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; 50DRfM http://blog.numino.net/ FalseBoolStrs[1] := 'No'; wx1hmC http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); ibEEVR http://blog.numino.net/ CheckBox2.Checked := B; F4fq8i http://blog.numino.net/ end; 8Jwuf2 http://blog.numino.net/ ///////End TryStrToBool qq64ay http://blog.numino.net/ 附加 A84hQj http://blog.numino.net/ ///////Begin TryStrToBool 1q0O6O http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; SMl2wq http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; amyEA6 http://blog.numino.net/ var 7M2165 http://blog.numino.net/ I: Integer; qF18yx http://blog.numino.net/ begin d3gHhy http://blog.numino.net/ Result := False; GKYMbp http://blog.numino.net/ for I := Low(aArray) to High(aArray) do 0UxxL7 http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then KyNtBh http://blog.numino.net/ begin yQruWa http://blog.numino.net/ Result := True; T41Q1s http://blog.numino.net/ Break; JR7M1a http://blog.numino.net/ end; Zh8dqD http://blog.numino.net/ end; pnY5yA http://blog.numino.net/ var L66NN6 http://blog.numino.net/ LResult: Extended; J1A4nS http://blog.numino.net/ begin g74HjW http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 8apkbk http://blog.numino.net/ if Result then R7A46u http://blog.numino.net/ Value := LResult <> 0 xbPuqB http://blog.numino.net/ else dXXl0h http://blog.numino.net/ begin 4V83jf http://blog.numino.net/ Result := True; //修正处 zbeoE2 http://blog.numino.net/ VerifyBoolStrArray; 2biJO4 http://blog.numino.net/ if CompareWith(TrueBoolStrs) then nQeM3k http://blog.numino.net/ Value := True v60NOh http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then HQLX07 http://blog.numino.net/ Value := False W70qea http://blog.numino.net/ else FPcSRm http://blog.numino.net/ Result := False; avIO84 http://blog.numino.net/ end; kTDZCk http://blog.numino.net/ end; 2gfR2x http://blog.numino.net/ ///////End TryStrToBool VM4LAE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eoJCus http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; zBV6J8 http://blog.numino.net/ $[SysUtils.pas eropI0 http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 U6zoDH http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 7Xcb35 http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs Fb5C3b http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); JBy7A4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LCK2f0 http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 58x9Er http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 jU364a http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 xxBfrj http://blog.numino.net/ 参考 function SysUtils.FindStringResource 135lw0 http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); 90jtvu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9X5IjV http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): 9iLyII http://blog.numino.net/ string; $[SysUtils.pas bGNbe4 http://blog.numino.net/ 功能 返回格式化的字符串资源 U2d5Fb http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 C8I3Ss http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource ZbWB5s http://blog.numino.net/ 例子 <NULL>; UWZekw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E1uVu4 http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas bfMsb2 http://blog.numino.net/ 功能 返回指针字符串的长度 7mxKHR http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 6j9JyT http://blog.numino.net/ 参考 <NULL> dMELW0 http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); MyhoGX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7II505 http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas SrQuUG http://blog.numino.net/ 功能 返回指针字符串的结尾 9e9SKR http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 hRbvjb http://blog.numino.net/ 参考 <NULL> lhqYcd http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; 8ajRde http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4XsWN4 http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): GZfzl0 http://blog.numino.net/ PChar; $[SysUtils.pas 5B046D http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 VxId90 http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s MRntQB http://blog.numino.net/ 参考 function System.Move h7DiqN http://blog.numino.net/ 例子 5PtolY http://blog.numino.net/ ///////Begin StrMove QRD8EC http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Tv3ZOn http://blog.numino.net/ var zO3UnV http://blog.numino.net/ vBuffer: PChar; Hpb6FH http://blog.numino.net/ begin 6zk86z http://blog.numino.net/ vBuffer := '0123456789'; wto913 http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); mw1OrU http://blog.numino.net/ Edit2.Text := vBuffer; 2VGBgR http://blog.numino.net/ end; pZowNj http://blog.numino.net/ ///////End StrMove APYqIv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j7wKMs http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; qXcE2N http://blog.numino.net/ $[SysUtils.pas XVSE3p http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 5y6Y6P http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 jQISMn http://blog.numino.net/ 参考 <NULL> ox92zz http://blog.numino.net/ 例子 919JvB http://blog.numino.net/ ///////Begin StrCopy tjnM5V http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); NS8p29 http://blog.numino.net/ var oUDAmN http://blog.numino.net/ vBuffer: PChar; dN2tEf http://blog.numino.net/ begin 531zJp http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); rjVW0u http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); 5ZUq02 http://blog.numino.net/ Edit2.Text := vBuffer; F3yVh3 http://blog.numino.net/ FreeMem(vBuffer); I621w1 http://blog.numino.net/ end; vs5Bi6 http://blog.numino.net/ ///////End StrCopy PumzNy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OMQ8gZ http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; pif2XG http://blog.numino.net/ $[SysUtils.pas 4M3pK5 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 V8v6fG http://blog.numino.net/ 说明 可以连接指针字符串 kSsnIn http://blog.numino.net/ 参考 <NULL> rp8rsb http://blog.numino.net/ 例子 zyF146 http://blog.numino.net/ ///////Begin StrECopy bcU2Td http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 57H1hW http://blog.numino.net/ var W9tMg4 http://blog.numino.net/ vBuffer: array[0..255] of Char; lOJW5K http://blog.numino.net/ begin m5t5N8 http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); JeFS9W http://blog.numino.net/ Edit3.Text := vBuffer; G5M3Tv http://blog.numino.net/ end; deKqf5 http://blog.numino.net/ ///////End StrECopy pO2iRM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9kBL7V http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): IC9KX5 http://blog.numino.net/ PChar; $[SysUtils.pas V4x2LF http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 X9t5DV http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 X7gcj3 http://blog.numino.net/ 参考 <NULL> UpPbs6 http://blog.numino.net/ 例子 KaIK9x http://blog.numino.net/ ///////Begin StrLCopy 2xWkxH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); vqqsqw http://blog.numino.net/ var 9cPX0F http://blog.numino.net/ vBuffer: array[0..255] of Char; EAc695 http://blog.numino.net/ begin X7b2VB http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 1YJ3Ec http://blog.numino.net/ Edit2.Text := vBuffer; 2tAIyg http://blog.numino.net/ end; 060iJT http://blog.numino.net/ ///////End StrLCopy l9GLEF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jaqbqJ http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; 450L8G http://blog.numino.net/ $[SysUtils.pas TVj8Gz http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 KZyagm http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) YSJH4v http://blog.numino.net/ 参考 function SysUtils.StrLCopy ICE5Of http://blog.numino.net/ 例子 V214yC http://blog.numino.net/ ///////Begin StrPCopy mCtdUH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 51ny9a http://blog.numino.net/ var IjxGSi http://blog.numino.net/ vBuffer: array[0..255] of Char; sU8CaE http://blog.numino.net/ begin 4WmW7d http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); sXDU92 http://blog.numino.net/ Edit2.Text := vBuffer; 2W2034 http://blog.numino.net/ end; 3iM8tc http://blog.numino.net/ ///////End StrPCopy LMrbZB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ksbIeR http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: bGt4Ux http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas LapjoW http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 LM9nr7 http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) ooA0Pd http://blog.numino.net/ 参考 function SysUtils.StrLCopy WCl0WD http://blog.numino.net/ 例子 tP1jRS http://blog.numino.net/ ///////Begin StrPLCopy iYR4RS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); pjsf7S http://blog.numino.net/ var 7sH2G5 http://blog.numino.net/ vBuffer: array[0..255] of Char; 72FXAn http://blog.numino.net/ begin ruFg2w http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); NGqh79 http://blog.numino.net/ Edit2.Text := vBuffer; toOxki http://blog.numino.net/ end; 2T06iL http://blog.numino.net/ ///////End StrPLCopy c3jaIY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7kq97m http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; H2Ajci http://blog.numino.net/ $[SysUtils.pas cRJyk7 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source D21DWI http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) skUhI6 http://blog.numino.net/ 参考 function SysUntils.StrCopy Qq04PK http://blog.numino.net/ 例子 cp1sY5 http://blog.numino.net/ ///////Begin StrCat t6H75x http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); lOH0pK http://blog.numino.net/ var Nr9NnU http://blog.numino.net/ vBuffer: array[0..255] of Char; n34mW3 http://blog.numino.net/ begin agfzQa http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); 0x61vP http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); fVy7Kp http://blog.numino.net/ Edit3.Text := vBuffer; 2Pb8Ko http://blog.numino.net/ end; pM3a9E http://blog.numino.net/ ///////End StrCat 5KHcwu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OS52fz http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 5ptzVy http://blog.numino.net/ PChar; $[SysUtils.pas 0G4MaG http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source Ap35fb http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 1UC0B4 http://blog.numino.net/ 参考 <NULL> lr9Ctc http://blog.numino.net/ 例子 pve9fM http://blog.numino.net/ ///////Begin StrLCat 2fPrc6 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); PAOC93 http://blog.numino.net/ var 7CkIf9 http://blog.numino.net/ vBuffer: array[0..255] of Char; Z9j2rN http://blog.numino.net/ begin 0iD4ae http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); M5WBI8 http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); et3SV0 http://blog.numino.net/ Edit3.Text := vBuffer; xc3Dh5 http://blog.numino.net/ end; WSGTLP http://blog.numino.net/ ///////End StrLCat 1w9L6Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AHkZl8 http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas Zo1p0u http://blog.numino.net/ 功能 返回比较两个指针字符串 Jo9F2f http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 J0l4h1 http://blog.numino.net/ 参考 <NULL> LtT493 http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); 1T2Uk3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 172sa0 http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas SZ8Vvj http://blog.numino.net/ 功能 返回比较两个指针字符串 KS7xLB http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 Y6NNtG http://blog.numino.net/ 参考 <NULL> 77H0Zt http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); LT00Ix http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gxoAA7 http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 1Ur76w http://blog.numino.net/ $[SysUtils.pas bnxh95 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 gO3WVa http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 CXI62H http://blog.numino.net/ 参考 <NULL> HHD4Qg http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 1KHUjX http://blog.numino.net/ SpinEdit2.Value) 5DG94g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZNfghB http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; H49x8x http://blog.numino.net/ $[SysUtils.pas 98askk http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 w7O1k3 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 4Qv9Ka http://blog.numino.net/ 参考 <NULL> qa6rSL http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), byJ62y http://blog.numino.net/ SpinEdit2.Value) d798Sh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EI8t2q http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas zQLu9F http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 rZY6f9 http://blog.numino.net/ 说明 没有找到则返回空指针 528iOB http://blog.numino.net/ 参考 <NULL> 10xrS9 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); qexYVU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OrwvN8 http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 21ki4u http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 nbp9f1 http://blog.numino.net/ 说明 没有找到则返回空指针 7Fj318 http://blog.numino.net/ 参考 <NULL> Dgq4N5 http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); H45s7p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ujqnyu http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas wkeC4C http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 y52X13 http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' mTtZOg http://blog.numino.net/ 参考 <NULL> 9yZde8 http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); ojLlL5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ McMO87 http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas ji54zs http://blog.numino.net/ 功能 返回指针字符串Str大写 7f0TVT http://blog.numino.net/ 说明 非小写字符不处理 VLVFi7 http://blog.numino.net/ 参考 <NULL> F55P98 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); 4XqUn3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kX12CG http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas kbvfb6 http://blog.numino.net/ 功能 返回指针字符串Str小写 Oe8ds8 http://blog.numino.net/ 说明 非大写字符不处理 Xn1PQS http://blog.numino.net/ 参考 <NULL> Hhf1q9 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); CDk9FF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0Si0GV http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas yldh9l http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 vQl9kP http://blog.numino.net/ 说明 也可以直接赋值 753GtB http://blog.numino.net/ 参考 <NULL> qkiZ4d http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); RDhV6Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DO813C http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas N59EXn http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 NM31e1 http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 3Vqoh3 http://blog.numino.net/ 参考 function System.GetMem N7pR4E http://blog.numino.net/ 例子 2QctaF http://blog.numino.net/ ///////Begin StrAlloc DvmNVA http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7mjub9 http://blog.numino.net/ var QOH3KI http://blog.numino.net/ P: PChar; b3flJ3 http://blog.numino.net/ begin 6S8uc1 http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); 288e1u http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); Y9GH9Z http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); x7ksOb http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); 8nHMxX http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); SRdj3o http://blog.numino.net/ StrDispose(P); E2Tdqc http://blog.numino.net/ end; tNTkZc http://blog.numino.net/ ///////End StrAlloc I3dZCY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YG5K1u http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas Xf1r8A http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 7KwQ34 http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 4GQV2w http://blog.numino.net/ 参考 function System.SizeOf 19xwK0 http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); ui1N2n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Jk987y http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas T1Cuh0 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 kio91j http://blog.numino.net/ 说明 如果Str为nil则返回nil MBKvAc http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function 8t9igt http://blog.numino.net/ SysUtils.StrAlloc XX363Z http://blog.numino.net/ 例子 1c2Kzs http://blog.numino.net/ ///////Begin StrNew,StrDispose 2e4s3I http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5ZJ037 http://blog.numino.net/ var M9HVgr http://blog.numino.net/ P: PChar; CPE1Tn http://blog.numino.net/ begin 2KKdzf http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); 8SFI6D http://blog.numino.net/ ShowMessage(P); jwfWzm http://blog.numino.net/ StrDispose(P); JWQJYU http://blog.numino.net/ end; 071rdN http://blog.numino.net/ ///////End StrNew,StrDispose d2h5UO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ft32CY http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas VqK339 http://blog.numino.net/ 功能 释放指针字符串Str内存资源 S91KWs http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 GWOU9U http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem h7eyCu http://blog.numino.net/ 例子 <参见StrNew> OC1Ovi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5qdH3d http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): e7tYs1 http://blog.numino.net/ string; $[SysUtils.pas SK9E5B http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 CgToff http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 jiFapS http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 Ih02uT http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 17R1jZ http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 Aw3ewg http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 sJEEj5 http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 4uBJJh http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 bTTfqU http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 zOPfhE http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 XLM008 http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 8Jy0cx http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 2GNGhF http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 j00X2Z http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" uJnKBP http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 f867fd http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr mDv8hc http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); wb3Gn5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G6a97g http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: bE1QEU http://blog.numino.net/ array of const); $[SysUtils.pas 303RUM http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 5cJXXa http://blog.numino.net/ 说明 <参见Format> C7YFcO http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function cQN0a2 http://blog.numino.net/ System.SetLength FP042B http://blog.numino.net/ 例子 <参见Format> MRMS78 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 624AR4 http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): gfMRjo http://blog.numino.net/ PChar; $[SysUtils.pas 03u8vj http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 c5jvKK http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil lVc02r http://blog.numino.net/ 参考 function SysUtils.FormatBuf k2ZgDb http://blog.numino.net/ 例子 <参见Format> 6ENixv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ivGTn2 http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; I6Yq4s http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas 0EenFk http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 daB8O1 http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; S64T19 http://blog.numino.net/ 参考 function SysUtils.FormatBuf Fs0QaC http://blog.numino.net/ 例子 <参见Format> LKr8kz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nYd29w http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: zxS1Ar http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas z7ocvK http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 ZGjV3h http://blog.numino.net/ 说明 <NULL> 91no4d http://blog.numino.net/ 参考 <NULL> 36Hm42 http://blog.numino.net/ 例子 <参见Format> t04CBb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ajP56z http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of 95fM7A http://blog.numino.net/ const): WideString; $[SysUtils.pas vElx81 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 bvboRh http://blog.numino.net/ 说明 <NULL> x1m0TO http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr yMbPs2 http://blog.numino.net/ 例子 <参见Format> 4snc91 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZN0XrH http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; 69y2MP http://blog.numino.net/ const Args: array of const); $[SysUtils.pas X9SIJ5 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 Q65pn6 http://blog.numino.net/ 说明 <NULL> Sn1813 http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf seA1xS http://blog.numino.net/ 例子 <参见Format> lBab91 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U3JD7n http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; r05Wiq http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas JyjWzG http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 bWC2Mv http://blog.numino.net/ 说明 <NULL> S51lE0 http://blog.numino.net/ 参考 <NULL> DD2hSW http://blog.numino.net/ 例子 <参见Format> O7ZoY3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ msBdnK http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas MY6sm1 http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 Ba0sIE http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 Kwv6EK http://blog.numino.net/ 参考 function SysUtils.FloatToText 82359F http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); v0Vd0O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0USerZ http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas S4v84b http://blog.numino.net/ 功能 返回货币数Value转换成字符串 67DU09 http://blog.numino.net/ 说明 货币数只保留四位小数 InKmji http://blog.numino.net/ 参考 function SysUtils.FloatToText d7gNoN http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); T6Er8J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4XxL26 http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas JWZMSP http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 Xb3y6X http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 xA59y2 http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency gI5466 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); 6X3yu3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Pwj2m2 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, yhC6Uy http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas by8O54 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 iotNqs http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 S34t4T http://blog.numino.net/ 参考 function SysUtils.FloatToText QhY2i5 http://blog.numino.net/ 例子 5EDYp2 http://blog.numino.net/ ///////Begin FloatToStrF 3tb19r http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); h8nTud http://blog.numino.net/ begin xp07i1 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 798cpm http://blog.numino.net/ 0), M0Zm4y http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); U06Fo4 http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 9LtuTp http://blog.numino.net/ 0), Y6i7Bs http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); SWsifD http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 5Dc7ZY http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); 48aFG6 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 3hKNz7 http://blog.numino.net/ 0), x9zp2I http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); X6wR27 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 1dv49u http://blog.numino.net/ 0), 652p1o http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); xoKfO3 http://blog.numino.net/ end; HO7EV6 http://blog.numino.net/ ///////End FloatToStrF 1Myb7J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t5RNA8 http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: a3BjKG http://blog.numino.net/ Integer): string; $[SysUtils.pas hTsxLr http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 GOHQi8 http://blog.numino.net/ 说明 Digits指定小数宽度 7U0eNZ http://blog.numino.net/ 参考 function SysUtils.FloatToText x3baBZ http://blog.numino.net/ 例子 191go4 http://blog.numino.net/ ///////Begin CurrToStrF ysOr6r http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); v8klp2 http://blog.numino.net/ begin 7HF9A3 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), eY7g2d http://blog.numino.net/ ffGeneral, SpinEdit1.Value); 1B2kE6 http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, AhjoGV http://blog.numino.net/ 0), NBWk5B http://blog.numino.net/ ffExponent, SpinEdit1.Value); ZQm096 http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 96Q0iT http://blog.numino.net/ ffFixed, SpinEdit1.Value); je8Apb http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), KUdmo7 http://blog.numino.net/ ffNumber, SpinEdit1.Value); Tl03Yx http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, mcXiU7 http://blog.numino.net/ 0), W1sZLC http://blog.numino.net/ ffCurrency, SpinEdit1.Value); Wd1LDg http://blog.numino.net/ end; BS37Gz http://blog.numino.net/ ///////End CurrToStrF 183lyD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yNmfle http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: hhrE35 http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; 39Wn1S http://blog.numino.net/ $[SysUtils.pas nf14hd http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 XZWMaa http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 9KRca0 http://blog.numino.net/ 参考 <NULL> tjhU3t http://blog.numino.net/ 例子 jwo2yw http://blog.numino.net/ ///////Begin FloatToText X0qFwy http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0XBt41 http://blog.numino.net/ var 3nSjB0 http://blog.numino.net/ vBuffer: array[0..255] of Char; Il5jqU http://blog.numino.net/ E: Extended; FlFaN5 http://blog.numino.net/ begin dRL2QA http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); jVpe9d http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 3Z4YiZ http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); DX8R3h http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); ztkJLs http://blog.numino.net/ end; GaQLAw http://blog.numino.net/ ///////End FloatToText( 3v6y6v http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M9vRI9 http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; oS2oLM http://blog.numino.net/ $[SysUtils.pas y7ky4L http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 91uDQp http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' 1Y1Rhv http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt Ssofpd http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); K5g3kQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IG8ArJ http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; 6b5WWH http://blog.numino.net/ $[SysUtils.pas BjM2Pm http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 gL4eUa http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' kZoIb5 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt JOEnGC http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); Sai9jx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 072R8T http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 4SQymx http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas kWdcei http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 9ICqNt http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 nt4TXW http://blog.numino.net/ 参考 <NULL> 7vaVkJ http://blog.numino.net/ 例子 weUtfR http://blog.numino.net/ ///////Begin FloatToTextFmt iL13V1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); AsUJV4 http://blog.numino.net/ var OFP030 http://blog.numino.net/ vBuffer: array[0..255] of Char; o0rJbY http://blog.numino.net/ E: Extended; Lpw5sQ http://blog.numino.net/ begin NmPi1n http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); N7jPmr http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, J5b2yJ http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); GR9tS8 http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); 33E9d8 http://blog.numino.net/ end; X8R4r6 http://blog.numino.net/ ///////End FloatToTextFmt t8jrE1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QoOx2D http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas 41h3Ao http://blog.numino.net/ 功能 返回字符串S转换成浮点数 NEwXtb http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 1gT881 http://blog.numino.net/ 参考 function SysUtils.TextToFloat KDlPO5 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; 0IAfse http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 97dbMK http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): rtBdYP http://blog.numino.net/ Extended; $[SysUtils.pas 1csbBW http://blog.numino.net/ 功能 返回字符串S转换成浮点数 ioQ1k2 http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default 3x5eb3 http://blog.numino.net/ 参考 function SysUtils.TextToFloat yrpVsS http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 1AcTar http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HG771q http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; T6ludi http://blog.numino.net/ overload; $[SysUtils.pas toMbNE http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; Se30nW http://blog.numino.net/ overload; $[SysUtils.pas ik2i0t http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; RFj8Cs http://blog.numino.net/ overload; $[SysUtils.pas ZHH721 http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 u6IkwH http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 iP8861 http://blog.numino.net/ 参考 function SysUtils.TextToFloat v1FIxQ http://blog.numino.net/ 例子 Uac8Gq http://blog.numino.net/ ///////Begin TryStrToFloat GJm4EL http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 2L9LQr http://blog.numino.net/ var FOXF14 http://blog.numino.net/ E: Extended; eK4qmN http://blog.numino.net/ begin Djy834 http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); RJI8xO http://blog.numino.net/ Edit2.Text := FormatFloat('', E); nOuJhC http://blog.numino.net/ end; oW7G57 http://blog.numino.net/ ///////End TryStrToFloat GcK3vy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5Sicfw http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas QLOo6D http://blog.numino.net/ 功能 返回字符串S转换成货币数 vc6eSa http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 fh3V2F http://blog.numino.net/ 参考 function SysUtils.TextToFloat iTU4Ye http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 19RfR9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 57w0U6 http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): N4xhO7 http://blog.numino.net/ Currency; $[SysUtils.pas oU4yCD http://blog.numino.net/ 功能 返回字符串S转换成货币数 3861GT http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default x2qefz http://blog.numino.net/ 参考 function SysUtils.TextToFloat 6N0EFA http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; Iuoa1I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ imSfkE http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; 4L57kb http://blog.numino.net/ $[SysUtils.pas l2X0yr http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 r6UQ8s http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 2mWTLj http://blog.numino.net/ 参考 function SysUtils.TextToFloat 1RzYTC http://blog.numino.net/ 例子 wxYfjD http://blog.numino.net/ ///////Begin TryStrToCurr 0Wi1G7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5tBLJp http://blog.numino.net/ var 6NHBWU http://blog.numino.net/ C: Currency; wtu5vs http://blog.numino.net/ begin SsuD5y http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); C9Z8ng http://blog.numino.net/ Edit2.Text := FormatCurr('', C); gA8C7V http://blog.numino.net/ end; 774UFW http://blog.numino.net/ ///////End TryStrToCurr X0T3Mi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zs9F2l http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): 12lKQI http://blog.numino.net/ Boolean; $[SysUtils.pas eH6Xn0 http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value vg4Ct3 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 KHBROO http://blog.numino.net/ 参考 <NULL> 5tIyob http://blog.numino.net/ 例子 V625Uz http://blog.numino.net/ ///////Begin TextToFloat 8seI1e http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Jc0F51 http://blog.numino.net/ var 75zf2a http://blog.numino.net/ E: Extended; hEIj5B http://blog.numino.net/ begin S4UL7t http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, J1UQq5 http://blog.numino.net/ fvExtended); Q86rVc http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 0f2RaW http://blog.numino.net/ end; E3S80r http://blog.numino.net/ ///////End TextToFloat p6Laac http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GT5sDx http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 21mE96 http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 ofzl8U http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 O5vNVy http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat vizD3L http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); RVvIP4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6K33ZE http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas NwEJi8 http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 mKhBqX http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 1PC7xL http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat rY2S1V http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); ozB7zY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A9dKh6 http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; mTxz0I http://blog.numino.net/ $[SysUtils.pas 647zUG http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 8Dk53U http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 1ZiZdj http://blog.numino.net/ 参考 function SysUtils.DateTimeToString cL563o http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); y3pRQ6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ chCqyb http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 2v48h2 http://blog.numino.net/ 功能 返回字符串S转换成日期 LyZjY0 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 QUZN41 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate Ok8oKs http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); njs8qm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qdqLdZ http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): x92kXH http://blog.numino.net/ TDateTime; $[SysUtils.pas Z7WKgi http://blog.numino.net/ 功能 返回字符串S转换成日期 87QRpC http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default fqQQHl http://blog.numino.net/ 参考 function SysUtils.TryStrToDate G6oCo3 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); hjScth http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8fkwe1 http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; qYTYfo http://blog.numino.net/ $[SysUtils.pas Jofgce http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 4WEkUr http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 UMub8E http://blog.numino.net/ 参考 <NULL> Gc2o2i http://blog.numino.net/ 例子 1Fdo07 http://blog.numino.net/ ///////Begin TryStrToDate B5BiCn http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); CA3CWJ http://blog.numino.net/ var 2Y8h2a http://blog.numino.net/ vDateTime: TDateTime; 0pRd8u http://blog.numino.net/ begin c0Mi6x http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); rJrsKY http://blog.numino.net/ DateTimePicker1.Date := vDateTime; 8OeKtB http://blog.numino.net/ end; PT6Sh3 http://blog.numino.net/ ///////End TryStrToDate 3bTMLR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d3Wh0n http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 72hQ5S http://blog.numino.net/ 功能 返回字符串S转换成时间 LGARe2 http://blog.numino.net/ 说明 字符非时间表达时将引起异常 QmUE77 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 4kcrZ2 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); XnHya2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t1yO9T http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): BOj56O http://blog.numino.net/ TDateTime; $[SysUtils.pas mcbf79 http://blog.numino.net/ 功能 返回字符串S转换成时间 1Okx5x http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default Wcz7I8 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime I7IE59 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); HXFiD5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U89M8J http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; 85KawI http://blog.numino.net/ $[SysUtils.pas cB91RZ http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 h6CQ3J http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 BPId6r http://blog.numino.net/ 参考 <NULL> d0XvaE http://blog.numino.net/ 例子 xuLcTe http://blog.numino.net/ ///////Begin TryStrToTime MnymWQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); lnkYBq http://blog.numino.net/ var 1W8SLP http://blog.numino.net/ vDateTime: TDateTime; VZ0Gee http://blog.numino.net/ begin hgqoNC http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); zHHmK1 http://blog.numino.net/ DateTimePicker1.Time := vDateTime; gpUc6T http://blog.numino.net/ end; qISw44 http://blog.numino.net/ ///////End TryStrToTime OEL24N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VX6sqd http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas pATP1a http://blog.numino.net/ 功能 返回字符串S转换成日期时间 R61LSy http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 8FkVMV http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime fHtiER http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); nxYMNi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4ml2D6 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): JbjKn3 http://blog.numino.net/ TDateTime; $[SysUtils.pas L548VR http://blog.numino.net/ 功能 返回字符串S转换成日期时间 kj6OEx http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default 5VyY1o http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime nOYCDU http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); WZ5801 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gh0Z59 http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): VgMRIr http://blog.numino.net/ Boolean; $[SysUtils.pas rwjI8E http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 q0xW2C http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 NC3l6z http://blog.numino.net/ 参考 <NULL> 2JURr8 http://blog.numino.net/ 例子 O5DvnU http://blog.numino.net/ ///////Begin TryStrToDateTime Z50yi4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); K0b50b http://blog.numino.net/ var XS3Jm2 http://blog.numino.net/ vDateTime: TDateTime; KhZH73 http://blog.numino.net/ begin mr7dr3 http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); rsM6T8 http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); M1gp5t http://blog.numino.net/ end; okzCkj http://blog.numino.net/ ///////End TryStrToDateTime jXV8cU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vKBs0h http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; s725u3 http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas 4OQMaU http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 AVOzP9 http://blog.numino.net/ 说明 <参见FormatDateTime> F2GbWx http://blog.numino.net/ 参考 function System.SetString 373WcW http://blog.numino.net/ 例子 <参见FormatDateTime> 2YhMcl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2u2b1K http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: OnhyFn http://blog.numino.net/ string): string; platform; $[SysUtils.pas ITK5zG http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 5IAcj7 http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' glLvEP http://blog.numino.net/ 参考 function Windows.GetLocaleInfo 9BE2ix http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); rBy71D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xj6h8Z http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): 1x141j http://blog.numino.net/ Char; platform; $[SysUtils.pas kgfm73 http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 a2vzQc http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' zaCw3E http://blog.numino.net/ 参考 function Windows.GetLocaleInfo 7yC50L http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); YKWUCH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3Cc82I http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; dK9d4K http://blog.numino.net/ $[SysUtils.pas a0EqG7 http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 By6F9Q http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) kfilqg http://blog.numino.net/ 参考 var SysUtils.SysLocale 88JTlR http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); tj2cp4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u7R8u6 http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; zNQw4j http://blog.numino.net/ $[SysUtils.pas Cr0bWD http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 Sx5Xyv http://blog.numino.net/ 说明 Index从0开始 7jyqdK http://blog.numino.net/ 参考 var SysUtils.SysLocale gQ5I4Z http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), B8ftVH http://blog.numino.net/ SpinEdit2.Value)); Y87Fkr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nNyv2i http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; jY3XR0 http://blog.numino.net/ $[SysUtils.pas AUvNpL http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 ehfQ2G http://blog.numino.net/ 说明 MaxLen指定处理字符个数 t2Ezqr http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex jnp0nj http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); N4UJu0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b5FY7c http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; 44q5lj http://blog.numino.net/ $[SysUtils.pas 0Q80NR http://blog.numino.net/ 功能 返回字符串S中有多少个字符 8eL6ht http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 JgOhp5 http://blog.numino.net/ 参考 var SysUtils.SysLocale 2NGkp4 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 9Onq5n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ue5wPG http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; wL4csI http://blog.numino.net/ $[SysUtils.pas DGwD49 http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 XNGTam http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 O86aU1 http://blog.numino.net/ 参考 function SysUtils.NextCharIndex IDHeLD http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); hdxWBv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B3Z2aa http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; w3ENdr http://blog.numino.net/ $[SysUtils.pas b6CiNs http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 QhFu67 http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 U9E5BA http://blog.numino.net/ 参考 function System.Length 4jm6lq http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); l5hDQs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YHCd8d http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas aw2Z8w http://blog.numino.net/ 功能 返回第一个字符的宽度 q8IaN8 http://blog.numino.net/ 说明 参数为空则返回0 sSX2jS http://blog.numino.net/ 参考 function Windows.CharNext jdyQ4e http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); 05yv0H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yU2kbO http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas fNLitP http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 T6NFEG http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; Y466kk http://blog.numino.net/ 参考 function Windows.CharNext 0pUMoY http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); j0w9N3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K2s4dI http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; Axf151 http://blog.numino.net/ $[SysUtils.pas 2a0KgS http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 Oi5CLV http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 d6f9Xa http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 90ufW9 http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); 2xD2u1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j99byP http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; 0SjNb2 http://blog.numino.net/ $[SysUtils.pas HF46co http://blog.numino.net/ 功能 返回下一个字符的位置 56QsP9 http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 cdQTZk http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 6GaUN1 http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); 5GfeOU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kp01Ba http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; 6CMc7w http://blog.numino.net/ $[SysUtils.pas ZqpVYr http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 E2cpOm http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True H5yLiP http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType 3607lM http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); ar5aLo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ip9XAr http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): 4snLd3 http://blog.numino.net/ Boolean; $[SysUtils.pas jhaLNu http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters T42U57 http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 79eUId http://blog.numino.net/ 参考 function SysUtils.ByteType cJkEV7 http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, 5UwhuO http://blog.numino.net/ SpinEdit1.Value); vz01Pd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p8Sq2B http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; 2NEYF4 http://blog.numino.net/ $[SysUtils.pas DWDk8E http://blog.numino.net/ 功能 返回包括最后路径分隔符 aWCU01 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 Mb8D54 http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length wAFt5Q http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 55eQdG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fpqTvc http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; Hh1Y80 http://blog.numino.net/ $[SysUtils.pas VB7OR6 http://blog.numino.net/ 功能 返回包括最后斜线 KhNT9h http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 3pGlsB http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter 6UofNq http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); A2t79Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x1SMmR http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; xCR9BK http://blog.numino.net/ $[SysUtils.pas PHTxO8 http://blog.numino.net/ 功能 返回排除最后路径分隔符 Rn4YQ6 http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 pXSx2x http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function ueQyAE http://blog.numino.net/ System.SetLength T2ZYGd http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); SS5XrY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 63M6zg http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; tuH0uL http://blog.numino.net/ $[SysUtils.pas PrnwdR http://blog.numino.net/ 功能 返回排除最后斜线 cTCHP0 http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) iVgVtL http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter Xpxk25 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); 7a9fed http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SchNNl http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; 36LlKz http://blog.numino.net/ $[SysUtils.pas t8FryD http://blog.numino.net/ 功能 返回最后一个分隔符的位置 dRe8S7 http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 mbPhwd http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType 407588 http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); 69iA9Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gMu9YG http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; 0Y3MYl http://blog.numino.net/ $[SysUtils.pas Sbztd9 http://blog.numino.net/ 功能 返回比较两个文件名 mqFQ68 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 hdavH8 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr ml0DBQ http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); HHIk8i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1Xuae1 http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas iEH8jP http://blog.numino.net/ 功能 返回两个文件名是否相等 32kDoA http://blog.numino.net/ 说明 区分大小写 QkSJ98 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName dbXmyl http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); rLjoTy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i0M2q0 http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas oxeMKU http://blog.numino.net/ 功能 返回小写文件名 3IXQQC http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase 2jh5sQ http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase 6vo08l http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); V1b7eW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8XpgcG http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas E65A0L http://blog.numino.net/ 功能 返回大写文件名 64vLKn http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase LMlsWN http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase 3RPMA4 http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); rEQwZS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rcgFhW http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas eU98fS http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 7P7x9w http://blog.numino.net/ 说明 不存在则返回0 xhrCiE http://blog.numino.net/ 参考 SysUtils.AnsiStrPos gk5u9J http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); ztLU62 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0Iv9sn http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas xD6uYZ http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 e81m14 http://blog.numino.net/ 说明 不存在则返回nil M64qJA http://blog.numino.net/ 参考 function SysUtils.StrByteType 8dqUvX http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); Glhp5n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ krWyV2 http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 21SWNs http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 UIvzkh http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' f8CiwK http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan NxlSvM http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); sfMQkn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w5gYe9 http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas h4djE3 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 CohfH4 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' NUT6Fu http://blog.numino.net/ 参考 function SysUtils.StrScan XbLiTf http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); SDcndd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y3s7Y6 http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: p8LyOV http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas Yjb078 http://blog.numino.net/ 功能 返回替换后的字符串 Jt4M3t http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 lteOGz http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function aPoUMg http://blog.numino.net/ System.Copy 9gq3Vu http://blog.numino.net/ 例子 8E3xgC http://blog.numino.net/ ///////Begin StringReplace 3bpX1A http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); NW4JR9 http://blog.numino.net/ begin h16DmO http://blog.numino.net/ Memo1.Lines.Values['[]'] := q6vPcF http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); rS0p7c http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := Tp2kFN http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); W6F4NJ http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := 4SBQJk http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); 1ApT6r http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := XLLwnT http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, pgmuKP http://blog.numino.net/ rfIgnoreCase]); AqYnio http://blog.numino.net/ end; N4VQ4s http://blog.numino.net/ ///////End StringReplace S7O5sX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3T3bo3 http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas Fj892u http://blog.numino.net/ 功能 返回字符串S转换成全局标识 P8GhPh http://blog.numino.net/ 说明 如果字符串非法将触发异常 PAsMeF http://blog.numino.net/ 参考 fuction Windows.Succeeded 9IZkD0 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); C9Y495 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3y0yq9 http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas tp4W14 http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 Hvzkgn http://blog.numino.net/ 说明 <NULL> Ole45x http://blog.numino.net/ 参考 fuction Windows.Succeeded Sok65N http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 7n4z5S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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