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

Delphi字符串函数大全 【字符串函数大全】 7SqAat http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; Ckl591 http://blog.numino.net/ $[StrUtils.pas LxG6Ox http://blog.numino.net/ 功能 返回两个字符串是否相似 AeO4pu http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 6kSy9c http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc lurWWM http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); J62T79 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gaZs5D http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 1Ms1jU http://blog.numino.net/ $[StrUtils.pas B1cRi8 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText 8IP0eb http://blog.numino.net/ 说明 不区分大小写 F2qdw1 http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos w2cRyB http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 0bd3cJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2g3JNZ http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; CRkJ2x http://blog.numino.net/ $[StrUtils.pas A3kG5a http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 hBjVCb http://blog.numino.net/ 说明 不区分大小写 YHPIqi http://blog.numino.net/ 参考 function Windows.CompareString 68zt7B http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); amtDRg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mfWGKu http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; mk8Q8N http://blog.numino.net/ $[StrUtils.pas p66wf6 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 9v7n47 http://blog.numino.net/ 说明 不区分大小写 3E10nU http://blog.numino.net/ 参考 function Windows.CompareString w8Z9u2 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); Bcq6Uv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VcYIdV http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 2hf0J8 http://blog.numino.net/ string; $[StrUtils.pas 2u6kYy http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 E3jQzX http://blog.numino.net/ 说明 不区分大小写 P3NCJu http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 0MIdkO http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); GpAgm2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FzcDLs http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of YXDM62 http://blog.numino.net/ string): Boolean; $[StrUtils.pas 947205 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText 56GaOf http://blog.numino.net/ 说明 不区分大小写 3RMpjo http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText KeW77d http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', R3pRF8 http://blog.numino.net/ 'a4']); 0Zpgtb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tuN0Su http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of 0JTg01 http://blog.numino.net/ string): Integer; $[StrUtils.pas BhcQ6t http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 DUSuS3 http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 84L4f9 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText N5bjSa http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); J3s5h7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w3240b http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 0lj3OI http://blog.numino.net/ $[StrUtils.pas PJiD6T http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText HPV0g2 http://blog.numino.net/ 说明 区分大小写 Tq4yVr http://blog.numino.net/ 参考 function StrUtils.AnsiPos NKAB92 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 0LG86Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MM5B14 http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; i844B3 http://blog.numino.net/ $[StrUtils.pas 0eyDEd http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 DA0ubW http://blog.numino.net/ 说明 区分大小写 enYvVJ http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr L1gLZr http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); mPHWiJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Rv3qsH http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; 6JDHfU http://blog.numino.net/ $[StrUtils.pas 53Wn7v http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 i6c5vN http://blog.numino.net/ 说明 区分大小写 HH025L http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr ob8Mkj http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 3XJmZw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b1Av96 http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): o34mJ9 http://blog.numino.net/ string; $[StrUtils.pas 44N7Pg http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 ORM5Mk http://blog.numino.net/ 说明 区分大小写 sQ3Rse http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags R03rqK http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); T4df2N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8M4a0Z http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of Y8y6H7 http://blog.numino.net/ string): Boolean; $[StrUtils.pas 5ZcIc2 http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText TjV62S http://blog.numino.net/ 说明 区分大小写 5eTblT http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr 622Jcd http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', ANH04L http://blog.numino.net/ 'a4']); 8cBJaB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 33Dr17 http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of HGJLKk http://blog.numino.net/ string): Integer; $[StrUtils.pas VQtm9j http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 2323Mn http://blog.numino.net/ 说明 区分大小写 xpGwu3 http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 6m3jvn http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); niA5vR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X2G7Ln http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; a004hV http://blog.numino.net/ $[StrUtils.pas HX7okU http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 TcfQdX http://blog.numino.net/ 说明 当ACount为0时返回'' b254OW http://blog.numino.net/ 参考 function System.SetLength 08XZxp http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); eTk6s8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bf2Yq6 http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas u2peW0 http://blog.numino.net/ 功能 返回字符串AText的反序 qqHZup http://blog.numino.net/ 说明 ReverseString('1234') = '4321' haZP7z http://blog.numino.net/ 参考 function System.SetLength 37wI57 http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); tCy7sk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jui7Ck http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; GQHvSr http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas FEJ2us http://blog.numino.net/ 功能 返回嵌套字符串 ZMVleP http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' 1qA1M0 http://blog.numino.net/ 参考 function System.Copy snp1m8 http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, l0S8y0 http://blog.numino.net/ Edit2.Text); 2DZ5C5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cDS270 http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; JNlIfF http://blog.numino.net/ $[StrUtils.pas 4uW73X http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 SS66kz http://blog.numino.net/ 说明 之前建议执行Randomize nAF82J http://blog.numino.net/ 参考 function System.Random tOChRh http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); XSKQGK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Aph7EQ http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = g72K00 http://blog.numino.net/ ''): string; overload; $[StrUtils.pas ny9RrH http://blog.numino.net/ 功能 返回指定的逻辑字符串 smBseB http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 3N1B0V http://blog.numino.net/ 参考 <NULL> 0tBW53 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); Oechmb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9oZM3L http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; zrbxnI http://blog.numino.net/ $[StrUtils.pas Ilbm81 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 VyVx3Z http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' jm6qqm http://blog.numino.net/ 参考 function System.Copy fO740u http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); gGTx5L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DjwO0n http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; Q4AC1C http://blog.numino.net/ $[StrUtils.pas 4rNY6R http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 k5AO14 http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' lPc339 http://blog.numino.net/ 参考 function System.Copy umLyW1 http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); 1XgUv8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 889cx2 http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): 03qmZa http://blog.numino.net/ string; $[StrUtils.pas 5JD6j0 http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 8dVBUE http://blog.numino.net/ 说明 其实就是Copy taLL8S http://blog.numino.net/ 参考 function System.Copy 78Qy9l http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); qoKvXa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qnVYly http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: 0Gnv6I http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): 9c2R83 http://blog.numino.net/ PChar; $[StrUtils.pas FqYKUL http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 uYdKbd http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 a9zuWX http://blog.numino.net/ 参考 <NULL> Bvg7RW http://blog.numino.net/ 例子 P0Uht3 http://blog.numino.net/ ///////Begin SearchBuf nI989h http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; FV9FT5 http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 5BJ79c http://blog.numino.net/ var iMaxbY http://blog.numino.net/ Buffer, P: PChar; LkeNOF http://blog.numino.net/ Size: Word; qFCBT5 http://blog.numino.net/ begin TiRX9C http://blog.numino.net/ Result := False; a6L1DI http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; es70ge http://blog.numino.net/ Size := EditControl.GetTextLen; Zzkxo3 http://blog.numino.net/ if (Size = 0) then Exit; x0kyl0 http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 82Xxj3 http://blog.numino.net/ try HUk74b http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); J2tsyD http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, Zr4l0A http://blog.numino.net/ SearchString, SearchOptions); t17QBk http://blog.numino.net/ if P <> nil then begin UAS2se http://blog.numino.net/ EditControl.SelStart := P - Buffer; 7p8I72 http://blog.numino.net/ EditControl.SelLength := Length(SearchString); 7GOxFv http://blog.numino.net/ Result := True; rccnnL http://blog.numino.net/ end; nC0og4 http://blog.numino.net/ finally 9dDauf http://blog.numino.net/ StrDispose(Buffer); du0GaL http://blog.numino.net/ end; 9wx9Ln http://blog.numino.net/ end; g31uTT http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 8Jzp9L http://blog.numino.net/ var bN0zft http://blog.numino.net/ SearchOptions: TStringSearchOptions; u2p1os http://blog.numino.net/ begin bjYXiK http://blog.numino.net/ SearchOptions := []; d22SQ9 http://blog.numino.net/ if CheckBox1.Checked then dxdc08 http://blog.numino.net/ Include(SearchOptions, soDown); EqpTEZ http://blog.numino.net/ if CheckBox2.Checked then DHlCgg http://blog.numino.net/ Include(SearchOptions, soMatchCase); St3OJL http://blog.numino.net/ if CheckBox3.Checked then P7A23s http://blog.numino.net/ Include(SearchOptions, soWholeWord); GdppMk http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); YBxC6N http://blog.numino.net/ Memo1.SetFocus; omsigv http://blog.numino.net/ end; tgTA06 http://blog.numino.net/ ///////End SearchBuf wpQZPD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PNvskr http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): rK2F7v http://blog.numino.net/ string; $[StrUtils.pas DG9iFM http://blog.numino.net/ 功能 返回探测字符串 yUD2oh http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html Qx717M http://blog.numino.net/ 参考 <NULL> CV8t8P http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); IlpVD0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SeUYDU http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 4RRUlo http://blog.numino.net/ 4): Integer; $[StrUtils.pas VH17IK http://blog.numino.net/ 功能 返回探测整数 496Iv3 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 KhBy5H http://blog.numino.net/ 参考 <NULL> 7K2OFZ http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); rG6EWS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3TcHO6 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas wRc6Dq http://blog.numino.net/ 功能 返回探测整数的解码 uVYJsc http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') OYwXVP http://blog.numino.net/ 参考 <NULL> 0k5CqR http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); x26ZOV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r6PJ3D http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas 0cHDo3 http://blog.numino.net/ 功能 返回探测文字数值 3hZDm1 http://blog.numino.net/ 说明 没有参数ALength已经固定为4 ajXSw7 http://blog.numino.net/ 参考 <NULL> t65Xl4 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); j34aWv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ b6fSGY http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas OsQcRT http://blog.numino.net/ 功能 返回探测文字数值的解码 18WwEx http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') IrMZ5G http://blog.numino.net/ 参考 <NULL> suc6go http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 3ir5oE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KZH12u http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: XEcj5f http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas VqO58W http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 31yTS9 http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) Rp7pn9 http://blog.numino.net/ 参考 <NULL> TRUziZ http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, C31eWb http://blog.numino.net/ SpinEdit1.Value); V2Ff87 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EVxFQt http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: h41kEe http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas l1J1yh http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 ZW2nQ1 http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, h3T292 http://blog.numino.net/ ALength)) yNyJ7W http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 7pXXYV http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, kZ4rQT http://blog.numino.net/ SpinEdit1.Value); 0ZC3kb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rg5s5I http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; 62YA65 http://blog.numino.net/ $[StrUtils.pas THU9bc http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 h1y7fl http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 Pzwg8U http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText 9McnY5 http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] b94DUz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WLXFwO http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas Nx486D http://blog.numino.net/ 功能 返回一个新的字符串指针地址 TJI7D1 http://blog.numino.net/ 说明 字符串S为空时返回NullStr 2kajjc http://blog.numino.net/ 参考 procedure System.New O408cM http://blog.numino.net/ 例子 eIDr3M http://blog.numino.net/ ////////Begin NewStr,DisposeStr 86fwTG http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); A0PF4P http://blog.numino.net/ var cBCWGs http://blog.numino.net/ P: PString; vUZScs http://blog.numino.net/ begin Hv6nXi http://blog.numino.net/ P := NewStr(Edit1.Text); ibQMuO http://blog.numino.net/ Edit2.Text := P^; RqweAB http://blog.numino.net/ DisposeStr(P); bpTq0V http://blog.numino.net/ end; lT2VY5 http://blog.numino.net/ ////////End NewStr,DisposeStr 4i11U3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2p0utD http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas kAAHYz http://blog.numino.net/ 功能 释放字符串指针P资源 6HS136 http://blog.numino.net/ 说明 配合函数NewStr使用 rntgnu http://blog.numino.net/ 参考 procedure System.Dispose eusxg6 http://blog.numino.net/ 例子 <如上参见,如下参见> eU33Ii http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M2KShj http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; hR53dC http://blog.numino.net/ $[SysUtils.pas IAa6dM http://blog.numino.net/ 功能 将字符串S更新给字符串指针P TdciTu http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 GbxcpW http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr 6xOpHX http://blog.numino.net/ 例子 AS743c http://blog.numino.net/ ////////Begin AssignStr FJlPfF http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); rqIEF9 http://blog.numino.net/ var xIg8aY http://blog.numino.net/ P: PString; Z16sVu http://blog.numino.net/ begin 2VPK0R http://blog.numino.net/ P := nil; 7oOLRd http://blog.numino.net/ AssignStr(P, Edit1.Text); Fd2ufF http://blog.numino.net/ Edit2.Text := P^; lh4J5M http://blog.numino.net/ DisposeStr(P); dvBGbA http://blog.numino.net/ end; 6Lxi76 http://blog.numino.net/ ////////End AssignStr hP0vPO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7VEazm http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; MRwRVl http://blog.numino.net/ $[SysUtils.pas 7qnfhN http://blog.numino.net/ 功能 在字符串Dest后追加字符串S 7ANc9w http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 5GUxB0 http://blog.numino.net/ 参考 <NULL> 6vtO1A http://blog.numino.net/ 例子 yvn8tB http://blog.numino.net/ ////////Begin AppendStr AK7MeS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); v97k98 http://blog.numino.net/ var H90k53 http://blog.numino.net/ S: string; us9P4a http://blog.numino.net/ begin WclC86 http://blog.numino.net/ S := Edit2.Text; 0aqs3B http://blog.numino.net/ AppendStr(S, Edit1.Text); 72X57t http://blog.numino.net/ Edit2.Text := S; Q4iYm4 http://blog.numino.net/ end; A4T88d http://blog.numino.net/ ////////End AppendStr 8II0nT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2lKi6Y http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas 9Zg2x0 http://blog.numino.net/ 功能 返回字符串S的大写形式 a5MC6r http://blog.numino.net/ 说明 非小写字符不处理 yXRufK http://blog.numino.net/ 参考 procedure System.SetLength 9J6VLv http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); Q4397N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pGWfU5 http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas 017Lgp http://blog.numino.net/ 功能 返回字符串S的小写形式 JInEdu http://blog.numino.net/ 说明 非大写字符不处理 LWsHD3 http://blog.numino.net/ 参考 procedure System.SetLength MWaEpp http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); f7tfu7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hp5qfK http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas 375JQl http://blog.numino.net/ 功能 返回比较两个字符 JG17c9 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 kxR58m http://blog.numino.net/ 参考 <NULL> 0R5LaC http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); 15fSd8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ danWER http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; er7K5H http://blog.numino.net/ assembler; $[SysUtils.pas pR7Xb1 http://blog.numino.net/ 功能 返回比较两个内存指针 aV9M5S http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), 1g2HG4 http://blog.numino.net/ PChar('12c'), 3)=False 2s9Xk1 http://blog.numino.net/ 参考 <NULL> UK2E0D http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); CIAtuy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ p4fA2q http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas FLJc9b http://blog.numino.net/ 功能 返回比较两个字符串 gn0u5w http://blog.numino.net/ 说明 不区分大小写 KJJn1i http://blog.numino.net/ 参考 <NULL> CYclIf http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 3ms5DN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vcg9K0 http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas SW7VCM http://blog.numino.net/ 功能 返回两个字符串是否相等 deMqV9 http://blog.numino.net/ 说明 不区分大小写 RJ8V28 http://blog.numino.net/ 参考 <NULL> sAy7YO http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 9wJBZb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dJ2OfS http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas B9WSon http://blog.numino.net/ 功能 返回字符串S的大写形式 yqc6C3 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 P24dNL http://blog.numino.net/ 参考 function Windows.CharUpperBuff ys2MTY http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); n6iuSm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2KRdNF http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas tsm7uz http://blog.numino.net/ 功能 返回字符串S的小写形式 11a6Wh http://blog.numino.net/ 说明 非大写字符不处理 f6W6eu http://blog.numino.net/ 参考 function Windows.CharLowerBuff GZXP2Q http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); gAs0u9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fnCd4w http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 470dlG http://blog.numino.net/ 功能 反回比较两个字符串 g532QK http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 OCXG08 http://blog.numino.net/ 参考 function Windows.CompareString kgIFZ4 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); xRR894 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lkzd17 http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas UflN57 http://blog.numino.net/ 功能 返回两个字符串是否相等 NNl17r http://blog.numino.net/ 说明 区分大小写 MQY922 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr tjLH7L http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); ZwVI8H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sW8r5J http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 0Qcjl3 http://blog.numino.net/ 功能 反回比较两个字符串 Ae6XT4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 GDlmxs http://blog.numino.net/ 参考 function Windows.CompareString 3q4NUC http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); L6pW2R http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Nnx5jA http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas M900e8 http://blog.numino.net/ 功能 返回两个字符串是否相等 v95tih http://blog.numino.net/ 说明 不区分大小写 KvVj1C http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText F95r94 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); ARzwq2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jFKpZY http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas rr54aY http://blog.numino.net/ 功能 返回比较两个指针字符串 7K8Cow http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 Cbm44V http://blog.numino.net/ 参考 function System.CompareString rI4Do6 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) 81xufP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dGTI8a http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas wLFO9x http://blog.numino.net/ 功能 返回比较两个指针字符串 Zmh73A http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) gz4Rwj http://blog.numino.net/ 参考 function Windows.CompareString 4LmYp5 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) EgPS6o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t8qsHJ http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; DSto48 http://blog.numino.net/ $[SysUtils.pas jpKbEX http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 me6S61 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) DaH9ah http://blog.numino.net/ 参考 function Windows.CompareString LppeDj http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), eY7xgs http://blog.numino.net/ SpinEdit2.Value) 5GHANx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t1Hbyt http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; nX5jWg http://blog.numino.net/ $[SysUtils.pas dHYeDk http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 5V0eeW http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 YAhwxA http://blog.numino.net/ 参考 function Windows.CompareString 32h3q0 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 52j5w1 http://blog.numino.net/ SpinEdit2.Value) 3YsK0M http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z6oc2A http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 19iBo5 http://blog.numino.net/ 功能 返回指针字符串小写形式 430J8n http://blog.numino.net/ 说明 非大写字符不处理 8ZBRac http://blog.numino.net/ 参考 function Windows.CharLower UhVZ36 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); 9tx9k0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pSKDiJ http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas jH1Xdi http://blog.numino.net/ 功能 返回指针字符串大写形式 CFVJkD http://blog.numino.net/ 说明 非小写字符不处理 4EO77h http://blog.numino.net/ 参考 function Windows.CharUpper 8hvzz0 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); 6H3X2w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NU1peW http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas okoIrB http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 kHg3XP http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 C6Vxm1 http://blog.numino.net/ 参考 function SysUtils.ByteType Y56V2M http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); gn6lhr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wLTIh0 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 19z4vO http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 jmgewQ http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 2s79a0 http://blog.numino.net/ 参考 function SysUtils.ByteType mHtuoI http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 42J7CT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6U3Bw4 http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 26PTVe http://blog.numino.net/ 功能 返回双字节字符串的大写形式 qz0R8m http://blog.numino.net/ 说明 WideChar双字节字符 jV05z2 http://blog.numino.net/ 参考 function Windows.CharUpperBuffW 6lMNk6 http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); SJPCOM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qR4uwd http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas a3mR7A http://blog.numino.net/ 功能 返回双字节字符串的小写形式 rK297i http://blog.numino.net/ 说明 我怎么就测试不出来呢 0wJ050 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW rXF7OZ http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); yfCgd2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SEYru1 http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; Ya78mX http://blog.numino.net/ $[SysUtils.pas RQY8u1 http://blog.numino.net/ 功能 返回比较两个双字节字符串 E61aPw http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 cpeFOJ http://blog.numino.net/ 参考 function Windows.CompareStringW 35ZxAD http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); 7l26B1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kWp7VY http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 8H7fz1 http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 9fwVuD http://blog.numino.net/ 说明 区分大小写 IlQZoL http://blog.numino.net/ 参考 function SysUtils.WideCompareStr u0mRY3 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 9g7PJO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9cN4y0 http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; 9Jer4S http://blog.numino.net/ $[SysUtils.pas 1ciX5K http://blog.numino.net/ 功能 返回比较两个双字节字符串 ZuN67O http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 dNOyA7 http://blog.numino.net/ 参考 function Windows.CompareStringW OsdLW8 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); m0Vmd0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DJieb0 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 6CW6mk http://blog.numino.net/ $[SysUtils.pas CWeNkk http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 ACpzEF http://blog.numino.net/ 说明 不区分大小写 Fe9xVY http://blog.numino.net/ 参考 function SysUtils.WideCompareText Hmn59p http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); XwLRJc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8YPt8u http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas XeGCf1 http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; I2jmpZ http://blog.numino.net/ $[SysUtils.pas V9h8Do http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 BuFyta http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 B09aU6 http://blog.numino.net/ 参考 function System.Copy 1qp6W9 http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); h91xrd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uHuV9I http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas C350O9 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; 30n6Ud http://blog.numino.net/ $[SysUtils.pas KnZBeq http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 N9nyEL http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 XRveZ6 http://blog.numino.net/ 参考 function System.Copy e13fG9 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); IT89Up http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dzq1N8 http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas 8c7WzK http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; r3aCyA http://blog.numino.net/ $[SysUtils.pas npZurj http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 79Y8By http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 yrqEl6 http://blog.numino.net/ 参考 function System.Copy PeERXt http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); m9xJvE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f0qM1z http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 6TJ0ye http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 4rJ1nI http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 81O8k3 http://blog.numino.net/ 参考 procedure System.Insert UxA6oI http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); eTFzXD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EGoN1C http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; iX4cwH http://blog.numino.net/ $[SysUtils.pas yeG5ES http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 NX7Vlk http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', Za08E0 http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 4MRRVO http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan RDio79 http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); Bm7S78 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WpY6K2 http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 47K5vg http://blog.numino.net/ $[SysUtils.pas lvy2X8 http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 g8LT6c http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 ivEa35 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan 9DqeQf http://blog.numino.net/ 例子 94a1xk http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr jQZEHD http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); KOJk24 http://blog.numino.net/ var pHuKg2 http://blog.numino.net/ P: PChar; zHLsdC http://blog.numino.net/ begin Cbw40Q http://blog.numino.net/ P := PChar(Edit1.Text); 3uHx62 http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); 68675x http://blog.numino.net/ Edit3.Text := P; 4jOZPc http://blog.numino.net/ end; 8J8Tnm http://blog.numino.net/ ///////End AnsiExtractQuotedStr RdhlR2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yVO4Xj http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; ntZ4Xk http://blog.numino.net/ $[SysUtils.pas 4TG0vz http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 5275AW http://blog.numino.net/ 说明 表现形式非法时则返回S dDM9Vp http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr t0MFvM http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); 3pCBT2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nO4DE5 http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = uIvNrJ http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): t4d8r9 http://blog.numino.net/ string; $[SysUtils.pas 25BOA2 http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 848SC9 http://blog.numino.net/ 说明 g6gQ5R 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 8g5fHG http://blog.numino.net/ 参考 function SysUtils.StrNextChar Nbx1aG http://blog.numino.net/ 例子 <NULL> N98NDB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0BIG81 http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas ZFk20s http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 8EFyhX http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... 1FepZR http://blog.numino.net/ 参考 <NULL> 3ABr90 http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 7SptCP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C53S0H http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas cshs0B http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas yZAbZ5 http://blog.numino.net/ 功能 返回整数Value转换成字符串 p4NKc1 http://blog.numino.net/ 说明 Format('%d', [Value]) beYslg http://blog.numino.net/ 参考 function SysUtils.FmtStr eCagh0 http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 8HzsRq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y79RLP http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; ZlGVGq http://blog.numino.net/ $[SysUtils.pas BVtzp1 http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; V8zSAA http://blog.numino.net/ $[SysUtils.pas xHR895 http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 93JHMm http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 eaMva6 http://blog.numino.net/ 参考 function SysUtils.FmtStr ixGbxv http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); IYt7zR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U3V1K1 http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas rkvM2W http://blog.numino.net/ 功能 返回字符串S转换成整数 rB1hNI http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 1qZo7B http://blog.numino.net/ 参考 procedure System.Val 0TwJQq http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); W97BCS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1X4sB3 http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; 6h0waN http://blog.numino.net/ $[SysUtils.pas 5VCivS http://blog.numino.net/ 功能 返回字符串S转换成整数 n54ZXf http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default J8Gk93 http://blog.numino.net/ 参考 procedure System.Val kE6q5Q http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); 1N3w9V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Pwc38a http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; afu9Fq http://blog.numino.net/ $[SysUtils.pas DQvmtw http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 ski6FD http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 L0OHQR http://blog.numino.net/ 参考 procedure System.Val 6cMb05 http://blog.numino.net/ 例子 pERErg http://blog.numino.net/ ///////Begin TryStrToInt grrWf8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6X3cYJ http://blog.numino.net/ var 111yHQ http://blog.numino.net/ I: Integer; h0ZeL0 http://blog.numino.net/ begin D5i494 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); 2VlWP3 http://blog.numino.net/ SpinEdit1.Value := I; R831yt http://blog.numino.net/ end; p5B5yQ http://blog.numino.net/ ///////End TryStrToInt zrDE2L http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MDids0 http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas ddb7VN http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 r6QG4B http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 P30fZH http://blog.numino.net/ 参考 procedure System.Val kM28La http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 55vDW5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7MkxNL http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; efr9wV http://blog.numino.net/ $[SysUtils.pas HhDtxw http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 58Pe56 http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default RON4n6 http://blog.numino.net/ 参考 procedure System.Val uWvG68 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); gmuQeo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wVfaXK http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; iBw3xm http://blog.numino.net/ $[SysUtils.pas dsLg47 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 Qu8N53 http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 x3fK90 http://blog.numino.net/ 参考 procedure System.Val wt3dib http://blog.numino.net/ 例子 31rRI8 http://blog.numino.net/ ///////Begin TryStrToInt64 I562xX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); nrvaYx http://blog.numino.net/ var iQUgp5 http://blog.numino.net/ I: Int64; UXylG8 http://blog.numino.net/ begin jMAI1G http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); 73z8Ey http://blog.numino.net/ SpinEdit1.Value := I; 3tZt7e http://blog.numino.net/ end; N9bYG5 http://blog.numino.net/ ///////End TryStrToInt64 bqqzDL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4nVrO5 http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas wYCUb6 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 19iwkP http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 B8W61s http://blog.numino.net/ 参考 function SysUtils.TryStrToBool SfLH00 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); g6WTmy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Y1UyoY http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): 8aKbrm http://blog.numino.net/ Boolean; $[SysUtils.pas Das76M http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 m1by8z http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default 5aIY3Y http://blog.numino.net/ 参考 function SysUtils.TryStrToBool K9ChuS http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); sgD36A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ udedqF http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; zp4iS2 http://blog.numino.net/ $[SysUtils.pas 472cbp http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 dtrfWW http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 nuv33V http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var 49F2pM http://blog.numino.net/ SysUtils.FalseBoolStrs bxHvBY http://blog.numino.net/ 例子 kn7jNi http://blog.numino.net/ ///////Begin TryStrToBool xr5BTg http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); S5oVSw http://blog.numino.net/ var gg7vY7 http://blog.numino.net/ B: Boolean; SWn91V http://blog.numino.net/ begin FU05R8 http://blog.numino.net/ SetLength(TrueBoolStrs, 2); 2V1VTi http://blog.numino.net/ SetLength(FalseBoolStrs, 2); UwBF23 http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 1e1qv2 http://blog.numino.net/ FalseBoolStrs[0] := 'False'; eD61b3 http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; E4SS6k http://blog.numino.net/ FalseBoolStrs[1] := 'No'; aM6QiI http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); 5os60n http://blog.numino.net/ CheckBox2.Checked := B; NEF4Q0 http://blog.numino.net/ end; 907uL5 http://blog.numino.net/ ///////End TryStrToBool 6cLP3R http://blog.numino.net/ 附加 Kw0d58 http://blog.numino.net/ ///////Begin TryStrToBool OSZikK http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; 9ZXVYr http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; 45s6bD http://blog.numino.net/ var Pn7EeL http://blog.numino.net/ I: Integer; yTxdx4 http://blog.numino.net/ begin vY90I0 http://blog.numino.net/ Result := False; 2vEeAs http://blog.numino.net/ for I := Low(aArray) to High(aArray) do 16FEIG http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then C6RRm9 http://blog.numino.net/ begin ZJhNEN http://blog.numino.net/ Result := True; FTUwXS http://blog.numino.net/ Break; No93Gt http://blog.numino.net/ end; PZA59k http://blog.numino.net/ end; 0ezKcC http://blog.numino.net/ var 984YSC http://blog.numino.net/ LResult: Extended; yr6Yt1 http://blog.numino.net/ begin ImVwws http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 04U1sc http://blog.numino.net/ if Result then 3vl7EA http://blog.numino.net/ Value := LResult <> 0 URpS20 http://blog.numino.net/ else Aqo53J http://blog.numino.net/ begin u9SKCN http://blog.numino.net/ Result := True; //修正处 850LA2 http://blog.numino.net/ VerifyBoolStrArray; oXp5Ee http://blog.numino.net/ if CompareWith(TrueBoolStrs) then s1xFFz http://blog.numino.net/ Value := True 44grQA http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then 1IdW1d http://blog.numino.net/ Value := False 1VE8pL http://blog.numino.net/ else 9e5rNg http://blog.numino.net/ Result := False; 8hdSWr http://blog.numino.net/ end; LlOGhi http://blog.numino.net/ end; GREk62 http://blog.numino.net/ ///////End TryStrToBool hRV502 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i82OIA http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; Fm84x7 http://blog.numino.net/ $[SysUtils.pas C4Dc8r http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 5vdm23 http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' HdrUd4 http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs r8JkFZ http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); 7t0G36 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0rWcrF http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas PgqXLf http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 9M8i49 http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 2m4VeS http://blog.numino.net/ 参考 function SysUtils.FindStringResource 6HyR5v http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); ceUsGb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cR730D http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): Qe09go http://blog.numino.net/ string; $[SysUtils.pas 9r7XCe http://blog.numino.net/ 功能 返回格式化的字符串资源 EXAgKx http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 HSJ8Pr http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource Sq4W2R http://blog.numino.net/ 例子 <NULL>; 2h6H7j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gst3Au http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 23J2X5 http://blog.numino.net/ 功能 返回指针字符串的长度 1FOEF6 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 o8Mih6 http://blog.numino.net/ 参考 <NULL> lPiahX http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); l9fCN9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6Czb99 http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas Ec1Ad5 http://blog.numino.net/ 功能 返回指针字符串的结尾 7odF5b http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 eHd8Jn http://blog.numino.net/ 参考 <NULL> Q53Dzv http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; m794IO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9r0k8s http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): 9jiOUx http://blog.numino.net/ PChar; $[SysUtils.pas AGYSp7 http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 Dr4P7Z http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s s60YN0 http://blog.numino.net/ 参考 function System.Move 2nAc5O http://blog.numino.net/ 例子 5FnP94 http://blog.numino.net/ ///////Begin StrMove 8C4nei http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); flqgKX http://blog.numino.net/ var p6o738 http://blog.numino.net/ vBuffer: PChar; D3S721 http://blog.numino.net/ begin 5fr7Jz http://blog.numino.net/ vBuffer := '0123456789'; ynUub2 http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); NOe2r2 http://blog.numino.net/ Edit2.Text := vBuffer; LXsnA6 http://blog.numino.net/ end; 4cn6Qj http://blog.numino.net/ ///////End StrMove GP8B9e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NpYBK1 http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; 0hJd28 http://blog.numino.net/ $[SysUtils.pas HTwiIj http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 XweWC0 http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 OWDy2s http://blog.numino.net/ 参考 <NULL> 9yHofG http://blog.numino.net/ 例子 dmKwtu http://blog.numino.net/ ///////Begin StrCopy 2HTsJE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); fqSFHy http://blog.numino.net/ var 0xzZRX http://blog.numino.net/ vBuffer: PChar; YCUoUL http://blog.numino.net/ begin QAQDax http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); pgiIj5 http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); o3h6S5 http://blog.numino.net/ Edit2.Text := vBuffer; F4pnb2 http://blog.numino.net/ FreeMem(vBuffer); Sfv07x http://blog.numino.net/ end; rJnp6W http://blog.numino.net/ ///////End StrCopy 52k18J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ v0Yvn1 http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; kXT9qR http://blog.numino.net/ $[SysUtils.pas Q585e7 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 vi2Pi3 http://blog.numino.net/ 说明 可以连接指针字符串 hkWUjP http://blog.numino.net/ 参考 <NULL> dMyPgE http://blog.numino.net/ 例子 3TmOCB http://blog.numino.net/ ///////Begin StrECopy HudQ5I http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 47rJ89 http://blog.numino.net/ var 2u07aY http://blog.numino.net/ vBuffer: array[0..255] of Char; 19tP2p http://blog.numino.net/ begin f1PtRi http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); 58jS8M http://blog.numino.net/ Edit3.Text := vBuffer; 3QKH42 http://blog.numino.net/ end; Xy81dB http://blog.numino.net/ ///////End StrECopy bJSP01 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ t7F433 http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): m54boy http://blog.numino.net/ PChar; $[SysUtils.pas Cf30M4 http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 5pCrZx http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 Hmp729 http://blog.numino.net/ 参考 <NULL> 8TowEF http://blog.numino.net/ 例子 0gBKS5 http://blog.numino.net/ ///////Begin StrLCopy 7gxmtU http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); NWisvE http://blog.numino.net/ var 8E1hSA http://blog.numino.net/ vBuffer: array[0..255] of Char; 46Yo0K http://blog.numino.net/ begin VZcFm0 http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 0RznqY http://blog.numino.net/ Edit2.Text := vBuffer; wPgBE9 http://blog.numino.net/ end; aKcvu4 http://blog.numino.net/ ///////End StrLCopy K7mVxL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AVsrGK http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; bA5S0D http://blog.numino.net/ $[SysUtils.pas slM7JY http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 D93OVO http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) 4qnlTK http://blog.numino.net/ 参考 function SysUtils.StrLCopy C6tt20 http://blog.numino.net/ 例子 8Ps3ql http://blog.numino.net/ ///////Begin StrPCopy hkQ8yG http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); oYaC9D http://blog.numino.net/ var Pj31qp http://blog.numino.net/ vBuffer: array[0..255] of Char; d9ST18 http://blog.numino.net/ begin 3nnuID http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); 5qY7tT http://blog.numino.net/ Edit2.Text := vBuffer; 6oi20v http://blog.numino.net/ end; rWGr9Y http://blog.numino.net/ ///////End StrPCopy 71vkqx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mNb1ve http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 6OcEOO http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas C8iYL4 http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 qZ8RuL http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) KzXPx7 http://blog.numino.net/ 参考 function SysUtils.StrLCopy h5UgPC http://blog.numino.net/ 例子 JPD4Qa http://blog.numino.net/ ///////Begin StrPLCopy eQNq87 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wXgX42 http://blog.numino.net/ var VFjoPg http://blog.numino.net/ vBuffer: array[0..255] of Char; BWHQ1m http://blog.numino.net/ begin TR4b8Q http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); 7h4EdY http://blog.numino.net/ Edit2.Text := vBuffer; 7pDrFd http://blog.numino.net/ end; nB2XmV http://blog.numino.net/ ///////End StrPLCopy vgbTnK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7bkuO8 http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; xINryR http://blog.numino.net/ $[SysUtils.pas Vt3UiB http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source 3rEUhk http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) ELti48 http://blog.numino.net/ 参考 function SysUntils.StrCopy 4YUonV http://blog.numino.net/ 例子 rtJYR9 http://blog.numino.net/ ///////Begin StrCat 359Yo3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); JkAdUA http://blog.numino.net/ var SU43R8 http://blog.numino.net/ vBuffer: array[0..255] of Char; dM4s3f http://blog.numino.net/ begin UzHUi0 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); RN62GZ http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); BquMsc http://blog.numino.net/ Edit3.Text := vBuffer; omCAP3 http://blog.numino.net/ end; 2Rh36S http://blog.numino.net/ ///////End StrCat KNqh6J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2lcr74 http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): J6g6oM http://blog.numino.net/ PChar; $[SysUtils.pas 8zecO7 http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source BvfC86 http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 v5LLsx http://blog.numino.net/ 参考 <NULL> tJ97xb http://blog.numino.net/ 例子 g6rOH5 http://blog.numino.net/ ///////Begin StrLCat Q92AEj http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); qo9KUt http://blog.numino.net/ var Xil8Yn http://blog.numino.net/ vBuffer: array[0..255] of Char; vozxpG http://blog.numino.net/ begin 4QEjxV http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); a3Gz2C http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); HBngZL http://blog.numino.net/ Edit3.Text := vBuffer; WV0GQb http://blog.numino.net/ end; 29uSvL http://blog.numino.net/ ///////End StrLCat 102u93 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fc3xaQ http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas d1a2Oh http://blog.numino.net/ 功能 返回比较两个指针字符串 824Az7 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 lME60e http://blog.numino.net/ 参考 <NULL> EB1qYC http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); IkxCRw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L8G9EX http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas y2dZYm http://blog.numino.net/ 功能 返回比较两个指针字符串 YXWkfU http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 0NjOOc http://blog.numino.net/ 参考 <NULL> 061dM0 http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); ePth7M http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YacDjw http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; MrewJ3 http://blog.numino.net/ $[SysUtils.pas fETSw3 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 1wvhL5 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 PVz2JZ http://blog.numino.net/ 参考 <NULL> 4GvkEq http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), Ew51cq http://blog.numino.net/ SpinEdit2.Value) nJ5NJr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MIa7OT http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; zKpMRc http://blog.numino.net/ $[SysUtils.pas F3jh8f http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 lN2Xz4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 Q212yB http://blog.numino.net/ 参考 <NULL> 8bE5fp http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), aKyrAW http://blog.numino.net/ SpinEdit2.Value) NCc9WV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H2xfAv http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas VI07vQ http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 Gw4uPk http://blog.numino.net/ 说明 没有找到则返回空指针 N9cFpS http://blog.numino.net/ 参考 <NULL> D6r96n http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); 5oJ2iM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5LbjqB http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas q21Mtp http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 v0F60C http://blog.numino.net/ 说明 没有找到则返回空指针 Mk1T1Z http://blog.numino.net/ 参考 <NULL> XDWGk2 http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); ogN2RU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZNzyuL http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas cYtiz4 http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 2zZxh7 http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' 0X2YNo http://blog.numino.net/ 参考 <NULL> X59o3F http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); gbcmU0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ V8euKI http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas bhiQRO http://blog.numino.net/ 功能 返回指针字符串Str大写 h7MDGI http://blog.numino.net/ 说明 非小写字符不处理 U4118G http://blog.numino.net/ 参考 <NULL> rmsrN9 http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); mMd4fN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ h74d08 http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas 31yL2k http://blog.numino.net/ 功能 返回指针字符串Str小写 WSc0mT http://blog.numino.net/ 说明 非大写字符不处理 HlD7NE http://blog.numino.net/ 参考 <NULL> T1pbEG http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); v21YIp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HIAIS1 http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas ZKUi94 http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 GHIdR7 http://blog.numino.net/ 说明 也可以直接赋值 u2r3Dz http://blog.numino.net/ 参考 <NULL> 4hSY8j http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 9Hpvjq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mZSlpD http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 5M87ha http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 cpqs2n http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 3Y2gIW http://blog.numino.net/ 参考 function System.GetMem CJ9n2O http://blog.numino.net/ 例子 474o6K http://blog.numino.net/ ///////Begin StrAlloc 186Eq9 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); smvY6I http://blog.numino.net/ var 7fs5Qm http://blog.numino.net/ P: PChar; 6dBcj0 http://blog.numino.net/ begin l2bkAt http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); 54H885 http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); 76S784 http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); ShO311 http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); R5m08b http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); PVkB2K http://blog.numino.net/ StrDispose(P); jE3TRE http://blog.numino.net/ end; JJirEk http://blog.numino.net/ ///////End StrAlloc Bxg1e3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K1lW53 http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas ffR6vw http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 kce5Ze http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 m5cMMD http://blog.numino.net/ 参考 function System.SizeOf nFmIK8 http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); 8Thyrg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 135IPi http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 2PAaz4 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 W7Vd9q http://blog.numino.net/ 说明 如果Str为nil则返回nil LQ6V8Y http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function JAgyw6 http://blog.numino.net/ SysUtils.StrAlloc h27k22 http://blog.numino.net/ 例子 uDQ5m8 http://blog.numino.net/ ///////Begin StrNew,StrDispose INvNxn http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); etx4q5 http://blog.numino.net/ var AUBSP7 http://blog.numino.net/ P: PChar; S42nqJ http://blog.numino.net/ begin U6dccb http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); cpipw8 http://blog.numino.net/ ShowMessage(P); FdVEzK http://blog.numino.net/ StrDispose(P); SB2uci http://blog.numino.net/ end; 15c4eB http://blog.numino.net/ ///////End StrNew,StrDispose 8IoExd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nX4455 http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas 45g127 http://blog.numino.net/ 功能 释放指针字符串Str内存资源 Ton51N http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 waunK7 http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem lhXPpU http://blog.numino.net/ 例子 <参见StrNew> 89Ecuy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vZM1BH http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): 6kN02r http://blog.numino.net/ string; $[SysUtils.pas 4N39L9 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 W4EG37 http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 G1NHxC http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 UoKpCh http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 IG2IpM http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 kHViYF http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 YBiqtP http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 DmGwvX http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 y75KbZ http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 514DA0 http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 PdSvEg http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 u36IkG http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 U41sj2 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 X9AQNg http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" zhG5tf http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 TKdl5I http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr R8J2eu http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); 50O0Z3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Uh3nw9 http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: YsFL4D http://blog.numino.net/ array of const); $[SysUtils.pas eUYg62 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 z653WO http://blog.numino.net/ 说明 <参见Format> 7fDWuM http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function QTOI5R http://blog.numino.net/ System.SetLength F2h9wm http://blog.numino.net/ 例子 <参见Format> O4NR65 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0LnK74 http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): 509DHT http://blog.numino.net/ PChar; $[SysUtils.pas gi9m0a http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 OE6O97 http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil c9s09v http://blog.numino.net/ 参考 function SysUtils.FormatBuf 38QC1U http://blog.numino.net/ 例子 <参见Format> 7TPmN2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Q0l6GL http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; QjEkik http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas 54tSd2 http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 Ug43nT http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; FQLpyy http://blog.numino.net/ 参考 function SysUtils.FormatBuf soOf65 http://blog.numino.net/ 例子 <参见Format> 2mRMH1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NhERp5 http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: EPF2pr http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas Bn10yJ http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 Yqe86v http://blog.numino.net/ 说明 <NULL> JBa0Lq http://blog.numino.net/ 参考 <NULL> iBWzCX http://blog.numino.net/ 例子 <参见Format> fzY207 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q5aqSD http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of BNDpg7 http://blog.numino.net/ const): WideString; $[SysUtils.pas 02rrMw http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 021qBZ http://blog.numino.net/ 说明 <NULL> LxyZm4 http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr EYJDGK http://blog.numino.net/ 例子 <参见Format> AsL91I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PCz4EL http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; 7QuOtS http://blog.numino.net/ const Args: array of const); $[SysUtils.pas FTENXv http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 fGq15D http://blog.numino.net/ 说明 <NULL> 08as3i http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf S67yJx http://blog.numino.net/ 例子 <参见Format> d930uW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DTmENl http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; 6lS6Mw http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 480Yf6 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 IQgg79 http://blog.numino.net/ 说明 <NULL> ws8IOx http://blog.numino.net/ 参考 <NULL> 0bjwXJ http://blog.numino.net/ 例子 <参见Format> N38a16 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BfmW6F http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 5bSL1f http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 20QIr4 http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 qhGu5b http://blog.numino.net/ 参考 function SysUtils.FloatToText D9PW1V http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 89uhbs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rqoogs http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas ouZu7p http://blog.numino.net/ 功能 返回货币数Value转换成字符串 8fp1w4 http://blog.numino.net/ 说明 货币数只保留四位小数 w4LmBd http://blog.numino.net/ 参考 function SysUtils.FloatToText nO6pR8 http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); Wlld3h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8rKRhp http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas L0sqM2 http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 QLOYTR http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 aYH4O7 http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency bN0m7L http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); b6K39r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gV1yM1 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, FU5Uri http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas VvPejr http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 7Megb9 http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 hqvzi1 http://blog.numino.net/ 参考 function SysUtils.FloatToText 97g7mo http://blog.numino.net/ 例子 7cDO5k http://blog.numino.net/ ///////Begin FloatToStrF W1W9at http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); trD3nQ http://blog.numino.net/ begin LzQCKS http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 6j6YT9 http://blog.numino.net/ 0), xiwiS5 http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); C8fxEI http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, ZN7Qm3 http://blog.numino.net/ 0), 331lCt http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); U84seU http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 7C5uwp http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); yaa3FS http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, Lz34iA http://blog.numino.net/ 0), cvdEAv http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); 52B0Xb http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, SHt6l4 http://blog.numino.net/ 0), Sc8Yhe http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); Yb05Ha http://blog.numino.net/ end; 6e8GHL http://blog.numino.net/ ///////End FloatToStrF 3DGY4E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YHy01U http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: lPZwmz http://blog.numino.net/ Integer): string; $[SysUtils.pas tprkyf http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 6HWSAJ http://blog.numino.net/ 说明 Digits指定小数宽度 4m0nzK http://blog.numino.net/ 参考 function SysUtils.FloatToText 00S06v http://blog.numino.net/ 例子 53LJMX http://blog.numino.net/ ///////Begin CurrToStrF kWxrYK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1sLqWq http://blog.numino.net/ begin i8b6G8 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), O7ulch http://blog.numino.net/ ffGeneral, SpinEdit1.Value); 6Wqk2v http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, gWaF66 http://blog.numino.net/ 0), uJOHr1 http://blog.numino.net/ ffExponent, SpinEdit1.Value); TUQfqv http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), tLgTor http://blog.numino.net/ ffFixed, SpinEdit1.Value); mFhE15 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), b3U2H5 http://blog.numino.net/ ffNumber, SpinEdit1.Value); KICV8W http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, ES8uwX http://blog.numino.net/ 0), TYuclb http://blog.numino.net/ ffCurrency, SpinEdit1.Value); VdABLt http://blog.numino.net/ end; p5Th6p http://blog.numino.net/ ///////End CurrToStrF Bf78V1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XAJ78P http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: xEP798 http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; 2GZdVw http://blog.numino.net/ $[SysUtils.pas spv624 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 o6EBlt http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 jwTmK3 http://blog.numino.net/ 参考 <NULL> D33Twx http://blog.numino.net/ 例子 L7wLTq http://blog.numino.net/ ///////Begin FloatToText XVvXH3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6CuClP http://blog.numino.net/ var PfMO7W http://blog.numino.net/ vBuffer: array[0..255] of Char; mJ55os http://blog.numino.net/ E: Extended; f7IOdx http://blog.numino.net/ begin kSKupn http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); BIRD6n http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 1t7pW2 http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 1BiCel http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); xBFIBI http://blog.numino.net/ end; 3wZ6J1 http://blog.numino.net/ ///////End FloatToText( oL16aD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Lrg8Xm http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; vxbtbt http://blog.numino.net/ $[SysUtils.pas 67ogW7 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 5X5IKx http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' 3xhUV2 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt FE2ML2 http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); H50L6e http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i1Z72g http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; Evzv7c http://blog.numino.net/ $[SysUtils.pas 3qRYsn http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 CGZVXU http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' kPe9x9 http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 2LipV2 http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 9H2xXo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3XNLQB http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: tLbl6T http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas 9X3YUn http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 8k1Gnc http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 qmYl5A http://blog.numino.net/ 参考 <NULL> DU2W1u http://blog.numino.net/ 例子 kXdex6 http://blog.numino.net/ ///////Begin FloatToTextFmt RT4XP7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); UwEryj http://blog.numino.net/ var sRF0vi http://blog.numino.net/ vBuffer: array[0..255] of Char; rKcgIK http://blog.numino.net/ E: Extended; 7g76wY http://blog.numino.net/ begin bI8Dd3 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); aL55r5 http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 1rqV3R http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); JAB66s http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); LcrHd3 http://blog.numino.net/ end; m1bK22 http://blog.numino.net/ ///////End FloatToTextFmt 498s06 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wUd3V1 http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas c3AD42 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 x3BD29 http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 nF9z4y http://blog.numino.net/ 参考 function SysUtils.TextToFloat HDttG0 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; FZfB53 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f9SLph http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): aBKw9G http://blog.numino.net/ Extended; $[SysUtils.pas Jy93OC http://blog.numino.net/ 功能 返回字符串S转换成浮点数 vXvQ7K http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default 8V0l0d http://blog.numino.net/ 参考 function SysUtils.TextToFloat BiDX2O http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 3GdLrh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w3Tjqm http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; ucKlZm http://blog.numino.net/ overload; $[SysUtils.pas 0d9hFu http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; 4UbTHA http://blog.numino.net/ overload; $[SysUtils.pas GBUCwO http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; ZGD4G5 http://blog.numino.net/ overload; $[SysUtils.pas b2n84z http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 chr5gB http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 9cyv9d http://blog.numino.net/ 参考 function SysUtils.TextToFloat SRTkXC http://blog.numino.net/ 例子 E5mzbU http://blog.numino.net/ ///////Begin TryStrToFloat O3qrJ3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hZlqdU http://blog.numino.net/ var QtbrQz http://blog.numino.net/ E: Extended; h1J5jy http://blog.numino.net/ begin VkS3F2 http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); U1AoP2 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); D2PpSc http://blog.numino.net/ end; MJZ7o8 http://blog.numino.net/ ///////End TryStrToFloat r8vbLM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ clY5Et http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas 7LHly7 http://blog.numino.net/ 功能 返回字符串S转换成货币数 6aIuzk http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 9Q107y http://blog.numino.net/ 参考 function SysUtils.TextToFloat kWE9GL http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; k2hO1T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Il6Sy6 http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): il86bn http://blog.numino.net/ Currency; $[SysUtils.pas 13CxN7 http://blog.numino.net/ 功能 返回字符串S转换成货币数 oyvonD http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default s1Svz9 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 04YWp8 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 3ALII3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NHa2q5 http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; 8T4lQ1 http://blog.numino.net/ $[SysUtils.pas Ga4L5P http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 K9vV53 http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 gZDUyt http://blog.numino.net/ 参考 function SysUtils.TextToFloat J7L3DM http://blog.numino.net/ 例子 TWLdL5 http://blog.numino.net/ ///////Begin TryStrToCurr Q5O2wa http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7Z7VR1 http://blog.numino.net/ var nZRNxz http://blog.numino.net/ C: Currency; YCrWDY http://blog.numino.net/ begin 8GwPm8 http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); 5lHOMB http://blog.numino.net/ Edit2.Text := FormatCurr('', C); vjql8n http://blog.numino.net/ end; awxomO http://blog.numino.net/ ///////End TryStrToCurr 4vqiId http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9wn0T7 http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): f3ipjj http://blog.numino.net/ Boolean; $[SysUtils.pas b70CR5 http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value K8Lzhk http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 fOByn2 http://blog.numino.net/ 参考 <NULL> sdPGUy http://blog.numino.net/ 例子 PtEHB3 http://blog.numino.net/ ///////Begin TextToFloat JgzeSK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Qew0Y9 http://blog.numino.net/ var h96Jsk http://blog.numino.net/ E: Extended; F5lr3z http://blog.numino.net/ begin Gd01dh http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, kOQv6l http://blog.numino.net/ fvExtended); OFe9G5 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); LgZ6Gv http://blog.numino.net/ end; rpMqzR http://blog.numino.net/ ///////End TextToFloat d84fp4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CrP91c http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas e4c51X http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 yVV1p6 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 l15iY1 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat YzV89B http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); 11dMIe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ I1oJf7 http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas fD3q9J http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 WOyj14 http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 N7J3qt http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat zx5p1o http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); ctkRo3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6d7wLO http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; MbEaHm http://blog.numino.net/ $[SysUtils.pas 0ZbKQi http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 XExTE1 http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 0B4wsk http://blog.numino.net/ 参考 function SysUtils.DateTimeToString fdWET9 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); kStrt3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0Q8cWd http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas PrS3f0 http://blog.numino.net/ 功能 返回字符串S转换成日期 FhrA33 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 8WjX6P http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 1W6J7M http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); NCsX4u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6ZCFfW http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): 1P2xFT http://blog.numino.net/ TDateTime; $[SysUtils.pas 2V5M27 http://blog.numino.net/ 功能 返回字符串S转换成日期 ICPe3I http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default 5Nw3X7 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate wbr6Y2 http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); 8UTH29 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Vmpffs http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; O9zc9T http://blog.numino.net/ $[SysUtils.pas se8324 http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 1H2LjN http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 GdftMV http://blog.numino.net/ 参考 <NULL> m7kAFQ http://blog.numino.net/ 例子 5036dy http://blog.numino.net/ ///////Begin TryStrToDate vOopab http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1C6kfb http://blog.numino.net/ var 12hVbY http://blog.numino.net/ vDateTime: TDateTime; 4e99Uc http://blog.numino.net/ begin eP9bA4 http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); VO43kP http://blog.numino.net/ DateTimePicker1.Date := vDateTime; DSN700 http://blog.numino.net/ end; 32Sbb7 http://blog.numino.net/ ///////End TryStrToDate 7oL8ps http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7O1T4t http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas V1rb65 http://blog.numino.net/ 功能 返回字符串S转换成时间 Y19Vg8 http://blog.numino.net/ 说明 字符非时间表达时将引起异常 9W9qAg http://blog.numino.net/ 参考 function SysUtils.TryStrToTime hqYJx6 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); q4Z7De http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VGAGhc http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): DZ3q8h http://blog.numino.net/ TDateTime; $[SysUtils.pas 7FFoGW http://blog.numino.net/ 功能 返回字符串S转换成时间 97Oe2F http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default Sm5q9C http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 145iTu http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 43vARX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c3bv56 http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; aL4EsO http://blog.numino.net/ $[SysUtils.pas NuG5w7 http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 359XC1 http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 mf02Qr http://blog.numino.net/ 参考 <NULL> 59Do60 http://blog.numino.net/ 例子 5f546f http://blog.numino.net/ ///////Begin TryStrToTime 1V1V3q http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 562L5J http://blog.numino.net/ var 3aXrqV http://blog.numino.net/ vDateTime: TDateTime; wEk5X2 http://blog.numino.net/ begin kCwdzv http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 1yfF1y http://blog.numino.net/ DateTimePicker1.Time := vDateTime; a3KOb6 http://blog.numino.net/ end; C7i5G6 http://blog.numino.net/ ///////End TryStrToTime IL7SHM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3i75f2 http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas k71den http://blog.numino.net/ 功能 返回字符串S转换成日期时间 V7Np1z http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 zUiUDh http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 4pL2cl http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 8B7o4Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0K86wZ http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): 46buK7 http://blog.numino.net/ TDateTime; $[SysUtils.pas tgcvD0 http://blog.numino.net/ 功能 返回字符串S转换成日期时间 OlLK4V http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default U9znGp http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 2Y1YAl http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 8U6NiW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 44AcVC http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): 78CwF8 http://blog.numino.net/ Boolean; $[SysUtils.pas uIRVDv http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 D87cnE http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 R8vi4q http://blog.numino.net/ 参考 <NULL> CIn5x0 http://blog.numino.net/ 例子 mdN730 http://blog.numino.net/ ///////Begin TryStrToDateTime zI1hvJ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1m19aC http://blog.numino.net/ var 4e2pF9 http://blog.numino.net/ vDateTime: TDateTime; dIjmWn http://blog.numino.net/ begin 7GxLGV http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 7nb03Z http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); vwLSbI http://blog.numino.net/ end; FKj1bC http://blog.numino.net/ ///////End TryStrToDateTime T5bD5U http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D9bb0C http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; vS9ik2 http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas CB896j http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 dKQ9SD http://blog.numino.net/ 说明 <参见FormatDateTime> 5Kgc71 http://blog.numino.net/ 参考 function System.SetString dMLb3V http://blog.numino.net/ 例子 <参见FormatDateTime> sP4lgq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pWee7T http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: RUI3pJ http://blog.numino.net/ string): string; platform; $[SysUtils.pas jF4v4u http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 3p6a61 http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' hM5kGy http://blog.numino.net/ 参考 function Windows.GetLocaleInfo IS9qKp http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); WCt4TW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uU5TAw http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Y362TC http://blog.numino.net/ Char; platform; $[SysUtils.pas dLMg02 http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 BxYZMc http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' H18fNM http://blog.numino.net/ 参考 function Windows.GetLocaleInfo pgR4fO http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); hma7wD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1OwFgt http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; 2loP5r http://blog.numino.net/ $[SysUtils.pas 575gzL http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 kTXJ0B http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) Y6OF6G http://blog.numino.net/ 参考 var SysUtils.SysLocale ZDc2Y7 http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); NKQbxD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ meVyZB http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; opQ60e http://blog.numino.net/ $[SysUtils.pas TdBts8 http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 7gAu1B http://blog.numino.net/ 说明 Index从0开始 4wPk2U http://blog.numino.net/ 参考 var SysUtils.SysLocale GE0uVJ http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), t8R4a9 http://blog.numino.net/ SpinEdit2.Value)); 0S6EaZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U6fUm8 http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; Ix5VY6 http://blog.numino.net/ $[SysUtils.pas 8ZtVnb http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 J24KbQ http://blog.numino.net/ 说明 MaxLen指定处理字符个数 B07j2y http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex 33IKfn http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); SNiN65 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jJaLes http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; lO4VjL http://blog.numino.net/ $[SysUtils.pas J4ul9W http://blog.numino.net/ 功能 返回字符串S中有多少个字符 aXdB0o http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 F1709I http://blog.numino.net/ 参考 var SysUtils.SysLocale RX9O9M http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 1pBO1E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pz6v9T http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; Mlz04I http://blog.numino.net/ $[SysUtils.pas 0i01b5 http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 aoU1Ga http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 1cf2hY http://blog.numino.net/ 参考 function SysUtils.NextCharIndex HyT1MB http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); jHed4m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8F93wA http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; 1lJ9JN http://blog.numino.net/ $[SysUtils.pas 7239Se http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 ksEJmQ http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 5nG32G http://blog.numino.net/ 参考 function System.Length I9d16h http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 9E7Hat http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RfGivP http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas Vu2HoS http://blog.numino.net/ 功能 返回第一个字符的宽度 Ea3Xae http://blog.numino.net/ 说明 参数为空则返回0 B4WZyL http://blog.numino.net/ 参考 function Windows.CharNext uS8RU3 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); 5eob62 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3v59wl http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas zUS6sh http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 10Xne1 http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; 3202za http://blog.numino.net/ 参考 function Windows.CharNext iSAKWO http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); BAaI3W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SP45x3 http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; yM8yZ5 http://blog.numino.net/ $[SysUtils.pas NumSyy http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 pz06Ns http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 YJ9W3S http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength 27KxkJ http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); BWB2U0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W0LM3Z http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; gc3rt3 http://blog.numino.net/ $[SysUtils.pas JHmcZ7 http://blog.numino.net/ 功能 返回下一个字符的位置 z8Iv9F http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 M7I81a http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength BrPS8G http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); 222Cqe http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lTY9RY http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; 3mK9sf http://blog.numino.net/ $[SysUtils.pas 1oRp53 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 xF4tSS http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True kCNPGn http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType 9Q79o7 http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); he6NDO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 82Gj8I http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): 6rTmc7 http://blog.numino.net/ Boolean; $[SysUtils.pas m1oHbX http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 7oT344 http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 24e6u2 http://blog.numino.net/ 参考 function SysUtils.ByteType R5zKZ8 http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, Nbh2C2 http://blog.numino.net/ SpinEdit1.Value); DlV9Az http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7z0dQO http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; Q5phoC http://blog.numino.net/ $[SysUtils.pas O62Vr6 http://blog.numino.net/ 功能 返回包括最后路径分隔符 FPnsQ6 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 g0PbPD http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length x7nV7f http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 62d6Ub http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z6qd7j http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; JYrB9q http://blog.numino.net/ $[SysUtils.pas 8a8Sub http://blog.numino.net/ 功能 返回包括最后斜线 vD31LC http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 6Gpm7G http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter QJn6oF http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); HdcKmv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HxyQj2 http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; AqLU73 http://blog.numino.net/ $[SysUtils.pas wWn8Fh http://blog.numino.net/ 功能 返回排除最后路径分隔符 g2TTxO http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 Nj6rfh http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function UnR0vP http://blog.numino.net/ System.SetLength Pentfa http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); jFa43z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ bwJ14L http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; X0AJZb http://blog.numino.net/ $[SysUtils.pas QR9F79 http://blog.numino.net/ 功能 返回排除最后斜线 2ejh9Q http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) YAMie5 http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter k9ZFa9 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); F7J92y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WnWKN2 http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; 4tU1YK http://blog.numino.net/ $[SysUtils.pas beAC07 http://blog.numino.net/ 功能 返回最后一个分隔符的位置 8Bf76b http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 6QHZs5 http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType q6i9sT http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); NJcs1i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8KQgH0 http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; I3K60Y http://blog.numino.net/ $[SysUtils.pas S6C8pD http://blog.numino.net/ 功能 返回比较两个文件名 nebtdZ http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 YA64y4 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 6KSFdd http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); JQ33hn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WMQbc1 http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas hO6qGj http://blog.numino.net/ 功能 返回两个文件名是否相等 RTg4N3 http://blog.numino.net/ 说明 区分大小写 t9V129 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName 0R8P79 http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); 5eVf7H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3Hm5iK http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas xtD3uK http://blog.numino.net/ 功能 返回小写文件名 3vKcmk http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase pian55 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase VZLH6F http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); HgNy24 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ K8VpK1 http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas p9hWM1 http://blog.numino.net/ 功能 返回大写文件名 0RirIF http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase HKoK5J http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase KaM0sS http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); 906qJx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ijn878 http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas dhNcrh http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 q3I23U http://blog.numino.net/ 说明 不存在则返回0 9gHjYo http://blog.numino.net/ 参考 SysUtils.AnsiStrPos i4PtOR http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); o5FUH3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MJ4Kun http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas TYld9o http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 443O01 http://blog.numino.net/ 说明 不存在则返回nil NT2wdQ http://blog.numino.net/ 参考 function SysUtils.StrByteType 6mLbTc http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); JF5bgD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pzrQcp http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas LF3OEm http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 aDru97 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' Qyu9My http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan DrJPuz http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); tbW2yg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ppfWt8 http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 7aWj2t http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 0Z2z5Y http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' V92rPg http://blog.numino.net/ 参考 function SysUtils.StrScan s6f7Ri http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); i57R7B http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0Goudk http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: Jqso0B http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas 28MaPI http://blog.numino.net/ 功能 返回替换后的字符串 FO4dx4 http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 3Q8W28 http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function XXD11b http://blog.numino.net/ System.Copy 3K0g3T http://blog.numino.net/ 例子 cOj56l http://blog.numino.net/ ///////Begin StringReplace wciF70 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7IkmLo http://blog.numino.net/ begin ii77jG http://blog.numino.net/ Memo1.Lines.Values['[]'] := iTCwba http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); 7XwO7O http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := aOFEPu http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); 0hvTLW http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := 06bGd2 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); NR9fc0 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := gFkWy7 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, v98rCi http://blog.numino.net/ rfIgnoreCase]); njUTjc http://blog.numino.net/ end; 049dgf http://blog.numino.net/ ///////End StringReplace wOVc5c http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s2yK0d http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas 70KRM5 http://blog.numino.net/ 功能 返回字符串S转换成全局标识 Uqqdpr http://blog.numino.net/ 说明 如果字符串非法将触发异常 wV7csb http://blog.numino.net/ 参考 fuction Windows.Succeeded T6Krf8 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); MD31q4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dU4bln http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas SsK8XK http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 squiLX http://blog.numino.net/ 说明 <NULL> dntzI1 http://blog.numino.net/ 参考 fuction Windows.Succeeded cwvMgG http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); PBnZHP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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