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

Delphi字符串函数大全 【字符串函数大全】 O8bZB7 http://blog.numino.net/ 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; Uq04NC http://blog.numino.net/ $[StrUtils.pas J5U5yi http://blog.numino.net/ 功能 返回两个字符串是否相似 Tmzhop http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 FY6bBm http://blog.numino.net/ 参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc L0uF68 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); LKTg5q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ m3pPNf http://blog.numino.net/ 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 3Zwp22 http://blog.numino.net/ $[StrUtils.pas kSz556 http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText 3a7Osz http://blog.numino.net/ 说明 不区分大小写 m7fIus http://blog.numino.net/ 参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos wrVHrx http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); kM8Idr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MROq7T http://blog.numino.net/ 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; iRmWuN http://blog.numino.net/ $[StrUtils.pas dGI3x9 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 SO350f http://blog.numino.net/ 说明 不区分大小写 4h8bX8 http://blog.numino.net/ 参考 function Windows.CompareString 5G37Nb http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); RgO0XO http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3h7irT http://blog.numino.net/ 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 68f09l http://blog.numino.net/ $[StrUtils.pas bI0Lf6 http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 348V3I http://blog.numino.net/ 说明 不区分大小写 v83HPz http://blog.numino.net/ 参考 function Windows.CompareString 47m6H5 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); wZDIhb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0013Yw http://blog.numino.net/ 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): BNl2p8 http://blog.numino.net/ string; $[StrUtils.pas KYtB2R http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 QNmCbB http://blog.numino.net/ 说明 不区分大小写 cJ6Pko http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 4ezH4P http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); mgNIs1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BGn84V http://blog.numino.net/ 首部 function AnsiMatchText(const AText: string; const AValues: array of 4KwYd7 http://blog.numino.net/ string): Boolean; $[StrUtils.pas ps3IFf http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText rR41dH http://blog.numino.net/ 说明 不区分大小写 3n2L98 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexText S6I40R http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 0x2K5S http://blog.numino.net/ 'a4']); 076Ezd http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ e9ihBD http://blog.numino.net/ 首部 function AnsiIndexText(const AText: string; const AValues: array of fj9ltw http://blog.numino.net/ string): Integer; $[StrUtils.pas JY76AA http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 zKDD7m http://blog.numino.net/ 说明 不区分大小写;如果不包含则返回-1 D3qA56 http://blog.numino.net/ 参考 function SysUtils.AnsiSameText 3XYFv6 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 2hcRbH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S9SSbu http://blog.numino.net/ 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; IBFxvn http://blog.numino.net/ $[StrUtils.pas 5a1iAK http://blog.numino.net/ 功能 返回字符串AText是否包含子串ASubText wy9EPk http://blog.numino.net/ 说明 区分大小写 u83wkj http://blog.numino.net/ 参考 function StrUtils.AnsiPos Hf1MP0 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 770WjQ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EUN56Z http://blog.numino.net/ 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; U6vgIY http://blog.numino.net/ $[StrUtils.pas EL6qQZ http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText开头 H0aB4b http://blog.numino.net/ 说明 区分大小写 H46I4q http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr YbC9pF http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); 0W2mnl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OLCQw7 http://blog.numino.net/ 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; MbNqDX http://blog.numino.net/ $[StrUtils.pas hw4tnQ http://blog.numino.net/ 功能 返回字符串AText是否以子串ASubText结尾 7h3k6u http://blog.numino.net/ 说明 区分大小写 1W13VU http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr 4GQkr6 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 24De8A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 73vB26 http://blog.numino.net/ 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): R9aOVL http://blog.numino.net/ string; $[StrUtils.pas 9WWPlv http://blog.numino.net/ 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 549l1d http://blog.numino.net/ 说明 区分大小写 ZXcawQ http://blog.numino.net/ 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags b07JhG http://blog.numino.net/ 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); wlzY00 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ugV7Ot http://blog.numino.net/ 首部 function AnsiMatchStr(const AText: string; const AValues: array of b4bg2p http://blog.numino.net/ string): Boolean; $[StrUtils.pas qsCHJc http://blog.numino.net/ 功能 返回字符串数组AValues中是否包含字符串AText 0mLx22 http://blog.numino.net/ 说明 区分大小写 a1bxp3 http://blog.numino.net/ 参考 function StrUtils.AnsiIndexStr PIjFQ8 http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', J2K54I http://blog.numino.net/ 'a4']); iTaf7P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NqBAxU http://blog.numino.net/ 首部 function AnsiIndexStr(const AText: string; const AValues: array of Z6NeIh http://blog.numino.net/ string): Integer; $[StrUtils.pas nMD9Rv http://blog.numino.net/ 功能 返回字符串AText在字符串数组AValues中的位置 Eo10M1 http://blog.numino.net/ 说明 区分大小写 kKEX7O http://blog.numino.net/ 参考 function SysUtils.AnsiSameStr n40d79 http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); zk3tVD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ gy2RKH http://blog.numino.net/ 首部 function DupeString(const AText: string; ACount: Integer): string; 2PM7xq http://blog.numino.net/ $[StrUtils.pas XEo7AM http://blog.numino.net/ 功能 返回字符串AText的ACount个复本 gdc5AC http://blog.numino.net/ 说明 当ACount为0时返回'' 4937Wl http://blog.numino.net/ 参考 function System.SetLength I780eX http://blog.numino.net/ 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); vXJOHJ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G3S6WM http://blog.numino.net/ 首部 function ReverseString(const AText: string): string; $[StrUtils.pas TaI9xr http://blog.numino.net/ 功能 返回字符串AText的反序 VnZprj http://blog.numino.net/ 说明 ReverseString('1234') = '4321' r6rvRP http://blog.numino.net/ 参考 function System.SetLength HKrf7f http://blog.numino.net/ 例子 Edit3.Text := ReverseString(Edit1.Text); 05914l http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ haW6Cv http://blog.numino.net/ 首部 function StuffString(const AText: string; AStart, ALength: Cardinal; Jvvqmn http://blog.numino.net/ const ASubText: string): string; $[StrUtils.pas o59jMw http://blog.numino.net/ 功能 返回嵌套字符串 mSX1j4 http://blog.numino.net/ 说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' H0505s http://blog.numino.net/ 参考 function System.Copy w158bh http://blog.numino.net/ 例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, 0JnznW http://blog.numino.net/ Edit2.Text); BL5098 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rv3384 http://blog.numino.net/ 首部 function RandomFrom(const AValues: array of string): string; overload; 20eXGc http://blog.numino.net/ $[StrUtils.pas cgr894 http://blog.numino.net/ 功能 随机返回字符串数组AValues中的一个元素 LtcphG http://blog.numino.net/ 说明 之前建议执行Randomize 8H5rH5 http://blog.numino.net/ 参考 function System.Random NGo2iW http://blog.numino.net/ 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); P6NfOi http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Aj3ukA http://blog.numino.net/ 首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = t2wU7d http://blog.numino.net/ ''): string; overload; $[StrUtils.pas gPI6uT http://blog.numino.net/ 功能 返回指定的逻辑字符串 DjWHz5 http://blog.numino.net/ 说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' T513Id http://blog.numino.net/ 参考 <NULL> 9Qk3A6 http://blog.numino.net/ 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); R8sUzn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ T287fC http://blog.numino.net/ 首部 function LeftStr(const AText: string; const ACount: Integer): string; 7NtfG6 http://blog.numino.net/ $[StrUtils.pas v4WECi http://blog.numino.net/ 功能 返回字符串AText左边的ACount个字符 uTya8I http://blog.numino.net/ 说明 LeftStr('123456', 3) = '123' XnWndg http://blog.numino.net/ 参考 function System.Copy jNTRN4 http://blog.numino.net/ 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); AG4lLo http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 23LHiT http://blog.numino.net/ 首部 function RightStr(const AText: string; const ACount: Integer): string; Fl8qvj http://blog.numino.net/ $[StrUtils.pas 9npU5L http://blog.numino.net/ 功能 返回字符串AText右边的ACount个字符 jR341B http://blog.numino.net/ 说明 RightStr('123456', 3) = '456' LngZsQ http://blog.numino.net/ 参考 function System.Copy MSWhR4 http://blog.numino.net/ 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); 9qHkEq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S8Pv7V http://blog.numino.net/ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): aAB1d5 http://blog.numino.net/ string; $[StrUtils.pas AoLRrP http://blog.numino.net/ 功能 返回字符串AText从AStart开始的ACount个字符 qQQULO http://blog.numino.net/ 说明 其实就是Copy J65N7e http://blog.numino.net/ 参考 function System.Copy Zm4sJd http://blog.numino.net/ 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); RAnEpT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SkyWSa http://blog.numino.net/ 首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: TCb3A5 http://blog.numino.net/ Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): n62Z7r http://blog.numino.net/ PChar; $[StrUtils.pas pjCS37 http://blog.numino.net/ 功能 返回第一个搜索到的指针位置 739xNd http://blog.numino.net/ 说明 这函数常用于文本中搜索字符串 3WsL56 http://blog.numino.net/ 参考 <NULL> QB3jQ7 http://blog.numino.net/ 例子 u8M75w http://blog.numino.net/ ///////Begin SearchBuf 0v104E http://blog.numino.net/ function SearchEdit(EditControl: TCustomEdit; const SearchString: String; jqUqsI http://blog.numino.net/ SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 45tS67 http://blog.numino.net/ var Wnd9gv http://blog.numino.net/ Buffer, P: PChar; poD9z2 http://blog.numino.net/ Size: Word; vT6DuO http://blog.numino.net/ begin mG3EYE http://blog.numino.net/ Result := False; 906r6W http://blog.numino.net/ if (Length(SearchString) = 0) then Exit; eTff9F http://blog.numino.net/ Size := EditControl.GetTextLen; 5X8fyk http://blog.numino.net/ if (Size = 0) then Exit; 5fEhMe http://blog.numino.net/ Buffer := StrAlloc(Size + 1); A3ugWv http://blog.numino.net/ try 5JfIQV http://blog.numino.net/ EditControl.GetTextBuf(Buffer, Size + 1); KYzMvQ http://blog.numino.net/ P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, 2k3vHW http://blog.numino.net/ SearchString, SearchOptions); 1FT6gS http://blog.numino.net/ if P <> nil then begin 9hZoTQ http://blog.numino.net/ EditControl.SelStart := P - Buffer; 80P519 http://blog.numino.net/ EditControl.SelLength := Length(SearchString); CvWze4 http://blog.numino.net/ Result := True; WBA9P9 http://blog.numino.net/ end; p26yRw http://blog.numino.net/ finally MDv18B http://blog.numino.net/ StrDispose(Buffer); dSwpKL http://blog.numino.net/ end; xh38bu http://blog.numino.net/ end; 0TtPbD http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1ADskP http://blog.numino.net/ var 3D407T http://blog.numino.net/ SearchOptions: TStringSearchOptions; C3SdtO http://blog.numino.net/ begin Gt62gH http://blog.numino.net/ SearchOptions := []; EMJz5J http://blog.numino.net/ if CheckBox1.Checked then nU8bH4 http://blog.numino.net/ Include(SearchOptions, soDown); IDW968 http://blog.numino.net/ if CheckBox2.Checked then NgGLMF http://blog.numino.net/ Include(SearchOptions, soMatchCase); 496T2m http://blog.numino.net/ if CheckBox3.Checked then W1D5X0 http://blog.numino.net/ Include(SearchOptions, soWholeWord); AAttK2 http://blog.numino.net/ SearchEdit(Memo1, Edit1.Text, SearchOptions); 8s2U1f http://blog.numino.net/ Memo1.SetFocus; 5QBfhS http://blog.numino.net/ end; IsYSVl http://blog.numino.net/ ///////End SearchBuf Td06ME http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 28ONz9 http://blog.numino.net/ 首部 function Soundex(const AText: string; ALength: TSoundexLength = 4): MbU8e7 http://blog.numino.net/ string; $[StrUtils.pas t41XLB http://blog.numino.net/ 功能 返回探测字符串 pa5n38 http://blog.numino.net/ 说明 根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html u9zK20 http://blog.numino.net/ 参考 <NULL> dkpyOG http://blog.numino.net/ 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); mBDX3Z http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qPt9zk http://blog.numino.net/ 首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 105z0Y http://blog.numino.net/ 4): Integer; $[StrUtils.pas EOd6r0 http://blog.numino.net/ 功能 返回探测整数 2xwGg0 http://blog.numino.net/ 说明 ALength的值越大解码准确率越高 RAa7T7 http://blog.numino.net/ 参考 <NULL> DUNhYy http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); v8sggq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Li7esO http://blog.numino.net/ 首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas PKJwFS http://blog.numino.net/ 功能 返回探测整数的解码 WKIU5f http://blog.numino.net/ 说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') Opzr2S http://blog.numino.net/ 参考 <NULL> 0f1lUL http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); qKXF1n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4122ZO http://blog.numino.net/ 首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas 60w3kL http://blog.numino.net/ 功能 返回探测文字数值 9fbs2T http://blog.numino.net/ 说明 没有参数ALength已经固定为4 QeIuXH http://blog.numino.net/ 参考 <NULL> 8W6JA5 http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexWord(Edit1.Text); wgeOs2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8OmEDs http://blog.numino.net/ 首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas HgDILz http://blog.numino.net/ 功能 返回探测文字数值的解码 8bWsf1 http://blog.numino.net/ 说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') oFl03S http://blog.numino.net/ 参考 <NULL> 9r8Fuc http://blog.numino.net/ 例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 5lH8RU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ PvyDIz http://blog.numino.net/ 首部 function SoundexSimilar(const AText, AOther: string; ALength: OeEOVf http://blog.numino.net/ TSoundexLength = 4): Boolean; $[StrUtils.pas 6H5hzL http://blog.numino.net/ 功能 返回两个字符串的探测字符串是否相同 TEM7LC http://blog.numino.net/ 说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) cpsG0h http://blog.numino.net/ 参考 <NULL> Rs9QW8 http://blog.numino.net/ 例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, e9jSn8 http://blog.numino.net/ SpinEdit1.Value); T7QZo6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ XU2xqL http://blog.numino.net/ 首部 function SoundexCompare(const AText, AOther: string; ALength: tP7rS1 http://blog.numino.net/ TSoundexLength = 4): Integer; $[StrUtils.pas 67KvM6 http://blog.numino.net/ 功能 返回比较两个字符串的探测字符串的结果 WCiVfI http://blog.numino.net/ 说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, llT0e2 http://blog.numino.net/ ALength)) 4870NP http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr EOCW2z http://blog.numino.net/ 例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, cldmud http://blog.numino.net/ SpinEdit1.Value); hKgzl0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 48YJ7U http://blog.numino.net/ 首部 function SoundexProc(const AText, AOther: string): Boolean; 1mfyBN http://blog.numino.net/ $[StrUtils.pas 42Txue http://blog.numino.net/ 功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同 HeIY8j http://blog.numino.net/ 说明 系统变量AnsiResemblesProc的默认值 v2j4Cv http://blog.numino.net/ 参考 function StrUtils.AnsiResemblesText OKHmaV http://blog.numino.net/ 例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] 1xyb6D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 44mJ21 http://blog.numino.net/ 首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas yWOHwx http://blog.numino.net/ 功能 返回一个新的字符串指针地址 JQDXgG http://blog.numino.net/ 说明 字符串S为空时返回NullStr QFSGvO http://blog.numino.net/ 参考 procedure System.New 97wIPp http://blog.numino.net/ 例子 byMdb7 http://blog.numino.net/ ////////Begin NewStr,DisposeStr GBtYJS http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); HJ45Wr http://blog.numino.net/ var U3HzH1 http://blog.numino.net/ P: PString; DDLR2K http://blog.numino.net/ begin dAc7c1 http://blog.numino.net/ P := NewStr(Edit1.Text); z1up67 http://blog.numino.net/ Edit2.Text := P^; 92lBS9 http://blog.numino.net/ DisposeStr(P); 5DPNDT http://blog.numino.net/ end; uxs6J1 http://blog.numino.net/ ////////End NewStr,DisposeStr r6A4P2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ISu6Q0 http://blog.numino.net/ 首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas Hlce7n http://blog.numino.net/ 功能 释放字符串指针P资源 yIlnMn http://blog.numino.net/ 说明 配合函数NewStr使用 Ir8VJ1 http://blog.numino.net/ 参考 procedure System.Dispose IzoUj8 http://blog.numino.net/ 例子 <如上参见,如下参见> rotxlt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H25ET8 http://blog.numino.net/ 首部 procedure AssignStr(var P: PString; const S: string); deprecated; b6CcK7 http://blog.numino.net/ $[SysUtils.pas 89h1Ve http://blog.numino.net/ 功能 将字符串S更新给字符串指针P srpEQo http://blog.numino.net/ 说明 更新值时会释放以前字符串指针的资源 aD1LHz http://blog.numino.net/ 参考 function SysUtils.NewStr;function SysUtils.DisposeStr y2XndC http://blog.numino.net/ 例子 SxwsWk http://blog.numino.net/ ////////Begin AssignStr weWgqX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7dp49J http://blog.numino.net/ var A894BR http://blog.numino.net/ P: PString; QCwY9g http://blog.numino.net/ begin dmMj5X http://blog.numino.net/ P := nil; yk5qP9 http://blog.numino.net/ AssignStr(P, Edit1.Text); c7NQz7 http://blog.numino.net/ Edit2.Text := P^; rxyntI http://blog.numino.net/ DisposeStr(P); 95J8qT http://blog.numino.net/ end; o0w1r3 http://blog.numino.net/ ////////End AssignStr XyGHQt http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7epTBA http://blog.numino.net/ 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; 85AQP9 http://blog.numino.net/ $[SysUtils.pas kGNX8G http://blog.numino.net/ 功能 在字符串Dest后追加字符串S QQ0JUs http://blog.numino.net/ 说明 相当于Dest := Dest + S;Delphi6已经不建议使用 5Ia10I http://blog.numino.net/ 参考 <NULL> 21Qa0x http://blog.numino.net/ 例子 bng9EO http://blog.numino.net/ ////////Begin AppendStr hgUMEy http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); aiXCU3 http://blog.numino.net/ var v6h4vv http://blog.numino.net/ S: string; DEW6ja http://blog.numino.net/ begin Nsd3l4 http://blog.numino.net/ S := Edit2.Text; a21L8M http://blog.numino.net/ AppendStr(S, Edit1.Text); VzVYqr http://blog.numino.net/ Edit2.Text := S; ft376z http://blog.numino.net/ end; 50zddx http://blog.numino.net/ ////////End AppendStr bfGDzX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N9nW16 http://blog.numino.net/ 首部 function UpperCase(const S: string): string; $[SysUtils.pas V1O086 http://blog.numino.net/ 功能 返回字符串S的大写形式 QjUsyp http://blog.numino.net/ 说明 非小写字符不处理 VfkQGg http://blog.numino.net/ 参考 procedure System.SetLength Q8Uj1Y http://blog.numino.net/ 例子 Edit2.Text := UpperCase(Edit1.Text); 5Xe7S8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ADy4BU http://blog.numino.net/ 首部 function LowerCase(const S: string): string; $[SysUtils.pas X6RCB7 http://blog.numino.net/ 功能 返回字符串S的小写形式 TZk8dQ http://blog.numino.net/ 说明 非大写字符不处理 B045xY http://blog.numino.net/ 参考 procedure System.SetLength zV7SKq http://blog.numino.net/ 例子 Edit2.Text := LowerCase(Edit1.Text); SqUHss http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ SEsNbz http://blog.numino.net/ 首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas FbqSQT http://blog.numino.net/ 功能 返回比较两个字符 Nx398v http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 bzWKhV http://blog.numino.net/ 参考 <NULL> j2PBRZ http://blog.numino.net/ 例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); V6512V http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ KWLpx7 http://blog.numino.net/ 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; Cp5i93 http://blog.numino.net/ assembler; $[SysUtils.pas Am7ut6 http://blog.numino.net/ 功能 返回比较两个内存指针 a1ADVX http://blog.numino.net/ 说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), Ltz4F1 http://blog.numino.net/ PChar('12c'), 3)=False UjJ3oj http://blog.numino.net/ 参考 <NULL> Fbooq0 http://blog.numino.net/ 例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); gGLnPC http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u7mNbH http://blog.numino.net/ 首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas I3HMNG http://blog.numino.net/ 功能 返回比较两个字符串 0Pv7lM http://blog.numino.net/ 说明 不区分大小写 6x3PDu http://blog.numino.net/ 参考 <NULL> 6FHNJM http://blog.numino.net/ 例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); cx5U85 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ QtqKRw http://blog.numino.net/ 首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 5Cj45k http://blog.numino.net/ 功能 返回两个字符串是否相等 u2MiVW http://blog.numino.net/ 说明 不区分大小写 cw44yx http://blog.numino.net/ 参考 <NULL> WvCS31 http://blog.numino.net/ 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 3Gfi9w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ H6g2mo http://blog.numino.net/ 首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas 3kOq61 http://blog.numino.net/ 功能 返回字符串S的大写形式 G95Lwi http://blog.numino.net/ 说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 J9WJHj http://blog.numino.net/ 参考 function Windows.CharUpperBuff hTiv2v http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCase(Edit1.Text); zlk37Q http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ lUlZ47 http://blog.numino.net/ 首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas WFRrI8 http://blog.numino.net/ 功能 返回字符串S的小写形式 lRBFVu http://blog.numino.net/ 说明 非大写字符不处理 BafhC1 http://blog.numino.net/ 参考 function Windows.CharLowerBuff Xfdz3z http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 4878k9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Z0M68X http://blog.numino.net/ 首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 51ZUG5 http://blog.numino.net/ 功能 反回比较两个字符串 2kj7wG http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 Z8JEb3 http://blog.numino.net/ 参考 function Windows.CompareString QtcGtA http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); j0BBAc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pbC0y5 http://blog.numino.net/ 首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas XKNS7j http://blog.numino.net/ 功能 返回两个字符串是否相等 50ZKll http://blog.numino.net/ 说明 区分大小写 4MbNw0 http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr 90DN0N http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); Pk5XSy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ q9g1pz http://blog.numino.net/ 首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas gsE660 http://blog.numino.net/ 功能 反回比较两个字符串 a7u1q4 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 N535qU http://blog.numino.net/ 参考 function Windows.CompareString DNzp2V http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); i9rMfI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ onSwMk http://blog.numino.net/ 首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas l8JV8x http://blog.numino.net/ 功能 返回两个字符串是否相等 G118Np http://blog.numino.net/ 说明 不区分大小写 iPzuDk http://blog.numino.net/ 参考 function SysUtils.AnsiCompareText tHToAW http://blog.numino.net/ 例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); i3CD3F http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7772hm http://blog.numino.net/ 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas TIVcuJ http://blog.numino.net/ 功能 返回比较两个指针字符串 ae80x2 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 QvRKDC http://blog.numino.net/ 参考 function System.CompareString dIp6wY http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) zH7Qso http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ pfo00j http://blog.numino.net/ 首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas AfpIME http://blog.numino.net/ 功能 返回比较两个指针字符串 k1UBjB http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) RACboN http://blog.numino.net/ 参考 function Windows.CompareString Klmsdy http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) sQu3Hy http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ x6PzUA http://blog.numino.net/ 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 285Bs2 http://blog.numino.net/ $[SysUtils.pas c6SbHF http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 T6nHXT http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) oi4i32 http://blog.numino.net/ 参考 function Windows.CompareString 58mR9I http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 8M5qkV http://blog.numino.net/ SpinEdit2.Value) ZE17o2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oAQj5t http://blog.numino.net/ 首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; C0FWz7 http://blog.numino.net/ $[SysUtils.pas 8yUXPM http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 TWagXw http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 Rl5PA7 http://blog.numino.net/ 参考 function Windows.CompareString BHkqBo http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), T7Qmmd http://blog.numino.net/ SpinEdit2.Value) gYJIbs http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Ww4xTQ http://blog.numino.net/ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas ehkzNT http://blog.numino.net/ 功能 返回指针字符串小写形式 EGTvx2 http://blog.numino.net/ 说明 非大写字符不处理 wTM2h4 http://blog.numino.net/ 参考 function Windows.CharLower gCc2GF http://blog.numino.net/ 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); g2jj7C http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7I2Thp http://blog.numino.net/ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas pY5rRN http://blog.numino.net/ 功能 返回指针字符串大写形式 U7HwmA http://blog.numino.net/ 说明 非小写字符不处理 1gc0E1 http://blog.numino.net/ 参考 function Windows.CharUpper E3f3C6 http://blog.numino.net/ 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); 80xnpG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ rtmd0g http://blog.numino.net/ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas Ls84yl http://blog.numino.net/ 功能 返回字符串S的最后一个指针字符 0JyY1L http://blog.numino.net/ 说明 当字符串S为空串则返回空指针 3wWuw3 http://blog.numino.net/ 参考 function SysUtils.ByteType mnYupR http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(Edit1.Text); 6rGC9H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 18Sm43 http://blog.numino.net/ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas KT7Vg8 http://blog.numino.net/ 功能 返回指针字符串P的最后一个指针字符 ekDQOc http://blog.numino.net/ 说明 当字符串P为空空指针则返回空指针 1nmFUB http://blog.numino.net/ 参考 function SysUtils.ByteType 2s0xIw http://blog.numino.net/ 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); F6P65w http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7pcv5M http://blog.numino.net/ 首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 1S9M6g http://blog.numino.net/ 功能 返回双字节字符串的大写形式 jSZNX8 http://blog.numino.net/ 说明 WideChar双字节字符 NbwJsk http://blog.numino.net/ 参考 function Windows.CharUpperBuffW oK8p2Z http://blog.numino.net/ 例子 Edit2.Text := WideUpperCase(Edit1.Text); csk4x9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ERgqJ8 http://blog.numino.net/ 首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas ej3NzL http://blog.numino.net/ 功能 返回双字节字符串的小写形式 x1vY83 http://blog.numino.net/ 说明 我怎么就测试不出来呢 6r7Kv6 http://blog.numino.net/ 参考 function Windows.CharLowerBuffW BF5hmM http://blog.numino.net/ 例子 Edit2.Text := WideLowerCase(Edit1.Text); Pm8luv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1Xpt5k http://blog.numino.net/ 首部 function WideCompareStr(const S1, S2: WideString): Integer; SGHp7T http://blog.numino.net/ $[SysUtils.pas tXcaKP http://blog.numino.net/ 功能 返回比较两个双字节字符串 5kJ0Tt http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 8d11eH http://blog.numino.net/ 参考 function Windows.CompareStringW h0XSxg http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); TaqWuv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ OOgx4F http://blog.numino.net/ 首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 4cZnce http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 zF8AVT http://blog.numino.net/ 说明 区分大小写 ZPsNQL http://blog.numino.net/ 参考 function SysUtils.WideCompareStr 3Q36Z8 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 3h01y3 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ GLAUGv http://blog.numino.net/ 首部 function WideCompareText(const S1, S2: WideString): Integer; U7RK28 http://blog.numino.net/ $[SysUtils.pas aecKjo http://blog.numino.net/ 功能 返回比较两个双字节字符串 pdGfpI http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 6OVvIC http://blog.numino.net/ 参考 function Windows.CompareStringW 0eC3b8 http://blog.numino.net/ 例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); 99bj8b http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ X8Y9y3 http://blog.numino.net/ 首部 function WideSameText(const S1, S2: WideString): Boolean; 4052XA http://blog.numino.net/ $[SysUtils.pas 8I4v1u http://blog.numino.net/ 功能 返回两个双字节字符串是否相同 wm1piO http://blog.numino.net/ 说明 不区分大小写 aIf5s2 http://blog.numino.net/ 参考 function SysUtils.WideCompareText 8gMgB8 http://blog.numino.net/ 例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text); iz0cI4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ vCBT0p http://blog.numino.net/ 首部 function Trim(const S: string): string; overload; $[SysUtils.pas zXMk0r http://blog.numino.net/ 首部 function Trim(const S: WideString): WideString; overload; O3A89R http://blog.numino.net/ $[SysUtils.pas 9dh2r1 http://blog.numino.net/ 功能 返回除去字符串S左右不可见字符 X6pP52 http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 lBEbn1 http://blog.numino.net/ 参考 function System.Copy yn5ne9 http://blog.numino.net/ 例子 Edit2.Text := Trim(Edit1.Text); 58wY8d http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ G3QDyN http://blog.numino.net/ 首部 function TrimLeft(const S: string): string; overload; $[SysUtils.pas fn2p6F http://blog.numino.net/ 首部 function TrimLeft(const S: WideString): WideString; overload; 00Cijj http://blog.numino.net/ $[SysUtils.pas 5kH5sl http://blog.numino.net/ 功能 返回除去字符串S左边不可见字符 ZtF89J http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 4fumxv http://blog.numino.net/ 参考 function System.Copy ig0t2c http://blog.numino.net/ 例子 Edit2.Text := TrimLeft(Edit1.Text); 73NnD1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5CWD64 http://blog.numino.net/ 首部 function TrimRight(const S: string): string; overload; $[SysUtils.pas Hf1hVY http://blog.numino.net/ 首部 function TrimRight(const S: WideString): WideString; overload; Aoqm62 http://blog.numino.net/ $[SysUtils.pas G0v9Wq http://blog.numino.net/ 功能 返回除去字符串S右边不可见字符 AXyQ1U http://blog.numino.net/ 说明 小于#32的字符看作不可见字符 628OYI http://blog.numino.net/ 参考 function System.Copy M89lKk http://blog.numino.net/ 例子 Edit2.Text := TrimRight(Edit1.Text); 8c34Qr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 67A0hP http://blog.numino.net/ 首部 function QuotedStr(const S: string): string; $[SysUtils.pas N7ALcm http://blog.numino.net/ 功能 返回字符串S在pascal中的表现形式 zcU5Qe http://blog.numino.net/ 说明 单引号中的一个单引号将转成两个 1eo8AD http://blog.numino.net/ 参考 procedure System.Insert W5R371 http://blog.numino.net/ 例子 Edit2.Text := QuotedStr(Edit1.Text); hkwEry http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fi7qn6 http://blog.numino.net/ 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; p01Dt6 http://blog.numino.net/ $[SysUtils.pas LvZDKT http://blog.numino.net/ 功能 返回字符串S以字符Quote为引号的表现形式 z9xYQu http://blog.numino.net/ 说明 AnsiQuotedStr('hello"world', 0T5Oos http://blog.numino.net/ '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' Nl3Ngn http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan dtTTdq http://blog.numino.net/ 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); StI17X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WxvvvY http://blog.numino.net/ 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 5I1en2 http://blog.numino.net/ $[SysUtils.pas qmnGH5 http://blog.numino.net/ 功能 返回以字符Quote为引号的表现形式原形 6s2M6E http://blog.numino.net/ 说明 表现形式非法时Src不变否则为空 4bDoeK http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan A413Yl http://blog.numino.net/ 例子 D1RYtS http://blog.numino.net/ ///////Begin AnsiExtractQuotedStr 72dR31 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 69AKN7 http://blog.numino.net/ var xU8Thl http://blog.numino.net/ P: PChar; Xr0tWh http://blog.numino.net/ begin GtlGw4 http://blog.numino.net/ P := PChar(Edit1.Text); vs91C5 http://blog.numino.net/ Edit2.Text := AnsiExtractQuotedStr(P, '"'); xo0Mxw http://blog.numino.net/ Edit3.Text := P; dNaHJ6 http://blog.numino.net/ end; 3w1KRd http://blog.numino.net/ ///////End AnsiExtractQuotedStr c3676X http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ wA3BT3 http://blog.numino.net/ 首部 function AnsiDequotedStr(const S: string; AQuote: Char): string; xRt9P2 http://blog.numino.net/ $[SysUtils.pas 8FFPHi http://blog.numino.net/ 功能 返回以字符AQuote为引号的表现形式原形 1TYMgP http://blog.numino.net/ 说明 表现形式非法时则返回S ueE0u2 http://blog.numino.net/ 参考 function SysUtils.AnsiExtractQuotedStr TycB1B http://blog.numino.net/ 例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"'); Wfcy1I http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ sJSqJT http://blog.numino.net/ 首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = m5v5sd http://blog.numino.net/ {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): iddtEO http://blog.numino.net/ string; $[SysUtils.pas pHIDJF http://blog.numino.net/ 功能 返回将给定字符串的行分隔符调整为CR/LF序列 3qs39M http://blog.numino.net/ 说明 XReNCm 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 daajyl http://blog.numino.net/ 参考 function SysUtils.StrNextChar 8LP1fw http://blog.numino.net/ 例子 <NULL> K6S1Cm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C4LP7J http://blog.numino.net/ 首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 0OKAPb http://blog.numino.net/ 功能 返回字符串Ident是否是正确的标识符 32Cwrd http://blog.numino.net/ 说明 标识符::字母|下划线[字母|下划线|数字]... 4985m8 http://blog.numino.net/ 参考 <NULL> j1hP7w http://blog.numino.net/ 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); J5ayCu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1ZqlEW http://blog.numino.net/ 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas DqRFC4 http://blog.numino.net/ 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas cB4pth http://blog.numino.net/ 功能 返回整数Value转换成字符串 4AIJ1t http://blog.numino.net/ 说明 Format('%d', [Value]) J47N3D http://blog.numino.net/ 参考 function SysUtils.FmtStr SLDfhT http://blog.numino.net/ 例子 Edit2.Text := IntToStr(SpinEdit1.Value); 2uPeuK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zD15EF http://blog.numino.net/ 首部 function IntToHex(Value: Integer; Digits: Integer): string; overload; dnDuVV http://blog.numino.net/ $[SysUtils.pas VOY3SJ http://blog.numino.net/ 首部 function IntToHex(Value: Int64; Digits: Integer): string; overload; mzVs7L http://blog.numino.net/ $[SysUtils.pas YReUz3 http://blog.numino.net/ 功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 2p9YXK http://blog.numino.net/ 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 cTWD5k http://blog.numino.net/ 参考 function SysUtils.FmtStr 7094Rl http://blog.numino.net/ 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 4BMV5T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 2Y5n6f http://blog.numino.net/ 首部 function StrToInt(const S: string): Integer; $[SysUtils.pas xjVjYP http://blog.numino.net/ 功能 返回字符串S转换成整数 Qu1T7X http://blog.numino.net/ 说明 字符串非整数表达时将引起异常 yuTpoc http://blog.numino.net/ 参考 procedure System.Val jI0Tm2 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt(Edit1.Text); 3WAAEE http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CJyDsl http://blog.numino.net/ 首部 function StrToIntDef(const S: string; Default: Integer): Integer; Jl0OuX http://blog.numino.net/ $[SysUtils.pas Y0J9fY http://blog.numino.net/ 功能 返回字符串S转换成整数 a6FXTm http://blog.numino.net/ 说明 字符串非整数表达时则返回默认值Default h9nOAZ http://blog.numino.net/ 参考 procedure System.Val AT1Cf4 http://blog.numino.net/ 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); KXF6TK http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ TH2O1Y http://blog.numino.net/ 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; i6h3kL http://blog.numino.net/ $[SysUtils.pas BH982w http://blog.numino.net/ 功能 返回字符串S转换成整数Value是否成功 26KKqf http://blog.numino.net/ 说明 字符串非整数表达时返回False并且Value将输出为0 H6F2z4 http://blog.numino.net/ 参考 procedure System.Val xE7hA9 http://blog.numino.net/ 例子 d78DY1 http://blog.numino.net/ ///////Begin TryStrToInt 784Zob http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Y7lW5H http://blog.numino.net/ var TUX19P http://blog.numino.net/ I: Integer; YL1Ikw http://blog.numino.net/ begin e262Y3 http://blog.numino.net/ CheckBox1.Checked := TryStrToInt(Edit1.Text, I); 0ps9F4 http://blog.numino.net/ SpinEdit1.Value := I; gF2DQ0 http://blog.numino.net/ end; 3yc30H http://blog.numino.net/ ///////End TryStrToInt N1433i http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7dA2WQ http://blog.numino.net/ 首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas ICvp82 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 kD6xWl http://blog.numino.net/ 说明 字符串非六十四位整数表达时将引起异常 FB2S8X http://blog.numino.net/ 参考 procedure System.Val uGoS3v http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64(Edit1.Text); GKLes7 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nSy9Wd http://blog.numino.net/ 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; 7Yz6p3 http://blog.numino.net/ $[SysUtils.pas uxvJ7Q http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数 DxDasf http://blog.numino.net/ 说明 字符串非六十四位整数表达时则返回默认值Default wjQoAN http://blog.numino.net/ 参考 procedure System.Val JCGeHK http://blog.numino.net/ 例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); 7zmjVa http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ JvgB03 http://blog.numino.net/ 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; to32Tk http://blog.numino.net/ $[SysUtils.pas 6n1be1 http://blog.numino.net/ 功能 返回字符串S转换成六十四位整数Value是否成功 AHjC68 http://blog.numino.net/ 说明 字符串非六十四位整数表达时返回False并且Value将输出为0 ByDKUZ http://blog.numino.net/ 参考 procedure System.Val ze67uN http://blog.numino.net/ 例子 S0xXd8 http://blog.numino.net/ ///////Begin TryStrToInt64 Yih8f2 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 3cKW3a http://blog.numino.net/ var X2xBv7 http://blog.numino.net/ I: Int64; qcSLsr http://blog.numino.net/ begin NNc4gL http://blog.numino.net/ CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); Gh3A0G http://blog.numino.net/ SpinEdit1.Value := I; 15303p http://blog.numino.net/ end; tmcoV4 http://blog.numino.net/ ///////End TryStrToInt64 3vHBiW http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ef2urh http://blog.numino.net/ 首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas ynY7nA http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 0aumUu http://blog.numino.net/ 说明 字符非逻辑表达时将引起异常 CVKq92 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool IoK312 http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBool(Edit1.Text); x8kMKj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ RD89L3 http://blog.numino.net/ 首部 function StrToBoolDef(const S: string; const Default: Boolean): 4cRsJ1 http://blog.numino.net/ Boolean; $[SysUtils.pas ug4NVL http://blog.numino.net/ 功能 返回字符串S转换成逻辑值 0m56Xq http://blog.numino.net/ 说明 字符非逻辑表达时则返回默认值Default yfKBM6 http://blog.numino.net/ 参考 function SysUtils.TryStrToBool 3H2Yvc http://blog.numino.net/ 例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); EaUd44 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uR3T1q http://blog.numino.net/ 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; L409Z7 http://blog.numino.net/ $[SysUtils.pas r5H28x http://blog.numino.net/ 功能 返回字符串S转换成逻辑值Value是否成功 u7rPxE http://blog.numino.net/ 说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 64KxNR http://blog.numino.net/ 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var f7UX4P http://blog.numino.net/ SysUtils.FalseBoolStrs xSH8th http://blog.numino.net/ 例子 LalUO5 http://blog.numino.net/ ///////Begin TryStrToBool 35rSIn http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7maLD6 http://blog.numino.net/ var SeC4uY http://blog.numino.net/ B: Boolean; p2fxQ6 http://blog.numino.net/ begin RLt2QQ http://blog.numino.net/ SetLength(TrueBoolStrs, 2); pPAs2E http://blog.numino.net/ SetLength(FalseBoolStrs, 2); XOl02H http://blog.numino.net/ TrueBoolStrs[0] := 'True'; 11oKUO http://blog.numino.net/ FalseBoolStrs[0] := 'False'; 0Ba26B http://blog.numino.net/ TrueBoolStrs[1] := 'Yes'; Z1w7Jy http://blog.numino.net/ FalseBoolStrs[1] := 'No'; H5L22t http://blog.numino.net/ CheckBox1.Checked := TryStrToBool(Edit1.Text, B); 7CHa20 http://blog.numino.net/ CheckBox2.Checked := B; 73ZsS2 http://blog.numino.net/ end; Vy0vej http://blog.numino.net/ ///////End TryStrToBool sXV6Jf http://blog.numino.net/ 附加 ZB7qWe http://blog.numino.net/ ///////Begin TryStrToBool SFf894 http://blog.numino.net/ function TryStrToBool(const S: string; out Value: Boolean): Boolean; HokC53 http://blog.numino.net/ function CompareWith(const aArray: array of string): Boolean; rfH0wT http://blog.numino.net/ var 46JJzF http://blog.numino.net/ I: Integer; iiJ08N http://blog.numino.net/ begin J9dEA0 http://blog.numino.net/ Result := False; nJFmpP http://blog.numino.net/ for I := Low(aArray) to High(aArray) do IXiM3P http://blog.numino.net/ if AnsiSameText(S, aArray[I]) then nYHZKH http://blog.numino.net/ begin RCpJ27 http://blog.numino.net/ Result := True; zTw4rn http://blog.numino.net/ Break; m6ZMvi http://blog.numino.net/ end; zMYNpC http://blog.numino.net/ end; QmjwS3 http://blog.numino.net/ var fSoDPS http://blog.numino.net/ LResult: Extended; S7JaEj http://blog.numino.net/ begin NqcJU5 http://blog.numino.net/ Result := TryStrToFloat(S, LResult); 1TXpUw http://blog.numino.net/ if Result then ww85iZ http://blog.numino.net/ Value := LResult <> 0 CbzSqU http://blog.numino.net/ else ypWVun http://blog.numino.net/ begin SwX346 http://blog.numino.net/ Result := True; //修正处 O7Fdi7 http://blog.numino.net/ VerifyBoolStrArray; 8vk36S http://blog.numino.net/ if CompareWith(TrueBoolStrs) then 4T416b http://blog.numino.net/ Value := True 5vg0e8 http://blog.numino.net/ else if CompareWith(FalseBoolStrs) then Q29Rb0 http://blog.numino.net/ Value := False UG5TUG http://blog.numino.net/ else ALsPqC http://blog.numino.net/ Result := False; 0cDhVx http://blog.numino.net/ end; H2CK5G http://blog.numino.net/ end; 2h4uHC http://blog.numino.net/ ///////End TryStrToBool 8QW1jl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 43mO2d http://blog.numino.net/ 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; v6aSby http://blog.numino.net/ $[SysUtils.pas XewHt8 http://blog.numino.net/ 功能 返回逻辑值B转换成字符串 aOXuCX http://blog.numino.net/ 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 0UJ3tc http://blog.numino.net/ 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs M6ae3l http://blog.numino.net/ 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); x1chOh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7flm4Q http://blog.numino.net/ 首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas tOKZA8 http://blog.numino.net/ 功能 返回根据标识Ident的字符串资源 97b45W http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 4K4T5L http://blog.numino.net/ 参考 function SysUtils.FindStringResource fyiq3H http://blog.numino.net/ 例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); RO2gcI http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4QdtaJ http://blog.numino.net/ 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): tD2T0W http://blog.numino.net/ string; $[SysUtils.pas VN51rp http://blog.numino.net/ 功能 返回格式化的字符串资源 hd5q2l http://blog.numino.net/ 说明 字符串资源是指程序的内部资源 YQt400 http://blog.numino.net/ 参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 6GNPUF http://blog.numino.net/ 例子 <NULL>; 2m8pHL http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ o5rll4 http://blog.numino.net/ 首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas ikFo80 http://blog.numino.net/ 功能 返回指针字符串的长度 WDfW9t http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 tJfTM8 http://blog.numino.net/ 参考 <NULL> LGojq5 http://blog.numino.net/ 例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); pmQynr http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ r0yysq http://blog.numino.net/ 首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas Ay1jcJ http://blog.numino.net/ 功能 返回指针字符串的结尾 B1eIT6 http://blog.numino.net/ 说明 当指针字符串Str为nil时将触发异常 CrqLpD http://blog.numino.net/ 参考 <NULL> McV05q http://blog.numino.net/ 例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; V6d7c4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0GGy7N http://blog.numino.net/ 首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): sxFSBb http://blog.numino.net/ PChar; $[SysUtils.pas Kz43oR http://blog.numino.net/ 功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 LaMRDe http://blog.numino.net/ 说明 Dest没有分配资源将触发异常s 08n8cp http://blog.numino.net/ 参考 function System.Move OzwDMm http://blog.numino.net/ 例子 qO3F35 http://blog.numino.net/ ///////Begin StrMove 1jk6dv http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 7N50Rs http://blog.numino.net/ var otTEXI http://blog.numino.net/ vBuffer: PChar; 7vdNa0 http://blog.numino.net/ begin 44LDh3 http://blog.numino.net/ vBuffer := '0123456789'; E4j7CI http://blog.numino.net/ StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); Eac5t3 http://blog.numino.net/ Edit2.Text := vBuffer; F1vicv http://blog.numino.net/ end; 23ANq5 http://blog.numino.net/ ///////End StrMove K20k9H http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Al4HPw http://blog.numino.net/ 首部 function StrCopy(Dest: PChar; const Source: PChar): PChar; u9XbcG http://blog.numino.net/ $[SysUtils.pas VqXWfA http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 D3qciY http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 6it28y http://blog.numino.net/ 参考 <NULL> P40f6W http://blog.numino.net/ 例子 c9afl3 http://blog.numino.net/ ///////Begin StrCopy 2yWyOE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); CdUWo8 http://blog.numino.net/ var j3Q5gT http://blog.numino.net/ vBuffer: PChar; GMs8yP http://blog.numino.net/ begin p947OO http://blog.numino.net/ GetMem(vBuffer, Length(Edit1.Text) + 1); h0L63k http://blog.numino.net/ StrCopy(vBuffer, PChar(Edit1.Text)); M12Rn6 http://blog.numino.net/ Edit2.Text := vBuffer; ee9d7G http://blog.numino.net/ FreeMem(vBuffer); tywVEN http://blog.numino.net/ end; QtkG82 http://blog.numino.net/ ///////End StrCopy 9lGTk5 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9acf6A http://blog.numino.net/ 首部 function StrECopy(Dest:PChar; const Source: PChar): PChar; 2JnF7p http://blog.numino.net/ $[SysUtils.pas Xw8Va0 http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中的结尾 Yt11Pp http://blog.numino.net/ 说明 可以连接指针字符串 Ec97G5 http://blog.numino.net/ 参考 <NULL> 7F1X4h http://blog.numino.net/ 例子 U4keBG http://blog.numino.net/ ///////Begin StrECopy r53xmX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); L0ZWd3 http://blog.numino.net/ var 12T2UM http://blog.numino.net/ vBuffer: array[0..255] of Char; ATesML http://blog.numino.net/ begin 7EfBry http://blog.numino.net/ StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); g8shBj http://blog.numino.net/ Edit3.Text := vBuffer; Sd6J5k http://blog.numino.net/ end; 2nYysC http://blog.numino.net/ ///////End StrECopy vg6l40 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 8O56Rz http://blog.numino.net/ 首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 473GFw http://blog.numino.net/ PChar; $[SysUtils.pas l4h3Sr http://blog.numino.net/ 功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 7443ld http://blog.numino.net/ 说明 Dest应已经分配足够的空间非则将触发异常 XzFuyF http://blog.numino.net/ 参考 <NULL> MlFG3B http://blog.numino.net/ 例子 29w77V http://blog.numino.net/ ///////Begin StrLCopy 0Mg5ug http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); jJ49ew http://blog.numino.net/ var a8M58n http://blog.numino.net/ vBuffer: array[0..255] of Char; q4hYNo http://blog.numino.net/ begin S0i2zq http://blog.numino.net/ StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); PmZkl3 http://blog.numino.net/ Edit2.Text := vBuffer; qcyI8a http://blog.numino.net/ end; L3f9rE http://blog.numino.net/ ///////End StrLCopy VJTTQH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FgEeXt http://blog.numino.net/ 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; QIHP3Z http://blog.numino.net/ $[SysUtils.pas hkVvdT http://blog.numino.net/ 功能 返回将指针字符串Source复制到指针字符串Dest中 84espW http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), Length(Source)) pO9yyR http://blog.numino.net/ 参考 function SysUtils.StrLCopy vQDNbX http://blog.numino.net/ 例子 HWFM6w http://blog.numino.net/ ///////Begin StrPCopy IMowv5 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Rz2z3m http://blog.numino.net/ var MP4UJV http://blog.numino.net/ vBuffer: array[0..255] of Char; o97C1c http://blog.numino.net/ begin A30pbq http://blog.numino.net/ StrPCopy(vBuffer, PChar(Edit1.Text)); oe0Q1p http://blog.numino.net/ Edit2.Text := vBuffer; yt0q1d http://blog.numino.net/ end; 8zoR89 http://blog.numino.net/ ///////End StrPCopy 11833r http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HrMs6k http://blog.numino.net/ 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: 8b48ZT http://blog.numino.net/ Cardinal): PChar; $[SysUtils.pas ChDIhC http://blog.numino.net/ 功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 U91JbA http://blog.numino.net/ 说明 StrLCopy(Dest, PChar(Source), MaxLen) V1ZuOD http://blog.numino.net/ 参考 function SysUtils.StrLCopy AXQ9Rm http://blog.numino.net/ 例子 cb4Uyt http://blog.numino.net/ ///////Begin StrPLCopy 9cZfU3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 8u2mjg http://blog.numino.net/ var iznA7h http://blog.numino.net/ vBuffer: array[0..255] of Char; BmTjbo http://blog.numino.net/ begin Lt97XU http://blog.numino.net/ StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); tfbSHp http://blog.numino.net/ Edit2.Text := vBuffer; Kwm521 http://blog.numino.net/ end; Al1eY3 http://blog.numino.net/ ///////End StrPLCopy 90ngTv http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N7xhyN http://blog.numino.net/ 首部 function StrCat(Dest: PChar; const Source: PChar): PChar; DMN1f4 http://blog.numino.net/ $[SysUtils.pas 65jHhQ http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source P7Dz2A http://blog.numino.net/ 说明 StrCopy(StrEnd(Dest), Source) 2zIABZ http://blog.numino.net/ 参考 function SysUntils.StrCopy Rg6nke http://blog.numino.net/ 例子 iOF15Y http://blog.numino.net/ ///////Begin StrCat 27DYNT http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); V2wMmM http://blog.numino.net/ var ccGNU2 http://blog.numino.net/ vBuffer: array[0..255] of Char; wflkTK http://blog.numino.net/ begin Ud1YG8 http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); g0ld4I http://blog.numino.net/ StrCat(vBuffer, PChar(Edit2.Text)); 6hoE0O http://blog.numino.net/ Edit3.Text := vBuffer; V9zxJQ http://blog.numino.net/ end; 6y4ygi http://blog.numino.net/ ///////End StrCat lUyW8G http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ iESNvP http://blog.numino.net/ 首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): 75OMJm http://blog.numino.net/ PChar; $[SysUtils.pas Xk1FHm http://blog.numino.net/ 功能 返回连接指针字符串Dest和指针字符串Source p744Te http://blog.numino.net/ 说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 1Gt3FV http://blog.numino.net/ 参考 <NULL> 95Gm40 http://blog.numino.net/ 例子 HcyZBi http://blog.numino.net/ ///////Begin StrLCat 2T0w5b http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); cwtYH9 http://blog.numino.net/ var 4uKhT7 http://blog.numino.net/ vBuffer: array[0..255] of Char; 53Tto8 http://blog.numino.net/ begin lM4Kpd http://blog.numino.net/ StrPCopy(vBuffer, Edit1.Text); 075H8r http://blog.numino.net/ StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); cW33zY http://blog.numino.net/ Edit3.Text := vBuffer; Dv5vby http://blog.numino.net/ end; v2W0wc http://blog.numino.net/ ///////End StrLCat U32E42 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ZLyc0M http://blog.numino.net/ 首部 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 6Kh4JK http://blog.numino.net/ 功能 返回比较两个指针字符串 6eI4P9 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 A435Vf http://blog.numino.net/ 参考 <NULL> jvDxnE http://blog.numino.net/ 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); ecOFFT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hISV1b http://blog.numino.net/ 首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 6Omdi7 http://blog.numino.net/ 功能 返回比较两个指针字符串 qC36BF http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 dRp2dl http://blog.numino.net/ 参考 <NULL> FAIZQ0 http://blog.numino.net/ 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); D3W2Px http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0LAmAN http://blog.numino.net/ 首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; rN9flM http://blog.numino.net/ $[SysUtils.pas pFx6TV http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 sm0cl9 http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 WZ2fll http://blog.numino.net/ 参考 <NULL> 7Du9g3 http://blog.numino.net/ 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), oEcnFa http://blog.numino.net/ SpinEdit2.Value) vEbr63 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cgCUiY http://blog.numino.net/ 首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; aI9rO4 http://blog.numino.net/ $[SysUtils.pas y8W23T http://blog.numino.net/ 功能 返回比较两个指针字符串指定长度 qzCigj http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 XmLJYV http://blog.numino.net/ 参考 <NULL> mVw7zo http://blog.numino.net/ 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), hXlAPI http://blog.numino.net/ SpinEdit2.Value) 2Zzf42 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7Zg03K http://blog.numino.net/ 首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas o7W91c http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 BnkhTe http://blog.numino.net/ 说明 没有找到则返回空指针 v43QL2 http://blog.numino.net/ 参考 <NULL> OULiTP http://blog.numino.net/ 例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); McFX9u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fYazAH http://blog.numino.net/ 首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas tXjryw http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 sUXm28 http://blog.numino.net/ 说明 没有找到则返回空指针 3VLAE0 http://blog.numino.net/ 参考 <NULL> kXSO6y http://blog.numino.net/ 例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); 6pnJa4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4tc8nE http://blog.numino.net/ 首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas gr3TC0 http://blog.numino.net/ 功能 返回指针字符串Str2在Str1中第一个出现的地址 9BhOMQ http://blog.numino.net/ 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' Dq8OiV http://blog.numino.net/ 参考 <NULL> 1e0d6p http://blog.numino.net/ 例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); oiV2I8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ j4B4JE http://blog.numino.net/ 首部 function StrUpper(Str: PChar): PChar; $[SysUtils.pas BEu0Iy http://blog.numino.net/ 功能 返回指针字符串Str大写 FIiaIs http://blog.numino.net/ 说明 非小写字符不处理 7CMN30 http://blog.numino.net/ 参考 <NULL> IfpS0X http://blog.numino.net/ 例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); 62p3Mg http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1e97H5 http://blog.numino.net/ 首部 function StrLower(Str: PChar): PChar; $[SysUtils.pas zR3lWU http://blog.numino.net/ 功能 返回指针字符串Str小写 533cWy http://blog.numino.net/ 说明 非大写字符不处理 sF7Xpy http://blog.numino.net/ 参考 <NULL> IcTI22 http://blog.numino.net/ 例子 Edit1.Text := StrLower(PChar(Edit2.Text)); bZ1w43 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WjLp4r http://blog.numino.net/ 首部 function StrPas(const Str: PChar): string; $[SysUtils.pas jFuZv5 http://blog.numino.net/ 功能 返回指针字符串Str转换成字符串 zCC2XH http://blog.numino.net/ 说明 也可以直接赋值 QkvyR9 http://blog.numino.net/ 参考 <NULL> HVC7Cz http://blog.numino.net/ 例子 Edit1.Text := StrPas(PChar(Edit2.Text)); bFg60E http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9qi3Su http://blog.numino.net/ 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas q56uaS http://blog.numino.net/ 功能 返回分配指定空间的内存资源给指针字符串 dVyIYD http://blog.numino.net/ 说明 空间的大小也将保存;用StrDispose才能全部释放 Lf5szj http://blog.numino.net/ 参考 function System.GetMem 4iobFw http://blog.numino.net/ 例子 QOFd43 http://blog.numino.net/ ///////Begin StrAlloc T7Pb8W http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 1oUUzf http://blog.numino.net/ var JbvMIZ http://blog.numino.net/ P: PChar; U5wW5x http://blog.numino.net/ begin T55K23 http://blog.numino.net/ P := StrAlloc(SpinEdit1.Value); Zy1ySs http://blog.numino.net/ ShowMessage(IntToStr(StrLen(P))); RU2v9g http://blog.numino.net/ Dec(P, SizeOf(Cardinal)); 1IJ46L http://blog.numino.net/ ShowMessage(IntToStr(Cardinal(Pointer(P)^))); I9O2vB http://blog.numino.net/ Inc(P, SizeOf(Cardinal)); alot3H http://blog.numino.net/ StrDispose(P); vY09Qm http://blog.numino.net/ end; 2fqD7i http://blog.numino.net/ ///////End StrAlloc 1MHz84 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7fV8lH http://blog.numino.net/ 首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas 961X45 http://blog.numino.net/ 功能 返回通过函数StrAlloc分配的缓冲区大小 5FesOM http://blog.numino.net/ 说明 出现异常情况则返回不可预知的结果 eBKAo3 http://blog.numino.net/ 参考 function System.SizeOf sXv65N http://blog.numino.net/ 例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); urkMdF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ fb6zZz http://blog.numino.net/ 首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas yRU9V2 http://blog.numino.net/ 功能 返回复制一个新的指针字符串 j62v5V http://blog.numino.net/ 说明 如果Str为nil则返回nil apNKQl http://blog.numino.net/ 参考 function SysUtils.StrLen;function SysUtils.StrMove;function TL4Qr8 http://blog.numino.net/ SysUtils.StrAlloc who0HJ http://blog.numino.net/ 例子 Eow69j http://blog.numino.net/ ///////Begin StrNew,StrDispose 9w36pV http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5Bqxy1 http://blog.numino.net/ var XURhx0 http://blog.numino.net/ P: PChar; 5blsgV http://blog.numino.net/ begin 4AbHrR http://blog.numino.net/ P := StrNew(PChar(Edit1.Text)); akl9r4 http://blog.numino.net/ ShowMessage(P); j9p52k http://blog.numino.net/ StrDispose(P); xGJEPc http://blog.numino.net/ end; H9ev16 http://blog.numino.net/ ///////End StrNew,StrDispose ouAWl0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ uc3o5l http://blog.numino.net/ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas Mmiy6V http://blog.numino.net/ 功能 释放指针字符串Str内存资源 c3BL1A http://blog.numino.net/ 说明 如果Str为nil则不作任何处理;并且释放空间大小信息 R0m8VU http://blog.numino.net/ 参考 function System.Dec;function System.SizeOf;function System.FreeMem F1QzGU http://blog.numino.net/ 例子 <参见StrNew> 34138u http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ FXyfyE http://blog.numino.net/ 首部 function Format(const Format: string; const Args: array of const): mbEK3v http://blog.numino.net/ string; $[SysUtils.pas BT7Eqx http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符形式 Sp7uYg http://blog.numino.net/ 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 qZ4zUY http://blog.numino.net/ "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 QN6sit http://blog.numino.net/ Format('x=%d', [12]); //'x=12' //最普通 d0408C http://blog.numino.net/ Format('x=%3d', [12]); //'x= 12' //指定宽度 R6si38 http://blog.numino.net/ Format('x=%f', [12.0]); //'x=12.00' //浮点数 FDv8BR http://blog.numino.net/ Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 76gks5 http://blog.numino.net/ Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 u2dlv4 http://blog.numino.net/ Format('x=%.5d', [12]); //'x=00012' //前面补充0 02E2eg http://blog.numino.net/ Format('x=%.5x', [12]); //'x=0000C' //十六进制 9WW3xD http://blog.numino.net/ Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 dVP1eD http://blog.numino.net/ Format('x=%p', [nil]); //'x=00000000' //指针 Jsy10D http://blog.numino.net/ Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 sGuGa8 http://blog.numino.net/ Format('x=%%', []); //'x=%' //得到"%" 6FY0y5 http://blog.numino.net/ S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 b1mAE6 http://blog.numino.net/ 参考 proceduer SysUtils.FmtStr VuBR2z http://blog.numino.net/ 例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); G79Hk8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ L5xVmp http://blog.numino.net/ 首部 procedure FmtStr(var Result: string; const Format: string; const Args: p3Kt69 http://blog.numino.net/ array of const); $[SysUtils.pas FAbJv5 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的字符形式返回 ONYgpm http://blog.numino.net/ 说明 <参见Format> iqv9zd http://blog.numino.net/ 参考 function SysUtils.FormatBuf;function System.Length;function 7sIh78 http://blog.numino.net/ System.SetLength zafahz http://blog.numino.net/ 例子 <参见Format> 9EDJyX http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jjvhWL http://blog.numino.net/ 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): rJf8VR http://blog.numino.net/ PChar; $[SysUtils.pas L4Uee6 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的字符指针形式 2rI8Ww http://blog.numino.net/ 说明 如果Buffer和Format其中只要有一个为nil则返回nil i5t1Wb http://blog.numino.net/ 参考 function SysUtils.FormatBuf 38u6cE http://blog.numino.net/ 例子 <参见Format> esLn32 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ h3L3qE http://blog.numino.net/ 首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; QHyAu1 http://blog.numino.net/ const Args: array of const): PChar; $[SysUtils.pas BP9oAd http://blog.numino.net/ 功能 返回按指定方式和长度格式化一个数组常量的字符指针形式 0kVsgn http://blog.numino.net/ 说明 StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1'; naKpyV http://blog.numino.net/ 参考 function SysUtils.FormatBuf AP1zfl http://blog.numino.net/ 例子 <参见Format> YrDewx http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ ymmJW4 http://blog.numino.net/ 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: k8SmJG http://blog.numino.net/ Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas N9tK9B http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 VBr642 http://blog.numino.net/ 说明 <NULL> r3ant4 http://blog.numino.net/ 参考 <NULL> 8MiNbS http://blog.numino.net/ 例子 <参见Format> BYnU96 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WgYKi4 http://blog.numino.net/ 首部 function WideFormat(const Format: WideString; const Args: array of GX4IcR http://blog.numino.net/ const): WideString; $[SysUtils.pas eyNdK6 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量的多字节字符形式 8JbvHW http://blog.numino.net/ 说明 <NULL> H0KdHR http://blog.numino.net/ 参考 procedure SysUtils.WideFmtStr 92F4pl http://blog.numino.net/ 例子 <参见Format> hixke4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 7AAuR8 http://blog.numino.net/ 首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; 5viq2T http://blog.numino.net/ const Args: array of const); $[SysUtils.pas yJwkR8 http://blog.numino.net/ 功能 按指定方式格式化一个数组常量的多字节字符形式返回 86C80O http://blog.numino.net/ 说明 <NULL> b5Ze1W http://blog.numino.net/ 参考 function SysUtils.WideFormatBuf jqgN5k http://blog.numino.net/ 例子 <参见Format> OrnMt1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dmSJaW http://blog.numino.net/ 首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; BOvNRK http://blog.numino.net/ FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 1mOtO0 http://blog.numino.net/ 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 Qfa8K7 http://blog.numino.net/ 说明 <NULL> qG50nw http://blog.numino.net/ 参考 <NULL> Xq6w50 http://blog.numino.net/ 例子 <参见Format> 70E2KF http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 78e0lc http://blog.numino.net/ 首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas ndosyC http://blog.numino.net/ 功能 返回浮点数Value转换成字符串 Fcpu1n http://blog.numino.net/ 说明 当浮点数大等于1E15将采用科学记数法 rTNxBj http://blog.numino.net/ 参考 function SysUtils.FloatToText jrvY9N http://blog.numino.net/ 例子 Edit1.Text := FloatToStr(Now); 4OGPuP http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0cHteU http://blog.numino.net/ 首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas MmWHA7 http://blog.numino.net/ 功能 返回货币数Value转换成字符串 5sD4m9 http://blog.numino.net/ 说明 货币数只保留四位小数 l7O63X http://blog.numino.net/ 参考 function SysUtils.FloatToText p7fkMz http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(Now); 0d8k62 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0hWm3A http://blog.numino.net/ 首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 6bs5oJ http://blog.numino.net/ 功能 返回浮点数Value转换成货币数 2foym4 http://blog.numino.net/ 说明 如果浮点数Value超出范围则将触发异常 c1jBwQ http://blog.numino.net/ 参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency 7h9PvS http://blog.numino.net/ 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); IMn9A6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VZS1g0 http://blog.numino.net/ 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, QlM79t http://blog.numino.net/ Digits: Integer): string; $[SysUtils.pas CuuPtI http://blog.numino.net/ 功能 返回浮点数以指定格式转换成字符串 37PfZe http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 aKm2v3 http://blog.numino.net/ 参考 function SysUtils.FloatToText lL3TQq http://blog.numino.net/ 例子 VCyi23 http://blog.numino.net/ ///////Begin FloatToStrF rJctWE http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); x7Auy6 http://blog.numino.net/ begin 85Bny3 http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, TEGY3T http://blog.numino.net/ 0), nfee0e http://blog.numino.net/ ffGeneral, SpinEdit1.Value, SpinEdit2.Value); OQEmfR http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, W0S8FN http://blog.numino.net/ 0), 2r7iZY http://blog.numino.net/ ffExponent, SpinEdit1.Value, SpinEdit2.Value); z1Q0IN http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), yOj3i0 http://blog.numino.net/ ffFixed, SpinEdit1.Value, SpinEdit2.Value); sK0rYy http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, gE68Wh http://blog.numino.net/ 0), 31n486 http://blog.numino.net/ ffNumber, SpinEdit1.Value, SpinEdit2.Value); O1Q0Wo http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, kiZ3dN http://blog.numino.net/ 0), 6xEZSJ http://blog.numino.net/ ffCurrency, SpinEdit1.Value, SpinEdit2.Value); ris9v6 http://blog.numino.net/ end; 8KHG6V http://blog.numino.net/ ///////End FloatToStrF DfX1zG http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ oHVrN8 http://blog.numino.net/ 首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: 1h4PkX http://blog.numino.net/ Integer): string; $[SysUtils.pas SSX80b http://blog.numino.net/ 功能 返回货币类型以指定格式转换成字符串 RN6531 http://blog.numino.net/ 说明 Digits指定小数宽度 RxXUo2 http://blog.numino.net/ 参考 function SysUtils.FloatToText BlMwc1 http://blog.numino.net/ 例子 GQZTyl http://blog.numino.net/ ///////Begin CurrToStrF 7QTQEp http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); gbTv89 http://blog.numino.net/ begin unhq2a http://blog.numino.net/ Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), HqpW2Z http://blog.numino.net/ ffGeneral, SpinEdit1.Value); MyU9XG http://blog.numino.net/ Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 33gcEm http://blog.numino.net/ 0), umCh4d http://blog.numino.net/ ffExponent, SpinEdit1.Value); DhY0Df http://blog.numino.net/ Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), pE96Br http://blog.numino.net/ ffFixed, SpinEdit1.Value); vNnGg4 http://blog.numino.net/ Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), RPchil http://blog.numino.net/ ffNumber, SpinEdit1.Value); 59rYYM http://blog.numino.net/ Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, Q9fhCD http://blog.numino.net/ 0), gfWp0c http://blog.numino.net/ ffCurrency, SpinEdit1.Value); r0ryg8 http://blog.numino.net/ end; sLjUls http://blog.numino.net/ ///////End CurrToStrF WSTSRb http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 9A1snD http://blog.numino.net/ 首部 function FloatToText(BufferArg: PChar; const Value; ValueType: Qs90tU http://blog.numino.net/ TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; iw83oc http://blog.numino.net/ $[SysUtils.pas l6oXG0 http://blog.numino.net/ 功能 返回浮点数以指定格式转换成指针字符串的内存大小 ASf996 http://blog.numino.net/ 说明 Precision指定精度;Digits指定小数宽度 jLCBwS http://blog.numino.net/ 参考 <NULL> L8VcW0 http://blog.numino.net/ 例子 lO3Vq2 http://blog.numino.net/ ///////Begin FloatToText j2dHS7 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); Jvkp9L http://blog.numino.net/ var uDFL1T http://blog.numino.net/ vBuffer: array[0..255] of Char; NWdGx8 http://blog.numino.net/ E: Extended; wtyXrY http://blog.numino.net/ begin U3a7V4 http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); 4Pgujb http://blog.numino.net/ SpinEdit3.Value := FloatToText(vBuffer, E, BAjCBx http://blog.numino.net/ fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 1oru1W http://blog.numino.net/ Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 9O8xxm http://blog.numino.net/ end; kuBZzb http://blog.numino.net/ ///////End FloatToText( euvBH2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ AE6yvI http://blog.numino.net/ 首部 function FormatFloat(const Format: string; Value: Extended): string; hkIPuy http://blog.numino.net/ $[SysUtils.pas q8y534 http://blog.numino.net/ 功能 返回浮点数类型以指定格式字符串Format转换成字符串 85Mnqr http://blog.numino.net/ 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' ohtevT http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt 1ONi86 http://blog.numino.net/ 例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); D7EBY6 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ eCIy5Z http://blog.numino.net/ 首部 function FormatCurr(const Format: string; Value: Currency): string; 6TRbCa http://blog.numino.net/ $[SysUtils.pas GF3c2w http://blog.numino.net/ 功能 返回货币类型以指定格式字符串Format转换成字符串 A96L5D http://blog.numino.net/ 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' UuPojj http://blog.numino.net/ 参考 function SysUtils.FloatToTextFmt d7v263 http://blog.numino.net/ 例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 53mpKR http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ mvp7IA http://blog.numino.net/ 首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: eAol8Z http://blog.numino.net/ TFloatValue; Format: PChar): Integer; $[SysUtils.pas twKyxI http://blog.numino.net/ 功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 eja4YM http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 1LG3Dk http://blog.numino.net/ 参考 <NULL> OSs0Vw http://blog.numino.net/ 例子 i9dR34 http://blog.numino.net/ ///////Begin FloatToTextFmt bxdcg3 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 523O8l http://blog.numino.net/ var Pp9HEZ http://blog.numino.net/ vBuffer: array[0..255] of Char; 77T892 http://blog.numino.net/ E: Extended; kayeo6 http://blog.numino.net/ begin i1lM7P http://blog.numino.net/ E := StrToFloatDef(Edit1.Text, 0); rQ0MWf http://blog.numino.net/ SpinEdit1.Value := FloatToTextFmt(vBuffer, E, PbI5nR http://blog.numino.net/ fvExtended, PChar(Edit2.Text)); 82Towe http://blog.numino.net/ Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); gXa0yE http://blog.numino.net/ end; 3sEuvx http://blog.numino.net/ ///////End FloatToTextFmt 7XN8pH http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MPofAu http://blog.numino.net/ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas H0uXIN http://blog.numino.net/ 功能 返回字符串S转换成浮点数 erar1D http://blog.numino.net/ 说明 字符串非浮点数表达时将引起异常 322dzM http://blog.numino.net/ 参考 function SysUtils.TextToFloat 1TVvOu http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; uDll1T http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ tnzz44 http://blog.numino.net/ 首部 function StrToFloatDef(const S: string; const Default: Extended): sI3z5X http://blog.numino.net/ Extended; $[SysUtils.pas x37JA5 http://blog.numino.net/ 功能 返回字符串S转换成浮点数 wyAqTl http://blog.numino.net/ 说明 字符串非浮点数表达时则返回默认值Default TNI06I http://blog.numino.net/ 参考 function SysUtils.TextToFloat 5dlErU http://blog.numino.net/ 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; aNzSzw http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dT0Dl9 http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; 0TeTFI http://blog.numino.net/ overload; $[SysUtils.pas IG0Lpi http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; 70t25M http://blog.numino.net/ overload; $[SysUtils.pas Z7mHL9 http://blog.numino.net/ 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; FXA0yr http://blog.numino.net/ overload; $[SysUtils.pas gpZfpv http://blog.numino.net/ 功能 返回字符串S转换成浮点数Value是否成功 Sb1XqA http://blog.numino.net/ 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 Ks06Y5 http://blog.numino.net/ 参考 function SysUtils.TextToFloat baM5Mm http://blog.numino.net/ 例子 vf00SG http://blog.numino.net/ ///////Begin TryStrToFloat nae3VL http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); F3s76J http://blog.numino.net/ var 5SsfCM http://blog.numino.net/ E: Extended; IC8qPv http://blog.numino.net/ begin jxcOmb http://blog.numino.net/ CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); OoEdAM http://blog.numino.net/ Edit2.Text := FormatFloat('', E); sfrHUy http://blog.numino.net/ end; Hx807m http://blog.numino.net/ ///////End TryStrToFloat guvdy2 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ NvlV9a http://blog.numino.net/ 首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas tWSMkS http://blog.numino.net/ 功能 返回字符串S转换成货币数 Ivm4LB http://blog.numino.net/ 说明 字符串非货币数表达时将引起异常 dv3oGq http://blog.numino.net/ 参考 function SysUtils.TextToFloat pYFN8x http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; wD3XKk http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5VGjOc http://blog.numino.net/ 首部 function StrToCurrDef(const S: string; const Default: Currency): IjDQu0 http://blog.numino.net/ Currency; $[SysUtils.pas Hu3qZ7 http://blog.numino.net/ 功能 返回字符串S转换成货币数 tC890e http://blog.numino.net/ 说明 字符串非货币数表达时则返回默认值Default 50om5D http://blog.numino.net/ 参考 function SysUtils.TextToFloat kQ810b http://blog.numino.net/ 例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; iVkyKl http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ i1NPdT http://blog.numino.net/ 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; W87t81 http://blog.numino.net/ $[SysUtils.pas XPa7WO http://blog.numino.net/ 功能 返回字符串S转换成货币数Value是否成功 ayPlku http://blog.numino.net/ 说明 字符串非货币数表达时返回False并且Value将输出为不确定的值 NF3jt9 http://blog.numino.net/ 参考 function SysUtils.TextToFloat 7YU4Sf http://blog.numino.net/ 例子 KAxzrD http://blog.numino.net/ ///////Begin TryStrToCurr pmLVz8 http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); oAw332 http://blog.numino.net/ var vJPCo6 http://blog.numino.net/ C: Currency; 2ctO80 http://blog.numino.net/ begin PhFoR2 http://blog.numino.net/ CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); bf7aq8 http://blog.numino.net/ Edit2.Text := FormatCurr('', C); abtMhl http://blog.numino.net/ end; Bt9n17 http://blog.numino.net/ ///////End TryStrToCurr uroxbf http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5Gnvac http://blog.numino.net/ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): H29w4A http://blog.numino.net/ Boolean; $[SysUtils.pas Qy83VN http://blog.numino.net/ 功能 返回将指针字符串Buffer转换成无类型变量Value e93Cqe http://blog.numino.net/ 说明 ValueType指定无类型参数Value的类型 9ZpfJa http://blog.numino.net/ 参考 <NULL> 7vf9Mz http://blog.numino.net/ 例子 Qk11qK http://blog.numino.net/ ///////Begin TextToFloat hC6tiP http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); lxCOTo http://blog.numino.net/ var q5fLY1 http://blog.numino.net/ E: Extended; Gnd1i3 http://blog.numino.net/ begin zlRqAh http://blog.numino.net/ CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, eC3hWp http://blog.numino.net/ fvExtended); ex9THL http://blog.numino.net/ Edit2.Text := FormatFloat('', E); u08CQ5 http://blog.numino.net/ end; GWNma4 http://blog.numino.net/ ///////End TextToFloat mX2Hub http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 6s7isK http://blog.numino.net/ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas lUe5uP http://blog.numino.net/ 功能 返回日期DateTime转换成字符串 OQZ8fI http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat控制 bRqIX2 http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat K04Dh3 http://blog.numino.net/ 例子 Edit1.Text := DateToStr(Date); vFBKxh http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hFr1AM http://blog.numino.net/ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas U5VJ9g http://blog.numino.net/ 功能 返回时间DateTime转换成字符串 qnr2o1 http://blog.numino.net/ 说明 转换格式由系统变量LongTimeFormat控制 c32X3G http://blog.numino.net/ 参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat srBy1Y http://blog.numino.net/ 例子 Edit1.Text := TimeToStr(Date); Z8hJ9A http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Fh2zWj http://blog.numino.net/ 首部 function DateTimeToStr(const DateTime: TDateTime): string; f1ZoYl http://blog.numino.net/ $[SysUtils.pas r3GLcu http://blog.numino.net/ 功能 返回日期时间DateTime转换成字符串 nOL0IR http://blog.numino.net/ 说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 48kcsV http://blog.numino.net/ 参考 function SysUtils.DateTimeToString jb2CA5 http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(Now); xaV4V1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ BrIEsf http://blog.numino.net/ 首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 7ry487 http://blog.numino.net/ 功能 返回字符串S转换成日期 De072G http://blog.numino.net/ 说明 字符非日期表达时将引起异常 12gjpA http://blog.numino.net/ 参考 function SysUtils.TryStrToDate 25Qs0h http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDate(Edit1.Text); TFLLTn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ P8wOPg http://blog.numino.net/ 首部 function StrToDateDef(const S: string; const Default: TDateTime): 0TtxY4 http://blog.numino.net/ TDateTime; $[SysUtils.pas 3mb4Va http://blog.numino.net/ 功能 返回字符串S转换成日期 ftRT71 http://blog.numino.net/ 说明 字符非日期表达时则返回默认值Default L588Jk http://blog.numino.net/ 参考 function SysUtils.TryStrToDate g57QbQ http://blog.numino.net/ 例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); RrlpLV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ LyK0aa http://blog.numino.net/ 首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; BTkZda http://blog.numino.net/ $[SysUtils.pas yBk0EV http://blog.numino.net/ 功能 返回字符串S转换成日期Value是否成功 CjG3Zi http://blog.numino.net/ 说明 字符非日期表达时返回False并且Value将输出为0 af96Hg http://blog.numino.net/ 参考 <NULL> 3JDtIl http://blog.numino.net/ 例子 4QWOhS http://blog.numino.net/ ///////Begin TryStrToDate 2NYOTd http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); ySQ130 http://blog.numino.net/ var 162bXR http://blog.numino.net/ vDateTime: TDateTime; vTB3Av http://blog.numino.net/ begin X8qg1b http://blog.numino.net/ CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); wT2pxb http://blog.numino.net/ DateTimePicker1.Date := vDateTime; jTo321 http://blog.numino.net/ end; cbhHm7 http://blog.numino.net/ ///////End TryStrToDate tAUzgV http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ F7cbP1 http://blog.numino.net/ 首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas nfmQoA http://blog.numino.net/ 功能 返回字符串S转换成时间 EX83V5 http://blog.numino.net/ 说明 字符非时间表达时将引起异常 yGvV1P http://blog.numino.net/ 参考 function SysUtils.TryStrToTime AK9nfZ http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTime(Edit1.Text); ClYc5g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 223pAj http://blog.numino.net/ 首部 function StrToTimeDef(const S: string; const Default: TDateTime): eFtPr2 http://blog.numino.net/ TDateTime; $[SysUtils.pas 1o1uUb http://blog.numino.net/ 功能 返回字符串S转换成时间 jMmfw4 http://blog.numino.net/ 说明 字符非时间表达时则返回默认值Default 4u87eB http://blog.numino.net/ 参考 function SysUtils.TryStrToTime QiSp89 http://blog.numino.net/ 例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 7U5HUz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 43z3R1 http://blog.numino.net/ 首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; Gwz2E4 http://blog.numino.net/ $[SysUtils.pas Wm72XA http://blog.numino.net/ 功能 返回字符串S转换成时间Value是否成功 Zbf5QW http://blog.numino.net/ 说明 字符非时间表达时返回False并且Value将输出为0 o6y0Yg http://blog.numino.net/ 参考 <NULL> euJ6KN http://blog.numino.net/ 例子 9hQir6 http://blog.numino.net/ ///////Begin TryStrToTime zdTm5t http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); udgT19 http://blog.numino.net/ var VHdeXc http://blog.numino.net/ vDateTime: TDateTime; f7nbM0 http://blog.numino.net/ begin iWX54p http://blog.numino.net/ CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); woixhv http://blog.numino.net/ DateTimePicker1.Time := vDateTime; Rz5vyz http://blog.numino.net/ end; 5mk4rh http://blog.numino.net/ ///////End TryStrToTime 5MQrjn http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ VpP297 http://blog.numino.net/ 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas UJV27Q http://blog.numino.net/ 功能 返回字符串S转换成日期时间 Q1hHF5 http://blog.numino.net/ 说明 字符非日期时间表达时将引起异常 ZzGHTs http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 9MGIVh http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); e2j97P http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ zflhS8 http://blog.numino.net/ 首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): Tu175Z http://blog.numino.net/ TDateTime; $[SysUtils.pas rrWtsU http://blog.numino.net/ 功能 返回字符串S转换成日期时间 7T2jw6 http://blog.numino.net/ 说明 字符非日期时间表达时则返回默认值Default g5S5j2 http://blog.numino.net/ 参考 function SysUtils.TryStrToDateTime 3jU0AT http://blog.numino.net/ 例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 9t9ASq http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ qs85FH http://blog.numino.net/ 首部 function TryStrToDateTime(const S: string; out Value: TDateTime): UrWLH7 http://blog.numino.net/ Boolean; $[SysUtils.pas jTWr1u http://blog.numino.net/ 功能 返回字符串S转换成日期时间Value是否成功 T1NA25 http://blog.numino.net/ 说明 字符非日期时间表达时返回False并且Value将输出为0 7aE4yY http://blog.numino.net/ 参考 <NULL> v9RTZK http://blog.numino.net/ 例子 vP2bxX http://blog.numino.net/ ///////Begin TryStrToDateTime nbGyuF http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); 5R4QiI http://blog.numino.net/ var upCeJO http://blog.numino.net/ vDateTime: TDateTime; DeD50J http://blog.numino.net/ begin 8b96HT http://blog.numino.net/ CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); MctODv http://blog.numino.net/ Edit2.Text := DateTimeToStr(vDateTime); Y6Q9U2 http://blog.numino.net/ end; I4mDt9 http://blog.numino.net/ ///////End TryStrToDateTime 93c812 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ c3F7z4 http://blog.numino.net/ 首部 procedure DateTimeToString(var Result: string; const Format: string; kHl82G http://blog.numino.net/ DateTime: TDateTime); $[SysUtils.pas 68QkQR http://blog.numino.net/ 功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 yZzuBp http://blog.numino.net/ 说明 <参见FormatDateTime> S8LTJw http://blog.numino.net/ 参考 function System.SetString ZlR74M http://blog.numino.net/ 例子 <参见FormatDateTime> IA773g http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ N6F4gT http://blog.numino.net/ 首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: HFpL8G http://blog.numino.net/ string): string; platform; $[SysUtils.pas P2PeMn http://blog.numino.net/ 功能 返回当前系统指定参数的字符串值 7dvp0l http://blog.numino.net/ 说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' xP28d8 http://blog.numino.net/ 参考 function Windows.GetLocaleInfo H40u3E http://blog.numino.net/ 例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>'); IchZIZ http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 0rliOY http://blog.numino.net/ 首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): oOTkyN http://blog.numino.net/ Char; platform; $[SysUtils.pas hYb8cv http://blog.numino.net/ 功能 返回当前系统指定参数的字符值 a8GrGA http://blog.numino.net/ 说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' A35Vqv http://blog.numino.net/ 参考 function Windows.GetLocaleInfo svx5ao http://blog.numino.net/ 例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); 42vpt0 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ HH4v1z http://blog.numino.net/ 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; TZy6XN http://blog.numino.net/ $[SysUtils.pas b2e74k http://blog.numino.net/ 功能 返回字符串S位置Index上的字符在MBCS中类型 QjMr8w http://blog.numino.net/ 说明 多字节字符系统:Multi-Byte Character System (MBCS) k9m7zs http://blog.numino.net/ 参考 var SysUtils.SysLocale l987CO http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); T2Cb8h http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ z8oCmI http://blog.numino.net/ 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; 2WMULS http://blog.numino.net/ $[SysUtils.pas F9aZGC http://blog.numino.net/ 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 Nz6w7R http://blog.numino.net/ 说明 Index从0开始 8Nux42 http://blog.numino.net/ 参考 var SysUtils.SysLocale ZvepRJ http://blog.numino.net/ 例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), j7VHRj http://blog.numino.net/ SpinEdit2.Value)); AVQVp9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ a2469O http://blog.numino.net/ 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; 4vii6R http://blog.numino.net/ $[SysUtils.pas xOCsu8 http://blog.numino.net/ 功能 返回字符串S中有多少个多字节字符 z9ZkYC http://blog.numino.net/ 说明 MaxLen指定处理字符个数 QmS68F http://blog.numino.net/ 参考 function SysUtils.ByteToCharIndex AY32mx http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); Lb4Ll9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ xTIutL http://blog.numino.net/ 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; BqM5tG http://blog.numino.net/ $[SysUtils.pas JSUpJu http://blog.numino.net/ 功能 返回字符串S中有多少个字符 V3Uek5 http://blog.numino.net/ 说明 MaxLen指定处理多字节字符个数 ovtxRL http://blog.numino.net/ 参考 var SysUtils.SysLocale sdUN47 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); PPDGin http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4MDCzU http://blog.numino.net/ 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; RrgZ6h http://blog.numino.net/ $[SysUtils.pas qbugW2 http://blog.numino.net/ 功能 返回字符位置对应的多字节字符位置 d61tHp http://blog.numino.net/ 说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 Cfs6Rr http://blog.numino.net/ 参考 function SysUtils.NextCharIndex NimqBL http://blog.numino.net/ 例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); QxFCp4 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ nX1ydV http://blog.numino.net/ 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; Y357DZ http://blog.numino.net/ $[SysUtils.pas K4rcdL http://blog.numino.net/ 功能 返回多字节字符位置对应的字符起始位置 LD8bD2 http://blog.numino.net/ 说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 h9yJnC http://blog.numino.net/ 参考 function System.Length 685u84 http://blog.numino.net/ 例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); ymL5vp http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ C43oR8 http://blog.numino.net/ 首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas g63cEQ http://blog.numino.net/ 功能 返回第一个字符的宽度 qX1EVq http://blog.numino.net/ 说明 参数为空则返回0 xxBa2g http://blog.numino.net/ 参考 function Windows.CharNext 5LTMHr http://blog.numino.net/ 例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); eWMDD8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ Dr6o9p http://blog.numino.net/ 首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas HUuoMB http://blog.numino.net/ 功能 返回字符指针Str的下一个字符指针 ePGl33 http://blog.numino.net/ 说明 StrNextChar('1234') = '234'; 5w30SX http://blog.numino.net/ 参考 function Windows.CharNext 4WNM78 http://blog.numino.net/ 例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); 6M05ql http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ S8e0iZ http://blog.numino.net/ 首部 function CharLength(const S: String; Index: Integer): Integer; G80T8W http://blog.numino.net/ $[SysUtils.pas wmZ9di http://blog.numino.net/ 功能 返回字符串中指定位置的字符宽度 LeiASW http://blog.numino.net/ 说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 87Icge http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength c4fueu http://blog.numino.net/ 例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); v3QA5n http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ hhwly3 http://blog.numino.net/ 首部 function NextCharIndex(const S: String; Index: Integer): Integer; KWl4G5 http://blog.numino.net/ $[SysUtils.pas d93T0x http://blog.numino.net/ 功能 返回下一个字符的位置 0Z1vG4 http://blog.numino.net/ 说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 VJq351 http://blog.numino.net/ 参考 function System.Assert;function SysUtils.StrCharLength Wwu5k9 http://blog.numino.net/ 例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); r7GmcD http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ WOMPrs http://blog.numino.net/ 首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; LC9em5 http://blog.numino.net/ $[SysUtils.pas oHk39w http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 fzhQ7F http://blog.numino.net/ 说明 IsPathDelimiter('C:\Windows', 3) = True L8XIpD http://blog.numino.net/ 参考 const SysUtils.PathDelim;function SysUtils.ByteType RmWBeG http://blog.numino.net/ 例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); yIcDz9 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ dd79Pr http://blog.numino.net/ 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): 0p4eOq http://blog.numino.net/ Boolean; $[SysUtils.pas sDLUg1 http://blog.numino.net/ 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters cHmSMZ http://blog.numino.net/ 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 7W9M3x http://blog.numino.net/ 参考 function SysUtils.ByteType PCg4am http://blog.numino.net/ 例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, m2uNyy http://blog.numino.net/ SpinEdit1.Value); H7yL7m http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ MJ4Zuu http://blog.numino.net/ 首部 function IncludeTrailingPathDelimiter(const S: string): string; RxVWIz http://blog.numino.net/ $[SysUtils.pas 0t92T6 http://blog.numino.net/ 功能 返回包括最后路径分隔符 3rCMu3 http://blog.numino.net/ 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 pdFojf http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length t2w3Ev http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); IqZo9s http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 1hF98P http://blog.numino.net/ 首部 function IncludeTrailingBackslash(const S: string): string; platform; 1ia9nH http://blog.numino.net/ $[SysUtils.pas vMWKOV http://blog.numino.net/ 功能 返回包括最后斜线 j5V96F http://blog.numino.net/ 说明 Result := IncludeTrailingPathDelimiter(S); I7iLa5 http://blog.numino.net/ 参考 function SysUtils.IncludeTrailingPathDelimiter Gqooce http://blog.numino.net/ 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); eMy86a http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ R9OaRw http://blog.numino.net/ 首部 function ExcludeTrailingPathDelimiter(const S: string): string; nWs8As http://blog.numino.net/ $[SysUtils.pas 2EoZQx http://blog.numino.net/ 功能 返回排除最后路径分隔符 NyDMXe http://blog.numino.net/ 说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 86JZHI http://blog.numino.net/ 参考 function SysUtils.IsPathDelimiter;function System.Length;function t8PzZR http://blog.numino.net/ System.SetLength LaTHmb http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); s6FpzT http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 4PKOql http://blog.numino.net/ 首部 function ExcludeTrailingBackslash(const S: string): string; platform; RztQ9m http://blog.numino.net/ $[SysUtils.pas 65MaWu http://blog.numino.net/ 功能 返回排除最后斜线 1VOcF8 http://blog.numino.net/ 说明 Result := ExcludeTrailingPathDelimiter(S) sekJwq http://blog.numino.net/ 参考 function SysUtils.ExcludeTrailingPathDelimiter dPsM5c http://blog.numino.net/ 例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); rJsB6W http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ EITuVN http://blog.numino.net/ 首部 function LastDelimiter(const Delimiters, S: string): Integer; 0OeIY3 http://blog.numino.net/ $[SysUtils.pas d0upcr http://blog.numino.net/ 功能 返回最后一个分隔符的位置 sk3z0d http://blog.numino.net/ 说明 LastDelimiter('.', 'kingron.myetang.com') = 16 y6cU7e http://blog.numino.net/ 参考 function SysUtils.StrScan;function SysUtils.ByteType Uno3Ez http://blog.numino.net/ 例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); C446PU http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ cC6F8E http://blog.numino.net/ 首部 function AnsiCompareFileName(const S1, S2: string): Integer; NnMB0d http://blog.numino.net/ $[SysUtils.pas G6ay5K http://blog.numino.net/ 功能 返回比较两个文件名 EPTqFq http://blog.numino.net/ 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 p5vTLr http://blog.numino.net/ 参考 function SysUtils.AnsiCompareStr pL3CSO http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); iuHM6D http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 652GRD http://blog.numino.net/ 首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas ddNvQT http://blog.numino.net/ 功能 返回两个文件名是否相等 ELCyCa http://blog.numino.net/ 说明 区分大小写 sdg9BX http://blog.numino.net/ 参考 function SysUtils.AnsiCompareFileName l45QCG http://blog.numino.net/ 例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); ioISMc http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ u3aoCr http://blog.numino.net/ 首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas id2aP1 http://blog.numino.net/ 功能 返回小写文件名 bPoMsx http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiLowerCase 3n4AA5 http://blog.numino.net/ 参考 function SysUtils.AnsiLowerCase 4hy4V9 http://blog.numino.net/ 例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); ACRaVz http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ l6MKOh http://blog.numino.net/ 首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas 34JXNC http://blog.numino.net/ 功能 返回大写文件名 tq8C0d http://blog.numino.net/ 说明 在非多字节字符系统上相当于AnsiUpperCase TGwEXX http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase SA785V http://blog.numino.net/ 例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); 9pPzIA http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ jR6nMT http://blog.numino.net/ 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas GB9EVO http://blog.numino.net/ 功能 返回子串Substr在字符中第一次出现的位置 U3Gasf http://blog.numino.net/ 说明 不存在则返回0 NSc96M http://blog.numino.net/ 参考 SysUtils.AnsiStrPos 1LTpkK http://blog.numino.net/ 例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); rSJY22 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 3L9mq0 http://blog.numino.net/ 首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas rd56LR http://blog.numino.net/ 功能 返回指针子串Substr在指针字符中第一次出现的指针位置 HgH7RX http://blog.numino.net/ 说明 不存在则返回nil WaU6xZ http://blog.numino.net/ 参考 function SysUtils.StrByteType xs4hIp http://blog.numino.net/ 例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); MoJ4U8 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 53qs9U http://blog.numino.net/ 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas Mg8Qu6 http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 lby2e1 http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' CiKk7v http://blog.numino.net/ 参考 function SysUtils.AnsiStrScan B5b3Xl http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); I6S1Z1 http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ CGbQxR http://blog.numino.net/ 首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas R0HBlI http://blog.numino.net/ 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 f3Kr8f http://blog.numino.net/ 说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 62wbpt http://blog.numino.net/ 参考 function SysUtils.StrScan TEr72u http://blog.numino.net/ 例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 5euZ3t http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ 5F7OEo http://blog.numino.net/ 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: OBgilx http://blog.numino.net/ TReplaceFlags): string; $[SysUtils.pas Vv9vEf http://blog.numino.net/ 功能 返回替换后的字符串 OOJm5d http://blog.numino.net/ 说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 5FKVNl http://blog.numino.net/ 参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function bw6hPZ http://blog.numino.net/ System.Copy 7t2n32 http://blog.numino.net/ 例子 9zOAaZ http://blog.numino.net/ ///////Begin StringReplace GQfZsX http://blog.numino.net/ procedure TForm1.Button1Click(Sender: TObject); lNIU3P http://blog.numino.net/ begin ZDX76w http://blog.numino.net/ Memo1.Lines.Values['[]'] := 63Jl4U http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); 8hzik8 http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll]'] := tuJyj3 http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]); 1AZz2z http://blog.numino.net/ Memo1.Lines.Values['[rfIgnoreCase]'] := DbNKrG http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]); BU21DD http://blog.numino.net/ Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] := bTxoYq http://blog.numino.net/ StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, k2td81 http://blog.numino.net/ rfIgnoreCase]); V23AHb http://blog.numino.net/ end; n7D0bq http://blog.numino.net/ ///////End StringReplace VVzOqj http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ kY0hhf http://blog.numino.net/ 首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas 3QyXkx http://blog.numino.net/ 功能 返回字符串S转换成全局标识 4Z4Qj8 http://blog.numino.net/ 说明 如果字符串非法将触发异常 SyFtNb http://blog.numino.net/ 参考 fuction Windows.Succeeded kh4GMp http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); FMSUWm http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━ DtOrTQ http://blog.numino.net/ 首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas vKtPQx http://blog.numino.net/ 功能 返回全局标识GUID转换成字符串 8pE8d1 http://blog.numino.net/ 说明 <NULL> Z7HOqF http://blog.numino.net/ 参考 fuction Windows.Succeeded IGolsu http://blog.numino.net/ 例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); n1j3mu http://blog.numino.net/ ━━━━━━━━━━━━━━━━━━━━━

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

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

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