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

Delphi字符串函数大全 【字符串函数大全】 T1M96k http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; z60E68 http://blog.numino.net/ $[StrUtils.pas iSvfGt http://blog.numino.net/ 功能 返回两个字符串是否相似 bIgGz7 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 PnLz1T http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 7clE1j http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 7C9i1j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V94919 http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; kcYssg http://blog.numino.net/ $[StrUtils.pas mtGsyB http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText iyCySl http://blog.numino.net/ 说明 不区分大小写 rCIkkz http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos IWIWUI http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); QzyY4o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oHWfn3 http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; JMqqQj http://blog.numino.net/ $[StrUtils.pas vVkePu http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 avul6T http://blog.numino.net/ 说明 不区分大小写 SlyPJS http://blog.numino.net/ 参考 function Windows.CompareString JuYY2M http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); dK6kwt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2a58o3 http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 8K8ANp http://blog.numino.net/ $[StrUtils.pas frURoB http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 665BuN http://blog.numino.net/ 说明 不区分大小写 9wzoKw http://blog.numino.net/ 参考 function Windows.CompareString WWMu00 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); He5YRG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mMgPa7 http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): JjxX53 http://blog.numino.net/ string; $[StrUtils.pas 8K9yPK http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 4S6YMD http://blog.numino.net/ 说明 不区分大小写 QzP9m4 http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags KKN0av http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); aMPpUJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yKDiC1 http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of j299Db http://blog.numino.net/ string): Boolean; $[StrUtils.pas p26KPc http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText C7Njbf http://blog.numino.net/ 说明 不区分大小写 YnrMQ5 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText X55or6 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', nM063P http://blog.numino.net/ 'a4']); OSogtR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sQ8w4i http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of vZL3jA http://blog.numino.net/ string): Integer; $[StrUtils.pas TiVs7C http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 F5Nji4 http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 1K238u http://blog.numino.net/ 参考 function SysUtils.AnsiSameText BQ0ibL http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); WfLCmY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J5DP0i http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 7iL9K4 http://blog.numino.net/ $[StrUtils.pas dm5Dq1 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText A8RDXw http://blog.numino.net/ 说明 区分大小写 7d1utk http://blog.numino.net/ 参考 function StrUtils.AnsiPos EUvg1Y http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); v59b6N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0M2clw http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; T4jmyq http://blog.numino.net/ $[StrUtils.pas NGn7HI http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 GEBTob http://blog.numino.net/ 说明 区分大小写 KD3AUq http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr vz7god http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); kZvQsm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZP6km1 http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; JGOmG6 http://blog.numino.net/ $[StrUtils.pas 1358aq http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 q523Be http://blog.numino.net/ 说明 区分大小写 vef1ek http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 8TP4xX http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 3PDu6s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k3TGf4 http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): 4xQC16 http://blog.numino.net/ string; $[StrUtils.pas K7p0qz http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 rr5iFw http://blog.numino.net/ 说明 区分大小写 OCl2Ei http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags p5cRcC http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); RtCN45 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0gKDLv http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of xEeRO6 http://blog.numino.net/ string): Boolean; $[StrUtils.pas Qy1nsq http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText fXNkA7 http://blog.numino.net/ 说明 区分大小写 U35Sy3 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr zLPQ1d http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', tSaImb http://blog.numino.net/ 'a4']); oE42Ci http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3zV2w7 http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of f0ppUR http://blog.numino.net/ string): Integer; $[StrUtils.pas dRu78v http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 rZTTLX http://blog.numino.net/ 说明 区分大小写 J35p0t http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr PtwWAp http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); It573E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0L1cch http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; dzldj1 http://blog.numino.net/ $[StrUtils.pas QL6KJA http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 elZjQU http://blog.numino.net/ 说明 当ACount为0时返回'' I3VClx http://blog.numino.net/ 参考 function System.SetLength toUuGp http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); CNvJqn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t5992w http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas kiDWVH http://blog.numino.net/ 功能 返回字符串AText的反序 62fn0z http://blog.numino.net/ 说明 ReverseString('1234') = '4321' w9BUhL http://blog.numino.net/ 参考 function System.SetLength 9hz4Zt http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); bIzgF9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tcK4rH http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; LG8NBO http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas 8kNWn4 http://blog.numino.net/ 功能 返回嵌套字符串 8JHE2r http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' okEG5L http://blog.numino.net/ 参考 function System.Copy 09gDwH http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, rXD5pB http://blog.numino.net/ Edit2.Text); la17Yz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t2CHf7 http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; 4clD61 http://blog.numino.net/ $[StrUtils.pas ey0PrD http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 BbY6tZ http://blog.numino.net/ 说明 之前建议执行Randomize j6jqTe http://blog.numino.net/ 参考 function System.Random 6QaLoR http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); wW1R4U http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 33nYsb http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = q9bho4 http://blog.numino.net/ ''): string; overload; $[StrUtils.pas 1tvKV4 http://blog.numino.net/ 功能 返回指定的逻辑字符串 3nTce0 http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' xTD8OL http://blog.numino.net/ 参考 <NULL> 00G01q http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); QBtE4Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UbsdYD http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; z3CCUc http://blog.numino.net/ $[StrUtils.pas t2b2p1 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 H1TiYX http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' dOu6aL http://blog.numino.net/ 参考 function System.Copy D4Dc5q http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); ogN301 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ orf00f http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; 27yPrC http://blog.numino.net/ $[StrUtils.pas 9PtE01 http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 4Ict29 http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' LE4IRg http://blog.numino.net/ 参考 function System.Copy 5O84AY http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); 1BvCuT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9XGHGg http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): t7mcVI http://blog.numino.net/ string; $[StrUtils.pas U3pKh6 http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 fd3Wpd http://blog.numino.net/ 说明 其实就是Copy tOikg0 http://blog.numino.net/ 参考 function System.Copy 9kgQUm http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 2nkcd4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5cRKN7 http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: MUR0lX http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): saG3w9 http://blog.numino.net/ PChar; $[StrUtils.pas 6iP6zo http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 4Cs1Qu http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 rXm5m0 http://blog.numino.net/ 参考 <NULL> QIf49r http://blog.numino.net/ 例子 6TLSGG http://blog.numino.net/ ///////Begin SearchBuf BCwjvt http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; nmz2ax http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; WSHZ1x http://blog.numino.net/ var vy5pk4 http://blog.numino.net/ Buffer, P: PChar; PTnJ7u http://blog.numino.net/ Size: Word; Mqf8hZ http://blog.numino.net/ begin T2ZeY0 http://blog.numino.net/ Result := False; Hym96p http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; DVV641 http://blog.numino.net/ Size := EditControl.GetTextLen; B2zG9Z http://blog.numino.net/ if (Size = 0) then Exit; j4I26g http://blog.numino.net/ Buffer := StrAlloc(Size + 1); Od52Wl http://blog.numino.net/ try 0gVdWX http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); r9AV7j http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, E6Gib9 http://blog.numino.net/ SearchString, SearchOptions); H0uiaz http://blog.numino.net/ if P <> nil then begin 94f151 http://blog.numino.net/ EditControl.SelStart := P - Buffer; Os6gq9 http://blog.numino.net/ EditControl.SelLength := Length(SearchString); epRkqH http://blog.numino.net/ Result := True; 1DPa85 http://blog.numino.net/ end; wEowX3 http://blog.numino.net/ finally t2VNqM http://blog.numino.net/ StrDispose(Buffer); A6SzR3 http://blog.numino.net/ end; b5lwj7 http://blog.numino.net/ end; WIjyhk http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 545ysX http://blog.numino.net/ var nrZBy9 http://blog.numino.net/ SearchOptions: TStringSearchOptions; WP1AhU http://blog.numino.net/ begin qb6cLl http://blog.numino.net/ SearchOptions := []; SBW0od http://blog.numino.net/ if CheckBox1.Checked then T2xl1g http://blog.numino.net/ Include(SearchOptions, soDown); Cf6ML1 http://blog.numino.net/ if CheckBox2.Checked then R6YbfS http://blog.numino.net/ Include(SearchOptions, soMatchCase); B5JWtD http://blog.numino.net/ if CheckBox3.Checked then j036ru http://blog.numino.net/ Include(SearchOptions, soWholeWord); z8GeOs http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 03JA61 http://blog.numino.net/ Memo1.SetFocus; mSkAAl http://blog.numino.net/ end; 5VOPTJ http://blog.numino.net/ ///////End SearchBuf Vt7bDJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uV3d4e http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): k2S3m0 http://blog.numino.net/ string; $[StrUtils.pas y1oLeB http://blog.numino.net/ 功能 返回探测字符串 5w4R6m http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html SGycIV http://blog.numino.net/ 参考 <NULL> OM0v1R http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 74Pitw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q8lxHK http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = o8otgq http://blog.numino.net/ 4): Integer; $[StrUtils.pas 35ULvS http://blog.numino.net/ 功能 返回探测整数 UGqEXj http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 wq35ms http://blog.numino.net/ 参考 <NULL> pypzZ6 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); AMjRUw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k0quMh http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas i44ROb http://blog.numino.net/ 功能 返回探测整数的解码 8vO713 http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') q5af5D http://blog.numino.net/ 参考 <NULL> RH2UG0 http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); YmJA2v http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jJUxyu http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas k4Tkjn http://blog.numino.net/ 功能 返回探测文字数值 YyakX8 http://blog.numino.net/ 说明 没有参数ALength已经固定为4 SA3FrB http://blog.numino.net/ 参考 <NULL> IZeIVn http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); T61k2n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6cnZvt http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas 64HLwW http://blog.numino.net/ 功能 返回探测文字数值的解码 t0cSCK http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') h88yT8 http://blog.numino.net/ 参考 <NULL> eFORLG http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 9Aq4tf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8Uxupr http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: Z7LnIr http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas EnIe1m http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 3v68ql http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) Og7AOd http://blog.numino.net/ 参考 <NULL> I9bXmT http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 5Pk595 http://blog.numino.net/ SpinEdit1.Value); sz9pZk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P7MTw8 http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: 8TlCmy http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas U8t4l9 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 C85bBq http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, vryQjn http://blog.numino.net/ ALength)) pAJ935 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 9p5iUR http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, sv8o56 http://blog.numino.net/ SpinEdit1.Value); WAcZxl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QW93Xq http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; l63gKH http://blog.numino.net/ $[StrUtils.pas YbGGRA http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 XIEN37 http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 VYB2xF http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText DtVU6u http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] tuXm0T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T7yU01 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas X1oN95 http://blog.numino.net/ 功能 返回一个新的字符串指针地址 Z7mb0W http://blog.numino.net/ 说明 字符串S为空时返回NullStr mJ4Tk4 http://blog.numino.net/ 参考 procedure System.New DBf2H1 http://blog.numino.net/ 例子 L2R1FX http://blog.numino.net/ ////////Begin NewStr,DisposeStr 1srQ10 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0u9cl8 http://blog.numino.net/ var 6vhXJH http://blog.numino.net/ P: PString; BM8CgZ http://blog.numino.net/ begin oTC9P0 http://blog.numino.net/ P := NewStr(Edit1.Text); uEbeIY http://blog.numino.net/ Edit2.Text := P^; m7Gmj5 http://blog.numino.net/ DisposeStr(P); V71v1f http://blog.numino.net/ end; B2186A http://blog.numino.net/ ////////End NewStr,DisposeStr gulm28 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HQFVgW http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas D1Opi1 http://blog.numino.net/ 功能 释放字符串指针P资源 72sfw8 http://blog.numino.net/ 说明 配合函数NewStr使用 18kew1 http://blog.numino.net/ 参考 procedure System.Dispose 503rrm http://blog.numino.net/ 例子 <如上参见,如下参见> Db19N2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9RE40X http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; IIb58L http://blog.numino.net/ $[SysUtils.pas C2fYNG http://blog.numino.net/ 功能 将字符串S更新给字符串指针P 8tiIhc http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 6eZc9G http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr o9V79W http://blog.numino.net/ 例子 GObxQQ http://blog.numino.net/ ////////Begin AssignStr s6iPLW http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wt8oaH http://blog.numino.net/ var Fx5WVT http://blog.numino.net/ P: PString; MjnC9p http://blog.numino.net/ begin MiFDIZ http://blog.numino.net/ P := nil; F4efx1 http://blog.numino.net/ AssignStr(P, Edit1.Text); 82Lq8C http://blog.numino.net/ Edit2.Text := P^; s3haw3 http://blog.numino.net/ DisposeStr(P); G379Qz http://blog.numino.net/ end; v4AXyI http://blog.numino.net/ ////////End AssignStr 5ZwVJu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0n3M7Z http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; 6tNqYj http://blog.numino.net/ $[SysUtils.pas Hj10z5 http://blog.numino.net/ 功能 在字符串Dest后追加字符串S fZfNu9 http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 cYgZJ9 http://blog.numino.net/ 参考 <NULL> 7x8pIu http://blog.numino.net/ 例子 q59B8Q http://blog.numino.net/ ////////Begin AppendStr IjqeKk http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 2eEyHQ http://blog.numino.net/ var oXsMSy http://blog.numino.net/ S: string; cGs828 http://blog.numino.net/ begin X0R6H6 http://blog.numino.net/ S := Edit2.Text; meCZBa http://blog.numino.net/ AppendStr(S, Edit1.Text); 9y6d4L http://blog.numino.net/ Edit2.Text := S; 30XGJ0 http://blog.numino.net/ end; sbvug2 http://blog.numino.net/ ////////End AppendStr wPwx61 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0lz8iE http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas 6uVV2g http://blog.numino.net/ 功能 返回字符串S的大写形式 VzCCc5 http://blog.numino.net/ 说明 非小写字符不处理 zhZoxy http://blog.numino.net/ 参考 procedure System.SetLength oz0FUD http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); 0dDD4n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SZ2sOT http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas h66Y5u http://blog.numino.net/ 功能 返回字符串S的小写形式 6p2rdW http://blog.numino.net/ 说明 非大写字符不处理 UAXh3U http://blog.numino.net/ 参考 procedure System.SetLength OCoNtu http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); IER7H8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tPf6JJ http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas sv1kTt http://blog.numino.net/ 功能 返回比较两个字符 40A5i4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 ZDB2u1 http://blog.numino.net/ 参考 <NULL> v97KJA http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); T4a1TC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7XNP8z http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; jf2kQD http://blog.numino.net/ assembler; $[SysUtils.pas EjSZWn http://blog.numino.net/ 功能 返回比较两个内存指针 gx18u8 http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), 7D3qXX http://blog.numino.net/ PChar('12c'), 3)=False OT0tvK http://blog.numino.net/ 参考 <NULL> Y8wcXO http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 2dDTYU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 36Fxw9 http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 3yQ3fl http://blog.numino.net/ 功能 返回比较两个字符串 izpY12 http://blog.numino.net/ 说明 不区分大小写 o5vvOJ http://blog.numino.net/ 参考 <NULL> fXN1jI http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); UjqT4D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m1F331 http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 6zqw63 http://blog.numino.net/ 功能 返回两个字符串是否相等 zQF8jS http://blog.numino.net/ 说明 不区分大小写 3zA4Tx http://blog.numino.net/ 参考 <NULL> 4ufeS7 http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); KdAX1e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d5nB2Q http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas ulqvK0 http://blog.numino.net/ 功能 返回字符串S的大写形式 s2b68C http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 VL84uF http://blog.numino.net/ 参考 function Windows.CharUpperBuff BTFx3F http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); gldwUU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VZa6Ih http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas EWDymM http://blog.numino.net/ 功能 返回字符串S的小写形式 10V8w0 http://blog.numino.net/ 说明 非大写字符不处理 sXW6Mx http://blog.numino.net/ 参考 function Windows.CharLowerBuff PPnIea http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); n1r0r6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 90n0XM http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 1h7omX http://blog.numino.net/ 功能 反回比较两个字符串 8q0f4k http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 8hGvfa http://blog.numino.net/ 参考 function Windows.CompareString 0hfpwo http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); MdY9ts http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8R9lwl http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas ytLave http://blog.numino.net/ 功能 返回两个字符串是否相等 HNN3LH http://blog.numino.net/ 说明 区分大小写 2AxYHP http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr kIl38U http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); 0Yv45Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 318j3C http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas EjXpVs http://blog.numino.net/ 功能 反回比较两个字符串 yy1vkK http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 5WJoIb http://blog.numino.net/ 参考 function Windows.CompareString Qw04A2 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); kmdCKn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 89HNW5 http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas R58zxq http://blog.numino.net/ 功能 返回两个字符串是否相等 Ewsrqq http://blog.numino.net/ 说明 不区分大小写 KNFsE8 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText m5N2ex http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); wyiUSf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tQ1xoS http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas f2cpY8 http://blog.numino.net/ 功能 返回比较两个指针字符串 v25XJc http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 Uy2o68 http://blog.numino.net/ 参考 function System.CompareString e7Yk18 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) SnH6hm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8q87s6 http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas kNGrjf http://blog.numino.net/ 功能 返回比较两个指针字符串 KWgc9G http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 0S77K0 http://blog.numino.net/ 参考 function Windows.CompareString 6o8O0s http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) XAWSBk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ emm98v http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; r0BvZl http://blog.numino.net/ $[SysUtils.pas tVUGsx http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 bbal4V http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) j9309i http://blog.numino.net/ 参考 function Windows.CompareString TG0G50 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 2f4IBn http://blog.numino.net/ SpinEdit2.Value) 04gmlP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5ce96C http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 774viQ http://blog.numino.net/ $[SysUtils.pas jBSdgd http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 Mp0Bo6 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 uoYX4Y http://blog.numino.net/ 参考 function Windows.CompareString 4K5U0t http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), tu05za http://blog.numino.net/ SpinEdit2.Value) W92YjC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ erKjA3 http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas w9XCwK http://blog.numino.net/ 功能 返回指针字符串小写形式 CRjh9h http://blog.numino.net/ 说明 非大写字符不处理 mTjYjg http://blog.numino.net/ 参考 function Windows.CharLower F37tzp http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); XH35yb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3nPwNG http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 78nD4c http://blog.numino.net/ 功能 返回指针字符串大写形式 HcG64J http://blog.numino.net/ 说明 非小写字符不处理 4Tfv0n http://blog.numino.net/ 参考 function Windows.CharUpper 3IdqS7 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); 1zwkif http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 715Kh9 http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas c5K972 http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 r7k790 http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 fg8d4R http://blog.numino.net/ 参考 function SysUtils.ByteType k0U88c http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); zhB99A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ g3FAgM http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas kfXP7E http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 a8EAq8 http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 8FRS1v http://blog.numino.net/ 参考 function SysUtils.ByteType pU540l http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 7ijugF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jtcn2N http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 3ExKhM http://blog.numino.net/ 功能 返回双字节字符串的大写形式 Ev21J0 http://blog.numino.net/ 说明 WideChar双字节字符 YNVEpm http://blog.numino.net/ 参考 function Windows.CharUpperBuffW eJ24H1 http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); T9nKS2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pHzR63 http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas gW8ojt http://blog.numino.net/ 功能 返回双字节字符串的小写形式 CfAc6M http://blog.numino.net/ 说明 我怎么就测试不出来呢 oHxEDP http://blog.numino.net/ 参考 function Windows.CharLowerBuffW xarZ0y http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); 9175t5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3FcwnO http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; FuauBd http://blog.numino.net/ $[SysUtils.pas e24ZUS http://blog.numino.net/ 功能 返回比较两个双字节字符串 9qfj4k http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 ye3eqt http://blog.numino.net/ 参考 function Windows.CompareStringW 8dfMxK http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); wk3bDY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wl5ynk http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas YdlavD http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 6V9nu2 http://blog.numino.net/ 说明 区分大小写 H0YL0y http://blog.numino.net/ 参考 function SysUtils.WideCompareStr W7A8hy http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); zwE9rY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5bc46H http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; 0gH4UY http://blog.numino.net/ $[SysUtils.pas lVShxg http://blog.numino.net/ 功能 返回比较两个双字节字符串 c1l61L http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 65P3nl http://blog.numino.net/ 参考 function Windows.CompareStringW G63iUz http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); v7URd4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FrMzl5 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 59N3tQ http://blog.numino.net/ $[SysUtils.pas J6p0PX http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 pNn5Z5 http://blog.numino.net/ 说明 不区分大小写 Gvuiik http://blog.numino.net/ 参考 function SysUtils.WideCompareText 5nDUR7 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); 0965KW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i916Vt http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas TjTa3i http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; 2T4lfM http://blog.numino.net/ $[SysUtils.pas R72Usf http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 MI9HRB http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 f5Ba35 http://blog.numino.net/ 参考 function System.Copy Y77Nt0 http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); IpBwCy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ smBEZK http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas qjXBO2 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; cMvPzc http://blog.numino.net/ $[SysUtils.pas d45n3T http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 355B5J http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 E41Pl7 http://blog.numino.net/ 参考 function System.Copy 4zEl31 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); T61ha7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tC1yyz http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas vNN7gN http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; 5K3KSo http://blog.numino.net/ $[SysUtils.pas vbx9o8 http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 DpLX7Y http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 X566bG http://blog.numino.net/ 参考 function System.Copy 0V3Yot http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); X6jbI0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ExEbLZ http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 0dSZc5 http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 1kbQ81 http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 cwcJ5S http://blog.numino.net/ 参考 procedure System.Insert 6OCzDc http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); uxuFbK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JQlDr1 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; DsBkcS http://blog.numino.net/ $[SysUtils.pas 5B86Hq http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 QULWpi http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', 1E2Aj8 http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' HcSFLQ http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 4zlPow http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); EFm292 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2cXO1A http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; z5jgih http://blog.numino.net/ $[SysUtils.pas BBMx1H http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 DJBa81 http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 LDC128 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan wT9pWt http://blog.numino.net/ 例子 YG247S http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr JT844a http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 4WXkaT http://blog.numino.net/ var RVEiFX http://blog.numino.net/ P: PChar; aJq7H7 http://blog.numino.net/ begin VXczgF http://blog.numino.net/ P := PChar(Edit1.Text); d530A0 http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); M3M4Tu http://blog.numino.net/ Edit3.Text := P; 5AHOaC http://blog.numino.net/ end; o1R5zW http://blog.numino.net/ ///////End AnsiExtractQuotedStr AQq0v0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZqoAa4 http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; SeIU8F http://blog.numino.net/ $[SysUtils.pas Us53c4 http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 oPRZCp http://blog.numino.net/ 说明 表现形式非法时则返回S 6qjuIP http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr DA6ZZB http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); nQp37f http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cJBRH3 http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = CBhIsL http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): tq9F0C http://blog.numino.net/ string; $[SysUtils.pas IRTK3g http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 1HFPUa http://blog.numino.net/ 说明 4vzl0y 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 qzIUkh http://blog.numino.net/ 参考 function SysUtils.StrNextChar mTpu2J http://blog.numino.net/ 例子 <NULL> 5XAIoA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OK29Jj http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas djkO50 http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 9A24F3 http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... 26L9Mo http://blog.numino.net/ 参考 <NULL> jyAg42 http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); EOPeOR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LnD515 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas l7IiTO http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas SvmmnR http://blog.numino.net/ 功能 返回整数Value转换成字符串 IfB2DE http://blog.numino.net/ 说明 Format('%d', [Value]) r99XlY http://blog.numino.net/ 参考 function SysUtils.FmtStr M7nba3 http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 1K7QwU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ blSvaT http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; Ge0cGo http://blog.numino.net/ $[SysUtils.pas 8u5xU6 http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; 999efl http://blog.numino.net/ $[SysUtils.pas BFv29U http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 1QE1R4 http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 80qCc6 http://blog.numino.net/ 参考 function SysUtils.FmtStr v1xqNZ http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 69sT6s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PIAWor http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas y65wt2 http://blog.numino.net/ 功能 返回字符串S转换成整数 U9eMrz http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 2ujY1X http://blog.numino.net/ 参考 procedure System.Val 02R7Ir http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); mtuthm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4tvzz9 http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; 0jUZkB http://blog.numino.net/ $[SysUtils.pas Qn58qL http://blog.numino.net/ 功能 返回字符串S转换成整数 Oqq1ta http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default T6z40C http://blog.numino.net/ 参考 procedure System.Val E6Ekud http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); WZm68H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GWIb7L http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; Z09qdW http://blog.numino.net/ $[SysUtils.pas 0EPtk0 http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 MxoiHY http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 jQ5s5u http://blog.numino.net/ 参考 procedure System.Val X3GeXA http://blog.numino.net/ 例子 17R1kM http://blog.numino.net/ ///////Begin TryStrToInt Dsg0s6 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); LdMP92 http://blog.numino.net/ var BL068g http://blog.numino.net/ I: Integer; wUgR6Y http://blog.numino.net/ begin tb0BRj http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); AMLUcD http://blog.numino.net/ SpinEdit1.Value := I; a0JLj7 http://blog.numino.net/ end; BfaP62 http://blog.numino.net/ ///////End TryStrToInt yXr2e0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v6VCP8 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas 7gW3BF http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 4HLzPt http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 Moi9q2 http://blog.numino.net/ 参考 procedure System.Val v8a38N http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 7oqKy9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ IBmdE7 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 706NY0 http://blog.numino.net/ $[SysUtils.pas vfF1S3 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 ZsquxQ http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default D6lOSm http://blog.numino.net/ 参考 procedure System.Val xaSW2C http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); 0pqr3Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ntxpMZ http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; T4F9nh http://blog.numino.net/ $[SysUtils.pas mYgnQY http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 yF9EOb http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 Ik8g5P http://blog.numino.net/ 参考 procedure System.Val 745DVQ http://blog.numino.net/ 例子 fsW13u http://blog.numino.net/ ///////Begin TryStrToInt64 ApBEa3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); pgATs3 http://blog.numino.net/ var W4ZV8J http://blog.numino.net/ I: Int64; qed4J4 http://blog.numino.net/ begin tVKyr8 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); 5iJBr9 http://blog.numino.net/ SpinEdit1.Value := I; UM2Vu4 http://blog.numino.net/ end; e3Nd9X http://blog.numino.net/ ///////End TryStrToInt64 DukV5m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FSUjD9 http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas yV6Plx http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 mi8x8c http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 n9IFON http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 0Cd76E http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); VurQP8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b7Sujw http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): 5x874A http://blog.numino.net/ Boolean; $[SysUtils.pas Idoa18 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 S5RUEX http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default 4dL4Qs http://blog.numino.net/ 参考 function SysUtils.TryStrToBool gVXyR9 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); jIOzsR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3PJcf1 http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; z5JFSn http://blog.numino.net/ $[SysUtils.pas 011fXa http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 paDuHf http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 4lEjI5 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var 386Fb6 http://blog.numino.net/ SysUtils.FalseBoolStrs 3zlL6G http://blog.numino.net/ 例子 C6Gl6Y http://blog.numino.net/ ///////Begin TryStrToBool fc80wH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); i2nkN7 http://blog.numino.net/ var 7vO72k http://blog.numino.net/ B: Boolean; bLIoxN http://blog.numino.net/ begin Li16BX http://blog.numino.net/ SetLength(TrueBoolStrs, 2); jqlWXK http://blog.numino.net/ SetLength(FalseBoolStrs, 2); 41H3mK http://blog.numino.net/ TrueBoolStrs[0] := 'True'; MLEIj8 http://blog.numino.net/ FalseBoolStrs[0] := 'False'; WE0dAn http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; m4Qdq1 http://blog.numino.net/ FalseBoolStrs[1] := 'No'; rhDdco http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); IQE09Y http://blog.numino.net/ CheckBox2.Checked := B; GW601m http://blog.numino.net/ end; qgQ2Ck http://blog.numino.net/ ///////End TryStrToBool OpPpTE http://blog.numino.net/ 附加 0sx44Y http://blog.numino.net/ ///////Begin TryStrToBool XtYMbQ http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; 94Wlwx http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; FFg5hr http://blog.numino.net/ var rNBXj3 http://blog.numino.net/ I: Integer; N4y9yG http://blog.numino.net/ begin u4I33u http://blog.numino.net/ Result := False; LWzpFe http://blog.numino.net/ for I := Low(aArray) to High(aArray) do hRb3HR http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then mKCrqy http://blog.numino.net/ begin rHs7tJ http://blog.numino.net/ Result := True; IrSmXx http://blog.numino.net/ Break; rMXNPG http://blog.numino.net/ end; iyGGMa http://blog.numino.net/ end; 35bmq5 http://blog.numino.net/ var dD7hG5 http://blog.numino.net/ LResult: Extended; 3ONQ4u http://blog.numino.net/ begin x5v9GS http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 0m1v0V http://blog.numino.net/ if Result then eKOXWH http://blog.numino.net/ Value := LResult <> 0 WFhLEC http://blog.numino.net/ else opxSnL http://blog.numino.net/ begin 3lFe6T http://blog.numino.net/ Result := True; //修正处 jNLkE8 http://blog.numino.net/ VerifyBoolStrArray; W9qO1S http://blog.numino.net/ if CompareWith(TrueBoolStrs) then lJBz1u http://blog.numino.net/ Value := True iRn0n5 http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then YCjC5F http://blog.numino.net/ Value := False B85b0y http://blog.numino.net/ else c1FL52 http://blog.numino.net/ Result := False; onClT7 http://blog.numino.net/ end; OQtZvR http://blog.numino.net/ end; 1PvKR9 http://blog.numino.net/ ///////End TryStrToBool 0TG2y1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oT143R http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; S86iW3 http://blog.numino.net/ $[SysUtils.pas d6zQVS http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 7L9kFM http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' DJ7F35 http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs CLT3BJ http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); f1cl56 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lYRJR2 http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 59NB95 http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 T99658 http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 8P8zRk http://blog.numino.net/ 参考 function SysUtils.FindStringResource 3yPx2o http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); zfkWF7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mXtv48 http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): hI96lj http://blog.numino.net/ string; $[SysUtils.pas hoZ69g http://blog.numino.net/ 功能 返回格式化的字符串资源 29rVfe http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 9mGkkI http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource N29F7t http://blog.numino.net/ 例子 <NULL>; 306O6W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Uz1iNT http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 5pTNXG http://blog.numino.net/ 功能 返回指针字符串的长度 04u8m4 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 po39X8 http://blog.numino.net/ 参考 <NULL> 4LkIDt http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 2d2DOv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UZOvt7 http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas jVVq3G http://blog.numino.net/ 功能 返回指针字符串的结尾 0y7X7R http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 9oYi29 http://blog.numino.net/ 参考 <NULL> A9YFDS http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; c5p3Or http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wdjB95 http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): 4rfuO3 http://blog.numino.net/ PChar; $[SysUtils.pas QxkueY http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 c84W1s http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s at7E0f http://blog.numino.net/ 参考 function System.Move e2UB4a http://blog.numino.net/ 例子 6LhR1e http://blog.numino.net/ ///////Begin StrMove 9ToSzx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 00779p http://blog.numino.net/ var gSud4Z http://blog.numino.net/ vBuffer: PChar; tB41MV http://blog.numino.net/ begin UPhtWE http://blog.numino.net/ vBuffer := '0123456789'; UyEyFJ http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); qOMApz http://blog.numino.net/ Edit2.Text := vBuffer; Az99rd http://blog.numino.net/ end; ko2XP3 http://blog.numino.net/ ///////End StrMove j0oNS3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zwdkeR http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; 2201oa http://blog.numino.net/ $[SysUtils.pas I34DbF http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 XRCzGn http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 0335h7 http://blog.numino.net/ 参考 <NULL> 2qC7Le http://blog.numino.net/ 例子 a6BnY9 http://blog.numino.net/ ///////Begin StrCopy 1gm5Uc http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); R3z41g http://blog.numino.net/ var giy76E http://blog.numino.net/ vBuffer: PChar; g998Q6 http://blog.numino.net/ begin vyZDib http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); 99EpQd http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); n92qB4 http://blog.numino.net/ Edit2.Text := vBuffer; 68wrzE http://blog.numino.net/ FreeMem(vBuffer); q0SbFx http://blog.numino.net/ end; s4nO1E http://blog.numino.net/ ///////End StrCopy lij3ta http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tC1RIS http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; Ip9MG7 http://blog.numino.net/ $[SysUtils.pas FQ0wQ9 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 OsKSf2 http://blog.numino.net/ 说明 可以连接指针字符串 BRfzAz http://blog.numino.net/ 参考 <NULL> 7e56qh http://blog.numino.net/ 例子 qpheed http://blog.numino.net/ ///////Begin StrECopy 2HL0Bu http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5LZXQ2 http://blog.numino.net/ var YLSn0N http://blog.numino.net/ vBuffer: array[0..255] of Char; qLE31U http://blog.numino.net/ begin N5Yb24 http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); iijHVu http://blog.numino.net/ Edit3.Text := vBuffer; QT72Jc http://blog.numino.net/ end; 253B9U http://blog.numino.net/ ///////End StrECopy GU6r10 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L2D3A3 http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): O1pR4l http://blog.numino.net/ PChar; $[SysUtils.pas FIMjRD http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 60I6Qp http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 36x6Cg http://blog.numino.net/ 参考 <NULL> Su8K1U http://blog.numino.net/ 例子 m78iPx http://blog.numino.net/ ///////Begin StrLCopy Z3UGxH http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 48s94p http://blog.numino.net/ var kuYqc4 http://blog.numino.net/ vBuffer: array[0..255] of Char; wt90Qh http://blog.numino.net/ begin 3Oy31L http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); xrArsL http://blog.numino.net/ Edit2.Text := vBuffer; 173Ju7 http://blog.numino.net/ end; o63dY9 http://blog.numino.net/ ///////End StrLCopy im8G99 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WJ4E54 http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; 4S7Flr http://blog.numino.net/ $[SysUtils.pas bVF7nt http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 cKjDAb http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) D0W49B http://blog.numino.net/ 参考 function SysUtils.StrLCopy pbwzDk http://blog.numino.net/ 例子 7c7L5c http://blog.numino.net/ ///////Begin StrPCopy cOpjsj http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); e2qqt5 http://blog.numino.net/ var 0GHRkR http://blog.numino.net/ vBuffer: array[0..255] of Char; VJb7AB http://blog.numino.net/ begin nptkzM http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); 51UjC6 http://blog.numino.net/ Edit2.Text := vBuffer; pS0FtG http://blog.numino.net/ end; 8D19Zx http://blog.numino.net/ ///////End StrPCopy kgK6c2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7Gyx6i http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: jnDEbX http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas 1QgbH2 http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 4T8p3Q http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) pip9Ws http://blog.numino.net/ 参考 function SysUtils.StrLCopy tXEVfI http://blog.numino.net/ 例子 m6VG0q http://blog.numino.net/ ///////Begin StrPLCopy h8p9lk http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); QQHLQW http://blog.numino.net/ var zJfsVh http://blog.numino.net/ vBuffer: array[0..255] of Char; 76c30I http://blog.numino.net/ begin XW8Q22 http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); SnzBuT http://blog.numino.net/ Edit2.Text := vBuffer; n58BJa http://blog.numino.net/ end; l93FtB http://blog.numino.net/ ///////End StrPLCopy 0m8Fol http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9L5IA8 http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; lCMmwH http://blog.numino.net/ $[SysUtils.pas StcVmW http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source TncBa0 http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) k9Hite http://blog.numino.net/ 参考 function SysUntils.StrCopy 81Rm1h http://blog.numino.net/ 例子 bWsjZQ http://blog.numino.net/ ///////Begin StrCat McZ0Nb http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ZmQ6xT http://blog.numino.net/ var ORoU16 http://blog.numino.net/ vBuffer: array[0..255] of Char; Miy5Zo http://blog.numino.net/ begin hlsoKA http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); VI341l http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); tZP3VT http://blog.numino.net/ Edit3.Text := vBuffer; O10uGP http://blog.numino.net/ end; r0ZlUy http://blog.numino.net/ ///////End StrCat O5rM39 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kPrTON http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 1h14sS http://blog.numino.net/ PChar; $[SysUtils.pas 00Ek7N http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source z0Xd7n http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 3tPRZV http://blog.numino.net/ 参考 <NULL> Q0SQJO http://blog.numino.net/ 例子 fEmEg8 http://blog.numino.net/ ///////Begin StrLCat DH7kWJ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); GsMGQS http://blog.numino.net/ var atP0dq http://blog.numino.net/ vBuffer: array[0..255] of Char; x5G0hr http://blog.numino.net/ begin YSga89 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); MTApOz http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 84en61 http://blog.numino.net/ Edit3.Text := vBuffer; UDleJ5 http://blog.numino.net/ end; 8jT7kP http://blog.numino.net/ ///////End StrLCat 89EXF6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4Z9jJ4 http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas njKJkw http://blog.numino.net/ 功能 返回比较两个指针字符串 12QZ25 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 7IVo2I http://blog.numino.net/ 参考 <NULL> W6A3Kq http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); 2vL5pt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ STU9rv http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 35E279 http://blog.numino.net/ 功能 返回比较两个指针字符串 WWxHka http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 Rc2E4D http://blog.numino.net/ 参考 <NULL> 0u409b http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); V9dFGO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Jo9pqH http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; kI55Hh http://blog.numino.net/ $[SysUtils.pas 1zoY3n http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 qQdBF8 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 6FMnYz http://blog.numino.net/ 参考 <NULL> 6GHWUv http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), yJP74E http://blog.numino.net/ SpinEdit2.Value) N93aS4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZPG97G http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; H7KKtX http://blog.numino.net/ $[SysUtils.pas jI8nPw http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 ASetbo http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 qzO8LS http://blog.numino.net/ 参考 <NULL> chIc0Z http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 63x2b4 http://blog.numino.net/ SpinEdit2.Value) nw7QLC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O5579z http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas DOkEbb http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 sucn61 http://blog.numino.net/ 说明 没有找到则返回空指针 D9GKc2 http://blog.numino.net/ 参考 <NULL> h1jY99 http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); eKgIR1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 20b0eM http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas sI15Tn http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 6qOL3s http://blog.numino.net/ 说明 没有找到则返回空指针 17Y80Y http://blog.numino.net/ 参考 <NULL> 3sek74 http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); cgrlBi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8to5e8 http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas i4pQ2T http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 55Ks64 http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' nK7Uy0 http://blog.numino.net/ 参考 <NULL> hWKjqN http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); hWdjL8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FZCJ4i http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas s0uWOH http://blog.numino.net/ 功能 返回指针字符串Str大写 wW4LMx http://blog.numino.net/ 说明 非小写字符不处理 8BN4Ua http://blog.numino.net/ 参考 <NULL> zjn9U8 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); Y7671R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3xTaJO http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas RCy1hd http://blog.numino.net/ 功能 返回指针字符串Str小写 djZlLA http://blog.numino.net/ 说明 非大写字符不处理 3sXT2l http://blog.numino.net/ 参考 <NULL> Ez3rpf http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); G135ob http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LI5MPH http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas TY0nLn http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 X0n008 http://blog.numino.net/ 说明 也可以直接赋值 t19gMx http://blog.numino.net/ 参考 <NULL> s5yjN3 http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 1e0D21 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ h30Wra http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 9l5k3z http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 nr0p2e http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 cVH78q http://blog.numino.net/ 参考 function System.GetMem SG4a5T http://blog.numino.net/ 例子 9qH9iV http://blog.numino.net/ ///////Begin StrAlloc XI1t3l http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 229k2w http://blog.numino.net/ var 7T7pD4 http://blog.numino.net/ P: PChar; 27slvQ http://blog.numino.net/ begin 1V58k1 http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); z5Fi85 http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); RRY2SG http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); a93Ldt http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); u3Xbmo http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); yRf7i6 http://blog.numino.net/ StrDispose(P); 68EEq3 http://blog.numino.net/ end; NRVipC http://blog.numino.net/ ///////End StrAlloc 2QIsET http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3840dc http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas g6H8r2 http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 gwVzzM http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 24rjuR http://blog.numino.net/ 参考 function System.SizeOf btpH8c http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); kqfg2X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q7GzyJ http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas L1K16d http://blog.numino.net/ 功能 返回复制一个新的指针字符串 ENFnHB http://blog.numino.net/ 说明 如果Str为nil则返回nil GQAomT http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function Fa9voz http://blog.numino.net/ SysUtils.StrAlloc 3e417d http://blog.numino.net/ 例子 Dzt92B http://blog.numino.net/ ///////Begin StrNew,StrDispose hFJ38U http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); xczP9v http://blog.numino.net/ var 7Aevh5 http://blog.numino.net/ P: PChar; ccuvoW http://blog.numino.net/ begin nRyRzX http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); Dz2lkL http://blog.numino.net/ ShowMessage(P); 03D5eI http://blog.numino.net/ StrDispose(P); GLZRg1 http://blog.numino.net/ end; DwjA85 http://blog.numino.net/ ///////End StrNew,StrDispose 5ibIRg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 146KDD http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas lq3sEd http://blog.numino.net/ 功能 释放指针字符串Str内存资源 DtqTGx http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 39qlAv http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem Z5fASI http://blog.numino.net/ 例子 <参见StrNew> t29rhM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4FtyW7 http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): ewxU06 http://blog.numino.net/ string; $[SysUtils.pas fhDjD1 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 22pn9I http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 oBB4nA http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 0T5RQt http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 tYvzY7 http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 2g1kYx http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 bQecyJ http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 6h7HlX http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 KV9SFh http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 ELxL5o http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 KqmpJ0 http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 55gdep http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 OchS5j http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 XM53Bg http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" 81k1y7 http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 9FCDVe http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr YN2w3O http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); jk6Y00 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LlVc2I http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: XCbZaA http://blog.numino.net/ array of const); $[SysUtils.pas 7jZ1c6 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 38G2VJ http://blog.numino.net/ 说明 <参见Format> 9ebqrH http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function VcM6ol http://blog.numino.net/ System.SetLength FAYxnD http://blog.numino.net/ 例子 <参见Format> qFfbr3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7bzjcs http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): sAA4Ll http://blog.numino.net/ PChar; $[SysUtils.pas 7ea1Sl http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 Zz2Hvs http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil CIz4pC http://blog.numino.net/ 参考 function SysUtils.FormatBuf HUBNu1 http://blog.numino.net/ 例子 <参见Format> 325E9A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q00TfI http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; Nd4U8B http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas QQ5HBl http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 SAEVQf http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; i5dz29 http://blog.numino.net/ 参考 function SysUtils.FormatBuf 86r9gj http://blog.numino.net/ 例子 <参见Format> N9puu0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7ebTf2 http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: IsTetb http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas MeSyc1 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 1netrS http://blog.numino.net/ 说明 <NULL> 8e3vC9 http://blog.numino.net/ 参考 <NULL> MDhTHm http://blog.numino.net/ 例子 <参见Format> BR3gW2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ suq51y http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of TUKQf2 http://blog.numino.net/ const): WideString; $[SysUtils.pas 7PKHTn http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 Qw0K0g http://blog.numino.net/ 说明 <NULL> Lrikw3 http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr YrUvbb http://blog.numino.net/ 例子 <参见Format> pVhGL4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 96UnTX http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; 85hXFe http://blog.numino.net/ const Args: array of const); $[SysUtils.pas ib5kgT http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 444oDa http://blog.numino.net/ 说明 <NULL> tU36lc http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf IoVVBb http://blog.numino.net/ 例子 <参见Format> 8mjdlK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Mm6PEJ http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; 49iU3B http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 08Qncj http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 wiHZTn http://blog.numino.net/ 说明 <NULL> Z5VOIk http://blog.numino.net/ 参考 <NULL> 4qzigB http://blog.numino.net/ 例子 <参见Format> 5f94VC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gqIrJj http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas SxuYat http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 kmYTbD http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 KZsY1g http://blog.numino.net/ 参考 function SysUtils.FloatToText 0khvAi http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 8koaFm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ R4QVyi http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas 7AYM1c http://blog.numino.net/ 功能 返回货币数Value转换成字符串 9vdP97 http://blog.numino.net/ 说明 货币数只保留四位小数 PigtA8 http://blog.numino.net/ 参考 function SysUtils.FloatToText 04DxBU http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); Y3t4Xl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ poEAfD http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas z2tlY1 http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 K09Wz0 http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 KMCPpU http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency PexZ8p http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); TCZr3c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7nAO3z http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, e14Lu0 http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas N6okLm http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 3bdDh1 http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 KUSzSC http://blog.numino.net/ 参考 function SysUtils.FloatToText ZWBl1W http://blog.numino.net/ 例子 Q7pmP5 http://blog.numino.net/ ///////Begin FloatToStrF iewKn1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9I75qf http://blog.numino.net/ begin S1qX4p http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 8lcfIV http://blog.numino.net/ 0), KXIAmO http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); 1OKNfB http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, Jb5NKT http://blog.numino.net/ 0), 1V05IY http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); Pb0TB2 http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 6swe5g http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); uzMH3O http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, GS5OsM http://blog.numino.net/ 0), 3Eig61 http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); n0lqC7 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, HGW9Qa http://blog.numino.net/ 0), f79POn http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); DQ4Yrf http://blog.numino.net/ end; R52VkW http://blog.numino.net/ ///////End FloatToStrF 6yXuUF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jCsHqO http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: 06lk8I http://blog.numino.net/ Integer): string; $[SysUtils.pas 61J0C3 http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 UA17sg http://blog.numino.net/ 说明 Digits指定小数宽度 ghQUid http://blog.numino.net/ 参考 function SysUtils.FloatToText LjSZ1G http://blog.numino.net/ 例子 n69y73 http://blog.numino.net/ ///////Begin CurrToStrF YdGIaC http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 89731j http://blog.numino.net/ begin HzirPA http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), TFUb61 http://blog.numino.net/ ffGeneral, SpinEdit1.Value); WHvnE8 http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, AnY2wj http://blog.numino.net/ 0), Yard3o http://blog.numino.net/ ffExponent, SpinEdit1.Value); 5VE7C1 http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 96x1iO http://blog.numino.net/ ffFixed, SpinEdit1.Value); frLZVa http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), Dt6wn9 http://blog.numino.net/ ffNumber, SpinEdit1.Value); pKx6UV http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 9zDGh2 http://blog.numino.net/ 0), F11lYm http://blog.numino.net/ ffCurrency, SpinEdit1.Value); gnF5hX http://blog.numino.net/ end; XF79ar http://blog.numino.net/ ///////End CurrToStrF d2nJH8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FVy5Np http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: LrtOre http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; WUw7ky http://blog.numino.net/ $[SysUtils.pas p35eVY http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 MyiZrp http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 M1I7Wl http://blog.numino.net/ 参考 <NULL> 3AAHh9 http://blog.numino.net/ 例子 FBaPN7 http://blog.numino.net/ ///////Begin FloatToText sD4OB4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3AYTG4 http://blog.numino.net/ var a4Wfgs http://blog.numino.net/ vBuffer: array[0..255] of Char; DLHd7I http://blog.numino.net/ E: Extended; 3fyDF1 http://blog.numino.net/ begin 84TwBp http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 74jw65 http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, jwXYM1 http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); EbbxGl http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); XU439U http://blog.numino.net/ end; PS3QdA http://blog.numino.net/ ///////End FloatToText( ZAJ68O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9Z9fzO http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; yxajCA http://blog.numino.net/ $[SysUtils.pas 20VN29 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 aoF2nU http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' Z9Tg88 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 2NP95W http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); r5U5wE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RcnUR9 http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; DMfZRP http://blog.numino.net/ $[SysUtils.pas 1nznRW http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 lstg31 http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' O95DA2 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt ILPdH0 http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 6DN1pz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3f4POH http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 3i4YTt http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas uhF0d0 http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 yEBL0A http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 g8dlVV http://blog.numino.net/ 参考 <NULL> K57bTg http://blog.numino.net/ 例子 dvESYG http://blog.numino.net/ ///////Begin FloatToTextFmt 716TR5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); fNFW1C http://blog.numino.net/ var 1f7nQV http://blog.numino.net/ vBuffer: array[0..255] of Char; 8GKc6l http://blog.numino.net/ E: Extended; A13XXN http://blog.numino.net/ begin K9PV6B http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 6ly3fe http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, TnYJlr http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); fcx96A http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); Kmj7fM http://blog.numino.net/ end; 6phW1O http://blog.numino.net/ ///////End FloatToTextFmt szkrQs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ R7rkQD http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas 8nR8mY http://blog.numino.net/ 功能 返回字符串S转换成浮点数 b1wbEA http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 9kV6Ac http://blog.numino.net/ 参考 function SysUtils.TextToFloat 3GkrY2 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; QUJ3pq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3x298X http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): 51sjox http://blog.numino.net/ Extended; $[SysUtils.pas 7E8KEP http://blog.numino.net/ 功能 返回字符串S转换成浮点数 DGIr4y http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default N9lvZM http://blog.numino.net/ 参考 function SysUtils.TextToFloat 1s0CiM http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; DQ360C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4q2PQx http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; 9JyTZw http://blog.numino.net/ overload; $[SysUtils.pas q6y6vF http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; 2FSbM1 http://blog.numino.net/ overload; $[SysUtils.pas I3NLCN http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; AyUbrN http://blog.numino.net/ overload; $[SysUtils.pas 4LH03O http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 bo7aoL http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 sA6yj0 http://blog.numino.net/ 参考 function SysUtils.TextToFloat ZtDJvd http://blog.numino.net/ 例子 58hQ1V http://blog.numino.net/ ///////Begin TryStrToFloat 8xE0Pb http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); aRQnSH http://blog.numino.net/ var 1Ed9f8 http://blog.numino.net/ E: Extended; 1JuTk2 http://blog.numino.net/ begin fDWPaD http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 0P0P15 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 7OJE2q http://blog.numino.net/ end; Jt9gzX http://blog.numino.net/ ///////End TryStrToFloat TeD3R4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pG9Yr3 http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas 2GcrwZ http://blog.numino.net/ 功能 返回字符串S转换成货币数 33ht8f http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 pdoH9Y http://blog.numino.net/ 参考 function SysUtils.TextToFloat xnWmGo http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 8J3ho0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X5QjMf http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): LjEV52 http://blog.numino.net/ Currency; $[SysUtils.pas z5k4r5 http://blog.numino.net/ 功能 返回字符串S转换成货币数 w4VL94 http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default eQ65r5 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 1Ypw2x http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; hgS2Q7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x63bCf http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; aZmcxE http://blog.numino.net/ $[SysUtils.pas iWP1ZJ http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 4iTxyR http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 7bySpi http://blog.numino.net/ 参考 function SysUtils.TextToFloat hgPssI http://blog.numino.net/ 例子 mLU1BL http://blog.numino.net/ ///////Begin TryStrToCurr z3si6j http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 80POGb http://blog.numino.net/ var bt19UW http://blog.numino.net/ C: Currency; yKIh6a http://blog.numino.net/ begin x1h2mz http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); VKfnP2 http://blog.numino.net/ Edit2.Text := FormatCurr('', C); OxmLBw http://blog.numino.net/ end; QlXDcu http://blog.numino.net/ ///////End TryStrToCurr jj6R3n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p6Qz90 http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): BSHmH8 http://blog.numino.net/ Boolean; $[SysUtils.pas ovys0b http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value 9RAU9q http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 V27dT6 http://blog.numino.net/ 参考 <NULL> MXJLz1 http://blog.numino.net/ 例子 KuDsSr http://blog.numino.net/ ///////Begin TextToFloat p5r9D3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); YUeXsz http://blog.numino.net/ var 2EL0M5 http://blog.numino.net/ E: Extended; Y2H7ls http://blog.numino.net/ begin uDHDJb http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, N7Ha3Y http://blog.numino.net/ fvExtended); 8K2PA6 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 2xz6U6 http://blog.numino.net/ end; g6135x http://blog.numino.net/ ///////End TextToFloat E1ofr4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Sn57Ju http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 4Yn763 http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 HpNkfL http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 jWtU7j http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat sopSLn http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); rECvB7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 543QqX http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas I10U7g http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 GdSqS4 http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 ppTfpk http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat b83VsC http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); NUPs8R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m8BGUm http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; GMj5MF http://blog.numino.net/ $[SysUtils.pas h4LxGZ http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 QNinX4 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 36idms http://blog.numino.net/ 参考 function SysUtils.DateTimeToString EMVXTw http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); eDT9Ks http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OMPRWC http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas Q621Ry http://blog.numino.net/ 功能 返回字符串S转换成日期 4cNYP7 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 Vp8fJX http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 2p0SJN http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); TCaTSY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c4SUNd http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): 5iXDCn http://blog.numino.net/ TDateTime; $[SysUtils.pas xjNeXB http://blog.numino.net/ 功能 返回字符串S转换成日期 nFmC7G http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default 7hW4dA http://blog.numino.net/ 参考 function SysUtils.TryStrToDate a82QnI http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); S54GyD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sDocuU http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; 4la2OZ http://blog.numino.net/ $[SysUtils.pas iG6DY4 http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 cf3YXw http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 4l43Pc http://blog.numino.net/ 参考 <NULL> vZu8Ta http://blog.numino.net/ 例子 38XwOO http://blog.numino.net/ ///////Begin TryStrToDate rwJypK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); yg3eZ7 http://blog.numino.net/ var nJEnca http://blog.numino.net/ vDateTime: TDateTime; xKg0x3 http://blog.numino.net/ begin CIKkWv http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); 3aWbQ5 http://blog.numino.net/ DateTimePicker1.Date := vDateTime; XsS6wq http://blog.numino.net/ end; CQk0PG http://blog.numino.net/ ///////End TryStrToDate XBqjqH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7761eB http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas lu08U8 http://blog.numino.net/ 功能 返回字符串S转换成时间 N2or4y http://blog.numino.net/ 说明 字符非时间表达时将引起异常 4XXfo0 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime rn2Dlu http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); rEiD3F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VD9lla http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): 37o4Fd http://blog.numino.net/ TDateTime; $[SysUtils.pas dH3dtV http://blog.numino.net/ 功能 返回字符串S转换成时间 TBiuYY http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default 6AdFu0 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 78CU87 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); q4aQEb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q8LrJE http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; siHr5X http://blog.numino.net/ $[SysUtils.pas nitGag http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 Kdj7UM http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 A3sYs7 http://blog.numino.net/ 参考 <NULL> cVcKe5 http://blog.numino.net/ 例子 Rp22BK http://blog.numino.net/ ///////Begin TryStrToTime N8zBni http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); sArdsk http://blog.numino.net/ var hT7j39 http://blog.numino.net/ vDateTime: TDateTime; 8ElSN7 http://blog.numino.net/ begin vFE54e http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); xv65Xk http://blog.numino.net/ DateTimePicker1.Time := vDateTime; 1fY7Yd http://blog.numino.net/ end; 4im3NT http://blog.numino.net/ ///////End TryStrToTime 2e7bWF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ noiX6h http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas L9wvLF http://blog.numino.net/ 功能 返回字符串S转换成日期时间 6D0MKB http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 JmCiIw http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 0P88FJ http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 4BP2z0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lrib77 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): z8yBMg http://blog.numino.net/ TDateTime; $[SysUtils.pas tEdlpF http://blog.numino.net/ 功能 返回字符串S转换成日期时间 f44rf5 http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default 7VF75l http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime TZLfkp http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 1zcQM7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RZqkbp http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): 2nHjqO http://blog.numino.net/ Boolean; $[SysUtils.pas N1C56l http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 Xf3bol http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 CTIth8 http://blog.numino.net/ 参考 <NULL> dMDsKQ http://blog.numino.net/ 例子 clE8A5 http://blog.numino.net/ ///////Begin TryStrToDateTime 2o7mJz http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6GGEWI http://blog.numino.net/ var VLJCgi http://blog.numino.net/ vDateTime: TDateTime; 5de3tw http://blog.numino.net/ begin nPKfZh http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 95k901 http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); xsgEwt http://blog.numino.net/ end; XZvHPs http://blog.numino.net/ ///////End TryStrToDateTime g5yz14 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zO5DQz http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; f5T0n0 http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas 6X06J7 http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 e0REHR http://blog.numino.net/ 说明 <参见FormatDateTime> EIc3IN http://blog.numino.net/ 参考 function System.SetString uUU7W0 http://blog.numino.net/ 例子 <参见FormatDateTime> 29h382 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BbrJc4 http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: Fj9sTA http://blog.numino.net/ string): string; platform; $[SysUtils.pas hS8TA4 http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 rXwBB4 http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' 2vQZ8K http://blog.numino.net/ 参考 function Windows.GetLocaleInfo YrIPpA http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); NpNZtE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SZXYwQ http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): eIaJdW http://blog.numino.net/ Char; platform; $[SysUtils.pas 7axHfB http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 0fG2NA http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' ajw2eB http://blog.numino.net/ 参考 function Windows.GetLocaleInfo QTM31i http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); QVypqP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A2q0N6 http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; m5Nn0D http://blog.numino.net/ $[SysUtils.pas h8YxXA http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 bZBCcB http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) LGffci http://blog.numino.net/ 参考 var SysUtils.SysLocale 7WSJkJ http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); 3k4Oen http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vNzZ5N http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; PX22xa http://blog.numino.net/ $[SysUtils.pas rD1h4t http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 wYc53w http://blog.numino.net/ 说明 Index从0开始 YyCChk http://blog.numino.net/ 参考 var SysUtils.SysLocale 8i4c8i http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), 24mG2n http://blog.numino.net/ SpinEdit2.Value)); ohr4HV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rr72pH http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; md9JMl http://blog.numino.net/ $[SysUtils.pas 94y4d7 http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 afKJy0 http://blog.numino.net/ 说明 MaxLen指定处理字符个数 EvL5kd http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex xfPjiJ http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); GeeY54 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Et35j4 http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; 3nS1XO http://blog.numino.net/ $[SysUtils.pas 8UZB47 http://blog.numino.net/ 功能 返回字符串S中有多少个字符 r48u1B http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 3D3cPU http://blog.numino.net/ 参考 var SysUtils.SysLocale aXMi0o http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); j4z5tp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 45RI2V http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; U8QFaH http://blog.numino.net/ $[SysUtils.pas XrXiIV http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 y7LzRf http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 A7XIc2 http://blog.numino.net/ 参考 function SysUtils.NextCharIndex a2PDp1 http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); nh0F5S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wrqXMP http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; xx8E1M http://blog.numino.net/ $[SysUtils.pas J6lSbG http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 A8flBW http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 6Efbj0 http://blog.numino.net/ 参考 function System.Length Bxd829 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); ya155r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FS3q9g http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas 4xY0La http://blog.numino.net/ 功能 返回第一个字符的宽度 nOM89q http://blog.numino.net/ 说明 参数为空则返回0 4lnIxG http://blog.numino.net/ 参考 function Windows.CharNext KY0TbW http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); OvlwY9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7w1Uk3 http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas jd1XrI http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 t4eW9z http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; k5OBDs http://blog.numino.net/ 参考 function Windows.CharNext F3xONN http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); ZU01J7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GS71Q1 http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; X6M58V http://blog.numino.net/ $[SysUtils.pas foslED http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 J4PVWx http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 5R2XMu http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 7e01kt http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); mEJRWS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3O4aEZ http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; QXh5rg http://blog.numino.net/ $[SysUtils.pas 52uI6W http://blog.numino.net/ 功能 返回下一个字符的位置 KGGsiE http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 0MsYSA http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 38maOY http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); X8848S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aG0S3s http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; 7EB0z3 http://blog.numino.net/ $[SysUtils.pas rhfx4D http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 MW0c5K http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True SMlkWB http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType n6bP43 http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); 8DavOt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y7Mq24 http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): 8cggSz http://blog.numino.net/ Boolean; $[SysUtils.pas olMHVd http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 32IhGy http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True lkcebv http://blog.numino.net/ 参考 function SysUtils.ByteType ojOGYB http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, aImjW8 http://blog.numino.net/ SpinEdit1.Value); lIIg6I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S7IWmu http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; fN2i0R http://blog.numino.net/ $[SysUtils.pas yzpKYq http://blog.numino.net/ 功能 返回包括最后路径分隔符 JE8K4n http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 VuyA7M http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length i8sV71 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); j1tD4x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d4a2fx http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; 61I1xf http://blog.numino.net/ $[SysUtils.pas gscGdC http://blog.numino.net/ 功能 返回包括最后斜线 8sKe2d http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); ahweLT http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter g0450E http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); SBn5y6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Jyg99Z http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; Hf63dv http://blog.numino.net/ $[SysUtils.pas 3obDTH http://blog.numino.net/ 功能 返回排除最后路径分隔符 uJJYnv http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 fQ6aJU http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function U10rs6 http://blog.numino.net/ System.SetLength V4JPgx http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); yS69Ky http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bphGnl http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; 9tddae http://blog.numino.net/ $[SysUtils.pas fVT87U http://blog.numino.net/ 功能 返回排除最后斜线 xC8vHf http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) Lb53uk http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter GDlXSh http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); v7zIgN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EroSks http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; dbVFKu http://blog.numino.net/ $[SysUtils.pas Rkb2mm http://blog.numino.net/ 功能 返回最后一个分隔符的位置 zpqqnA http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 n7X5WL http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType 3e2zl1 http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); JfMz6M http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5q9c41 http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; rArQ95 http://blog.numino.net/ $[SysUtils.pas Jn8ZUC http://blog.numino.net/ 功能 返回比较两个文件名 2uN38B http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 0fDP3I http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr oi8CA5 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); lVUt6L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yBuG4o http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas LU434P http://blog.numino.net/ 功能 返回两个文件名是否相等 6ydpHv http://blog.numino.net/ 说明 区分大小写 i0raVd http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName l1PEg5 http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); 3gwEs2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MXjqxl http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas RV51iB http://blog.numino.net/ 功能 返回小写文件名 KrYwSe http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase qj3ht5 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase zXbKqt http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); 097Nee http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BseS51 http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas IOapDl http://blog.numino.net/ 功能 返回大写文件名 8opWPz http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 3hIyXQ http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase s9UPBE http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); YxX8XX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 66F5sg http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas RbPwEf http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 VrGglj http://blog.numino.net/ 说明 不存在则返回0 78023t http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 3bKiEt http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); ZEV0d7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tt6GxO http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas yv4F5d http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 zuwh7m http://blog.numino.net/ 说明 不存在则返回nil oE4ag6 http://blog.numino.net/ 参考 function SysUtils.StrByteType 2t5wfc http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 282vgf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ug3Kst http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas GMuQHV http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 cO2P2b http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' U4kW78 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan Rj6c4L http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); k30DOF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KxmRxe http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 23ALfD http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 ruf9H6 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' Cli6P2 http://blog.numino.net/ 参考 function SysUtils.StrScan 2x6EyV http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); RF3UvT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z6fJ3Z http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: 40py20 http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas MgBhwE http://blog.numino.net/ 功能 返回替换后的字符串 e9xWpJ http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 NuHoAU http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function D863L2 http://blog.numino.net/ System.Copy 28fH81 http://blog.numino.net/ 例子 lo0POq http://blog.numino.net/ ///////Begin StringReplace qCgX4p http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); tYywDr http://blog.numino.net/ begin C67YhQ http://blog.numino.net/ Memo1.Lines.Values['[]'] := x9qn67 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); j6Em60 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := zKlY51 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); 61hsAA http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := dF22X7 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); jaojp6 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := y0Pt8K http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, pm80j4 http://blog.numino.net/ rfIgnoreCase]); AOr6vQ http://blog.numino.net/ end; 9i0IM0 http://blog.numino.net/ ///////End StringReplace 9ubU2u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tS49On http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas ss1KLC http://blog.numino.net/ 功能 返回字符串S转换成全局标识 S2R0Pm http://blog.numino.net/ 说明 如果字符串非法将触发异常 h36F4W http://blog.numino.net/ 参考 fuction Windows.Succeeded zkYUmj http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 3M8wi1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0eqqad http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas s7MBu2 http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 Zgy3vX http://blog.numino.net/ 说明 <NULL> w0Tg98 http://blog.numino.net/ 参考 fuction Windows.Succeeded VtbMp5 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); D879WG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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