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

Delphi字符串函数大全 【字符串函数大全】 g4yd8k http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; 1OX6AN http://blog.numino.net/ $[StrUtils.pas Qv2gFu http://blog.numino.net/ 功能 返回两个字符串是否相似 H6ftAH http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 2bag9m http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 1xngNb http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 1eWJIU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4pPWcB http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 0X03Ax http://blog.numino.net/ $[StrUtils.pas fYCuWy http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText WT9k4H http://blog.numino.net/ 说明 不区分大小写 7Gq3y2 http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos Yk6pZE http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); PJ3IO1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZSutnI http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; 26Vmox http://blog.numino.net/ $[StrUtils.pas 1rkPyD http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 bsbRRf http://blog.numino.net/ 说明 不区分大小写 G9vcUz http://blog.numino.net/ 参考 function Windows.CompareString SXDXdA http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); 37YlGS http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RF3OSS http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; hvS7H6 http://blog.numino.net/ $[StrUtils.pas aN97or http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 GvCKyK http://blog.numino.net/ 说明 不区分大小写 VVPHpa http://blog.numino.net/ 参考 function Windows.CompareString SN73R9 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); zuS5Wt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D2osnk http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): 71MkS6 http://blog.numino.net/ string; $[StrUtils.pas FcvEHB http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 7cpcU5 http://blog.numino.net/ 说明 不区分大小写 z5Au0I http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags lCYVJe http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); 20lUXt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dNyb9s http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of p82GEk http://blog.numino.net/ string): Boolean; $[StrUtils.pas 1L7dVG http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText 7EdMwA http://blog.numino.net/ 说明 不区分大小写 2Y94Tp http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText k6wlON http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', iXoRRi http://blog.numino.net/ 'a4']); lx162p http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9T9Z63 http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of KBI4P6 http://blog.numino.net/ string): Integer; $[StrUtils.pas 0QjVhE http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 7tbjmZ http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 h23NEQ http://blog.numino.net/ 参考 function SysUtils.AnsiSameText GZ6GOm http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); Zoj0JW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4aMCYN http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; EmdAxe http://blog.numino.net/ $[StrUtils.pas k6ki88 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText wPtbRz http://blog.numino.net/ 说明 区分大小写 qk2hfL http://blog.numino.net/ 参考 function StrUtils.AnsiPos xqg7LC http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 8BWu4Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 53SKce http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; PIShpk http://blog.numino.net/ $[StrUtils.pas dDEKVg http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 L11tx3 http://blog.numino.net/ 说明 区分大小写 UD8Q7Q http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr gV0BJS http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); 923PC8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6BPMB9 http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; m51WAm http://blog.numino.net/ $[StrUtils.pas X0utQl http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 Q60YCy http://blog.numino.net/ 说明 区分大小写 4Jx3kU http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr Va8eAd http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); CFM9qE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3PYYZk http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): v3NK5p http://blog.numino.net/ string; $[StrUtils.pas JyZIzo http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 KOMZ6D http://blog.numino.net/ 说明 区分大小写 9a73CZ http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags Fdt31y http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); CWIWXh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uvOGEO http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of QTXNq7 http://blog.numino.net/ string): Boolean; $[StrUtils.pas CM3zzo http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText rMyY2b http://blog.numino.net/ 说明 区分大小写 kJ6eqW http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr 1w9Rcd http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 9GXIBT http://blog.numino.net/ 'a4']); 8lfFBm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O0728l http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of 9v0PD5 http://blog.numino.net/ string): Integer; $[StrUtils.pas Es9Bef http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 Bx6Iog http://blog.numino.net/ 说明 区分大小写 8ie7tX http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr dbf0JZ http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); H2Cr9h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N6Umqp http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; kFxUEx http://blog.numino.net/ $[StrUtils.pas JtkBGB http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 80FyK4 http://blog.numino.net/ 说明 当ACount为0时返回'' uMANd8 http://blog.numino.net/ 参考 function System.SetLength sHouPn http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); bVjBRn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yhmW1Y http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas 04ATNk http://blog.numino.net/ 功能 返回字符串AText的反序 Hovzlk http://blog.numino.net/ 说明 ReverseString('1234') = '4321' Uxp9vH http://blog.numino.net/ 参考 function System.SetLength tA5kP1 http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); MPWS0O http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O38rI5 http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; 1C5EPg http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas C350w4 http://blog.numino.net/ 功能 返回嵌套字符串 BLKZIU http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' SK8CuC http://blog.numino.net/ 参考 function System.Copy D2JPMl http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, aD4h1q http://blog.numino.net/ Edit2.Text); d1BqPo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ U23k2p http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; c1pktm http://blog.numino.net/ $[StrUtils.pas pNPbkO http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 r1LO7L http://blog.numino.net/ 说明 之前建议执行Randomize ha0xOd http://blog.numino.net/ 参考 function System.Random YRe3W6 http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); 9ZXmrq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jLs69O http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = adokx0 http://blog.numino.net/ ''): string; overload; $[StrUtils.pas 72m1zq http://blog.numino.net/ 功能 返回指定的逻辑字符串 dUZxUL http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' X860eJ http://blog.numino.net/ 参考 <NULL> Ht73o8 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); XqU1CI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZoM1k6 http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; xBGAJ4 http://blog.numino.net/ $[StrUtils.pas 5G4eK2 http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 9O5Kv8 http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' OqYnp9 http://blog.numino.net/ 参考 function System.Copy x2URk8 http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); suTvZ0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tsHdwh http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; 0ULPiJ http://blog.numino.net/ $[StrUtils.pas sxt6ND http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 Hk07Ym http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' z2Z3S7 http://blog.numino.net/ 参考 function System.Copy 31P3Zq http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); Uinc87 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6ZGBM1 http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): nvyiu2 http://blog.numino.net/ string; $[StrUtils.pas X7oEU8 http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 BqWuQ5 http://blog.numino.net/ 说明 其实就是Copy QT1mzE http://blog.numino.net/ 参考 function System.Copy 16oO4A http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 61Ncx0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4csRoZ http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: g0dFd8 http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): 7amuuP http://blog.numino.net/ PChar; $[StrUtils.pas V7U7Eg http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 5H77pi http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 IET5GL http://blog.numino.net/ 参考 <NULL> 4Bnk9r http://blog.numino.net/ 例子 6AngCv http://blog.numino.net/ ///////Begin SearchBuf umug5S http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; Ra43vn http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 5nzATp http://blog.numino.net/ var l5g1Hh http://blog.numino.net/ Buffer, P: PChar; cHUGzS http://blog.numino.net/ Size: Word; eeQWA6 http://blog.numino.net/ begin DUizfT http://blog.numino.net/ Result := False; 8zB5L7 http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; h1M7OF http://blog.numino.net/ Size := EditControl.GetTextLen; ToK6Z2 http://blog.numino.net/ if (Size = 0) then Exit; UDsLew http://blog.numino.net/ Buffer := StrAlloc(Size + 1); 1GTXx8 http://blog.numino.net/ try ETiG4R http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); 50w0x7 http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, G7IPYd http://blog.numino.net/ SearchString, SearchOptions); 1oH249 http://blog.numino.net/ if P <> nil then begin JenMFR http://blog.numino.net/ EditControl.SelStart := P - Buffer; fkhPey http://blog.numino.net/ EditControl.SelLength := Length(SearchString); wQZFG5 http://blog.numino.net/ Result := True; WDYgW7 http://blog.numino.net/ end; qHhTIk http://blog.numino.net/ finally AirV38 http://blog.numino.net/ StrDispose(Buffer); NOL9bb http://blog.numino.net/ end; a6GU7I http://blog.numino.net/ end; 6meAR0 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); B4cCnJ http://blog.numino.net/ var wCwK8S http://blog.numino.net/ SearchOptions: TStringSearchOptions; IFaVYY http://blog.numino.net/ begin oVeW6I http://blog.numino.net/ SearchOptions := []; ij8FGZ http://blog.numino.net/ if CheckBox1.Checked then TSt92L http://blog.numino.net/ Include(SearchOptions, soDown); NrVLEj http://blog.numino.net/ if CheckBox2.Checked then 3xCTFn http://blog.numino.net/ Include(SearchOptions, soMatchCase); FqOg0T http://blog.numino.net/ if CheckBox3.Checked then 0j2BRg http://blog.numino.net/ Include(SearchOptions, soWholeWord); 6M8g2Z http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 6nChbp http://blog.numino.net/ Memo1.SetFocus; 5P36OH http://blog.numino.net/ end; WO9Bja http://blog.numino.net/ ///////End SearchBuf fw6uF7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ voUclp http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): tfXaNv http://blog.numino.net/ string; $[StrUtils.pas 1UgOUw http://blog.numino.net/ 功能 返回探测字符串 p8J4Ro http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html K430R4 http://blog.numino.net/ 参考 <NULL> 0sxr9J http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); D8U662 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ s20Bsi http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 3jJ5V2 http://blog.numino.net/ 4): Integer; $[StrUtils.pas 3NxZzu http://blog.numino.net/ 功能 返回探测整数 ULxEpu http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 VX8Xwq http://blog.numino.net/ 参考 <NULL> 2ZyHoK http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); E0n6St http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3QDs09 http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas 6P6k57 http://blog.numino.net/ 功能 返回探测整数的解码 R7JT4N http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') 5Um1vd http://blog.numino.net/ 参考 <NULL> 7D5XTi http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); N12rBI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 54Wlo1 http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas EP3j70 http://blog.numino.net/ 功能 返回探测文字数值 i82dZt http://blog.numino.net/ 说明 没有参数ALength已经固定为4 6mCSFU http://blog.numino.net/ 参考 <NULL> z3LwhE http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); sb88me http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ is05LG http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas vF0m6L http://blog.numino.net/ 功能 返回探测文字数值的解码 hBR903 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') qs7ULT http://blog.numino.net/ 参考 <NULL> PNy0yZ http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); pYVXkZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0Tey6D http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: KLP2k7 http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas PE96vB http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 Dn14wL http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) AG0vmn http://blog.numino.net/ 参考 <NULL> 8ID10K http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, LvSy46 http://blog.numino.net/ SpinEdit1.Value); U1hQsb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6G7Ru8 http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: WrjqEL http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas eqRycc http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 Rlwmc8 http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, iwabBl http://blog.numino.net/ ALength)) 81S7iu http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr XmtQaM http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, 2771ay http://blog.numino.net/ SpinEdit1.Value); A7rcSB http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rH3ktc http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; f6hxUq http://blog.numino.net/ $[StrUtils.pas 6gnIvc http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 sWWudF http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 Wv2T6f http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText KBipG6 http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] zQK1HW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ykXJ97 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas AQ7m5Y http://blog.numino.net/ 功能 返回一个新的字符串指针地址 8yBFUr http://blog.numino.net/ 说明 字符串S为空时返回NullStr Y8foVX http://blog.numino.net/ 参考 procedure System.New 9xAXsu http://blog.numino.net/ 例子 CH8oVl http://blog.numino.net/ ////////Begin NewStr,DisposeStr ZJIxbO http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); wqWkBy http://blog.numino.net/ var 751uVI http://blog.numino.net/ P: PString; PyxIQC http://blog.numino.net/ begin O6rX0W http://blog.numino.net/ P := NewStr(Edit1.Text); WNSCt8 http://blog.numino.net/ Edit2.Text := P^; Q5XolU http://blog.numino.net/ DisposeStr(P); 227s34 http://blog.numino.net/ end; rVSw82 http://blog.numino.net/ ////////End NewStr,DisposeStr 3e5J4j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Mgtpjb http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas pG27LG http://blog.numino.net/ 功能 释放字符串指针P资源 rU1lqL http://blog.numino.net/ 说明 配合函数NewStr使用 ot0lk5 http://blog.numino.net/ 参考 procedure System.Dispose 0QJx2V http://blog.numino.net/ 例子 <如上参见,如下参见> 8uhWrX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xKxTod http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; rLulnQ http://blog.numino.net/ $[SysUtils.pas 48D2oP http://blog.numino.net/ 功能 将字符串S更新给字符串指针P a23kQo http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 a1u8m9 http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr OH0JtO http://blog.numino.net/ 例子 tBSM48 http://blog.numino.net/ ////////Begin AssignStr ZH8RbA http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); MZ9w7s http://blog.numino.net/ var 50u9FL http://blog.numino.net/ P: PString; QC2G6v http://blog.numino.net/ begin JT5GG5 http://blog.numino.net/ P := nil; 3OAWSm http://blog.numino.net/ AssignStr(P, Edit1.Text); 7yD0cq http://blog.numino.net/ Edit2.Text := P^; WHBZlC http://blog.numino.net/ DisposeStr(P); 5mal1G http://blog.numino.net/ end; SsQdx4 http://blog.numino.net/ ////////End AssignStr lkbPEX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6ibDuM http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; gSYkzg http://blog.numino.net/ $[SysUtils.pas 8Sspa2 http://blog.numino.net/ 功能 在字符串Dest后追加字符串S Kp3u75 http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 Dngtzz http://blog.numino.net/ 参考 <NULL> greQRv http://blog.numino.net/ 例子 5qCGf3 http://blog.numino.net/ ////////Begin AppendStr T9593m http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ngz3J1 http://blog.numino.net/ var N1kLzL http://blog.numino.net/ S: string; rt9Y91 http://blog.numino.net/ begin pUI8dP http://blog.numino.net/ S := Edit2.Text; 2btSin http://blog.numino.net/ AppendStr(S, Edit1.Text); XasTL5 http://blog.numino.net/ Edit2.Text := S; l8X7qY http://blog.numino.net/ end; 1Hqhs5 http://blog.numino.net/ ////////End AppendStr 266uuQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0Mt257 http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas 8R75kO http://blog.numino.net/ 功能 返回字符串S的大写形式 CL7zjF http://blog.numino.net/ 说明 非小写字符不处理 fgKgiQ http://blog.numino.net/ 参考 procedure System.SetLength EKU1Vb http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); aavXxv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4SgTA7 http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas 0IguER http://blog.numino.net/ 功能 返回字符串S的小写形式 8IVUos http://blog.numino.net/ 说明 非大写字符不处理 19z7IA http://blog.numino.net/ 参考 procedure System.SetLength 2oOb1A http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); y9AthZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ znd2gc http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas b2KhI5 http://blog.numino.net/ 功能 返回比较两个字符 J0A18h http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 ZLtKZE http://blog.numino.net/ 参考 <NULL> 0stx46 http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); TkqMa6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e2UeX5 http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; I8Ttsx http://blog.numino.net/ assembler; $[SysUtils.pas pZu7hQ http://blog.numino.net/ 功能 返回比较两个内存指针 69cPKY http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), T9POag http://blog.numino.net/ PChar('12c'), 3)=False q4hwsA http://blog.numino.net/ 参考 <NULL> CgYbQn http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 0thP1m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ThQ5ig http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 6l97zS http://blog.numino.net/ 功能 返回比较两个字符串 9v65Tr http://blog.numino.net/ 说明 不区分大小写 VSY5Wo http://blog.numino.net/ 参考 <NULL> gL9XAd http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 1Khh4i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TDNo7K http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas umDIga http://blog.numino.net/ 功能 返回两个字符串是否相等 Cbavg0 http://blog.numino.net/ 说明 不区分大小写 GpJ9VY http://blog.numino.net/ 参考 <NULL> 11HnQG http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); xbd9pH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qtGkdm http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas zA31b1 http://blog.numino.net/ 功能 返回字符串S的大写形式 5ut3V4 http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 GFQqVu http://blog.numino.net/ 参考 function Windows.CharUpperBuff 53JGO0 http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); 5dV4SZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qntAPC http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas umPDT6 http://blog.numino.net/ 功能 返回字符串S的小写形式 mm3VO1 http://blog.numino.net/ 说明 非大写字符不处理 AFIbr9 http://blog.numino.net/ 参考 function Windows.CharLowerBuff HzBEEp http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 7muP9S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qTLKFM http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas qm10du http://blog.numino.net/ 功能 反回比较两个字符串 tiun7Q http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 dGy98n http://blog.numino.net/ 参考 function Windows.CompareString nG1gfU http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); rSvPbT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ E2lDXK http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas B28gWG http://blog.numino.net/ 功能 返回两个字符串是否相等 SIz0OI http://blog.numino.net/ 说明 区分大小写 2PfMWl http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr Cdh7K8 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); Fqc5Ch http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JI7WKQ http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas A28UKy http://blog.numino.net/ 功能 反回比较两个字符串 fKPDWa http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 7UD2jd http://blog.numino.net/ 参考 function Windows.CompareString CqQbX9 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); JJtfqX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7l979N http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas JPp0U2 http://blog.numino.net/ 功能 返回两个字符串是否相等 zuFqBJ http://blog.numino.net/ 说明 不区分大小写 x56sLi http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText KSH8wX http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); c7ZY70 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mwB958 http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas xi77zC http://blog.numino.net/ 功能 返回比较两个指针字符串 zFHmm0 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 055Dzk http://blog.numino.net/ 参考 function System.CompareString cQ8p87 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) D8SGBd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 99hg1I http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas m7rqh9 http://blog.numino.net/ 功能 返回比较两个指针字符串 4Ex4dg http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) kfT5E6 http://blog.numino.net/ 参考 function Windows.CompareString 9ksWP3 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) F1PV6S http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ f1v81Y http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; z9tyQY http://blog.numino.net/ $[SysUtils.pas pi04l3 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 1l4n3N http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) H1kONn http://blog.numino.net/ 参考 function Windows.CompareString o9ee9f http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 16GJkr http://blog.numino.net/ SpinEdit2.Value) ueJcYh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3Ic9g4 http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; rnV19p http://blog.numino.net/ $[SysUtils.pas 3R9MF3 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 qPCBCa http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 rjtZKE http://blog.numino.net/ 参考 function Windows.CompareString b5Lx4G http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), d8aMO1 http://blog.numino.net/ SpinEdit2.Value) 7O18Z2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n922lY http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas Sn8oie http://blog.numino.net/ 功能 返回指针字符串小写形式 5iwiXL http://blog.numino.net/ 说明 非大写字符不处理 kZ06Mu http://blog.numino.net/ 参考 function Windows.CharLower 02OAb8 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); 557Z14 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k0ZHH1 http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 53bJt8 http://blog.numino.net/ 功能 返回指针字符串大写形式 jiLW20 http://blog.numino.net/ 说明 非小写字符不处理 51mC6C http://blog.numino.net/ 参考 function Windows.CharUpper yzphDb http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); PAKTfc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ncp81d http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 4I8YL4 http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 EgcXNv http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 HO5E26 http://blog.numino.net/ 参考 function SysUtils.ByteType 9JB7GR http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); Biur5u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 19FGQI http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 473ZYF http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 9Zw9XH http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 p36vx0 http://blog.numino.net/ 参考 function SysUtils.ByteType tY8JM9 http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 4k2D93 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r3J0aX http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas Fx6dwU http://blog.numino.net/ 功能 返回双字节字符串的大写形式 fCSsY8 http://blog.numino.net/ 说明 WideChar双字节字符 bheA2L http://blog.numino.net/ 参考 function Windows.CharUpperBuffW 3Tqqcp http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); GuMBHv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Hbe3Om http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas U5Nse1 http://blog.numino.net/ 功能 返回双字节字符串的小写形式 lomN6X http://blog.numino.net/ 说明 我怎么就测试不出来呢 F69ls4 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW uRso79 http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); qfvbGX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BN80Ac http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; 7FSIN7 http://blog.numino.net/ $[SysUtils.pas 768Xaj http://blog.numino.net/ 功能 返回比较两个双字节字符串 8hajKb http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 8Fv740 http://blog.numino.net/ 参考 function Windows.CompareStringW 4o6RnF http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); RRPuX2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C5MgPz http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas df1qoF http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 zdGXVN http://blog.numino.net/ 说明 区分大小写 D6R5zB http://blog.numino.net/ 参考 function SysUtils.WideCompareStr 4Xr7Md http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); HARpYu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 052PL7 http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; 48w0k4 http://blog.numino.net/ $[SysUtils.pas 7WICFy http://blog.numino.net/ 功能 返回比较两个双字节字符串 RGisr7 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 YHyU8Q http://blog.numino.net/ 参考 function Windows.CompareStringW a1Ebqk http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); M30ex4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jwbHr9 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; o6nkq9 http://blog.numino.net/ $[SysUtils.pas hl53Hn http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 t27IyT http://blog.numino.net/ 说明 不区分大小写 7d5iPN http://blog.numino.net/ 参考 function SysUtils.WideCompareText bDaIKJ http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); n2khZj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mjbWW1 http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas 6xfkVn http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; N97iqL http://blog.numino.net/ $[SysUtils.pas P67GAz http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 SC59sR http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 WC6AO2 http://blog.numino.net/ 参考 function System.Copy q61Bt5 http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); cCH8ma http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Z99KHW http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas Wf9wO1 http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; 1wOTjR http://blog.numino.net/ $[SysUtils.pas pKDfoh http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 8dSbEx http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 my1lYm http://blog.numino.net/ 参考 function System.Copy 3Gd5U9 http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); 4JCio8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KqPZRG http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas y1ygsa http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; S41n0S http://blog.numino.net/ $[SysUtils.pas 8KEap6 http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 80ena5 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 0RkkqI http://blog.numino.net/ 参考 function System.Copy sMOw9H http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); 4io5AK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6YEjfB http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas 28H2z6 http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 vJun9O http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 OUAoPD http://blog.numino.net/ 参考 procedure System.Insert Eb171b http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); 13z5Vl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eXS6u2 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; FC7mMb http://blog.numino.net/ $[SysUtils.pas Dmr56l http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 QR1txM http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', 8KgRod http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 60l83S http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan PMHC56 http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); o9NLit http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tN3Q0g http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 8pnRF6 http://blog.numino.net/ $[SysUtils.pas 8hvbrz http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 gYCl2c http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 2hQ9Z1 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan OFhU91 http://blog.numino.net/ 例子 5W68tF http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr QYbaO2 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); KJJmw6 http://blog.numino.net/ var y85hxK http://blog.numino.net/ P: PChar; LtpRPr http://blog.numino.net/ begin 0yxiiD http://blog.numino.net/ P := PChar(Edit1.Text); Lc68u2 http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); cUmA84 http://blog.numino.net/ Edit3.Text := P; 9jY650 http://blog.numino.net/ end; hFBC5y http://blog.numino.net/ ///////End AnsiExtractQuotedStr 8f1H8r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8Co4Pa http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; 4AgbLt http://blog.numino.net/ $[SysUtils.pas 25EHo0 http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 B2Fyia http://blog.numino.net/ 说明 表现形式非法时则返回S 7XcXo1 http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr x0BZGK http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); 3m3Ad7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c42bn2 http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = mZN44w http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): Gp1A1S http://blog.numino.net/ string; $[SysUtils.pas hvTfFr http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 GnmFSo http://blog.numino.net/ 说明 oho0cP 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 7YWHrD http://blog.numino.net/ 参考 function SysUtils.StrNextChar n0yD6Y http://blog.numino.net/ 例子 <NULL> EPQPeM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 600fB5 http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas M0jkK9 http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 3905gJ http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... FC6Z2M http://blog.numino.net/ 参考 <NULL> 5Uue6z http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); V4gUKm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ M0p7e2 http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas JaF53R http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas m4K957 http://blog.numino.net/ 功能 返回整数Value转换成字符串 dpmZ6w http://blog.numino.net/ 说明 Format('%d', [Value]) J7QgzG http://blog.numino.net/ 参考 function SysUtils.FmtStr M9YW0q http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); uSDS0h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BuO9PQ http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; ErCpu8 http://blog.numino.net/ $[SysUtils.pas O6N48W http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; jXcp1p http://blog.numino.net/ $[SysUtils.pas 9E4JlK http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) CsLWq4 http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 5nc8K3 http://blog.numino.net/ 参考 function SysUtils.FmtStr gh1Xb3 http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); iG5vpI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QUV9gW http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas K08ot1 http://blog.numino.net/ 功能 返回字符串S转换成整数 Ti26C5 http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 UKj6Dm http://blog.numino.net/ 参考 procedure System.Val zfY044 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); i1bYwu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nCa12j http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; a0WZl8 http://blog.numino.net/ $[SysUtils.pas AhX6wZ http://blog.numino.net/ 功能 返回字符串S转换成整数 9xzuVh http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default XCdj7w http://blog.numino.net/ 参考 procedure System.Val myuUT8 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); E4y6H5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 03xh7E http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; qP4XZY http://blog.numino.net/ $[SysUtils.pas 71Nkhi http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 JklRD9 http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 w9c9RJ http://blog.numino.net/ 参考 procedure System.Val nZ4UBa http://blog.numino.net/ 例子 fCT6Lo http://blog.numino.net/ ///////Begin TryStrToInt Wc6V8t http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 4vI136 http://blog.numino.net/ var mn5NZ2 http://blog.numino.net/ I: Integer; Aviuw6 http://blog.numino.net/ begin mLwupe http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); w6L0HX http://blog.numino.net/ SpinEdit1.Value := I; s89x69 http://blog.numino.net/ end; 0mN0xd http://blog.numino.net/ ///////End TryStrToInt yk5WVl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 38jzKF http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas 5uWF1b http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 3gFphH http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 0Xx9xk http://blog.numino.net/ 参考 procedure System.Val 2NgPuT http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 9Gn23d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ O5vBa6 http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; DdTy3u http://blog.numino.net/ $[SysUtils.pas vaX66W http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 z1Fc5h http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default 163u8o http://blog.numino.net/ 参考 procedure System.Val mQp47x http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); eshW1j http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4y6Wz4 http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; xC1r82 http://blog.numino.net/ $[SysUtils.pas 0Zg66w http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 CZEa3n http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 614W7R http://blog.numino.net/ 参考 procedure System.Val VVIAU0 http://blog.numino.net/ 例子 w0Nuoy http://blog.numino.net/ ///////Begin TryStrToInt64 KHPRvL http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ubxcZ6 http://blog.numino.net/ var zpf5SY http://blog.numino.net/ I: Int64; hW7PeX http://blog.numino.net/ begin fvB61o http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); i6x347 http://blog.numino.net/ SpinEdit1.Value := I; Sfx4UE http://blog.numino.net/ end; 2yYHn1 http://blog.numino.net/ ///////End TryStrToInt64 JBi18N http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 91ucSH http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas 6BQ7U5 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 J9Ij81 http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 XH94GN http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 7Vt40S http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); Sp4FXg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yxFE39 http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): bgy2me http://blog.numino.net/ Boolean; $[SysUtils.pas vA4q9j http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 3JN6f0 http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default KKI8Ff http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 14wvho http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); oMKuva http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8uxYG3 http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; 6Ay1cQ http://blog.numino.net/ $[SysUtils.pas 8qnga0 http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 IX5XMF http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 ldjlEq http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var QCcW9D http://blog.numino.net/ SysUtils.FalseBoolStrs 4DvRXk http://blog.numino.net/ 例子 50rhJk http://blog.numino.net/ ///////Begin TryStrToBool aCFy1x http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); DsQ8i9 http://blog.numino.net/ var 67F0AB http://blog.numino.net/ B: Boolean; gev8q2 http://blog.numino.net/ begin nCD9kz http://blog.numino.net/ SetLength(TrueBoolStrs, 2); Kaq4v9 http://blog.numino.net/ SetLength(FalseBoolStrs, 2); 16TX8H http://blog.numino.net/ TrueBoolStrs[0] := 'True'; Njk26j http://blog.numino.net/ FalseBoolStrs[0] := 'False'; CabNvL http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; S099YH http://blog.numino.net/ FalseBoolStrs[1] := 'No'; yGPV1S http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); zp9y4x http://blog.numino.net/ CheckBox2.Checked := B; P7Ct5I http://blog.numino.net/ end; 8ZqH4x http://blog.numino.net/ ///////End TryStrToBool ImLax0 http://blog.numino.net/ 附加 CyMtMi http://blog.numino.net/ ///////Begin TryStrToBool 780Blj http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; 9WDH0g http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; p9V7Ti http://blog.numino.net/ var Euk2Hd http://blog.numino.net/ I: Integer; B2nKn4 http://blog.numino.net/ begin wtpuuw http://blog.numino.net/ Result := False; pUG1qS http://blog.numino.net/ for I := Low(aArray) to High(aArray) do PoaZuc http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then h4eBj5 http://blog.numino.net/ begin F1y18t http://blog.numino.net/ Result := True; 1ql638 http://blog.numino.net/ Break; saqRnG http://blog.numino.net/ end; d186vE http://blog.numino.net/ end; YcSg9C http://blog.numino.net/ var fkLqer http://blog.numino.net/ LResult: Extended; U81yrs http://blog.numino.net/ begin J3Cn9M http://blog.numino.net/ Result := TryStrToFloat(S, LResult); fdH2Xl http://blog.numino.net/ if Result then UcBl8K http://blog.numino.net/ Value := LResult <> 0 SRcOyW http://blog.numino.net/ else oBFy54 http://blog.numino.net/ begin H60kx5 http://blog.numino.net/ Result := True; //修正处 gpY7dj http://blog.numino.net/ VerifyBoolStrArray; d2QifW http://blog.numino.net/ if CompareWith(TrueBoolStrs) then b36g6K http://blog.numino.net/ Value := True 2ZUCU4 http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then W6wG8i http://blog.numino.net/ Value := False GUP9T9 http://blog.numino.net/ else d0ZBLy http://blog.numino.net/ Result := False; dVT2kO http://blog.numino.net/ end; v29IN5 http://blog.numino.net/ end; G565sE http://blog.numino.net/ ///////End TryStrToBool i5uINy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uasDaK http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; m183LR http://blog.numino.net/ $[SysUtils.pas BomeRZ http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 7Cp1Qx http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' I7gr5l http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 89P7O0 http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); 4KT4RN http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 469zjy http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 2Il4j7 http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 JNqMPY http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 dgfoH4 http://blog.numino.net/ 参考 function SysUtils.FindStringResource ZpVUGV http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); pG9cZz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X2chNN http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): OD7PAe http://blog.numino.net/ string; $[SysUtils.pas 4AO2SH http://blog.numino.net/ 功能 返回格式化的字符串资源 9lZPtV http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 FGoGrk http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource LMNJV8 http://blog.numino.net/ 例子 <NULL>; ZXAvos http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ y17Uf8 http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas al1ezB http://blog.numino.net/ 功能 返回指针字符串的长度 8uQ64q http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 eOOLho http://blog.numino.net/ 参考 <NULL> Lns6po http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 6PREo5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 19wCs7 http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas 88dE0t http://blog.numino.net/ 功能 返回指针字符串的结尾 OTZo48 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 mSqMZG http://blog.numino.net/ 参考 <NULL> i5uRO6 http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; mPJrNA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Xzqt11 http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): hr1sx5 http://blog.numino.net/ PChar; $[SysUtils.pas q0nOZ7 http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 UH4Ngx http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s M8VzK2 http://blog.numino.net/ 参考 function System.Move 4fI38a http://blog.numino.net/ 例子 pUq33L http://blog.numino.net/ ///////Begin StrMove sAl6i3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); x0ur16 http://blog.numino.net/ var u2TN8A http://blog.numino.net/ vBuffer: PChar; 0LpwfI http://blog.numino.net/ begin 333kHy http://blog.numino.net/ vBuffer := '0123456789'; F2667n http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 5Qipy1 http://blog.numino.net/ Edit2.Text := vBuffer; z6NBfs http://blog.numino.net/ end; K8s4jH http://blog.numino.net/ ///////End StrMove 4zE64a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ YXF1t8 http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; vSB5vk http://blog.numino.net/ $[SysUtils.pas ApN7fD http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 YrMSRo http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 6o5Xls http://blog.numino.net/ 参考 <NULL> PHsg72 http://blog.numino.net/ 例子 nW1dK8 http://blog.numino.net/ ///////Begin StrCopy BB131i http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 0rq8Gh http://blog.numino.net/ var KRh5ym http://blog.numino.net/ vBuffer: PChar; oI5uU2 http://blog.numino.net/ begin nPK4GX http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); u5D1r8 http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); TJme7B http://blog.numino.net/ Edit2.Text := vBuffer; X3ZPbr http://blog.numino.net/ FreeMem(vBuffer); me179l http://blog.numino.net/ end; YRqTEL http://blog.numino.net/ ///////End StrCopy 79541I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ k4cPGT http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; EY6iSd http://blog.numino.net/ $[SysUtils.pas m4M12R http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 x0JOcD http://blog.numino.net/ 说明 可以连接指针字符串 Iz716P http://blog.numino.net/ 参考 <NULL> z8XCek http://blog.numino.net/ 例子 57b87E http://blog.numino.net/ ///////Begin StrECopy 9j9qnx http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3ap8xZ http://blog.numino.net/ var uF8yET http://blog.numino.net/ vBuffer: array[0..255] of Char; 5TASKh http://blog.numino.net/ begin qQM1ri http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); Uplqz1 http://blog.numino.net/ Edit3.Text := vBuffer; c05nEc http://blog.numino.net/ end; F6y5ih http://blog.numino.net/ ///////End StrECopy xQnG3X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ D9wl0d http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): lxQbUU http://blog.numino.net/ PChar; $[SysUtils.pas 7UaogN http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 DNjuiA http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 i7y92m http://blog.numino.net/ 参考 <NULL> 7LuY5q http://blog.numino.net/ 例子 dLwsYf http://blog.numino.net/ ///////Begin StrLCopy R8O76z http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ozH7B0 http://blog.numino.net/ var 5j4WkX http://blog.numino.net/ vBuffer: array[0..255] of Char; MkHx5M http://blog.numino.net/ begin n6fqp4 http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 4346mO http://blog.numino.net/ Edit2.Text := vBuffer; W70qjN http://blog.numino.net/ end; XPKHjY http://blog.numino.net/ ///////End StrLCopy TY2tlz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Dfxt5m http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; IOK2ZI http://blog.numino.net/ $[SysUtils.pas LIyZc5 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 09mY4I http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) Q8279x http://blog.numino.net/ 参考 function SysUtils.StrLCopy 0n4A7U http://blog.numino.net/ 例子 HZ2GSh http://blog.numino.net/ ///////Begin StrPCopy sQy9aQ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Y568D2 http://blog.numino.net/ var KesMGY http://blog.numino.net/ vBuffer: array[0..255] of Char; D2A0wV http://blog.numino.net/ begin aU2WV3 http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); 7hJSQw http://blog.numino.net/ Edit2.Text := vBuffer; 7JG19a http://blog.numino.net/ end; wmDoEF http://blog.numino.net/ ///////End StrPCopy 3Y78Cd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1k9NxG http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 3D61rw http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas o0Ywp3 http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 p18lVm http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) 266n43 http://blog.numino.net/ 参考 function SysUtils.StrLCopy NUDMIX http://blog.numino.net/ 例子 9I9S6e http://blog.numino.net/ ///////Begin StrPLCopy DwOofK http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); HY7mff http://blog.numino.net/ var c5u6rs http://blog.numino.net/ vBuffer: array[0..255] of Char; IV2dGA http://blog.numino.net/ begin 61HBi0 http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); JMtx05 http://blog.numino.net/ Edit2.Text := vBuffer; W3Io2A http://blog.numino.net/ end; 2AdF64 http://blog.numino.net/ ///////End StrPLCopy YMBTtr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ skHz3y http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; 0y7j2O http://blog.numino.net/ $[SysUtils.pas l4hFpq http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source SbLddH http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) VQuuy8 http://blog.numino.net/ 参考 function SysUntils.StrCopy MGTTf7 http://blog.numino.net/ 例子 Yihy0X http://blog.numino.net/ ///////Begin StrCat y5YTao http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); k8aiX6 http://blog.numino.net/ var mkpi62 http://blog.numino.net/ vBuffer: array[0..255] of Char; 4mfQo1 http://blog.numino.net/ begin 0xT2J6 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); o4lVLL http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); 183CJh http://blog.numino.net/ Edit3.Text := vBuffer; pqg6Th http://blog.numino.net/ end; 21fFxh http://blog.numino.net/ ///////End StrCat U4nRVy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ yazNiH http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 3imm8Y http://blog.numino.net/ PChar; $[SysUtils.pas 00QF8B http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source gje6h7 http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 6h08A5 http://blog.numino.net/ 参考 <NULL> 8uy7L1 http://blog.numino.net/ 例子 HAVm9L http://blog.numino.net/ ///////Begin StrLCat 1SU3Q4 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); j5I3P2 http://blog.numino.net/ var NfCa1J http://blog.numino.net/ vBuffer: array[0..255] of Char; 1r2lY0 http://blog.numino.net/ begin 1hCOS8 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); 2Wr37Q http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); ic8Jyg http://blog.numino.net/ Edit3.Text := vBuffer; wE7Iht http://blog.numino.net/ end; q8QVve http://blog.numino.net/ ///////End StrLCat UlaD74 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 258yQw http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas B1e8Kx http://blog.numino.net/ 功能 返回比较两个指针字符串 Aq7nhq http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 aKp7Ef http://blog.numino.net/ 参考 <NULL> BLR9D6 http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); 4ufTU4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tjDuXP http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas cFJ7Xa http://blog.numino.net/ 功能 返回比较两个指针字符串 Eg5bYc http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 9V4CoC http://blog.numino.net/ 参考 <NULL> 5KcNkE http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); s6h7b1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dxXn6Y http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; BUG9YU http://blog.numino.net/ $[SysUtils.pas R2bs62 http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 KsA1JK http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 1Pjaj9 http://blog.numino.net/ 参考 <NULL> ya1DuP http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), x63w2v http://blog.numino.net/ SpinEdit2.Value) Wrj05D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z054cY http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; UvT3ED http://blog.numino.net/ $[SysUtils.pas xC5lVi http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 2XS71F http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 I3R4vS http://blog.numino.net/ 参考 <NULL> 8Xvedc http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), Zemxx7 http://blog.numino.net/ SpinEdit2.Value) S650zX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QA5JDA http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas uhc24Y http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 6KEbyl http://blog.numino.net/ 说明 没有找到则返回空指针 JpyT7Z http://blog.numino.net/ 参考 <NULL> rM368d http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); s4VSHl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gx9CsV http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas phft0f http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 9D4gKp http://blog.numino.net/ 说明 没有找到则返回空指针 4ORSSs http://blog.numino.net/ 参考 <NULL> 7zYI50 http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); 4GX6TM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ w6272B http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas uqFU7k http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 3NDGhZ http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' NlZRQR http://blog.numino.net/ 参考 <NULL> gQ46co http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); WkOfA7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BnCm8A http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas aiSL6w http://blog.numino.net/ 功能 返回指针字符串Str大写 h8j8av http://blog.numino.net/ 说明 非小写字符不处理 FVPbaA http://blog.numino.net/ 参考 <NULL> P61Ozt http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); 1MhVz3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6b422A http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas rtWV05 http://blog.numino.net/ 功能 返回指针字符串Str小写 A0g8Ss http://blog.numino.net/ 说明 非大写字符不处理 Rh6JG2 http://blog.numino.net/ 参考 <NULL> WreEMn http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); dx3JP1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ epf9n0 http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas zVFaIF http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 npD4c3 http://blog.numino.net/ 说明 也可以直接赋值 Ga9O6E http://blog.numino.net/ 参考 <NULL> ZpOewJ http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); wprQ0J http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ unEXWd http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas vc1Dtc http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 sgksBx http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 6GzUh4 http://blog.numino.net/ 参考 function System.GetMem 8Uxk0y http://blog.numino.net/ 例子 fTSXRx http://blog.numino.net/ ///////Begin StrAlloc ItkKE1 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); b7SN96 http://blog.numino.net/ var Ow0JBB http://blog.numino.net/ P: PChar; O66X7M http://blog.numino.net/ begin 7aW9Ie http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); a2y77O http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); FevF0W http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); 196XDn http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); 619VxW http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); hZnVtH http://blog.numino.net/ StrDispose(P); 0ZN2Wz http://blog.numino.net/ end; z27K8z http://blog.numino.net/ ///////End StrAlloc qIyE90 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G6EkJp http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas e7SLJB http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 OSA9UZ http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 1v2eAk http://blog.numino.net/ 参考 function System.SizeOf yE496t http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); mTCf2n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 80AkI2 http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas TK0cYd http://blog.numino.net/ 功能 返回复制一个新的指针字符串 8G4A2q http://blog.numino.net/ 说明 如果Str为nil则返回nil kP3L09 http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function 10NZ0D http://blog.numino.net/ SysUtils.StrAlloc 1bA7Wp http://blog.numino.net/ 例子 xoYjpj http://blog.numino.net/ ///////Begin StrNew,StrDispose 3Qp4eJ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); v3Q9zi http://blog.numino.net/ var GN3TgW http://blog.numino.net/ P: PChar; 6y61aA http://blog.numino.net/ begin AjowZO http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); T2ueO5 http://blog.numino.net/ ShowMessage(P); Z2zl02 http://blog.numino.net/ StrDispose(P); cIpCS6 http://blog.numino.net/ end; 64qNmV http://blog.numino.net/ ///////End StrNew,StrDispose H67dw2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QvWjw6 http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas n93LDs http://blog.numino.net/ 功能 释放指针字符串Str内存资源 cx86x1 http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 ZH9FXD http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem d84ozg http://blog.numino.net/ 例子 <参见StrNew> FFPFZj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 05dK8l http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): Zv9qR8 http://blog.numino.net/ string; $[SysUtils.pas 6zf21j http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 5Ih3af http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 Dw2tuQ http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 3oNKem http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 vqN7zn http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 i8NGR7 http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 Vf02G0 http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 c7nO1O http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 F18Eqm http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 Ma7U8I http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 xnhCbf http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 6Lbuey http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 39X484 http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 pVdnuJ http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" XupFMO http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 6K24Jq http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr zPL499 http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); muQBt2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2o7rGE http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: WWPGRL http://blog.numino.net/ array of const); $[SysUtils.pas 7dCjLL http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 Ym56Gu http://blog.numino.net/ 说明 <参见Format> FATdw5 http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function ZA9JzR http://blog.numino.net/ System.SetLength 3UF7AP http://blog.numino.net/ 例子 <参见Format> 1AWcgc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H8ce4P http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): Jfn5a2 http://blog.numino.net/ PChar; $[SysUtils.pas wY1OmP http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 O7VDxj http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil 6vfKJp http://blog.numino.net/ 参考 function SysUtils.FormatBuf n2Hqxv http://blog.numino.net/ 例子 <参见Format> H4x22Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5vUJAb http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; QbbtrC http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas Z3wA7H http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 94io6S http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; W1MAwU http://blog.numino.net/ 参考 function SysUtils.FormatBuf TP1M64 http://blog.numino.net/ 例子 <参见Format> c9KysF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2sr8EA http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: gz3kCg http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas qY90We http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 PtK4WJ http://blog.numino.net/ 说明 <NULL> 0IZd24 http://blog.numino.net/ 参考 <NULL> 8Akjzf http://blog.numino.net/ 例子 <参见Format> a6C7PH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xOW47j http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of Xc1BD5 http://blog.numino.net/ const): WideString; $[SysUtils.pas q9xjGg http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 7ISkv4 http://blog.numino.net/ 说明 <NULL> Mk0UCh http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr n6z1dG http://blog.numino.net/ 例子 <参见Format> q2z08X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8o6F9d http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; C6f5H4 http://blog.numino.net/ const Args: array of const); $[SysUtils.pas lTN687 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 s2gP2F http://blog.numino.net/ 说明 <NULL> j1ie4r http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf 5JxmOs http://blog.numino.net/ 例子 <参见Format> lAkZ47 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7z08iA http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; Yp0vXV http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas SUMpH9 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 gks704 http://blog.numino.net/ 说明 <NULL> 6cG6NQ http://blog.numino.net/ 参考 <NULL> 54MHu1 http://blog.numino.net/ 例子 <参见Format> 9Zi21G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zj9q0Q http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas juYi9W http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 1N5o78 http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 QaVOTs http://blog.numino.net/ 参考 function SysUtils.FloatToText wwougl http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 9BKq6o http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0DF7o9 http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas hFNuR7 http://blog.numino.net/ 功能 返回货币数Value转换成字符串 Tk31JO http://blog.numino.net/ 说明 货币数只保留四位小数 r0vA0G http://blog.numino.net/ 参考 function SysUtils.FloatToText EEVKpV http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); zYULyj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ suB1f2 http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas d4P272 http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 X0F6jk http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 Vw4QGK http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency GfNXuW http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); u12582 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tzcJt6 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Sq8oZ2 http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas LmsQRs http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 sUZzl8 http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 Av4b0n http://blog.numino.net/ 参考 function SysUtils.FloatToText z4Od8c http://blog.numino.net/ 例子 DBZrZ1 http://blog.numino.net/ ///////Begin FloatToStrF vDlOoJ http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); hoy8bg http://blog.numino.net/ begin ajojIB http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 96DQP9 http://blog.numino.net/ 0), s2vJs7 http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); Q73GZr http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 9mSKjN http://blog.numino.net/ 0), pX7cvD http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); QeBBiC http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 7hXaOt http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); JyC313 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 3PKe4A http://blog.numino.net/ 0), KKiEyY http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); DicFCC http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, xy9je4 http://blog.numino.net/ 0), 853cE0 http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); d2JXVX http://blog.numino.net/ end; I1s87L http://blog.numino.net/ ///////End FloatToStrF lg0ptX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FJjjbF http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: L0fEbC http://blog.numino.net/ Integer): string; $[SysUtils.pas 7VPdd1 http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 62dqYa http://blog.numino.net/ 说明 Digits指定小数宽度 0EGr29 http://blog.numino.net/ 参考 function SysUtils.FloatToText AWJzmn http://blog.numino.net/ 例子 17H4US http://blog.numino.net/ ///////Begin CurrToStrF CyGS45 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); M2q2V8 http://blog.numino.net/ begin mI9P5O http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), U2sX1H http://blog.numino.net/ ffGeneral, SpinEdit1.Value); G7TFtL http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, fPylGH http://blog.numino.net/ 0), T5EU1a http://blog.numino.net/ ffExponent, SpinEdit1.Value); 4345hP http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 17wdG6 http://blog.numino.net/ ffFixed, SpinEdit1.Value); B3O8rA http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), 8H3Jfh http://blog.numino.net/ ffNumber, SpinEdit1.Value); Nfl3xz http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 3G11qx http://blog.numino.net/ 0), 8sPtT9 http://blog.numino.net/ ffCurrency, SpinEdit1.Value); oOahsw http://blog.numino.net/ end; 58I9Z0 http://blog.numino.net/ ///////End CurrToStrF mMLe62 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NWeODC http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: GT203v http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; 5ubZSV http://blog.numino.net/ $[SysUtils.pas uHL9Hd http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 M0mmDS http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 x3wnvp http://blog.numino.net/ 参考 <NULL> Yot1fd http://blog.numino.net/ 例子 ZYNT12 http://blog.numino.net/ ///////Begin FloatToText GiCyDM http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); jKQbWN http://blog.numino.net/ var 9O75jA http://blog.numino.net/ vBuffer: array[0..255] of Char; 235E7K http://blog.numino.net/ E: Extended; k4CLaE http://blog.numino.net/ begin 7I8UH0 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); R8xTK0 http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, 37vWcc http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); Vd27Z5 http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 5lsB7Y http://blog.numino.net/ end; 9f6p24 http://blog.numino.net/ ///////End FloatToText( 1WH0e2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iA72G2 http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; Zf9Tk8 http://blog.numino.net/ $[SysUtils.pas 68lCQg http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 6LwcPZ http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' jxlBlX http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt weyeyC http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); ZI8Wz4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GMF6aW http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; 8eMNBn http://blog.numino.net/ $[SysUtils.pas BLw2TA http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 tItt7g http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' MdIiwC http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 6JxRHq http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 0XmSPZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ it2NL4 http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: 88m2ay http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas WN3q0s http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 rVfpsb http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 DFDP4C http://blog.numino.net/ 参考 <NULL> 0NRZLD http://blog.numino.net/ 例子 UfQRq4 http://blog.numino.net/ ///////Begin FloatToTextFmt 6N06QS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); VP8nL4 http://blog.numino.net/ var h9bx9F http://blog.numino.net/ vBuffer: array[0..255] of Char; O755TI http://blog.numino.net/ E: Extended; X7ki6M http://blog.numino.net/ begin i90AF3 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); T0uGDv http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 8604zV http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); idzy5r http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); FWCf4t http://blog.numino.net/ end; C9kNfR http://blog.numino.net/ ///////End FloatToTextFmt 1Q2tc5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eL665O http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas WQcg8f http://blog.numino.net/ 功能 返回字符串S转换成浮点数 BlRLZy http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 BnU42W http://blog.numino.net/ 参考 function SysUtils.TextToFloat 5MvFw4 http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; JJjEAg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DfTzI2 http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): HRMvqV http://blog.numino.net/ Extended; $[SysUtils.pas lbghe3 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 KqPqud http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default R00v6X http://blog.numino.net/ 参考 function SysUtils.TextToFloat hsOUJg http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 5dvQj7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7lnh5K http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; fn12LC http://blog.numino.net/ overload; $[SysUtils.pas jNI3eZ http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; Ao6qvC http://blog.numino.net/ overload; $[SysUtils.pas uG48IC http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; uXiZrH http://blog.numino.net/ overload; $[SysUtils.pas n6d0sp http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 A8t9T3 http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 PnQ7Lk http://blog.numino.net/ 参考 function SysUtils.TextToFloat 8W54IU http://blog.numino.net/ 例子 p79P2t http://blog.numino.net/ ///////Begin TryStrToFloat 6Kptli http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); oaYvmj http://blog.numino.net/ var y32kkQ http://blog.numino.net/ E: Extended; vdy69T http://blog.numino.net/ begin 7yswiF http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 1z4264 http://blog.numino.net/ Edit2.Text := FormatFloat('', E); SF722B http://blog.numino.net/ end; dCjS6x http://blog.numino.net/ ///////End TryStrToFloat i9jzzU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ UP6KbV http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas 2G9oPn http://blog.numino.net/ 功能 返回字符串S转换成货币数 7iS5vz http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 EU0GDp http://blog.numino.net/ 参考 function SysUtils.TextToFloat MelO8w http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; e4bS54 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SgqY02 http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): Ro3I86 http://blog.numino.net/ Currency; $[SysUtils.pas e8zzxO http://blog.numino.net/ 功能 返回字符串S转换成货币数 BqEgLt http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default 7s2Is8 http://blog.numino.net/ 参考 function SysUtils.TextToFloat n2d7G1 http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; L7bJs4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ n2NNgz http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; LKUeRN http://blog.numino.net/ $[SysUtils.pas gT4LbV http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 LKOKn4 http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 bnrmnL http://blog.numino.net/ 参考 function SysUtils.TextToFloat f3XPx2 http://blog.numino.net/ 例子 Ug5QOu http://blog.numino.net/ ///////Begin TryStrToCurr G8I5S0 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); h2ZyrH http://blog.numino.net/ var 994703 http://blog.numino.net/ C: Currency; oQTi3i http://blog.numino.net/ begin 0vQXY6 http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); KgWPHw http://blog.numino.net/ Edit2.Text := FormatCurr('', C); i3jfL0 http://blog.numino.net/ end; 1Te2Tp http://blog.numino.net/ ///////End TryStrToCurr RonhYJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BH4yni http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): QGfRfO http://blog.numino.net/ Boolean; $[SysUtils.pas 69LfYg http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value tiz5IQ http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 1FV2D6 http://blog.numino.net/ 参考 <NULL> JS21B3 http://blog.numino.net/ 例子 k2iGjB http://blog.numino.net/ ///////Begin TextToFloat KkPvEj http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); mmeMZq http://blog.numino.net/ var gfZtyw http://blog.numino.net/ E: Extended; 2yzkK8 http://blog.numino.net/ begin Vivwnv http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, 8z0Mrs http://blog.numino.net/ fvExtended); prQGBj http://blog.numino.net/ Edit2.Text := FormatFloat('', E); C8Gy4F http://blog.numino.net/ end; 9Vb6WN http://blog.numino.net/ ///////End TextToFloat 5TnRH8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NDi0Ux http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas O8JXuL http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 huqiOQ http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 ue880S http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat jU5pPq http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); TCI7Va http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LGd5dY http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 49hgNd http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 mA2O2a http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 Z1Sv72 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat N0Rk1d http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); pzNBxD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ woT97K http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; iybKFQ http://blog.numino.net/ $[SysUtils.pas FM7ohb http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 Um5aNR http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 Rq815U http://blog.numino.net/ 参考 function SysUtils.DateTimeToString QqCLk8 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); k4aS7Y http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 51RXxH http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas Bd2b3v http://blog.numino.net/ 功能 返回字符串S转换成日期 93Idi4 http://blog.numino.net/ 说明 字符非日期表达时将引起异常 JzzLxy http://blog.numino.net/ 参考 function SysUtils.TryStrToDate E8ykgb http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); V809z5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1i2l8L http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): uz69q1 http://blog.numino.net/ TDateTime; $[SysUtils.pas 8tO3gV http://blog.numino.net/ 功能 返回字符串S转换成日期 ty3VR9 http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default gDj1O2 http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 9aRAvd http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); Paxi0u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dxiDtV http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; k9CFm5 http://blog.numino.net/ $[SysUtils.pas lh7dJU http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 4VJFT8 http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 4uP0PO http://blog.numino.net/ 参考 <NULL> ZizXan http://blog.numino.net/ 例子 4G2n7z http://blog.numino.net/ ///////Begin TryStrToDate O1ZN2Z http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); b132qV http://blog.numino.net/ var 5l6CrA http://blog.numino.net/ vDateTime: TDateTime; f0GqM2 http://blog.numino.net/ begin 2y22s9 http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); DaZp7D http://blog.numino.net/ DateTimePicker1.Date := vDateTime; Tx39XN http://blog.numino.net/ end; Mh287A http://blog.numino.net/ ///////End TryStrToDate 5L0fLX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2M4CpS http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 5Pl33b http://blog.numino.net/ 功能 返回字符串S转换成时间 3w9F92 http://blog.numino.net/ 说明 字符非时间表达时将引起异常 4eh3w1 http://blog.numino.net/ 参考 function SysUtils.TryStrToTime Wa5eSh http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 58akQV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GeSzN5 http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): 1KfajA http://blog.numino.net/ TDateTime; $[SysUtils.pas CRTq7O http://blog.numino.net/ 功能 返回字符串S转换成时间 CxeI7E http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default vcS48f http://blog.numino.net/ 参考 function SysUtils.TryStrToTime 50W11t http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 2q8751 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Eh3KZZ http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; 3Z4htV http://blog.numino.net/ $[SysUtils.pas yynINz http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 MjozPd http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 3CTD9i http://blog.numino.net/ 参考 <NULL> DnhvR2 http://blog.numino.net/ 例子 5womcz http://blog.numino.net/ ///////Begin TryStrToTime 15D8lq http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1C2A3f http://blog.numino.net/ var 3BzA8E http://blog.numino.net/ vDateTime: TDateTime; 3MpDy2 http://blog.numino.net/ begin C5X7Y3 http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); RFI9el http://blog.numino.net/ DateTimePicker1.Time := vDateTime; y1ajI6 http://blog.numino.net/ end; XERkey http://blog.numino.net/ ///////End TryStrToTime IvHlVM http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VkldQo http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas fNS2hH http://blog.numino.net/ 功能 返回字符串S转换成日期时间 IEVbWN http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 825zZN http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime mKq56c http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); C91M6x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1GZbNH http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): imt4Gl http://blog.numino.net/ TDateTime; $[SysUtils.pas a37snC http://blog.numino.net/ 功能 返回字符串S转换成日期时间 16GeuV http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default B1Lf7Y http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 1x2Q52 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 9VKV3x http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Aq0N6P http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): ox6l66 http://blog.numino.net/ Boolean; $[SysUtils.pas muzW8S http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 3a6Uig http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 zNid12 http://blog.numino.net/ 参考 <NULL> Ig5b5g http://blog.numino.net/ 例子 c6ODeP http://blog.numino.net/ ///////Begin TryStrToDateTime fOuUSW http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); P4ge00 http://blog.numino.net/ var 5jHGND http://blog.numino.net/ vDateTime: TDateTime; 2S6lil http://blog.numino.net/ begin TQ4TeG http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); B730hU http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); 37623v http://blog.numino.net/ end; kCUOJj http://blog.numino.net/ ///////End TryStrToDateTime 3RASH5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ d2fzpR http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; Ojwsph http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas 005i60 http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 C3wij6 http://blog.numino.net/ 说明 <参见FormatDateTime> 3XCUZC http://blog.numino.net/ 参考 function System.SetString 632uZ9 http://blog.numino.net/ 例子 <参见FormatDateTime> vm0ccr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jqAfNG http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: oKrZW6 http://blog.numino.net/ string): string; platform; $[SysUtils.pas 03889P http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 1xlul1 http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' j5MuLQ http://blog.numino.net/ 参考 function Windows.GetLocaleInfo j6EiVq http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); vn0UZg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7g97FB http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): 300LIx http://blog.numino.net/ Char; platform; $[SysUtils.pas fMt3Fq http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 wBHYee http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' w0w2KT http://blog.numino.net/ 参考 function Windows.GetLocaleInfo tJ17c0 http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); mvJjck http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ B8F17J http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; h220nJ http://blog.numino.net/ $[SysUtils.pas W92xwQ http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 Gy3RR7 http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) 2u62sW http://blog.numino.net/ 参考 var SysUtils.SysLocale Z10Xdx http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); yvdRk3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Pv1HUB http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 01Sr53 http://blog.numino.net/ $[SysUtils.pas 92t9tP http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 je7vUS http://blog.numino.net/ 说明 Index从0开始 EnY9Vx http://blog.numino.net/ 参考 var SysUtils.SysLocale lDf8bU http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), UPaftG http://blog.numino.net/ SpinEdit2.Value)); G0W6Ac http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ttq1Kw http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; 21pt6g http://blog.numino.net/ $[SysUtils.pas ujudvc http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 rdAX72 http://blog.numino.net/ 说明 MaxLen指定处理字符个数 HJg9xY http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex paecfn http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 17mhPw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7aSdZA http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; At5WXm http://blog.numino.net/ $[SysUtils.pas 1b0Z32 http://blog.numino.net/ 功能 返回字符串S中有多少个字符 c1wi4S http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 TkIPvO http://blog.numino.net/ 参考 var SysUtils.SysLocale 0MPh67 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); U5Mfh7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nNdkK9 http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; u68bTF http://blog.numino.net/ $[SysUtils.pas NgIU2Q http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 j7BUI7 http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 O3leXK http://blog.numino.net/ 参考 function SysUtils.NextCharIndex W1Ecuq http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); YfDHvF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nEoSYq http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; nTDLjc http://blog.numino.net/ $[SysUtils.pas 8e2zji http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 oc0yqX http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 Ad1t0J http://blog.numino.net/ 参考 function System.Length w5n48K http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 3aoRAX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NxovFW http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas 0DWoVt http://blog.numino.net/ 功能 返回第一个字符的宽度 StgIy6 http://blog.numino.net/ 说明 参数为空则返回0 UjAq31 http://blog.numino.net/ 参考 function Windows.CharNext ALYtC2 http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); KjRto9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ElMk3r http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas g9KN0n http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 3erHB8 http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; ON6Leu http://blog.numino.net/ 参考 function Windows.CharNext r66xMK http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); BpmgV5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3MLOw6 http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; 23aj66 http://blog.numino.net/ $[SysUtils.pas jomyI4 http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 Hg3G23 http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 qbTXt3 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength u0D0a5 http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); 0wfxKc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LIfkuv http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; EQP4cn http://blog.numino.net/ $[SysUtils.pas oxWbhs http://blog.numino.net/ 功能 返回下一个字符的位置 16q348 http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 CZ6wUg http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength B3Wu9l http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); MoWQa3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q31dYR http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; rOPYEJ http://blog.numino.net/ $[SysUtils.pas WuZCg1 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 8Ka0l7 http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True DjZmdE http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType 3TGedA http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); v87p8K http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ W3MRYh http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): a38JhY http://blog.numino.net/ Boolean; $[SysUtils.pas 2YGcOs http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 7uAU1n http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True sn68m7 http://blog.numino.net/ 参考 function SysUtils.ByteType mwbZR4 http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, EiI9TG http://blog.numino.net/ SpinEdit1.Value); 19G6VY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 92PMv4 http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; z42qvW http://blog.numino.net/ $[SysUtils.pas VmNWiU http://blog.numino.net/ 功能 返回包括最后路径分隔符 ZSM9I1 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 V1A3pm http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length ij8W44 http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); iBQs3w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ J7EMDX http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; 7abPI9 http://blog.numino.net/ $[SysUtils.pas VzHo1n http://blog.numino.net/ 功能 返回包括最后斜线 nHoPgn http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); 96S3zR http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter Vp8k3m http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); E4Yp30 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XSI6Iz http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; 9JVqhq http://blog.numino.net/ $[SysUtils.pas 3jSnJ9 http://blog.numino.net/ 功能 返回排除最后路径分隔符 i0KFkm http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 Jw22uG http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function Y9RX25 http://blog.numino.net/ System.SetLength bT290f http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); 2OwHZn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 39CX9L http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; yNugeM http://blog.numino.net/ $[SysUtils.pas JS27RE http://blog.numino.net/ 功能 返回排除最后斜线 chol6d http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) H2MLCJ http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter hA1Qj3 http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); 6TkByI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OCeMYc http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; 4g1N0D http://blog.numino.net/ $[SysUtils.pas ikSrfk http://blog.numino.net/ 功能 返回最后一个分隔符的位置 Ja5r4u http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 pY99K1 http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType W81E5P http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); 3EXcYX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VT6IKk http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; WEM39S http://blog.numino.net/ $[SysUtils.pas N0X6ut http://blog.numino.net/ 功能 返回比较两个文件名 aF2gPn http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 tZ961P http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 0Q16nA http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); 3vV5d5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l4zMyx http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas KA0em6 http://blog.numino.net/ 功能 返回两个文件名是否相等 r3ocvf http://blog.numino.net/ 说明 区分大小写 50ox1O http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName 0gGe7H http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); wIs1Ra http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EnHO0q http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas H37v1i http://blog.numino.net/ 功能 返回小写文件名 nTPj41 http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase u0Eth5 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase dNFtzv http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); j6PX4u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2zn9vP http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas jU7Wgk http://blog.numino.net/ 功能 返回大写文件名 CPjMkZ http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase 8qOKfj http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase m0dZFp http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); vgqm0A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i9WVsa http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas 07cRAx http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 u4QSOu http://blog.numino.net/ 说明 不存在则返回0 jOaZ82 http://blog.numino.net/ 参考 SysUtils.AnsiStrPos EX4SjD http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); FU48kG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ R0xhRT http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas Ky8BrS http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 fUh5PL http://blog.numino.net/ 说明 不存在则返回nil A6ATWU http://blog.numino.net/ 参考 function SysUtils.StrByteType GeJ73w http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); hiJ0H9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3Kfher http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas JU6QiW http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 VoJja5 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' 9WQo02 http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan RZ4z7I http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); e2JRE6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3l197n http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas NC87K8 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 x5wa2w http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' D3GE6P http://blog.numino.net/ 参考 function SysUtils.StrScan hycd7H http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 0ZZlvY http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1gofQK http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: zzi4I3 http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas 7sHF6Z http://blog.numino.net/ 功能 返回替换后的字符串 N5b9rX http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 dA911K http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function p9Fo20 http://blog.numino.net/ System.Copy 4SS4ml http://blog.numino.net/ 例子 eGTire http://blog.numino.net/ ///////Begin StringReplace q51USi http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 6i2zR7 http://blog.numino.net/ begin TB59D0 http://blog.numino.net/ Memo1.Lines.Values['[]'] := 4RP110 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); NYo7dk http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := LpUME1 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); Sl3sHH http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := ZnxN5t http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); M6P7I5 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := E1cfr8 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, 9PGs4y http://blog.numino.net/ rfIgnoreCase]); CI54Kw http://blog.numino.net/ end; UrOkmM http://blog.numino.net/ ///////End StringReplace 8m33GL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4hsHIn http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas NFL9iR http://blog.numino.net/ 功能 返回字符串S转换成全局标识 MZ8fX9 http://blog.numino.net/ 说明 如果字符串非法将触发异常 KzNoP4 http://blog.numino.net/ 参考 fuction Windows.Succeeded 21vFCC http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); r2Ytmb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1Yj22M http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas bMb7O9 http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 f3KKi7 http://blog.numino.net/ 说明 <NULL> DXlLun http://blog.numino.net/ 参考 fuction Windows.Succeeded 9SQJJ6 http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); XJdU7A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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