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

Delphi字符串函数大全 【字符串函数大全】 lNLmOn http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; QRMU4z http://blog.numino.net/ $[StrUtils.pas Mgi2tN http://blog.numino.net/ 功能 返回两个字符串是否相似 J899D0 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 g8uQ6C http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc dCVx4E http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 56Dkn4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yr27dX http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; y85RT0 http://blog.numino.net/ $[StrUtils.pas 85Pm0l http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText YvIasF http://blog.numino.net/ 说明 不区分大小写 K7QcTM http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos UCTgPi http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 4gd3e4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 20c0N1 http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; T7LM2y http://blog.numino.net/ $[StrUtils.pas zrVeQ9 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 T4qODu http://blog.numino.net/ 说明 不区分大小写 i5qLP8 http://blog.numino.net/ 参考 function Windows.CompareString sT0FVe http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); M2Z6c2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CGQ99h http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 2qQEK4 http://blog.numino.net/ $[StrUtils.pas 1X2Ico http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 a845xZ http://blog.numino.net/ 说明 不区分大小写 3glf71 http://blog.numino.net/ 参考 function Windows.CompareString 08m6Wu http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); tFKxpO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jpCkK9 http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 92h547 http://blog.numino.net/ string; $[StrUtils.pas f6JHOF http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 EpEPvf http://blog.numino.net/ 说明 不区分大小写 53Gmwg http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags u01eaB http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); rksp4b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U0pNlM http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of 7SC169 http://blog.numino.net/ string): Boolean; $[StrUtils.pas 90rzc4 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText 046YLC http://blog.numino.net/ 说明 不区分大小写 g5vzze http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText tsKpTn http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', e69X0D http://blog.numino.net/ 'a4']); G7B21s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9ekpdS http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of gwpLtV http://blog.numino.net/ string): Integer; $[StrUtils.pas WNdymz http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 noW4ze http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 NeTA7T http://blog.numino.net/ 参考 function SysUtils.AnsiSameText oSWORu http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); RJMGMF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eSDePn http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; vd2j00 http://blog.numino.net/ $[StrUtils.pas 5HU7q4 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText fjpi6E http://blog.numino.net/ 说明 区分大小写 pEgZk7 http://blog.numino.net/ 参考 function StrUtils.AnsiPos e0WBhA http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 7fOT6B http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bjfL9Z http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; dUbJL9 http://blog.numino.net/ $[StrUtils.pas mVkIM9 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 d8CYIk http://blog.numino.net/ 说明 区分大小写 uquX1w http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr PepBhN http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); 3qCImD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1bvJuz http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; 0V18dO http://blog.numino.net/ $[StrUtils.pas 9u6bOy http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 0dQ3XB http://blog.numino.net/ 说明 区分大小写 4aTyQa http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr Eu6mPn http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); FT3i6V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F1dHYP http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): UX9Ot3 http://blog.numino.net/ string; $[StrUtils.pas ux8xud http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 1H0Git http://blog.numino.net/ 说明 区分大小写 FQsh2D http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags R7bPC0 http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); gQhvI4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Iu8fs0 http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of eMGNs2 http://blog.numino.net/ string): Boolean; $[StrUtils.pas p4TGe4 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText um3mM0 http://blog.numino.net/ 说明 区分大小写 K7e57K http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr g29N4f http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', xjFJng http://blog.numino.net/ 'a4']); 9RYOLW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nI5JXU http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of 8Oz2gS http://blog.numino.net/ string): Integer; $[StrUtils.pas r9XBF9 http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 8FooME http://blog.numino.net/ 说明 区分大小写 94p42p http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr CR76tL http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 723RGh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ya6CfK http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; 2w4Psv http://blog.numino.net/ $[StrUtils.pas shQ72e http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 X8MDUk http://blog.numino.net/ 说明 当ACount为0时返回'' cvWU8m http://blog.numino.net/ 参考 function System.SetLength 6pRnv1 http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); 0QVbMX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nije98 http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas UD339p http://blog.numino.net/ 功能 返回字符串AText的反序 mi2ZHS http://blog.numino.net/ 说明 ReverseString('1234') = '4321' LxB209 http://blog.numino.net/ 参考 function System.SetLength N1RE2b http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); dB4Cl1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TTKUJO http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; 2rg7CP http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas 12RbBa http://blog.numino.net/ 功能 返回嵌套字符串 KDBRr4 http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' OCWbuW http://blog.numino.net/ 参考 function System.Copy 13xfj7 http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, cgJPT1 http://blog.numino.net/ Edit2.Text); rCox72 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JvkQmK http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; 0mefQ1 http://blog.numino.net/ $[StrUtils.pas 4PRDM6 http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 x606bN http://blog.numino.net/ 说明 之前建议执行Randomize 1yygcT http://blog.numino.net/ 参考 function System.Random 5Z3x0E http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); 0s059T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YVt9ss http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = 5mO04b http://blog.numino.net/ ''): string; overload; $[StrUtils.pas 4ojuoB http://blog.numino.net/ 功能 返回指定的逻辑字符串 CLs27D http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 36je28 http://blog.numino.net/ 参考 <NULL> pQW0M4 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); 3f7N52 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8EPBw1 http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; T26BJa http://blog.numino.net/ $[StrUtils.pas BNrA0Z http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 ZT1Mi9 http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' eV1496 http://blog.numino.net/ 参考 function System.Copy ff4tW7 http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); 6j1Ne5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dqtcQt http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; GYdKSK http://blog.numino.net/ $[StrUtils.pas irLHGU http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 QqYWuE http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' 6CvjXz http://blog.numino.net/ 参考 function System.Copy 8uabaK http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); gv2xaB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PaqECD http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): HukaEK http://blog.numino.net/ string; $[StrUtils.pas GG0LZe http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 aJ21T9 http://blog.numino.net/ 说明 其实就是Copy RqDeJG http://blog.numino.net/ 参考 function System.Copy U17jb4 http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); Pud0q1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZwCOiy http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: WfqOy9 http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): fML17V http://blog.numino.net/ PChar; $[StrUtils.pas R9bhIn http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 jobw1o http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 2FY93Y http://blog.numino.net/ 参考 <NULL> bL6B3g http://blog.numino.net/ 例子 fuz83n http://blog.numino.net/ ///////Begin SearchBuf LuHcw0 http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; U8N43Z http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; lAe90U http://blog.numino.net/ var yc5LAY http://blog.numino.net/ Buffer, P: PChar; 0tYX2P http://blog.numino.net/ Size: Word; 373Zkp http://blog.numino.net/ begin XxHWTw http://blog.numino.net/ Result := False; 1vJpSt http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; ApECM0 http://blog.numino.net/ Size := EditControl.GetTextLen; z0DPV2 http://blog.numino.net/ if (Size = 0) then Exit; 5Ee2X8 http://blog.numino.net/ Buffer := StrAlloc(Size + 1); Np9aKQ http://blog.numino.net/ try GGyCwQ http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); f9Xs8U http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, Apxv4z http://blog.numino.net/ SearchString, SearchOptions); JUtCcu http://blog.numino.net/ if P <> nil then begin kfpliQ http://blog.numino.net/ EditControl.SelStart := P - Buffer; u84CqE http://blog.numino.net/ EditControl.SelLength := Length(SearchString); 2Yl3nG http://blog.numino.net/ Result := True; y3pPe0 http://blog.numino.net/ end; rZ0TZ3 http://blog.numino.net/ finally tmT3Xv http://blog.numino.net/ StrDispose(Buffer); 2V465q http://blog.numino.net/ end; a010qG http://blog.numino.net/ end; o8b0il http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ApOM8c http://blog.numino.net/ var e1hpGM http://blog.numino.net/ SearchOptions: TStringSearchOptions; r2ra4Q http://blog.numino.net/ begin 39Cmzv http://blog.numino.net/ SearchOptions := []; V8AbI2 http://blog.numino.net/ if CheckBox1.Checked then BK8ep7 http://blog.numino.net/ Include(SearchOptions, soDown); uCm2a7 http://blog.numino.net/ if CheckBox2.Checked then 1zdw10 http://blog.numino.net/ Include(SearchOptions, soMatchCase); e4IBci http://blog.numino.net/ if CheckBox3.Checked then EhkuVm http://blog.numino.net/ Include(SearchOptions, soWholeWord); da88f3 http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 201MWO http://blog.numino.net/ Memo1.SetFocus; 7YUPeq http://blog.numino.net/ end; 6q2c2M http://blog.numino.net/ ///////End SearchBuf x76QLl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xgonTL http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): wKJcqe http://blog.numino.net/ string; $[StrUtils.pas hdLds8 http://blog.numino.net/ 功能 返回探测字符串 ZABd7E http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html BXGqFe http://blog.numino.net/ 参考 <NULL> ATmNUg http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 0vkb8Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RU3kan http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = n4cL8h http://blog.numino.net/ 4): Integer; $[StrUtils.pas fmD9xO http://blog.numino.net/ 功能 返回探测整数 kecS4O http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 ckU4Wf http://blog.numino.net/ 参考 <NULL> rY6q8L http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 9EkO2T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5lwVi4 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas H0iD5B http://blog.numino.net/ 功能 返回探测整数的解码 rMKLQ9 http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') Q3jC8s http://blog.numino.net/ 参考 <NULL> d8cQgO http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); 438KO1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Wacoak http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas c6wkaX http://blog.numino.net/ 功能 返回探测文字数值 380HTu http://blog.numino.net/ 说明 没有参数ALength已经固定为4 7TNG1h http://blog.numino.net/ 参考 <NULL> yoCBAj http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); 4L8IxN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9lSUV1 http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas giKK3e http://blog.numino.net/ 功能 返回探测文字数值的解码 Ne27r8 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') vHOUBj http://blog.numino.net/ 参考 <NULL> b3L6yA http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); n7OJrJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7Y43ET http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: MB0Uga http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas Dkg4Ip http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 QXF9yo http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 7VgEdd http://blog.numino.net/ 参考 <NULL> 4IS7Rj http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 5BX9bP http://blog.numino.net/ SpinEdit1.Value); cLXwCX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KQP2kQ http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: HzbbQv http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas VF2vEj http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 446GZv http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, 3oN5d8 http://blog.numino.net/ ALength)) 134gxP http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 1y4mz0 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, Lh1Jie http://blog.numino.net/ SpinEdit1.Value); eZg8I0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9k8z3q http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; 9J719H http://blog.numino.net/ $[StrUtils.pas FS9xDw http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 lHKqA3 http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 m0UaUU http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText xfddm5 http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 4mPu1Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 916sE4 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas Q8uXsA http://blog.numino.net/ 功能 返回一个新的字符串指针地址 fKMSPm http://blog.numino.net/ 说明 字符串S为空时返回NullStr 3M7zzk http://blog.numino.net/ 参考 procedure System.New G5eGw8 http://blog.numino.net/ 例子 Qeoxyu http://blog.numino.net/ ////////Begin NewStr,DisposeStr 3X88Va http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); loCdGC http://blog.numino.net/ var O8Xjjd http://blog.numino.net/ P: PString; xpC1xo http://blog.numino.net/ begin aAP4qR http://blog.numino.net/ P := NewStr(Edit1.Text); 9586xt http://blog.numino.net/ Edit2.Text := P^; 1e8i2h http://blog.numino.net/ DisposeStr(P); 5rtw98 http://blog.numino.net/ end; C5H8GL http://blog.numino.net/ ////////End NewStr,DisposeStr mIRwjk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6958G7 http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas kCyY65 http://blog.numino.net/ 功能 释放字符串指针P资源 WNVVAJ http://blog.numino.net/ 说明 配合函数NewStr使用 v015yj http://blog.numino.net/ 参考 procedure System.Dispose o3pmQS http://blog.numino.net/ 例子 <如上参见,如下参见> l87yrH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 03G1Rd http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; pS2t9F http://blog.numino.net/ $[SysUtils.pas W10obk http://blog.numino.net/ 功能 将字符串S更新给字符串指针P lkZUtC http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 8hHjZA http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr dZgzcc http://blog.numino.net/ 例子 IGyqdp http://blog.numino.net/ ////////Begin AssignStr wFR7F2 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Ze2naM http://blog.numino.net/ var kcZN8w http://blog.numino.net/ P: PString; InBu74 http://blog.numino.net/ begin n038D3 http://blog.numino.net/ P := nil; I9dlJa http://blog.numino.net/ AssignStr(P, Edit1.Text); MJvhM8 http://blog.numino.net/ Edit2.Text := P^; E7vCwa http://blog.numino.net/ DisposeStr(P); 0pb7sh http://blog.numino.net/ end; 35y0yo http://blog.numino.net/ ////////End AssignStr s9C5PQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NcLLVl http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; SG2DxA http://blog.numino.net/ $[SysUtils.pas B9Z9o9 http://blog.numino.net/ 功能 在字符串Dest后追加字符串S kO9m3V http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 lSRU2c http://blog.numino.net/ 参考 <NULL> wURhBw http://blog.numino.net/ 例子 s6yYm5 http://blog.numino.net/ ////////Begin AppendStr WAVp5Y http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 9je2bt http://blog.numino.net/ var p049Ja http://blog.numino.net/ S: string; noIfV4 http://blog.numino.net/ begin 7guecy http://blog.numino.net/ S := Edit2.Text; Q9Mtpi http://blog.numino.net/ AppendStr(S, Edit1.Text); n4780c http://blog.numino.net/ Edit2.Text := S; ZPsS3I http://blog.numino.net/ end; OavFj6 http://blog.numino.net/ ////////End AppendStr 2xi35L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EMZQqb http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas 1W4XWd http://blog.numino.net/ 功能 返回字符串S的大写形式 AxO74H http://blog.numino.net/ 说明 非小写字符不处理 k2SH6i http://blog.numino.net/ 参考 procedure System.SetLength 1EQV2Z http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); jgJsVg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OqSd0F http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas cUh7Bq http://blog.numino.net/ 功能 返回字符串S的小写形式 qiYfiF http://blog.numino.net/ 说明 非大写字符不处理 lH1Iei http://blog.numino.net/ 参考 procedure System.SetLength ncSa33 http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); leA0Lq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ldewvz http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas SunNyQ http://blog.numino.net/ 功能 返回比较两个字符 d0C97F http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 YXBTiO http://blog.numino.net/ 参考 <NULL> o5pZiE http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); 6WuKOG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8N521o http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; AiKqgy http://blog.numino.net/ assembler; $[SysUtils.pas 5PlD0O http://blog.numino.net/ 功能 返回比较两个内存指针 EDpphv http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), B28f00 http://blog.numino.net/ PChar('12c'), 3)=False P81OZc http://blog.numino.net/ 参考 <NULL> uLoYGK http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); yUa96l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O8zqHR http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas yTU5C1 http://blog.numino.net/ 功能 返回比较两个字符串 bl3gEF http://blog.numino.net/ 说明 不区分大小写 JjsqI6 http://blog.numino.net/ 参考 <NULL> AqgQDa http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); TtZxV4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d4MrbI http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas FF6eHk http://blog.numino.net/ 功能 返回两个字符串是否相等 fNjD5e http://blog.numino.net/ 说明 不区分大小写 xXkcI5 http://blog.numino.net/ 参考 <NULL> tN4Hb9 http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 4xhLJl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yIEj1L http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas VHXvbT http://blog.numino.net/ 功能 返回字符串S的大写形式 i8D7e1 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 6im3fP http://blog.numino.net/ 参考 function Windows.CharUpperBuff n8aBrX http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); dX6h9p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VO87b2 http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas S3PAWj http://blog.numino.net/ 功能 返回字符串S的小写形式 w4O8Rn http://blog.numino.net/ 说明 非大写字符不处理 fDp266 http://blog.numino.net/ 参考 function Windows.CharLowerBuff QeT6Y1 http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 8wU6lZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CoS7ro http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas T3Sp29 http://blog.numino.net/ 功能 反回比较两个字符串 Fcp7OJ http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 5err6G http://blog.numino.net/ 参考 function Windows.CompareString U2ZgyP http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 9raw5C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nnwh0J http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas MeoQ0D http://blog.numino.net/ 功能 返回两个字符串是否相等 SozsdB http://blog.numino.net/ 说明 区分大小写 5JejF1 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr fwRSJH http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); B4aiR5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X2mAI2 http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas MdC28I http://blog.numino.net/ 功能 反回比较两个字符串 lg1C56 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 7iu85a http://blog.numino.net/ 参考 function Windows.CompareString RkahPS http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); qnCQsR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 20LGFg http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas I0rv6r http://blog.numino.net/ 功能 返回两个字符串是否相等 KGm8o7 http://blog.numino.net/ 说明 不区分大小写 835ybq http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText QoGg1S http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); 8L33UU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d19ENW http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 3bcA3G http://blog.numino.net/ 功能 返回比较两个指针字符串 RO7zzO http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 3VCjWr http://blog.numino.net/ 参考 function System.CompareString p7dhJR http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) s834Kx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E5kbsy http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas i7wFUO http://blog.numino.net/ 功能 返回比较两个指针字符串 12898C http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) h3QXMR http://blog.numino.net/ 参考 function Windows.CompareString A2KuX0 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) 2fRdWc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JM3Jgi http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 6OyE3a http://blog.numino.net/ $[SysUtils.pas 48u0bh http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 YQt7a0 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 24WFkl http://blog.numino.net/ 参考 function Windows.CompareString LoPHPt http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 0hYPh4 http://blog.numino.net/ SpinEdit2.Value) 4IjTw0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5eqVRm http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; XHf7uD http://blog.numino.net/ $[SysUtils.pas FK00Ed http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 oK4CL5 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 Pg3Lcn http://blog.numino.net/ 参考 function Windows.CompareString 0c6Zc6 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 1juN4V http://blog.numino.net/ SpinEdit2.Value) e188Ii http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xKwZ1r http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas Yj1AT7 http://blog.numino.net/ 功能 返回指针字符串小写形式 gQ9ahL http://blog.numino.net/ 说明 非大写字符不处理 3A4kJ5 http://blog.numino.net/ 参考 function Windows.CharLower Av5oF3 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); Dpe6LX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f1QPP4 http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 0HS7Kg http://blog.numino.net/ 功能 返回指针字符串大写形式 S0OGcy http://blog.numino.net/ 说明 非小写字符不处理 TWd41b http://blog.numino.net/ 参考 function Windows.CharUpper 88ffw6 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); p80bIv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uwXgh4 http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas yA500Y http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 AG24IN http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 OXNS1r http://blog.numino.net/ 参考 function SysUtils.ByteType qc5CW2 http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); mDzldJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1GRMWE http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas aFXXos http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 0ZUK19 http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 qSY37H http://blog.numino.net/ 参考 function SysUtils.ByteType 6k6nZb http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); vQk4aU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WJ6OMa http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas yuQKhp http://blog.numino.net/ 功能 返回双字节字符串的大写形式 cFgV3y http://blog.numino.net/ 说明 WideChar双字节字符 0W301J http://blog.numino.net/ 参考 function Windows.CharUpperBuffW Cz5L3E http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); 5ranHg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0IG1Sv http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas OwA87A http://blog.numino.net/ 功能 返回双字节字符串的小写形式 7Rxt4e http://blog.numino.net/ 说明 我怎么就测试不出来呢 z3Ajz0 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW ZUF5A5 http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); Y41AfT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ciaFwi http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; CJkxm1 http://blog.numino.net/ $[SysUtils.pas B7r6Yy http://blog.numino.net/ 功能 返回比较两个双字节字符串 3YhXw1 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 n4nGeC http://blog.numino.net/ 参考 function Windows.CompareStringW AXu2HV http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); XCNv69 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j9PSmO http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas cRI9qI http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 o09Q3M http://blog.numino.net/ 说明 区分大小写 XCYhb8 http://blog.numino.net/ 参考 function SysUtils.WideCompareStr SS641L http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 6aFFTt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZCQ14J http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; iGe3Nj http://blog.numino.net/ $[SysUtils.pas 30pP10 http://blog.numino.net/ 功能 返回比较两个双字节字符串 A2Qdyk http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 f5uJW9 http://blog.numino.net/ 参考 function Windows.CompareStringW a414Cx http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); l6t7YW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F7X08g http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; j52527 http://blog.numino.net/ $[SysUtils.pas znB411 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 WWf7yg http://blog.numino.net/ 说明 不区分大小写 X25BXz http://blog.numino.net/ 参考 function SysUtils.WideCompareText 6JEYSY http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); 9MsNm2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZPr724 http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas rpqPfW http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; c5pb09 http://blog.numino.net/ $[SysUtils.pas aZwgmv http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 h36R75 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 m90z4j http://blog.numino.net/ 参考 function System.Copy BIrJ4x http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); NRzwy9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OxHamq http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas MCx5sa http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; MM0sh3 http://blog.numino.net/ $[SysUtils.pas qPeBDy http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 9DfT8v http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 4xyPt1 http://blog.numino.net/ 参考 function System.Copy Jf0mD4 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); 8ZQsK5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z6BnE7 http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas 314OIL http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; 6ONRn7 http://blog.numino.net/ $[SysUtils.pas 3UE3RF http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 5z2uBB http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 itqWCZ http://blog.numino.net/ 参考 function System.Copy zC5MSq http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); sWgjNR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uCJFed http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 714shu http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 iU51fO http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 9S3Zoq http://blog.numino.net/ 参考 procedure System.Insert IbAwFM http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); Gs3t8P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sjW7O1 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; A3K7Uj http://blog.numino.net/ $[SysUtils.pas L1IH7G http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 69Rx6g http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', z1Gmgy http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' pJ8eC8 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan wMMIqu http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); V2lX0m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zE7u43 http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; l1Vf42 http://blog.numino.net/ $[SysUtils.pas ZT5qRk http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 wuoO1s http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 91KYDz http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan S2Vn8D http://blog.numino.net/ 例子 5Xk33F http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr 6Q1kZ7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); v1Hd5X http://blog.numino.net/ var E8XkTN http://blog.numino.net/ P: PChar; NuVz2n http://blog.numino.net/ begin 4dByzw http://blog.numino.net/ P := PChar(Edit1.Text); 5oH7YN http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); ai3t31 http://blog.numino.net/ Edit3.Text := P; PubvLh http://blog.numino.net/ end; pG1a87 http://blog.numino.net/ ///////End AnsiExtractQuotedStr Morr3Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1OZ07v http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; i79ISq http://blog.numino.net/ $[SysUtils.pas Id62PL http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 8QwMMA http://blog.numino.net/ 说明 表现形式非法时则返回S nNDyU8 http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr Ly4NH2 http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); mbJF4Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E4qBF1 http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = IO7U0r http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): i7G6vB http://blog.numino.net/ string; $[SysUtils.pas 7RCAP9 http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 0CJx7P http://blog.numino.net/ 说明 Fq7WZB 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 kkOcXW http://blog.numino.net/ 参考 function SysUtils.StrNextChar P9Xk1l http://blog.numino.net/ 例子 <NULL> yYl2kb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8fuy5a http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas n86mt4 http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 3OZHsl http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... Zhwirw http://blog.numino.net/ 参考 <NULL> jMn5mH http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); xEa25x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SSgM1J http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 3GL90L http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas qRieAF http://blog.numino.net/ 功能 返回整数Value转换成字符串 EfvA9v http://blog.numino.net/ 说明 Format('%d', [Value]) f8j57X http://blog.numino.net/ 参考 function SysUtils.FmtStr Pk93vI http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); INwhrP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9Ocqke http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; mzOn1M http://blog.numino.net/ $[SysUtils.pas ediSYJ http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; 1Jf0N0 http://blog.numino.net/ $[SysUtils.pas aM6eZL http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) MTJN7C http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 slq15L http://blog.numino.net/ 参考 function SysUtils.FmtStr O21IuW http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); Ag08ww http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eC0d4g http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas 5ZpGOw http://blog.numino.net/ 功能 返回字符串S转换成整数 7OEtk3 http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 nP2GnK http://blog.numino.net/ 参考 procedure System.Val BrWKSO http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); afq795 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zg8ugd http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; G6jpV5 http://blog.numino.net/ $[SysUtils.pas vuBc2k http://blog.numino.net/ 功能 返回字符串S转换成整数 HlqU53 http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default CMJ4WS http://blog.numino.net/ 参考 procedure System.Val y1x2d0 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); AkMkDb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ njfkai http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; SN0oOI http://blog.numino.net/ $[SysUtils.pas ap8wYW http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 aA7lve http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 I8980u http://blog.numino.net/ 参考 procedure System.Val Mwun5w http://blog.numino.net/ 例子 5HEmr2 http://blog.numino.net/ ///////Begin TryStrToInt b3Hwid http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); pAhlih http://blog.numino.net/ var 6haU44 http://blog.numino.net/ I: Integer; uy3B6x http://blog.numino.net/ begin rsea8d http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); ds23qG http://blog.numino.net/ SpinEdit1.Value := I; cpkdcm http://blog.numino.net/ end; FJhZre http://blog.numino.net/ ///////End TryStrToInt nX6VrQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RJDQ54 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas o6JijI http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 skZZgo http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 tAF4BH http://blog.numino.net/ 参考 procedure System.Val yVW3C3 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); ANtnUQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jFjAFT http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; mtR43B http://blog.numino.net/ $[SysUtils.pas lzIakH http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 nmu5Gr http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default Q7pvQS http://blog.numino.net/ 参考 procedure System.Val GEC1kn http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); c55okK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wh4b5a http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; Mxjbvh http://blog.numino.net/ $[SysUtils.pas 3L9VCd http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 YJ55QI http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 42vV30 http://blog.numino.net/ 参考 procedure System.Val wF8hzi http://blog.numino.net/ 例子 4C59vi http://blog.numino.net/ ///////Begin TryStrToInt64 6e8YzL http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 4K9tF0 http://blog.numino.net/ var 2qciBe http://blog.numino.net/ I: Int64; 0Ff56B http://blog.numino.net/ begin k0nHza http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); 2S5W7F http://blog.numino.net/ SpinEdit1.Value := I; tEk9qB http://blog.numino.net/ end; vNB4rI http://blog.numino.net/ ///////End TryStrToInt64 hB4OZ2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fSB52p http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas voLFsh http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 JPXEsx http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 irka87 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool EKa7AI http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); JmaBy4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZNc0Cu http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): cqFVQo http://blog.numino.net/ Boolean; $[SysUtils.pas 07m35c http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 74s54F http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default v3d02t http://blog.numino.net/ 参考 function SysUtils.TryStrToBool kG3P0Q http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); 6DVfeX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Opfb4u http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; qdG9vG http://blog.numino.net/ $[SysUtils.pas UG24Xb http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 Jli7E3 http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 qX4J7R http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var F519A6 http://blog.numino.net/ SysUtils.FalseBoolStrs pbOp3A http://blog.numino.net/ 例子 4harUn http://blog.numino.net/ ///////Begin TryStrToBool Z3NHTV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); dSyKD2 http://blog.numino.net/ var DRs2f9 http://blog.numino.net/ B: Boolean; P9FQu6 http://blog.numino.net/ begin 3Qpyyn http://blog.numino.net/ SetLength(TrueBoolStrs, 2); MWDUsQ http://blog.numino.net/ SetLength(FalseBoolStrs, 2); nFyP1l http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 5UMJ21 http://blog.numino.net/ FalseBoolStrs[0] := 'False'; aSbS93 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; F2r076 http://blog.numino.net/ FalseBoolStrs[1] := 'No'; Ntq7kX http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); xaAcZf http://blog.numino.net/ CheckBox2.Checked := B; BwODSt http://blog.numino.net/ end; C749Te http://blog.numino.net/ ///////End TryStrToBool YWqqu4 http://blog.numino.net/ 附加 ZZbG24 http://blog.numino.net/ ///////Begin TryStrToBool V5Gb1U http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; 1I92G2 http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; 7bWJg9 http://blog.numino.net/ var IaH7ur http://blog.numino.net/ I: Integer; S9k589 http://blog.numino.net/ begin V2Lo48 http://blog.numino.net/ Result := False; 1Cwe0J http://blog.numino.net/ for I := Low(aArray) to High(aArray) do 57ah0H http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then 4MDn5r http://blog.numino.net/ begin C3IMm4 http://blog.numino.net/ Result := True; 5jReA1 http://blog.numino.net/ Break; 70wjax http://blog.numino.net/ end; JGT7mR http://blog.numino.net/ end; 540j6b http://blog.numino.net/ var l13gvk http://blog.numino.net/ LResult: Extended; 8aQ68y http://blog.numino.net/ begin RXSQKt http://blog.numino.net/ Result := TryStrToFloat(S, LResult); cdwFpv http://blog.numino.net/ if Result then 1orsns http://blog.numino.net/ Value := LResult <> 0 502tuE http://blog.numino.net/ else TfTFNx http://blog.numino.net/ begin Q23b4B http://blog.numino.net/ Result := True; //修正处 8rg87p http://blog.numino.net/ VerifyBoolStrArray; QfY364 http://blog.numino.net/ if CompareWith(TrueBoolStrs) then YN1AAV http://blog.numino.net/ Value := True sdvz4F http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then iRwLP0 http://blog.numino.net/ Value := False 8Wf0Tu http://blog.numino.net/ else 3IP6OI http://blog.numino.net/ Result := False; KYe4ts http://blog.numino.net/ end; PWY5P6 http://blog.numino.net/ end; x9S3ah http://blog.numino.net/ ///////End TryStrToBool 18LQDg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ obo3ma http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; c548ns http://blog.numino.net/ $[SysUtils.pas pe9gVh http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 Q3c4RT http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' R39G1d http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs KA7bv9 http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); o3T14j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kVuP3o http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas mcQzyR http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 UQBy3U http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 cLoi8d http://blog.numino.net/ 参考 function SysUtils.FindStringResource d3dIBb http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); 8j8gHM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8eIaWV http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): ll1ihe http://blog.numino.net/ string; $[SysUtils.pas rlW62L http://blog.numino.net/ 功能 返回格式化的字符串资源 u93gRo http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 XW3zn6 http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource yk3T4j http://blog.numino.net/ 例子 <NULL>; uEdt5Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lmBaYl http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas R0GEzF http://blog.numino.net/ 功能 返回指针字符串的长度 29IFYl http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 i0F6PM http://blog.numino.net/ 参考 <NULL> oUAUgG http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); MO1qZA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oBDs0X http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas vbx0Ls http://blog.numino.net/ 功能 返回指针字符串的结尾 TbBFx3 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 8WOt6H http://blog.numino.net/ 参考 <NULL> OlKO1E http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; 1U376d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0PTGU5 http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): rgtXH0 http://blog.numino.net/ PChar; $[SysUtils.pas 9jAgKA http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 23nwm5 http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s duG7qG http://blog.numino.net/ 参考 function System.Move 593TYL http://blog.numino.net/ 例子 te2VyJ http://blog.numino.net/ ///////Begin StrMove 01vwch http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); t3tx4A http://blog.numino.net/ var Tzi11L http://blog.numino.net/ vBuffer: PChar; 09GFgo http://blog.numino.net/ begin X9unfu http://blog.numino.net/ vBuffer := '0123456789'; G9u8v6 http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); rQqODG http://blog.numino.net/ Edit2.Text := vBuffer; aLDb8Y http://blog.numino.net/ end; 56Lgt7 http://blog.numino.net/ ///////End StrMove k7vFz1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Svo46p http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; ame4yu http://blog.numino.net/ $[SysUtils.pas ROKfhk http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 tcjakX http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 8PeKZ0 http://blog.numino.net/ 参考 <NULL> 4Cs0V8 http://blog.numino.net/ 例子 ylteLL http://blog.numino.net/ ///////Begin StrCopy GYn9mw http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 4Y5882 http://blog.numino.net/ var Q6YaFa http://blog.numino.net/ vBuffer: PChar; BedG4j http://blog.numino.net/ begin wVwQG1 http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); XWS6L3 http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); 3Afh4B http://blog.numino.net/ Edit2.Text := vBuffer; gi5d0O http://blog.numino.net/ FreeMem(vBuffer); M6Cj92 http://blog.numino.net/ end; SHy4L9 http://blog.numino.net/ ///////End StrCopy qS01Qa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y9Uo1c http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; sqdyJ1 http://blog.numino.net/ $[SysUtils.pas MViI2p http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 7w7BdL http://blog.numino.net/ 说明 可以连接指针字符串 10qt65 http://blog.numino.net/ 参考 <NULL> Ol2e70 http://blog.numino.net/ 例子 Up3cl4 http://blog.numino.net/ ///////Begin StrECopy dlhIGz http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); S86Jo2 http://blog.numino.net/ var njlMoB http://blog.numino.net/ vBuffer: array[0..255] of Char; gu49yD http://blog.numino.net/ begin 73vZm6 http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); Bz4610 http://blog.numino.net/ Edit3.Text := vBuffer; bgSp7Y http://blog.numino.net/ end; 57b1Pw http://blog.numino.net/ ///////End StrECopy 6P14gS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6W4udB http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): Xs6ISy http://blog.numino.net/ PChar; $[SysUtils.pas N3kyjh http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 DTAw0t http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 3bAvRA http://blog.numino.net/ 参考 <NULL> n431Zy http://blog.numino.net/ 例子 KZPhJx http://blog.numino.net/ ///////Begin StrLCopy 0YKIxE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JHHFuj http://blog.numino.net/ var wQo79N http://blog.numino.net/ vBuffer: array[0..255] of Char; PkUwZt http://blog.numino.net/ begin iPAK80 http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); RbNOIb http://blog.numino.net/ Edit2.Text := vBuffer; 3eMI92 http://blog.numino.net/ end; I9707l http://blog.numino.net/ ///////End StrLCopy 0eh413 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZcDFvW http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; V0Jj85 http://blog.numino.net/ $[SysUtils.pas XT0tV1 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 o6jiOj http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) AhH20R http://blog.numino.net/ 参考 function SysUtils.StrLCopy P639sQ http://blog.numino.net/ 例子 D3SaHF http://blog.numino.net/ ///////Begin StrPCopy OaTSY7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); IIrOLF http://blog.numino.net/ var zRIo1N http://blog.numino.net/ vBuffer: array[0..255] of Char; J5MOIn http://blog.numino.net/ begin z4DGgL http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); 8TO6dF http://blog.numino.net/ Edit2.Text := vBuffer; dl54L0 http://blog.numino.net/ end; KQ00Pq http://blog.numino.net/ ///////End StrPCopy VbKjpu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2yAiY7 http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: LSsSwT http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas hzM2C8 http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 4vozzb http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) u857AR http://blog.numino.net/ 参考 function SysUtils.StrLCopy R26cn2 http://blog.numino.net/ 例子 sXl7KR http://blog.numino.net/ ///////Begin StrPLCopy 978X07 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); AHGEYv http://blog.numino.net/ var sU5eQX http://blog.numino.net/ vBuffer: array[0..255] of Char; Ge9V9d http://blog.numino.net/ begin MjfHgL http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); H26j7t http://blog.numino.net/ Edit2.Text := vBuffer; w4Uraw http://blog.numino.net/ end; NCqJU0 http://blog.numino.net/ ///////End StrPLCopy 5t1rK1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tVdD63 http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; hbNRr3 http://blog.numino.net/ $[SysUtils.pas 5RUvYJ http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source q55S10 http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) 3s2z9h http://blog.numino.net/ 参考 function SysUntils.StrCopy Et3ugN http://blog.numino.net/ 例子 N5284f http://blog.numino.net/ ///////Begin StrCat d5G3Yo http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 82SSLa http://blog.numino.net/ var O2282J http://blog.numino.net/ vBuffer: array[0..255] of Char; T8uB2H http://blog.numino.net/ begin n0ucAM http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); RqB1ij http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); Azx2UD http://blog.numino.net/ Edit3.Text := vBuffer; h58Ab7 http://blog.numino.net/ end; b93c14 http://blog.numino.net/ ///////End StrCat 1fDh0F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rH14nh http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 445FEC http://blog.numino.net/ PChar; $[SysUtils.pas P48I3q http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source 62vkg6 http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 49ZSav http://blog.numino.net/ 参考 <NULL> rxH8Av http://blog.numino.net/ 例子 3dOCN5 http://blog.numino.net/ ///////Begin StrLCat RwMvqo http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); zF7jOM http://blog.numino.net/ var LrzCgz http://blog.numino.net/ vBuffer: array[0..255] of Char; X343hs http://blog.numino.net/ begin 936cId http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); evWza2 http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 2JpqBf http://blog.numino.net/ Edit3.Text := vBuffer; fW2eNU http://blog.numino.net/ end; 0hM8F5 http://blog.numino.net/ ///////End StrLCat Chdr8h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hcg20O http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas LJ8kl3 http://blog.numino.net/ 功能 返回比较两个指针字符串 6KR86j http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 q58iql http://blog.numino.net/ 参考 <NULL> YaCzVG http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); c26tkh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UWoFci http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas RzvsFs http://blog.numino.net/ 功能 返回比较两个指针字符串 2p9o6i http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 6697CF http://blog.numino.net/ 参考 <NULL> flIjNG http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); n7VlKQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Iq7Y1a http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 61uIxi http://blog.numino.net/ $[SysUtils.pas yULKDt http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 gat0LR http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 bIGeMu http://blog.numino.net/ 参考 <NULL> yt4x2L http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), Dl4x61 http://blog.numino.net/ SpinEdit2.Value) S1oah2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Zv984c http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; tpxTez http://blog.numino.net/ $[SysUtils.pas LgE0iI http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 vQkQKU http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 9Vc3bf http://blog.numino.net/ 参考 <NULL> u1f0f4 http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), Im1z7z http://blog.numino.net/ SpinEdit2.Value) uPNWRV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lMde03 http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas byWfb6 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 oJi99z http://blog.numino.net/ 说明 没有找到则返回空指针 Gy8QgX http://blog.numino.net/ 参考 <NULL> xSDtxU http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); x6Bxvo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 90k3KL http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas ShU9qB http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 uNWqPV http://blog.numino.net/ 说明 没有找到则返回空指针 eX1rK7 http://blog.numino.net/ 参考 <NULL> 3s0HQ6 http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); N2e4qX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y8AC9H http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas E5le77 http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 wp6XDP http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' VP3bqK http://blog.numino.net/ 参考 <NULL> 2Iug92 http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 46f20X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dCSGZ1 http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas qmCpcs http://blog.numino.net/ 功能 返回指针字符串Str大写 DropYR http://blog.numino.net/ 说明 非小写字符不处理 wRIcIp http://blog.numino.net/ 参考 <NULL> 296G04 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); OqL4u0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4cf3l1 http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas QL9FIz http://blog.numino.net/ 功能 返回指针字符串Str小写 Ogx4Qi http://blog.numino.net/ 说明 非大写字符不处理 0hXqYJ http://blog.numino.net/ 参考 <NULL> 1CM6Q4 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); q2z99O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 26a0z8 http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas k63CEC http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 j3ycOI http://blog.numino.net/ 说明 也可以直接赋值 Ka37T7 http://blog.numino.net/ 参考 <NULL> cyUpvm http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); YqMWBl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1VAK0y http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas Ya2py3 http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 lwm9QH http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 rwR5By http://blog.numino.net/ 参考 function System.GetMem 9vF5g4 http://blog.numino.net/ 例子 Je6EB3 http://blog.numino.net/ ///////Begin StrAlloc gi30DQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); zQq8Y3 http://blog.numino.net/ var aze957 http://blog.numino.net/ P: PChar; YFDwiL http://blog.numino.net/ begin 8jjCcx http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); XBdAp7 http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); Yl5bGJ http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); cJ3443 http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); JG70PL http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); 3h0qBd http://blog.numino.net/ StrDispose(P); klWQ9J http://blog.numino.net/ end; Ye3KoK http://blog.numino.net/ ///////End StrAlloc KE9Qnx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zgdBZp http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas q3CEQ0 http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 I5C9Vw http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 PdOMbS http://blog.numino.net/ 参考 function System.SizeOf 0KSYS3 http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); f0Br9Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EQVj3k http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas JrSFUw http://blog.numino.net/ 功能 返回复制一个新的指针字符串 dw12lD http://blog.numino.net/ 说明 如果Str为nil则返回nil th5hP2 http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function 8SY85f http://blog.numino.net/ SysUtils.StrAlloc 8gq6aL http://blog.numino.net/ 例子 3yMrgW http://blog.numino.net/ ///////Begin StrNew,StrDispose qMN1uO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 8F4wIh http://blog.numino.net/ var 0qP3fy http://blog.numino.net/ P: PChar; 5GKyNb http://blog.numino.net/ begin oEYewR http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); hF2s6H http://blog.numino.net/ ShowMessage(P); qT60s1 http://blog.numino.net/ StrDispose(P); 35kmDK http://blog.numino.net/ end; VN3743 http://blog.numino.net/ ///////End StrNew,StrDispose fs49q7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qfrWD7 http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas YLb1t7 http://blog.numino.net/ 功能 释放指针字符串Str内存资源 l18RK9 http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 y9c81O http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem efk6VT http://blog.numino.net/ 例子 <参见StrNew> 6z7rf7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a7kBC9 http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): AQOFWS http://blog.numino.net/ string; $[SysUtils.pas X1awD4 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 B8YTOh http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 fxo0vh http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 DcFX6O http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 04nTHg http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 cG3VA1 http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 W13CGN http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 4NUJ17 http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 nHa0Fc http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 5Dz7IB http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 RBijNq http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 SKCv8H http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 ZJoVJA http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 2wBCXZ http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" b4oq5F http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 8fzU7V http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr Y89GIo http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); 2s7kSY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JyokFU http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: bBV1qQ http://blog.numino.net/ array of const); $[SysUtils.pas j9vSks http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 8j16PU http://blog.numino.net/ 说明 <参见Format> 4mLM4t http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function 97i99o http://blog.numino.net/ System.SetLength 6kvnpO http://blog.numino.net/ 例子 <参见Format> WbUJab http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KrNHY2 http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): Qg0MKO http://blog.numino.net/ PChar; $[SysUtils.pas HJuNXv http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 wThki1 http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil 4536Tg http://blog.numino.net/ 参考 function SysUtils.FormatBuf ScqiF4 http://blog.numino.net/ 例子 <参见Format> u7Y844 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vmGTAY http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; XBYbP9 http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas AD9zIU http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 d8OXnQ http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; 03ZbEE http://blog.numino.net/ 参考 function SysUtils.FormatBuf XqZglB http://blog.numino.net/ 例子 <参见Format> Qrkk1M http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5D8dIS http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: 3vU7bA http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas eropy3 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 B6E19Z http://blog.numino.net/ 说明 <NULL> 0576sU http://blog.numino.net/ 参考 <NULL> A2aU7s http://blog.numino.net/ 例子 <参见Format> emFw4j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5Re8jF http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of P6fNKm http://blog.numino.net/ const): WideString; $[SysUtils.pas 3ISFd7 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 Oa6gg2 http://blog.numino.net/ 说明 <NULL> gks7q8 http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr 74k0pH http://blog.numino.net/ 例子 <参见Format> GlS1V3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bJLrv5 http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; dgBu1d http://blog.numino.net/ const Args: array of const); $[SysUtils.pas O4mXXW http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 ct15C7 http://blog.numino.net/ 说明 <NULL> wI0ncO http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf oJ7Zx5 http://blog.numino.net/ 例子 <参见Format> oQ2puQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 48UU58 http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; WK0WGW http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas HA31fS http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 KcWUce http://blog.numino.net/ 说明 <NULL> zsoIRS http://blog.numino.net/ 参考 <NULL> 94UqE1 http://blog.numino.net/ 例子 <参见Format> XfmNjx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XX6D1r http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 7iUX0c http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 WQ2YGN http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 42x97O http://blog.numino.net/ 参考 function SysUtils.FloatToText fK8hoH http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 7BYtZq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vIcn95 http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas gJDhFo http://blog.numino.net/ 功能 返回货币数Value转换成字符串 a1CA2S http://blog.numino.net/ 说明 货币数只保留四位小数 8MVDaW http://blog.numino.net/ 参考 function SysUtils.FloatToText D2rdtZ http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); 1qlxCP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ldwvVy http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 7piZRG http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 P6YSbN http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 7NBFYK http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency SMdZV5 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); 00o1h1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LVNBJ6 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, r5KDfI http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas W41lq3 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 HrljAR http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 LY4aho http://blog.numino.net/ 参考 function SysUtils.FloatToText A5792d http://blog.numino.net/ 例子 dWXaS8 http://blog.numino.net/ ///////Begin FloatToStrF t4LkVf http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 026400 http://blog.numino.net/ begin 0WA1mb http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, YbXMgL http://blog.numino.net/ 0), qh5b2Q http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); CKFgk5 http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, w2Ifi9 http://blog.numino.net/ 0), vwSyz0 http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); PrKT9K http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), M1zuRd http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); U0a2m9 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, z9GiV3 http://blog.numino.net/ 0), 4cr36H http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); xi2m46 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, K4T1Jz http://blog.numino.net/ 0), s5ooJX http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); zZKAzc http://blog.numino.net/ end; zzOnCp http://blog.numino.net/ ///////End FloatToStrF A6gaE8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wflkQd http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: NSmLXS http://blog.numino.net/ Integer): string; $[SysUtils.pas 8aMHK3 http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 h1UeJs http://blog.numino.net/ 说明 Digits指定小数宽度 v1v149 http://blog.numino.net/ 参考 function SysUtils.FloatToText jrz135 http://blog.numino.net/ 例子 QtPz7g http://blog.numino.net/ ///////Begin CurrToStrF EHC5H5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Dn2MR4 http://blog.numino.net/ begin nuex30 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), Qeaafk http://blog.numino.net/ ffGeneral, SpinEdit1.Value); F7Z6nI http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, nR5I3Q http://blog.numino.net/ 0), K1Q75q http://blog.numino.net/ ffExponent, SpinEdit1.Value); 3fwgNe http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 4e0L2b http://blog.numino.net/ ffFixed, SpinEdit1.Value); YP5wh7 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 8oGbK1 http://blog.numino.net/ ffNumber, SpinEdit1.Value); Fd7118 http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 1P8YGu http://blog.numino.net/ 0), ZBG1Lt http://blog.numino.net/ ffCurrency, SpinEdit1.Value); M771pa http://blog.numino.net/ end; eNsUVj http://blog.numino.net/ ///////End CurrToStrF 7snYZr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0w8Dv3 http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: RFSsx7 http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; hhwoH8 http://blog.numino.net/ $[SysUtils.pas fo5Hzx http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 R4v4Fw http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 XYH5Pd http://blog.numino.net/ 参考 <NULL> W1YD7B http://blog.numino.net/ 例子 kpa4V7 http://blog.numino.net/ ///////Begin FloatToText 3ZEKH1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); N9YaF9 http://blog.numino.net/ var mzBJPI http://blog.numino.net/ vBuffer: array[0..255] of Char; Gw168C http://blog.numino.net/ E: Extended; mGrA6v http://blog.numino.net/ begin 4CgzY8 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); gv4H4p http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 2Pn50Q http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 8AoL3U http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); Z2jE8C http://blog.numino.net/ end; 8KPk4X http://blog.numino.net/ ///////End FloatToText( rI5TUR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6UW6L3 http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; 6qvFpW http://blog.numino.net/ $[SysUtils.pas xibqGX http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 WgfXDD http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' BPKzLR http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 3t93zj http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); zLXNLQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8wpJ6t http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; oZwgUN http://blog.numino.net/ $[SysUtils.pas AaD0fa http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 2INPe2 http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' WvWq8N http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt kAOB9J http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); J988vP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m5i9FA http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 2c43w8 http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas oppF5w http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 sKFUei http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 in3oh4 http://blog.numino.net/ 参考 <NULL> fqDn71 http://blog.numino.net/ 例子 5WpYCx http://blog.numino.net/ ///////Begin FloatToTextFmt 4Tan9q http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); By8O5E http://blog.numino.net/ var LfnXlG http://blog.numino.net/ vBuffer: array[0..255] of Char; D0Cz0C http://blog.numino.net/ E: Extended; K6DoMS http://blog.numino.net/ begin Js6jya http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); T0DpkE http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, HzmqyL http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); Zbd96u http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); z5Oq5Z http://blog.numino.net/ end; LG4x4f http://blog.numino.net/ ///////End FloatToTextFmt k79x1v http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4D6d8c http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas l99wa8 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 FhOhdw http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 qihMVr http://blog.numino.net/ 参考 function SysUtils.TextToFloat ugTEd4 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; 4xM9FH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q09Mk5 http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): Z4R5HB http://blog.numino.net/ Extended; $[SysUtils.pas q7hfPq http://blog.numino.net/ 功能 返回字符串S转换成浮点数 J3k36M http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default Y5sIgw http://blog.numino.net/ 参考 function SysUtils.TextToFloat lF2tL5 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; JDG7Xi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1cNHvw http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; 7EndjH http://blog.numino.net/ overload; $[SysUtils.pas 25iu5e http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; JwfI5n http://blog.numino.net/ overload; $[SysUtils.pas Q8O11l http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; Qf8S4k http://blog.numino.net/ overload; $[SysUtils.pas alIqS6 http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 ulEND1 http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 5XDn4V http://blog.numino.net/ 参考 function SysUtils.TextToFloat WJxIDB http://blog.numino.net/ 例子 12fTT2 http://blog.numino.net/ ///////Begin TryStrToFloat hOZP1o http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); OObqzS http://blog.numino.net/ var h59F9u http://blog.numino.net/ E: Extended; DBoRSg http://blog.numino.net/ begin 2XIx6a http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); z60nk0 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); 5FmP45 http://blog.numino.net/ end; CfrXMS http://blog.numino.net/ ///////End TryStrToFloat P7AYZ7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D0RlPm http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas bjCw4m http://blog.numino.net/ 功能 返回字符串S转换成货币数 PU2K4I http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 j2hRTA http://blog.numino.net/ 参考 function SysUtils.TextToFloat p4F69s http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; R89art http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DsCQkX http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): FzqOWe http://blog.numino.net/ Currency; $[SysUtils.pas o2null http://blog.numino.net/ 功能 返回字符串S转换成货币数 GZgI6N http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default H7B1dZ http://blog.numino.net/ 参考 function SysUtils.TextToFloat xq3W4g http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; rhXr0F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wCs6Or http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; Ar2DpO http://blog.numino.net/ $[SysUtils.pas IPDq0T http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 Faz0Q0 http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 TicI6t http://blog.numino.net/ 参考 function SysUtils.TextToFloat L1iwlC http://blog.numino.net/ 例子 43r40q http://blog.numino.net/ ///////Begin TryStrToCurr 7aLU2V http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); YYH00m http://blog.numino.net/ var q7k7Dg http://blog.numino.net/ C: Currency; 2oO7iT http://blog.numino.net/ begin 59TAve http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); igf06J http://blog.numino.net/ Edit2.Text := FormatCurr('', C); 2w3bxV http://blog.numino.net/ end; kF5sX2 http://blog.numino.net/ ///////End TryStrToCurr IAbG6Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 04ZRCE http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): 73K0uG http://blog.numino.net/ Boolean; $[SysUtils.pas XZ7wem http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value GLTgq8 http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 uaCq0t http://blog.numino.net/ 参考 <NULL> goOfw8 http://blog.numino.net/ 例子 p2F7Gn http://blog.numino.net/ ///////Begin TextToFloat AO30Vm http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); aqBOra http://blog.numino.net/ var ZLMB3o http://blog.numino.net/ E: Extended; K3x1xa http://blog.numino.net/ begin rrxagR http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, k4Xz6Z http://blog.numino.net/ fvExtended); 4E22UJ http://blog.numino.net/ Edit2.Text := FormatFloat('', E); c4TOrm http://blog.numino.net/ end; N5PMFl http://blog.numino.net/ ///////End TextToFloat z65uDw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pD1ry9 http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas J5ZVsd http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 kZ9JI2 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 GdC4cv http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat O08V3Z http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); 3M2058 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0A2qdn http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas qy0ppW http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 5wi8TK http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 eq72iW http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat wBh3IM http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); l4kILC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N7UA8E http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; Syv8wz http://blog.numino.net/ $[SysUtils.pas R5j8Rw http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 LzRVDR http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 97nf7q http://blog.numino.net/ 参考 function SysUtils.DateTimeToString p0ecla http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); AGFFjM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r45731 http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 8UYfDM http://blog.numino.net/ 功能 返回字符串S转换成日期 h0I890 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 5MXuMh http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 53G88X http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); YYnp6v http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8s0ito http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): lmm3fo http://blog.numino.net/ TDateTime; $[SysUtils.pas 0De0KB http://blog.numino.net/ 功能 返回字符串S转换成日期 2Gd8HE http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default Z26jGK http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 6Dz0kk http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); uJ07SE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f8LGh9 http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; 4I8gaY http://blog.numino.net/ $[SysUtils.pas 3mVaPD http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 IAM2Wl http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 lNcfx0 http://blog.numino.net/ 参考 <NULL> S4uhcL http://blog.numino.net/ 例子 97Br2K http://blog.numino.net/ ///////Begin TryStrToDate gO5iG7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JejbCg http://blog.numino.net/ var N09btv http://blog.numino.net/ vDateTime: TDateTime; W45OyB http://blog.numino.net/ begin b04yKw http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); 5YAU66 http://blog.numino.net/ DateTimePicker1.Date := vDateTime; 10dXzK http://blog.numino.net/ end; QmWTI7 http://blog.numino.net/ ///////End TryStrToDate KjfoAu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ aTR9VW http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas gcKPhp http://blog.numino.net/ 功能 返回字符串S转换成时间 xl7OB1 http://blog.numino.net/ 说明 字符非时间表达时将引起异常 R3d0jv http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 2INTkp http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 0jh7x0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1vjkwK http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): 0S57IN http://blog.numino.net/ TDateTime; $[SysUtils.pas BFW08P http://blog.numino.net/ 功能 返回字符串S转换成时间 Y57Ry1 http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default 1y07F1 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime zeNyRR http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); yYdMXn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TPxTp4 http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; SJsuiJ http://blog.numino.net/ $[SysUtils.pas XOo4v0 http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 jlLgS9 http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 AEjG8T http://blog.numino.net/ 参考 <NULL> h9wJHa http://blog.numino.net/ 例子 6roqpP http://blog.numino.net/ ///////Begin TryStrToTime sWE3dz http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); nELw71 http://blog.numino.net/ var 3p0bZW http://blog.numino.net/ vDateTime: TDateTime; cQzw6X http://blog.numino.net/ begin 7kCrMf http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 3c9Rr3 http://blog.numino.net/ DateTimePicker1.Time := vDateTime; D0ZJmw http://blog.numino.net/ end; p33dA0 http://blog.numino.net/ ///////End TryStrToTime LyAFD3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wX88Yi http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas TiYYAX http://blog.numino.net/ 功能 返回字符串S转换成日期时间 c7dp3C http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 euJDcp http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 717YO3 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 4e3Lcd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Zozalv http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): fomvmZ http://blog.numino.net/ TDateTime; $[SysUtils.pas 41c34D http://blog.numino.net/ 功能 返回字符串S转换成日期时间 C6y1N4 http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default Js372k http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime dHv2y5 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 5WJv6G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MSnS7D http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): s61D2p http://blog.numino.net/ Boolean; $[SysUtils.pas v2J81S http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 zcU2es http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 R06A9t http://blog.numino.net/ 参考 <NULL> O3lR9a http://blog.numino.net/ 例子 zgWl13 http://blog.numino.net/ ///////Begin TryStrToDateTime dbshGT http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5NbDI5 http://blog.numino.net/ var h1S1hK http://blog.numino.net/ vDateTime: TDateTime; Vy64Iy http://blog.numino.net/ begin 7OuqC5 http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); EQ4ttJ http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); oAd5Lw http://blog.numino.net/ end; xSXRpf http://blog.numino.net/ ///////End TryStrToDateTime QEnXwl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zS6Wkx http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; oe6PCk http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas eWtk0n http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 7lJ0BK http://blog.numino.net/ 说明 <参见FormatDateTime> 0UNz0v http://blog.numino.net/ 参考 function System.SetString va0vq1 http://blog.numino.net/ 例子 <参见FormatDateTime> 3KI4wB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5D2n48 http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: xx6hgz http://blog.numino.net/ string): string; platform; $[SysUtils.pas JEsz37 http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 Vq5ceV http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' n39O37 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo XwW86d http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); rkCsXW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t51i48 http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): D6eOQW http://blog.numino.net/ Char; platform; $[SysUtils.pas iGq6ZW http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 NY9uv6 http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' i0OK46 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo z9c0l2 http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); uiMR6z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0KluVm http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; Zx4EHT http://blog.numino.net/ $[SysUtils.pas 0q9SUw http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 YUOT73 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) 4A3mL8 http://blog.numino.net/ 参考 var SysUtils.SysLocale faLxSK http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); O2hjVw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gL6bx8 http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; A475GZ http://blog.numino.net/ $[SysUtils.pas Y1j7fJ http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 xARSB6 http://blog.numino.net/ 说明 Index从0开始 pP3mav http://blog.numino.net/ 参考 var SysUtils.SysLocale k8uxG4 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), zZtma1 http://blog.numino.net/ SpinEdit2.Value)); rtjamn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j60eV9 http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; pdVOnI http://blog.numino.net/ $[SysUtils.pas d0tVmU http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 9srPXj http://blog.numino.net/ 说明 MaxLen指定处理字符个数 8X48BP http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex 353Xey http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); g6d1wR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H2P0IZ http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; XgbU9w http://blog.numino.net/ $[SysUtils.pas GoTSO4 http://blog.numino.net/ 功能 返回字符串S中有多少个字符 aPIwbZ http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 HxRZxX http://blog.numino.net/ 参考 var SysUtils.SysLocale 6mK7zu http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 35dSx2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e1e9W4 http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; UQs3tO http://blog.numino.net/ $[SysUtils.pas 7taEU0 http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 4wPAmA http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 bHT0FS http://blog.numino.net/ 参考 function SysUtils.NextCharIndex QH61hy http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); by6rJ2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Yjn3Ww http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; 5i1Vsl http://blog.numino.net/ $[SysUtils.pas 5164T3 http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 pqy6fq http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 i6d32D http://blog.numino.net/ 参考 function System.Length mYeB4I http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); pcdog6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 91nz4V http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas yQIQ3D http://blog.numino.net/ 功能 返回第一个字符的宽度 DK8SJG http://blog.numino.net/ 说明 参数为空则返回0 4quAGI http://blog.numino.net/ 参考 function Windows.CharNext az36uO http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); ddP02i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6RRU2J http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 4k6PkO http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 TnbOGE http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; dd9158 http://blog.numino.net/ 参考 function Windows.CharNext AjoopC http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); jMeegh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ htBtea http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; l1FAGs http://blog.numino.net/ $[SysUtils.pas 1nOH25 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 5bsBP3 http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 x9FWM0 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength x2tbFj http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); ppLLj9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3A5mmg http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; BG4hKu http://blog.numino.net/ $[SysUtils.pas 43NCM7 http://blog.numino.net/ 功能 返回下一个字符的位置 KLZ1Ch http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 9X0ojW http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 57g2hT http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); sSBN6F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BPk1Cc http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; 8aEQr4 http://blog.numino.net/ $[SysUtils.pas u9ogIB http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 eB405w http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True N15sdG http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType F43Mh3 http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); KJSynV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ usi2k7 http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): NfHNft http://blog.numino.net/ Boolean; $[SysUtils.pas VkFjx0 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters v9bDM1 http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True hhu65S http://blog.numino.net/ 参考 function SysUtils.ByteType ibHEpJ http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, wYZ3ta http://blog.numino.net/ SpinEdit1.Value); 34N869 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tkFyHw http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; L16g7Y http://blog.numino.net/ $[SysUtils.pas 68D7Sp http://blog.numino.net/ 功能 返回包括最后路径分隔符 gte08H http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 Xt4E6H http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length ipd4T5 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); szc5Gw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0PU2Eq http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; hLEXDG http://blog.numino.net/ $[SysUtils.pas 53kMgT http://blog.numino.net/ 功能 返回包括最后斜线 65iY1X http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 1LQ8GS http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter R83D53 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); L449bA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Pykpu9 http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; LDn4t4 http://blog.numino.net/ $[SysUtils.pas sY06ZH http://blog.numino.net/ 功能 返回排除最后路径分隔符 Rz97t3 http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 1NA3U4 http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function 1W9K43 http://blog.numino.net/ System.SetLength 19pU84 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); V47G36 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T6Y29M http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; dKBc2s http://blog.numino.net/ $[SysUtils.pas GvLUHe http://blog.numino.net/ 功能 返回排除最后斜线 QRknW0 http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) V2D7dA http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter 6oa42U http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); ki5ZUN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JCy8Kx http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; 6r13Sz http://blog.numino.net/ $[SysUtils.pas 178Deq http://blog.numino.net/ 功能 返回最后一个分隔符的位置 FFGp1Z http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 GoIrnx http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType 5debF7 http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); zuw856 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ok93bU http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; lu18xj http://blog.numino.net/ $[SysUtils.pas 4Kf9PW http://blog.numino.net/ 功能 返回比较两个文件名 DX63HK http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 wM66Wv http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr P6j16E http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); I63RS1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oCdvx8 http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas leRFFP http://blog.numino.net/ 功能 返回两个文件名是否相等 WwjRwS http://blog.numino.net/ 说明 区分大小写 mL4OBs http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName cDnpz5 http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); nG637L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vzG03n http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas Yiuxz7 http://blog.numino.net/ 功能 返回小写文件名 JCWfG9 http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase Dr9UdJ http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase chotY4 http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); in6RSt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G9k5V5 http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas kSs5d2 http://blog.numino.net/ 功能 返回大写文件名 uGXR6F http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 95ECTa http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase M8v4rj http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); 47RQ3L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cR5qPr http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas mot7GH http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 XWG2yZ http://blog.numino.net/ 说明 不存在则返回0 MSb6Zc http://blog.numino.net/ 参考 SysUtils.AnsiStrPos djyzl6 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); o1gS46 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ voFrXa http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas AYDPk1 http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 MINOx4 http://blog.numino.net/ 说明 不存在则返回nil mgC3UV http://blog.numino.net/ 参考 function SysUtils.StrByteType bUhJ2j http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); Rdk014 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3h15qM http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 2fLYWh http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 L8m4n1 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' i9GpbK http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan bogd4U http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); dlq8zZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 50519A http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas xp1zUp http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 I7r4zk http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' mo4wof http://blog.numino.net/ 参考 function SysUtils.StrScan oiAGkj http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); wQG1uV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x0s15a http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: oteDjX http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas 10KPhN http://blog.numino.net/ 功能 返回替换后的字符串 xdIAG8 http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 BvzN02 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function 1E4zME http://blog.numino.net/ System.Copy AWAkOg http://blog.numino.net/ 例子 79L8hr http://blog.numino.net/ ///////Begin StringReplace bEXhUQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 90dKnj http://blog.numino.net/ begin nhh006 http://blog.numino.net/ Memo1.Lines.Values['[]'] := n0S4o3 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); zglopg http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := D0uAUp http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); bBS7lx http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := V8q82v http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); tHvsOP http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := P4bkH8 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, NQB9SL http://blog.numino.net/ rfIgnoreCase]); 4V2rUV http://blog.numino.net/ end; lKbzTq http://blog.numino.net/ ///////End StringReplace vrSK5L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6Ba5lf http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas 8QHC3t http://blog.numino.net/ 功能 返回字符串S转换成全局标识 1o8RrL http://blog.numino.net/ 说明 如果字符串非法将触发异常 ZvW7rY http://blog.numino.net/ 参考 fuction Windows.Succeeded 3k7WHK http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); KQlHqD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ A1G861 http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas aW5V64 http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 Ai54d2 http://blog.numino.net/ 说明 <NULL> BZ95Aw http://blog.numino.net/ 参考 fuction Windows.Succeeded ezPkVH http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); XvtZ4s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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