字符串函数大全

我会带着你远行 2022-03-29 06:55 288阅读 0赞

标题　: 【字符串函数大全】  
首部 function AnsiResemblesText(const AText, AOther: string): Boolean;  
$\[StrUtils.pas  
功能 返回两个字符串是否相似  
说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写  
参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc  
例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiContainsText(const AText, ASubText: string): Boolean;  
$\[StrUtils.pas  
功能 返回字符串AText是否包含子串ASubText  
说明 不区分大小写  
参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos  
例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStartsText(const ASubText, AText: string): Boolean;  
$\[StrUtils.pas  
功能 返回字符串AText是否以子串ASubText开头  
说明 不区分大小写  
参考 function Windows.CompareString  
例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiEndsText(const ASubText, AText: string): Boolean;  
$\[StrUtils.pas  
功能 返回字符串AText是否以子串ASubText结尾  
说明 不区分大小写  
参考 function Windows.CompareString  
例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiReplaceText(const AText, AFromText, AToText: string):  
string; $\[StrUtils.pas  
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果  
说明 不区分大小写  
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags  
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiMatchText(const AText: string; const AValues: array of  
string): Boolean; $\[StrUtils.pas  
功能 返回字符串数组AValues中是否包含字符串AText  
说明 不区分大小写  
参考 function StrUtils.AnsiIndexText  
例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, \['a1', 'a2', 'a3',  
'a4'\]);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiIndexText(const AText: string; const AValues: array of  
string): Integer; $\[StrUtils.pas  
功能 返回字符串AText在字符串数组AValues中的位置  
说明 不区分大小写;如果不包含则返回-1  
参考 function SysUtils.AnsiSameText  
例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, \['a1', 'a2', 'a3', 'a4'\]);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiContainsStr(const AText, ASubText: string): Boolean;  
$\[StrUtils.pas  
功能 返回字符串AText是否包含子串ASubText  
说明 区分大小写  
参考 function StrUtils.AnsiPos  
例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStartsStr(const ASubText, AText: string): Boolean;  
$\[StrUtils.pas  
功能 返回字符串AText是否以子串ASubText开头  
说明 区分大小写  
参考 function SysUtils.AnsiSameStr  
例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiEndsStr(const ASubText, AText: string): Boolean;  
$\[StrUtils.pas  
功能 返回字符串AText是否以子串ASubText结尾  
说明 区分大小写  
参考 function SysUtils.AnsiSameStr  
例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiReplaceStr(const AText, AFromText, AToText: string):  
string; $\[StrUtils.pas  
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果  
说明 区分大小写  
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags  
例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiMatchStr(const AText: string; const AValues: array of  
string): Boolean; $\[StrUtils.pas  
功能 返回字符串数组AValues中是否包含字符串AText  
说明 区分大小写  
参考 function StrUtils.AnsiIndexStr  
例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, \['a1', 'a2', 'a3',  
'a4'\]);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiIndexStr(const AText: string; const AValues: array of  
string): Integer; $\[StrUtils.pas  
功能 返回字符串AText在字符串数组AValues中的位置  
说明 区分大小写  
参考 function SysUtils.AnsiSameStr  
例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, \['a1', 'a2', 'a3', 'a4'\]);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function DupeString(const AText: string; ACount: Integer): string;  
$\[StrUtils.pas  
功能 返回字符串AText的ACount个复本  
说明 当ACount为0时返回''  
参考 function System.SetLength  
例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function ReverseString(const AText: string): string; $\[StrUtils.pas  
功能 返回字符串AText的反序  
说明 ReverseString('1234') = '4321'  
参考 function System.SetLength  
例子 Edit3.Text := ReverseString(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StuffString(const AText: string; AStart, ALength: Cardinal;  
const ASubText: string): string; $\[StrUtils.pas  
功能 返回嵌套字符串  
说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd'  
参考 function System.Copy  
例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value,  
Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function RandomFrom(const AValues: array of string): string; overload;  
$\[StrUtils.pas  
功能 随机返回字符串数组AValues中的一个元素  
说明 之前建议执行Randomize  
参考 function System.Random  
例子 Randomize; Edit3.Text := RandomFrom(\['a1', 'a2', 'a3', 'a4'\]);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string =  
''): string; overload; $\[StrUtils.pas  
功能 返回指定的逻辑字符串  
说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否'  
参考 <NULL>  
例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function LeftStr(const AText: string; const ACount: Integer): string;  
$\[StrUtils.pas  
功能 返回字符串AText左边的ACount个字符  
说明 LeftStr('123456', 3) = '123'  
参考 function System.Copy  
例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function RightStr(const AText: string; const ACount: Integer): string;  
$\[StrUtils.pas  
功能 返回字符串AText右边的ACount个字符  
说明 RightStr('123456', 3) = '456'  
参考 function System.Copy  
例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function MidStr(const AText: string; const AStart, ACount: Integer):  
string; $\[StrUtils.pas  
功能 返回字符串AText从AStart开始的ACount个字符  
说明 其实就是Copy  
参考 function System.Copy  
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength:  
Integer; SearchString: String; Options: TStringSearchOptions = \[soDown\]):  
PChar; $\[StrUtils.pas  
功能 返回第一个搜索到的指针位置  
说明 这函数常用于文本中搜索字符串  
参考 <NULL>  
例子  
///Begin SearchBuf  
function SearchEdit(EditControl: TCustomEdit; const SearchString: String;  
SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;  
var  
Buffer, P: PChar;  
Size: Word;  
begin  
Result := False;  
if (Length(SearchString) = 0) then Exit;  
Size := EditControl.GetTextLen;  
if (Size = 0) then Exit;  
Buffer := StrAlloc(Size + 1);  
try  
EditControl.GetTextBuf(Buffer, Size + 1);  
P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,  
SearchString, SearchOptions);  
if P <> nil then begin  
EditControl.SelStart := P - Buffer;  
EditControl.SelLength := Length(SearchString);  
Result := True;  
end;  
finally  
StrDispose(Buffer);  
end;  
end;  
procedure TForm1.Button1Click(Sender: TObject);  
var  
SearchOptions: TStringSearchOptions;  
begin  
SearchOptions := \[\];  
if CheckBox1.Checked then  
Include(SearchOptions, soDown);  
if CheckBox2.Checked then  
Include(SearchOptions, soMatchCase);  
if CheckBox3.Checked then  
Include(SearchOptions, soWholeWord);  
SearchEdit(Memo1, Edit1.Text, SearchOptions);  
Memo1.SetFocus;  
end;  
///End SearchBuf  
━━━━━━━━━━━━━━━━━━━━━  
首部 function Soundex(const AText: string; ALength: TSoundexLength = 4):  
string; $\[StrUtils.pas  
功能 返回探测字符串  
说明 根据探测法(Soundex)可以找到相进的字符串;[http://www.nara.gov/genealogy/coding.html][http_www.nara.gov_genealogy_coding.html]  
参考 <NULL>  
例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength =  
4): Integer; $\[StrUtils.pas  
功能 返回探测整数  
说明 ALength的值越大解码准确率越高  
参考 <NULL>  
例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function DecodeSoundexInt(AValue: Integer): string; $\[StrUtils.pas  
功能 返回探测整数的解码  
说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello')  
参考 <NULL>  
例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SoundexWord(const AText: string): Word; $\[StrUtils.pas  
功能 返回探测文字数值  
说明 没有参数ALength已经固定为4  
参考 <NULL>  
例子 SpinEdit2.Value := SoundexWord(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function DecodeSoundexWord(AValue: Word): string; $\[StrUtils.pas  
功能 返回探测文字数值的解码  
说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello')  
参考 <NULL>  
例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SoundexSimilar(const AText, AOther: string; ALength:  
TSoundexLength = 4): Boolean; $\[StrUtils.pas  
功能 返回两个字符串的探测字符串是否相同  
说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength)  
参考 <NULL>  
例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text,  
SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SoundexCompare(const AText, AOther: string; ALength:  
TSoundexLength = 4): Integer; $\[StrUtils.pas  
功能 返回比较两个字符串的探测字符串的结果  
说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther,  
ALength))  
参考 function SysUtils.AnsiCompareStr  
例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text,  
SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SoundexProc(const AText, AOther: string): Boolean;  
$\[StrUtils.pas  
功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同  
说明 系统变量AnsiResemblesProc的默认值  
参考 function StrUtils.AnsiResemblesText  
例子 \[var AnsiResemblesProc: TCompareTextProc = SoundexProc;\]  
━━━━━━━━━━━━━━━━━━━━━  
首部 function NewStr(const S: string): PString; deprecated; $\[SysUtils.pas  
功能 返回一个新的字符串指针地址  
说明 字符串S为空时返回NullStr  
参考 procedure System.New  
例子  
Begin NewStr,DisposeStr  
procedure TForm1.Button1Click(Sender: TObject);  
var  
P: PString;  
begin  
P := NewStr(Edit1.Text);  
Edit2.Text := P^;  
DisposeStr(P);  
end;  
End NewStr,DisposeStr  
━━━━━━━━━━━━━━━━━━━━━  
首部 procedure DisposeStr(P: PString); deprecated; $\[SysUtils.pas  
功能 释放字符串指针P资源  
说明 配合函数NewStr使用  
参考 procedure System.Dispose  
例子 <如上参见,如下参见>  
━━━━━━━━━━━━━━━━━━━━━  
首部 procedure AssignStr(var P: PString; const S: string); deprecated;  
$\[SysUtils.pas  
功能 将字符串S更新给字符串指针P  
说明 更新值时会释放以前字符串指针的资源  
参考 function SysUtils.NewStr;function SysUtils.DisposeStr  
例子  
Begin AssignStr  
procedure TForm1.Button1Click(Sender: TObject);  
var  
P: PString;  
begin  
P := nil;  
AssignStr(P, Edit1.Text);  
Edit2.Text := P^;  
DisposeStr(P);  
end;  
End AssignStr  
━━━━━━━━━━━━━━━━━━━━━  
首部 procedure AppendStr(var Dest: string; const S: string); deprecated;  
$\[SysUtils.pas  
功能 在字符串Dest后追加字符串S  
说明 相当于Dest := Dest + S;Delphi6已经不建议使用  
参考 <NULL>  
例子  
Begin AppendStr  
procedure TForm1.Button1Click(Sender: TObject);  
var  
S: string;  
begin  
S := Edit2.Text;  
AppendStr(S, Edit1.Text);  
Edit2.Text := S;  
end;  
End AppendStr  
━━━━━━━━━━━━━━━━━━━━━  
首部 function UpperCase(const S: string): string; $\[SysUtils.pas  
功能 返回字符串S的大写形式  
说明 非小写字符不处理  
参考 procedure System.SetLength  
例子 Edit2.Text := UpperCase(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function LowerCase(const S: string): string; $\[SysUtils.pas  
功能 返回字符串S的小写形式  
说明 非大写字符不处理  
参考 procedure System.SetLength  
例子 Edit2.Text := LowerCase(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CompareStr(const S1, S2: string): Integer; $\[SysUtils.pas  
功能 返回比较两个字符  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写  
参考 <NULL>  
例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean;  
assembler; $\[SysUtils.pas  
功能 返回比较两个内存指针  
说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'),  
PChar('12c'), 3)=False  
参考 <NULL>  
例子 CheckBox1.Checked := CompareMem(Self, Form1, 8);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CompareText(const S1, S2: string): Integer; $\[SysUtils.pas  
功能 返回比较两个字符串  
说明 不区分大小写  
参考 <NULL>  
例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SameText(const S1, S2: string): Boolean; $\[SysUtils.pas  
功能 返回两个字符串是否相等  
说明 不区分大小写  
参考 <NULL>  
例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiUpperCase(const S: string): string; $\[SysUtils.pas  
功能 返回字符串S的大写形式  
说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变  
参考 function Windows.CharUpperBuff  
例子 Edit2.Text := AnsiUpperCase(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiLowerCase(const S: string): string; $\[SysUtils.pas  
功能 返回字符串S的小写形式  
说明 非大写字符不处理  
参考 function Windows.CharLowerBuff  
例子 Edit2.Text := AnsiLowerCase(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiCompareStr(const S1, S2: string): Integer; $\[SysUtils.pas  
功能 反回比较两个字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写  
参考 function Windows.CompareString  
例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiSameStr(const S1, S2: string): Boolean; $\[SysUtils.pas  
功能 返回两个字符串是否相等  
说明 区分大小写  
参考 function SysUtils.AnsiCompareStr  
例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiCompareText(const S1, S2: string): Integer; $\[SysUtils.pas  
功能 反回比较两个字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写  
参考 function Windows.CompareString  
例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiSameText(const S1, S2: string): Boolean; $\[SysUtils.pas  
功能 返回两个字符串是否相等  
说明 不区分大小写  
参考 function SysUtils.AnsiCompareText  
例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrComp(S1, S2: PChar): Integer; $\[SysUtils.pas  
功能 返回比较两个指针字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写  
参考 function System.CompareString  
例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrIComp(S1, S2: PChar): Integer; $\[SysUtils.pas  
功能 返回比较两个指针字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略)  
参考 function Windows.CompareString  
例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer;  
$\[SysUtils.pas  
功能 返回比较两个指针字符串指定长度  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度)  
参考 function Windows.CompareString  
例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text),  
SpinEdit2.Value)  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer;  
$\[SysUtils.pas  
功能 返回比较两个指针字符串指定长度  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写  
参考 function Windows.CompareString  
例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),  
SpinEdit2.Value)  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrLower(Str: PChar): PChar; $\[SysUtils.pas  
功能 返回指针字符串小写形式  
说明 非大写字符不处理  
参考 function Windows.CharLower  
例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrUpper(Str: PChar): PChar; $\[SysUtils.pas  
功能 返回指针字符串大写形式  
说明 非小写字符不处理  
参考 function Windows.CharUpper  
例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiLastChar(const S: string): PChar; $\[SysUtils.pas  
功能 返回字符串S的最后一个指针字符  
说明 当字符串S为空串则返回空指针  
参考 function SysUtils.ByteType  
例子 Edit2.Text := AnsiLastChar(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrLastChar(P: PChar): PChar; $\[SysUtils.pas  
功能 返回指针字符串P的最后一个指针字符  
说明 当字符串P为空空指针则返回空指针  
参考 function SysUtils.ByteType  
例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideUpperCase(const S: WideString): WideString; $\[SysUtils.pas  
功能 返回双字节字符串的大写形式  
说明 WideChar双字节字符  
参考 function Windows.CharUpperBuffW  
例子 Edit2.Text := WideUpperCase(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideLowerCase(const S: WideString): WideString; $\[SysUtils.pas  
功能 返回双字节字符串的小写形式  
说明 我怎么就测试不出来呢  
参考 function Windows.CharLowerBuffW  
例子 Edit2.Text := WideLowerCase(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideCompareStr(const S1, S2: WideString): Integer;  
$\[SysUtils.pas  
功能 返回比较两个双字节字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写  
参考 function Windows.CompareStringW  
例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideSameStr(const S1, S2: WideString): Boolean; $\[SysUtils.pas  
功能 返回两个双字节字符串是否相同  
说明 区分大小写  
参考 function SysUtils.WideCompareStr  
例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideCompareText(const S1, S2: WideString): Integer;  
$\[SysUtils.pas  
功能 返回比较两个双字节字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写  
参考 function Windows.CompareStringW  
例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideSameText(const S1, S2: WideString): Boolean;  
$\[SysUtils.pas  
功能 返回两个双字节字符串是否相同  
说明 不区分大小写  
参考 function SysUtils.WideCompareText  
例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function Trim(const S: string): string; overload; $\[SysUtils.pas  
首部 function Trim(const S: WideString): WideString; overload;  
$\[SysUtils.pas  
功能 返回除去字符串S左右不可见字符  
说明 小于\#32的字符看作不可见字符  
参考 function System.Copy  
例子 Edit2.Text := Trim(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TrimLeft(const S: string): string; overload; $\[SysUtils.pas  
首部 function TrimLeft(const S: WideString): WideString; overload;  
$\[SysUtils.pas  
功能 返回除去字符串S左边不可见字符  
说明 小于\#32的字符看作不可见字符  
参考 function System.Copy  
例子 Edit2.Text := TrimLeft(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TrimRight(const S: string): string; overload; $\[SysUtils.pas  
首部 function TrimRight(const S: WideString): WideString; overload;  
$\[SysUtils.pas  
功能 返回除去字符串S右边不可见字符  
说明 小于\#32的字符看作不可见字符  
参考 function System.Copy  
例子 Edit2.Text := TrimRight(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function QuotedStr(const S: string): string; $\[SysUtils.pas  
功能 返回字符串S在pascal中的表现形式  
说明 单引号中的一个单引号将转成两个  
参考 procedure System.Insert  
例子 Edit2.Text := QuotedStr(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiQuotedStr(const S: string; Quote: Char): string;  
$\[SysUtils.pas  
功能 返回字符串S以字符Quote为引号的表现形式  
说明 AnsiQuotedStr('hello"world',  
'@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"'  
参考 function SysUtils.AnsiStrScan  
例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"');  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;  
$\[SysUtils.pas  
功能 返回以字符Quote为引号的表现形式原形  
说明 表现形式非法时Src不变否则为空  
参考 function SysUtils.AnsiStrScan  
例子  
///Begin AnsiExtractQuotedStr  
procedure TForm1.Button1Click(Sender: TObject);  
var  
P: PChar;  
begin  
P := PChar(Edit1.Text);  
Edit2.Text := AnsiExtractQuotedStr(P, '"');  
Edit3.Text := P;  
end;  
///End AnsiExtractQuotedStr  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiDequotedStr(const S: string; AQuote: Char): string;  
$\[SysUtils.pas  
功能 返回以字符AQuote为引号的表现形式原形  
说明 表现形式非法时则返回S  
参考 function SysUtils.AnsiExtractQuotedStr  
例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle =  
\{$IFDEF LINUX\} tlbsLF \{$ENDIF\} \{$IFDEF MSWINDOWS\} tlbsCRLF \{$ENDIF\}):  
string; $\[SysUtils.pas  
功能 返回将给定字符串的行分隔符调整为CR/LF序列  
说明  
AdjustLineBreaks('1'\#13'2'\#13)='1'\#13\#10'2'\#13\#10;AdjustLineBreaks('1'\#10'2'\#10)='1'\#13\#10'2'\#13\#10  
参考 function SysUtils.StrNextChar  
例子 <NULL>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IsValidIdent(const Ident: string): Boolean; $\[SysUtils.pas  
功能 返回字符串Ident是否是正确的标识符  
说明 标识符::字母|下划线\[字母|下划线|数字\]...  
参考 <NULL>  
例子 CheckBox1.Checked := IsValidIdent(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IntToStr(Value: Integer): string; overload; $\[SysUtils.pas  
首部 function IntToStr(Value: Int64): string; overload; $\[SysUtils.pas  
功能 返回整数Value转换成字符串  
说明 Format('%d', \[Value\])  
参考 function SysUtils.FmtStr  
例子 Edit2.Text := IntToStr(SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IntToHex(Value: Integer; Digits: Integer): string; overload;  
$\[SysUtils.pas  
首部 function IntToHex(Value: Int64; Digits: Integer): string; overload;  
$\[SysUtils.pas  
功能 返回整数Value转换成十六进制表现结果;Format('%.\*x', \[Digits, Value\])  
说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充  
参考 function SysUtils.FmtStr  
例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToInt(const S: string): Integer; $\[SysUtils.pas  
功能 返回字符串S转换成整数  
说明 字符串非整数表达时将引起异常  
参考 procedure System.Val  
例子 SpinEdit1.Value := StrToInt(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToIntDef(const S: string; Default: Integer): Integer;  
$\[SysUtils.pas  
功能 返回字符串S转换成整数  
说明 字符串非整数表达时则返回默认值Default  
参考 procedure System.Val  
例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToInt(const S: string; out Value: Integer): Boolean;  
$\[SysUtils.pas  
功能 返回字符串S转换成整数Value是否成功  
说明 字符串非整数表达时返回False并且Value将输出为0  
参考 procedure System.Val  
例子  
///Begin TryStrToInt  
procedure TForm1.Button1Click(Sender: TObject);  
var  
I: Integer;  
begin  
CheckBox1.Checked := TryStrToInt(Edit1.Text, I);  
SpinEdit1.Value := I;  
end;  
///End TryStrToInt  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToInt64(const S: string): Int64; $\[SysUtils.pas  
功能 返回字符串S转换成六十四位整数  
说明 字符串非六十四位整数表达时将引起异常  
参考 procedure System.Val  
例子 SpinEdit1.Value := StrToInt64(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToInt64Def(const S: string; const Default: Int64): Int64;  
$\[SysUtils.pas  
功能 返回字符串S转换成六十四位整数  
说明 字符串非六十四位整数表达时则返回默认值Default  
参考 procedure System.Val  
例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean;  
$\[SysUtils.pas  
功能 返回字符串S转换成六十四位整数Value是否成功  
说明 字符串非六十四位整数表达时返回False并且Value将输出为0  
参考 procedure System.Val  
例子  
///Begin TryStrToInt64  
procedure TForm1.Button1Click(Sender: TObject);  
var  
I: Int64;  
begin  
CheckBox1.Checked := TryStrToInt64(Edit1.Text, I);  
SpinEdit1.Value := I;  
end;  
///End TryStrToInt64  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToBool(const S: string): Boolean; $\[SysUtils.pas  
功能 返回字符串S转换成逻辑值  
说明 字符非逻辑表达时将引起异常  
参考 function SysUtils.TryStrToBool  
例子 CheckBox1.Checked := StrToBool(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToBoolDef(const S: string; const Default: Boolean):  
Boolean; $\[SysUtils.pas  
功能 返回字符串S转换成逻辑值  
说明 字符非逻辑表达时则返回默认值Default  
参考 function SysUtils.TryStrToBool  
例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean;  
$\[SysUtils.pas  
功能 返回字符串S转换成逻辑值Value是否成功  
说明 \[注意\]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正  
参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var  
SysUtils.FalseBoolStrs  
例子  
///Begin TryStrToBool  
procedure TForm1.Button1Click(Sender: TObject);  
var  
B: Boolean;  
begin  
SetLength(TrueBoolStrs, 2);  
SetLength(FalseBoolStrs, 2);  
TrueBoolStrs\[0\] := 'True';  
FalseBoolStrs\[0\] := 'False';  
TrueBoolStrs\[1\] := 'Yes';  
FalseBoolStrs\[1\] := 'No';  
CheckBox1.Checked := TryStrToBool(Edit1.Text, B);  
CheckBox2.Checked := B;  
end;  
///End TryStrToBool  
附加  
///Begin TryStrToBool  
function TryStrToBool(const S: string; out Value: Boolean): Boolean;  
function CompareWith(const aArray: array of string): Boolean;  
var  
I: Integer;  
begin  
Result := False;  
for I := Low(aArray) to High(aArray) do  
if AnsiSameText(S, aArray\[I\]) then  
begin  
Result := True;  
Break;  
end;  
end;  
var  
LResult: Extended;  
begin  
Result := TryStrToFloat(S, LResult);  
if Result then  
Value := LResult <> 0  
else  
begin  
Result := True; //修正处  
VerifyBoolStrArray;  
if CompareWith(TrueBoolStrs) then  
Value := True  
else if CompareWith(FalseBoolStrs) then  
Value := False  
else  
Result := False;  
end;  
end;  
///End TryStrToBool  
━━━━━━━━━━━━━━━━━━━━━  
首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;  
$\[SysUtils.pas  
功能 返回逻辑值B转换成字符串  
说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1'  
参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs  
例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function LoadStr(Ident: Integer): string; $\[SysUtils.pas  
功能 返回根据标识Ident的字符串资源  
说明 字符串资源是指程序的内部资源  
参考 function SysUtils.FindStringResource  
例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FmtLoadStr(Ident: Integer; const Args: array of const):  
string; $\[SysUtils.pas  
功能 返回格式化的字符串资源  
说明 字符串资源是指程序的内部资源  
参考 function SysUtils.FmtStr;function SysUtils.FindStringResource  
例子 <NULL>;  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrLen(const Str: PChar): Cardinal; $\[SysUtils.pas  
功能 返回指针字符串的长度  
说明 当指针字符串Str为nil时将触发异常  
参考 <NULL>  
例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrEnd(const Str: PChar): PChar; $\[SysUtils.pas  
功能 返回指针字符串的结尾  
说明 当指针字符串Str为nil时将触发异常  
参考 <NULL>  
例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):  
PChar; $\[SysUtils.pas  
功能 返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中  
说明 Dest没有分配资源将触发异常s  
参考 function System.Move  
例子  
///Begin StrMove  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: PChar;  
begin  
vBuffer := '0123456789';  
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);  
Edit2.Text := vBuffer;  
end;  
///End StrMove  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrCopy(Dest: PChar; const Source: PChar): PChar;  
$\[SysUtils.pas  
功能 返回将指针字符串Source复制到指针字符串Dest中  
说明 Dest应已经分配足够的空间非则将触发异常  
参考 <NULL>  
例子  
///Begin StrCopy  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: PChar;  
begin  
GetMem(vBuffer, Length(Edit1.Text) + 1);  
StrCopy(vBuffer, PChar(Edit1.Text));  
Edit2.Text := vBuffer;  
FreeMem(vBuffer);  
end;  
///End StrCopy  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrECopy(Dest:PChar; const Source: PChar): PChar;  
$\[SysUtils.pas  
功能 返回将指针字符串Source复制到指针字符串Dest中的结尾  
说明 可以连接指针字符串  
参考 <NULL>  
例子  
///Begin StrECopy  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
begin  
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));  
Edit3.Text := vBuffer;  
end;  
///End StrECopy  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):  
PChar; $\[SysUtils.pas  
功能 返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中  
说明 Dest应已经分配足够的空间非则将触发异常  
参考 <NULL>  
例子  
///Begin StrLCopy  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
begin  
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);  
Edit2.Text := vBuffer;  
end;  
///End StrLCopy  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrPCopy(Dest: PChar; const Source: string): PChar;  
$\[SysUtils.pas  
功能 返回将指针字符串Source复制到指针字符串Dest中  
说明 StrLCopy(Dest, PChar(Source), Length(Source))  
参考 function SysUtils.StrLCopy  
例子  
///Begin StrPCopy  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
begin  
StrPCopy(vBuffer, PChar(Edit1.Text));  
Edit2.Text := vBuffer;  
end;  
///End StrPCopy  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen:  
Cardinal): PChar; $\[SysUtils.pas  
功能 返回将字符串Source指定长度MaxLen复制到指针字符串Dest中  
说明 StrLCopy(Dest, PChar(Source), MaxLen)  
参考 function SysUtils.StrLCopy  
例子  
///Begin StrPLCopy  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
begin  
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);  
Edit2.Text := vBuffer;  
end;  
///End StrPLCopy  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrCat(Dest: PChar; const Source: PChar): PChar;  
$\[SysUtils.pas  
功能 返回连接指针字符串Dest和指针字符串Source  
说明 StrCopy(StrEnd(Dest), Source)  
参考 function SysUntils.StrCopy  
例子  
///Begin StrCat  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
begin  
StrPCopy(vBuffer, Edit1.Text);  
StrCat(vBuffer, PChar(Edit2.Text));  
Edit3.Text := vBuffer;  
end;  
///End StrCat  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):  
PChar; $\[SysUtils.pas  
功能 返回连接指针字符串Dest和指针字符串Source  
说明 \[注意\]MaxLen指定连接后的最大长度不是指针字符串Source的长度  
参考 <NULL>  
例子  
///Begin StrLCat  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
begin  
StrPCopy(vBuffer, Edit1.Text);  
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);  
Edit3.Text := vBuffer;  
end;  
///End StrLCat  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrComp(const Str1, Str2: PChar): Integer; $\[SysUtils.pas  
功能 返回比较两个指针字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;\[注意\]返回第一个出现不同字符的差异  
参考 <NULL>  
例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrIComp(const Str1, Str2: PChar): Integer; $\[SysUtils.pas  
功能 返回比较两个指针字符串  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;\[注意\]返回第一个出现不同字符的差异  
参考 <NULL>  
例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;  
$\[SysUtils.pas  
功能 返回比较两个指针字符串指定长度  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);\[注意\]返回第一个出现不同字符的差异  
参考 <NULL>  
例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text),  
SpinEdit2.Value)  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;  
$\[SysUtils.pas  
功能 返回比较两个指针字符串指定长度  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;\[注意\]返回第一个出现不同字符的差异  
参考 <NULL>  
例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),  
SpinEdit2.Value)  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrScan(const Str: PChar; Chr: Char): PChar; $\[SysUtils.pas  
功能 返回在指针字符串Str搜索字符Chr第一个出现的地址  
说明 没有找到则返回空指针  
参考 <NULL>  
例子 Edit2.Text := StrScan(PChar(Edit1.Text), '\*');  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $\[SysUtils.pas  
功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址  
说明 没有找到则返回空指针  
参考 <NULL>  
例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '\*');  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrPos(const Str1, Str2: PChar): PChar; $\[SysUtils.pas  
功能 返回指针字符串Str2在Str1中第一个出现的地址  
说明 没有找到则返回空指针;StrPos('12345', '3') = '345'  
参考 <NULL>  
例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrUpper(Str: PChar): PChar; $\[SysUtils.pas  
功能 返回指针字符串Str大写  
说明 非小写字符不处理  
参考 <NULL>  
例子 Edit1.Text := StrUpper(PChar(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrLower(Str: PChar): PChar; $\[SysUtils.pas  
功能 返回指针字符串Str小写  
说明 非大写字符不处理  
参考 <NULL>  
例子 Edit1.Text := StrLower(PChar(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrPas(const Str: PChar): string; $\[SysUtils.pas  
功能 返回指针字符串Str转换成字符串  
说明 也可以直接赋值  
参考 <NULL>  
例子 Edit1.Text := StrPas(PChar(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrAlloc(Size: Cardinal): PChar; $\[SysUtils.pas  
功能 返回分配指定空间的内存资源给指针字符串  
说明 空间的大小也将保存;用StrDispose才能全部释放  
参考 function System.GetMem  
例子  
///Begin StrAlloc  
procedure TForm1.Button1Click(Sender: TObject);  
var  
P: PChar;  
begin  
P := StrAlloc(SpinEdit1.Value);  
ShowMessage(IntToStr(StrLen(P)));  
Dec(P, SizeOf(Cardinal));  
ShowMessage(IntToStr(Cardinal(Pointer(P)^)));  
Inc(P, SizeOf(Cardinal));  
StrDispose(P);  
end;  
///End StrAlloc  
  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrBufSize(const Str: PChar): Cardinal; $\[SysUtils.pas  
功能 返回通过函数StrAlloc分配的缓冲区大小  
说明 出现异常情况则返回不可预知的结果  
参考 function System.SizeOf  
例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrNew(const Str: PChar): PChar; $\[SysUtils.pas  
功能 返回复制一个新的指针字符串  
说明 如果Str为nil则返回nil  
参考 function SysUtils.StrLen;function SysUtils.StrMove;function  
SysUtils.StrAlloc  
例子  
///Begin StrNew,StrDispose  
procedure TForm1.Button1Click(Sender: TObject);  
var  
P: PChar;  
begin  
P := StrNew(PChar(Edit1.Text));  
ShowMessage(P);  
StrDispose(P);  
end;  
///End StrNew,StrDispose  
━━━━━━━━━━━━━━━━━━━━━  
首部 procedure StrDispose(Str: PChar); $\[SysUtils.pas  
功能 释放指针字符串Str内存资源  
说明 如果Str为nil则不作任何处理;并且释放空间大小信息  
参考 function System.Dec;function System.SizeOf;function System.FreeMem  
例子 <参见StrNew>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function Format(const Format: string; const Args: array of const):  
string; $\[SysUtils.pas  
功能 返回按指定方式格式化一个数组常量的字符形式  
说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解  
"%" \[索引 ":"\] \["-"\] \[宽度\] \["." 摘要\] 类型  
Format('x=%d', \[12\]); //'x=12' //最普通  
Format('x=%3d', \[12\]); //'x= 12' //指定宽度  
Format('x=%f', \[12.0\]); //'x=12.00' //浮点数  
Format('x=%.3f', \[12.0\]); //'x=12.000' //指定小数  
Format('x=%.\*f', \[5, 12.0\]); //'x=12.00000' //动态配置  
Format('x=%.5d', \[12\]); //'x=00012' //前面补充0  
Format('x=%.5x', \[12\]); //'x=0000C' //十六进制  
Format('x=%1:d%0:d', \[12, 13\]); //'x=1312' //使用索引  
Format('x=%p', \[nil\]); //'x=00000000' //指针  
Format('x=%1.1e', \[12.0\]); //'x=1.2E+001' //科学记数法  
Format('x=%%', \[\]); //'x=%' //得到"%"  
S := Format('%s%d', \[S, I\]); //S := S + StrToInt(I); //连接字符串  
参考 proceduer SysUtils.FmtStr  
例子 Edit1.Text := Format(Edit2.Text, \[StrToFloatDef(Edit.3.Text, 0)\]);  
━━━━━━━━━━━━━━━━━━━━━  
首部 procedure FmtStr(var Result: string; const Format: string; const Args:  
array of const); $\[SysUtils.pas  
功能 按指定方式格式化一个数组常量的字符形式返回  
说明 <参见Format>  
参考 function SysUtils.FormatBuf;function System.Length;function  
System.SetLength  
例子 <参见Format>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrFmt(Buffer, Format: PChar; const Args: array of const):  
PChar; $\[SysUtils.pas  
功能 返回按指定方式格式化一个数组常量的字符指针形式  
说明 如果Buffer和Format其中只要有一个为nil则返回nil  
参考 function SysUtils.FormatBuf  
例子 <参见Format>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar;  
const Args: array of const): PChar; $\[SysUtils.pas  
功能 返回按指定方式和长度格式化一个数组常量的字符指针形式  
说明 StrLFmt(vBuffer, 6, '%d|12345', \[1024\]) = '1024|1';  
参考 function SysUtils.FormatBuf  
例子 <参见Format>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen:  
Cardinal; const Args: array of const): Cardinal; $\[SysUtils.pas  
功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中  
说明 <NULL>  
参考 <NULL>  
例子 <参见Format>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideFormat(const Format: WideString; const Args: array of  
const): WideString; $\[SysUtils.pas  
功能 返回按指定方式格式化一个数组常量的多字节字符形式  
说明 <NULL>  
参考 procedure SysUtils.WideFmtStr  
例子 <参见Format>  
━━━━━━━━━━━━━━━━━━━━━  
首部 procedure WideFmtStr(var Result: WideString; const Format: WideString;  
const Args: array of const); $\[SysUtils.pas  
功能 按指定方式格式化一个数组常量的多字节字符形式返回  
说明 <NULL>  
参考 function SysUtils.WideFormatBuf  
例子 <参见Format>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format;  
FmtLen: Cardinal; const Args: array of const): Cardinal; $\[SysUtils.pas  
功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中  
说明 <NULL>  
参考 <NULL>  
例子 <参见Format>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FloatToStr(Value: Extended): string; $\[SysUtils.pas  
功能 返回浮点数Value转换成字符串  
说明 当浮点数大等于1E15将采用科学记数法  
参考 function SysUtils.FloatToText  
例子 Edit1.Text := FloatToStr(Now);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CurrToStr(Value: Currency): string; $\[SysUtils.pas  
功能 返回货币数Value转换成字符串  
说明 货币数只保留四位小数  
参考 function SysUtils.FloatToText  
例子 Edit1.Text := CurrToStr(Now);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FloatToCurr(const Value: Extended): Currency; $\[SysUtils.pas  
功能 返回浮点数Value转换成货币数  
说明 如果浮点数Value超出范围则将触发异常  
参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency  
例子 Edit1.Text := CurrToStr(FloatToCurr(Now));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision,  
Digits: Integer): string; $\[SysUtils.pas  
功能 返回浮点数以指定格式转换成字符串  
说明 Precision指定精度;Digits指定小数宽度  
参考 function SysUtils.FloatToText  
例子  
///Begin FloatToStrF  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
Memo1.Lines.Values\['ffGeneral'\] := FloatToStrF(StrToFloatDef(Edit1.Text,  
0),  
ffGeneral, SpinEdit1.Value, SpinEdit2.Value);  
Memo1.Lines.Values\['ffExponent'\] := FloatToStrF(StrToFloatDef(Edit1.Text,  
0),  
ffExponent, SpinEdit1.Value, SpinEdit2.Value);  
Memo1.Lines.Values\['ffFixed'\] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),  
ffFixed, SpinEdit1.Value, SpinEdit2.Value);  
Memo1.Lines.Values\['ffNumber'\] := FloatToStrF(StrToFloatDef(Edit1.Text,  
0),  
ffNumber, SpinEdit1.Value, SpinEdit2.Value);  
Memo1.Lines.Values\['ffCurrency'\] := FloatToStrF(StrToFloatDef(Edit1.Text,  
0),  
ffCurrency, SpinEdit1.Value, SpinEdit2.Value);  
end;  
///End FloatToStrF  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits:  
Integer): string; $\[SysUtils.pas  
功能 返回货币类型以指定格式转换成字符串  
说明 Digits指定小数宽度  
参考 function SysUtils.FloatToText  
例子  
///Begin CurrToStrF  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
Memo1.Lines.Values\['ffGeneral'\] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),  
ffGeneral, SpinEdit1.Value);  
Memo1.Lines.Values\['ffExponent'\] := CurrToStrF(StrToCurrDef(Edit1.Text,  
0),  
ffExponent, SpinEdit1.Value);  
Memo1.Lines.Values\['ffFixed'\] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),  
ffFixed, SpinEdit1.Value);  
Memo1.Lines.Values\['ffNumber'\] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),  
ffNumber, SpinEdit1.Value);  
Memo1.Lines.Values\['ffCurrency'\] := CurrToStrF(StrToCurrDef(Edit1.Text,  
0),  
ffCurrency, SpinEdit1.Value);  
end;  
///End CurrToStrF  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FloatToText(BufferArg: PChar; const Value; ValueType:  
TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer;  
$\[SysUtils.pas  
功能 返回浮点数以指定格式转换成指针字符串的内存大小  
说明 Precision指定精度;Digits指定小数宽度  
参考 <NULL>  
例子  
///Begin FloatToText  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
E: Extended;  
begin  
E := StrToFloatDef(Edit1.Text, 0);  
SpinEdit3.Value := FloatToText(vBuffer, E,  
fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value);  
Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value);  
end;  
///End FloatToText(  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FormatFloat(const Format: string; Value: Extended): string;  
$\[SysUtils.pas  
功能 返回浮点数类型以指定格式字符串Format转换成字符串  
说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00'  
参考 function SysUtils.FloatToTextFmt  
例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FormatCurr(const Format: string; Value: Currency): string;  
$\[SysUtils.pas  
功能 返回货币类型以指定格式字符串Format转换成字符串  
说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00'  
参考 function SysUtils.FloatToTextFmt  
例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType:  
TFloatValue; Format: PChar): Integer; $\[SysUtils.pas  
功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小  
说明 ValueType指定无类型参数Value的类型  
参考 <NULL>  
例子  
///Begin FloatToTextFmt  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vBuffer: array\[0..255\] of Char;  
E: Extended;  
begin  
E := StrToFloatDef(Edit1.Text, 0);  
SpinEdit1.Value := FloatToTextFmt(vBuffer, E,  
fvExtended, PChar(Edit2.Text));  
Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value);  
end;  
///End FloatToTextFmt  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToFloat(const S: string): Extended; $\[SysUtils.pas  
功能 返回字符串S转换成浮点数  
说明 字符串非浮点数表达时将引起异常  
参考 function SysUtils.TextToFloat  
例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end;  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToFloatDef(const S: string; const Default: Extended):  
Extended; $\[SysUtils.pas  
功能 返回字符串S转换成浮点数  
说明 字符串非浮点数表达时则返回默认值Default  
参考 function SysUtils.TextToFloat  
例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end;  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean;  
overload; $\[SysUtils.pas  
首部 function TryStrToFloat(const S: string; out Value: Single): Boolean;  
overload; $\[SysUtils.pas  
首部 function TryStrToFloat(const S: string; out Value: Double): Boolean;  
overload; $\[SysUtils.pas  
功能 返回字符串S转换成浮点数Value是否成功  
说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值  
参考 function SysUtils.TextToFloat  
例子  
///Begin TryStrToFloat  
procedure TForm1.Button1Click(Sender: TObject);  
var  
E: Extended;  
begin  
CheckBox1.Checked := TryStrToFloat(Edit1.Text, E);  
Edit2.Text := FormatFloat('', E);  
end;  
///End TryStrToFloat  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToCurr(const S: string): Currency; $\[SysUtils.pas  
功能 返回字符串S转换成货币数  
说明 字符串非货币数表达时将引起异常  
参考 function SysUtils.TextToFloat  
例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end;  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToCurrDef(const S: string; const Default: Currency):  
Currency; $\[SysUtils.pas  
功能 返回字符串S转换成货币数  
说明 字符串非货币数表达时则返回默认值Default  
参考 function SysUtils.TextToFloat  
例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end;  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean;  
$\[SysUtils.pas  
功能 返回字符串S转换成货币数Value是否成功  
说明 字符串非货币数表达时返回False并且Value将输出为不确定的值  
参考 function SysUtils.TextToFloat  
例子  
///Begin TryStrToCurr  
procedure TForm1.Button1Click(Sender: TObject);  
var  
C: Currency;  
begin  
CheckBox1.Checked := TryStrToCurr(Edit1.Text, C);  
Edit2.Text := FormatCurr('', C);  
end;  
///End TryStrToCurr  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue):  
Boolean; $\[SysUtils.pas  
功能 返回将指针字符串Buffer转换成无类型变量Value  
说明 ValueType指定无类型参数Value的类型  
参考 <NULL>  
例子  
///Begin TextToFloat  
procedure TForm1.Button1Click(Sender: TObject);  
var  
E: Extended;  
begin  
CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E,  
fvExtended);  
Edit2.Text := FormatFloat('', E);  
end;  
///End TextToFloat  
━━━━━━━━━━━━━━━━━━━━━  
首部 function DateToStr(const DateTime: TDateTime): string; $\[SysUtils.pas  
功能 返回日期DateTime转换成字符串  
说明 转换格式由系统变量ShortDateFormat控制  
参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat  
例子 Edit1.Text := DateToStr(Date);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TimeToStr(const DateTime: TDateTime): string; $\[SysUtils.pas  
功能 返回时间DateTime转换成字符串  
说明 转换格式由系统变量LongTimeFormat控制  
参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat  
例子 Edit1.Text := TimeToStr(Date);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function DateTimeToStr(const DateTime: TDateTime): string;  
$\[SysUtils.pas  
功能 返回日期时间DateTime转换成字符串  
说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制  
参考 function SysUtils.DateTimeToString  
例子 Edit1.Text := DateTimeToStr(Now);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToDate(const S: string): TDateTime; $\[SysUtils.pas  
功能 返回字符串S转换成日期  
说明 字符非日期表达时将引起异常  
参考 function SysUtils.TryStrToDate  
例子 DateTimePicker1.Date := StrToDate(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToDateDef(const S: string; const Default: TDateTime):  
TDateTime; $\[SysUtils.pas  
功能 返回字符串S转换成日期  
说明 字符非日期表达时则返回默认值Default  
参考 function SysUtils.TryStrToDate  
例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean;  
$\[SysUtils.pas  
功能 返回字符串S转换成日期Value是否成功  
说明 字符非日期表达时返回False并且Value将输出为0  
参考 <NULL>  
例子  
///Begin TryStrToDate  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vDateTime: TDateTime;  
begin  
CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime);  
DateTimePicker1.Date := vDateTime;  
end;  
///End TryStrToDate  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToTime(const S: string): TDateTime; $\[SysUtils.pas  
功能 返回字符串S转换成时间  
说明 字符非时间表达时将引起异常  
参考 function SysUtils.TryStrToTime  
例子 DateTimePicker1.Time := StrToTime(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToTimeDef(const S: string; const Default: TDateTime):  
TDateTime; $\[SysUtils.pas  
功能 返回字符串S转换成时间  
说明 字符非时间表达时则返回默认值Default  
参考 function SysUtils.TryStrToTime  
例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean;  
$\[SysUtils.pas  
功能 返回字符串S转换成时间Value是否成功  
说明 字符非时间表达时返回False并且Value将输出为0  
参考 <NULL>  
例子  
///Begin TryStrToTime  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vDateTime: TDateTime;  
begin  
CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime);  
DateTimePicker1.Time := vDateTime;  
end;  
///End TryStrToTime  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToDateTime(const S: string): TDateTime; $\[SysUtils.pas  
功能 返回字符串S转换成日期时间  
说明 字符非日期时间表达时将引起异常  
参考 function SysUtils.TryStrToDateTime  
例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrToDateTimeDef(const S: string; const Default: TDateTime):  
TDateTime; $\[SysUtils.pas  
功能 返回字符串S转换成日期时间  
说明 字符非日期时间表达时则返回默认值Default  
参考 function SysUtils.TryStrToDateTime  
例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function TryStrToDateTime(const S: string; out Value: TDateTime):  
Boolean; $\[SysUtils.pas  
功能 返回字符串S转换成日期时间Value是否成功  
说明 字符非日期时间表达时返回False并且Value将输出为0  
参考 <NULL>  
例子  
///Begin TryStrToDateTime  
procedure TForm1.Button1Click(Sender: TObject);  
var  
vDateTime: TDateTime;  
begin  
CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime);  
Edit2.Text := DateTimeToStr(vDateTime);  
end;  
///End TryStrToDateTime  
━━━━━━━━━━━━━━━━━━━━━  
首部 procedure DateTimeToString(var Result: string; const Format: string;  
DateTime: TDateTime); $\[SysUtils.pas  
功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中  
说明 <参见FormatDateTime>  
参考 function System.SetString  
例子 <参见FormatDateTime>  
━━━━━━━━━━━━━━━━━━━━━  
首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default:  
string): string; platform; $\[SysUtils.pas  
功能 返回当前系统指定参数的字符串值  
说明 GetLocaleStr(GetThreadLocale, LOCALE\_SLANGUAGE, '') = '中文(中国)'  
参考 function Windows.GetLocaleInfo  
例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>');  
━━━━━━━━━━━━━━━━━━━━━  
首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char):  
Char; platform; $\[SysUtils.pas  
功能 返回当前系统指定参数的字符值  
说明 GetLocaleChar(GetThreadLocale, LOCALE\_STHOUSAND, \#0) = ','  
参考 function Windows.GetLocaleInfo  
例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE\_SLANGUAGE, \#0);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function ByteType(const S: string; Index: Integer): TMbcsByteType;  
$\[SysUtils.pas  
功能 返回字符串S位置Index上的字符在MBCS中类型  
说明 多字节字符系统:Multi-Byte Character System (MBCS)  
参考 var SysUtils.SysLocale  
例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;  
$\[SysUtils.pas  
功能 返回指针字符串Str位置Index上的字符在MBCS中类型  
说明 Index从0开始  
参考 var SysUtils.SysLocale  
例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text),  
SpinEdit2.Value));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer;  
$\[SysUtils.pas  
功能 返回字符串S中有多少个多字节字符  
说明 MaxLen指定处理字符个数  
参考 function SysUtils.ByteToCharIndex  
例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer;  
$\[SysUtils.pas  
功能 返回字符串S中有多少个字符  
说明 MaxLen指定处理多字节字符个数  
参考 var SysUtils.SysLocale  
例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function ByteToCharIndex(const S: string; Index: Integer): Integer;  
$\[SysUtils.pas  
功能 返回字符位置对应的多字节字符位置  
说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2  
参考 function SysUtils.NextCharIndex  
例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CharToByteIndex(const S: string; Index: Integer): Integer;  
$\[SysUtils.pas  
功能 返回多字节字符位置对应的字符起始位置  
说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3  
参考 function System.Length  
例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrCharLength(const Str: PChar): Integer; $\[SysUtils.pas  
功能 返回第一个字符的宽度  
说明 参数为空则返回0  
参考 function Windows.CharNext  
例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StrNextChar(const Str: PChar): PChar; $\[SysUtils.pas  
功能 返回字符指针Str的下一个字符指针  
说明 StrNextChar('1234') = '234';  
参考 function Windows.CharNext  
例子 Edit2.Text := StrNextChar(PChar(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function CharLength(const S: String; Index: Integer): Integer;  
$\[SysUtils.pas  
功能 返回字符串中指定位置的字符宽度  
说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2  
参考 function System.Assert;function SysUtils.StrCharLength  
例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function NextCharIndex(const S: String; Index: Integer): Integer;  
$\[SysUtils.pas  
功能 返回下一个字符的位置  
说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5  
参考 function System.Assert;function SysUtils.StrCharLength  
例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean;  
$\[SysUtils.pas  
功能 返回字符串S中指定位置Index上是否是一个路径分隔符  
说明 IsPathDelimiter('C:/Windows', 3) = True  
参考 const SysUtils.PathDelim;function SysUtils.ByteType  
例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IsDelimiter(const Delimiters, S: string; Index: Integer):  
Boolean; $\[SysUtils.pas  
功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters  
说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True  
参考 function SysUtils.ByteType  
例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text,  
SpinEdit1.Value);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IncludeTrailingPathDelimiter(const S: string): string;  
$\[SysUtils.pas  
功能 返回包括最后路径分隔符  
说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回  
参考 function SysUtils.IsPathDelimiter;function System.Length  
例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function IncludeTrailingBackslash(const S: string): string; platform;  
$\[SysUtils.pas  
功能 返回包括最后斜线  
说明 Result := IncludeTrailingPathDelimiter(S);  
参考 function SysUtils.IncludeTrailingPathDelimiter  
例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function ExcludeTrailingPathDelimiter(const S: string): string;  
$\[SysUtils.pas  
功能 返回排除最后路径分隔符  
说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回  
参考 function SysUtils.IsPathDelimiter;function System.Length;function  
System.SetLength  
例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function ExcludeTrailingBackslash(const S: string): string; platform;  
$\[SysUtils.pas  
功能 返回排除最后斜线  
说明 Result := ExcludeTrailingPathDelimiter(S)  
参考 function SysUtils.ExcludeTrailingPathDelimiter  
例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function LastDelimiter(const Delimiters, S: string): Integer;  
$\[SysUtils.pas  
功能 返回最后一个分隔符的位置  
说明 LastDelimiter('.', 'kingron.myetang.com') = 16  
参考 function SysUtils.StrScan;function SysUtils.ByteType  
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiCompareFileName(const S1, S2: string): Integer;  
$\[SysUtils.pas  
功能 返回比较两个文件名  
说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写  
参考 function SysUtils.AnsiCompareStr  
例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function SameFileName(const S1, S2: string): Boolean; $\[SysUtils.pas  
功能 返回两个文件名是否相等  
说明 区分大小写  
参考 function SysUtils.AnsiCompareFileName  
例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiLowerCaseFileName(const S: string): string; $\[SysUtils.pas  
功能 返回小写文件名  
说明 在非多字节字符系统上相当于AnsiLowerCase  
参考 function SysUtils.AnsiLowerCase  
例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiUpperCaseFileName(const S: string): string; $\[SysUtils.pas  
功能 返回大写文件名  
说明 在非多字节字符系统上相当于AnsiUpperCase  
参考 function SysUtils.AnsiUpperCase  
例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiPos(const Substr, S: string): Integer; $\[SysUtils.pas  
功能 返回子串Substr在字符中第一次出现的位置  
说明 不存在则返回0  
参考 SysUtils.AnsiStrPos  
例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text);  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $\[SysUtils.pas  
功能 返回指针子串Substr在指针字符中第一次出现的指针位置  
说明 不存在则返回nil  
参考 function SysUtils.StrByteType  
例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $\[SysUtils.pas  
功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址  
说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com'  
参考 function SysUtils.AnsiStrScan  
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');  
━━━━━━━━━━━━━━━━━━━━━  
首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $\[SysUtils.pas  
功能 返回在指针字符串Str搜索字符Chr第一个出现的地址  
说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com'  
参考 function SysUtils.StrScan  
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags:  
TReplaceFlags): string; $\[SysUtils.pas  
功能 返回替换后的字符串  
说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写  
参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function  
System.Copy  
例子  
///Begin StringReplace  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
Memo1.Lines.Values\['\[\]'\] :=  
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, \[\]);  
Memo1.Lines.Values\['\[rfReplaceAll\]'\] :=  
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, \[rfReplaceAll\]);  
Memo1.Lines.Values\['\[rfIgnoreCase\]'\] :=  
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, \[rfIgnoreCase\]);  
Memo1.Lines.Values\['\[rfReplaceAll, rfIgnoreCase\]'\] :=  
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, \[rfReplaceAll,  
rfIgnoreCase\]);  
end;  
///End StringReplace  
━━━━━━━━━━━━━━━━━━━━━  
首部 function StringToGUID(const S: string): TGUID; $\[SysUtils.pas  
功能 返回字符串S转换成全局标识  
说明 如果字符串非法将触发异常  
参考 fuction Windows.Succeeded  
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
首部 function GUIDToString(const GUID: TGUID): string; $\[SysUtils.pas  
功能 返回全局标识GUID转换成字符串  
说明 <NULL>  
参考 fuction Windows.Succeeded  
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));  
━━━━━━━━━━━━━━━━━━━━━  
  
  
  
  
Delphi函数手册  
abort 函数 引起放弃的意外处理  
  
abs 函数 绝对值函数  
  
addexitproc 函数 将一过程添加到运行时库的结束过程表中  
  
addr 函数 返回指定对象的地址  
  
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列  
  
align 属性 使控件位于窗口某部分  
  
alignment 属性 控件标签的文字位置  
  
allocmem 函数 在堆栈上分配给定大小的块  
  
allowgrayed 属性 允许一个灰度选择  
  
ansicomparestr 函数 比较字符串（区分大小写）  
  
ansicomparetext 函数 比较字符串（不区分大小写）  
  
ansilowercase 函数 将字符转换为小写  
  
ansiuppercase 函数 将字符转换为大写  
  
append 函数 以附加的方式打开已有的文件  
  
arctan 函数 余切函数  
  
assignfile 函数 给文件变量赋一外部文件名  
  
assigned 函数 测试函数或过程变量是否为空  
  
autosize 属性 自动控制标签的大小  
  
backgrounddi2001.jpg 属性 背景色  
  
beginthread 函数 以适当的方式建立用于内存管理的线程  
  
bevelinner 属性 控件方框的内框方式  
  
bevelouter 属性 控件方框的外框方式  
  
bevelwidth 属性 控件方框的外框宽度  
  
blockread 函数 读一个或多个记录到变量中  
  
blockwrite 函数 从变量中写一个或多个记录  
  
borderstyle 属性 边界类型  
  
borderwidth 属性 边界宽度  
  
break 命令 终止for、while、repeat循环语句  
  
brush 属性 画刷  
  
caption 属性 标签文字的内容  
  
changefileext 函数 改变文件的后缀  
  
chdir 函数 改变当前目录  
  
checked 属性 确定复选框选中状态  
  
chr 函数 返回指定序数的字符  
  
closefile 命令 关闭打开的文件  
  
color 属性 标签的颜色  
  
columns 属性 显示的列数  
  
comparestr 函数 比较字符串（区分大小写）  
  
concat 函数 合并字符串  
  
continue 命令 继续for、while、repeat的下一个循环  
  
copy 函数 返回一字符串的子串  
  
cos 函数 余弦函数  
  
ctl3d 属性 是否具有3d效果  
  
cursor 属性 鼠标指针移入后的形状  
  
date 函数 返回当前的日期  
  
datetimetofiledate 函数 将delphi的日期格式转换为dos的日期格式  
  
datetimetostr 函数 将日期时间格式转换为字符串  
  
datetimetostring 函数 将日期时间格式转换为字符串  
  
datetostr 函数 将日期格式转换为字符串  
  
dayofweek 函数 返回星期的数值  
  
dec 函数 递减变量值  
  
decodedate 函数 将日期格式分解为年月日  
  
decodetime 函数 将时间格式分解为时、分、秒、毫秒  
  
delete 函数 从字符串中删除子串  
  
deletefile 命令 删除文件  
  
diskfree 函数 返回剩余磁盘空间的大小  
  
disksize 函数 返回指定磁盘的容量  
  
dispose 函数 释放动态变量所占的空间  
  
disposestr 函数 释放字符串在堆栈中的内存空间  
  
ditherbackgrounddi2001.jpg?使背景色的色彩加重或减少50%  
  
dragcursor 属性 当鼠标按下时光标的形状  
  
dragmode 属性 按动的作用方式  
  
dropdowncount 属性 容许的显示数据项的数目  
  
editmask 属性 编辑模式  
  
enabled 属性 是否使标签呈现打开状态  
  
encodedate 函数 将年月日合成为日期格式  
  
encodetime 函数 将时、分、秒、毫秒合成为时间格式  
  
endmargin 属性 末尾边缘  
  
eof 函数 对有类型或无类型文件测试是否到文件尾  
  
eoln 函数 返回文本文件的行结束状态  
  
erase 命令 删除外部文件  
  
exceptaddr 函数 返回引起当前意外的地址  
  
exclude 函数 从集合中删除一些元素  
  
exceptobject 函数 返回当前意外的索引  
  
exit 命令 立即从当前的语句块中退出  
  
exp 函数 指数函数  
  
expandfilename 函数 返回包含绝对路径的字符串  
  
extendedselect 属性 是否允许存在选择模式，true时，multiselect才有意义  
  
extractfiledir 函数 返回驱动器和路径  
  
extractfileext 函数 返回文件的后缀  
  
extractfilename 函数 返回文件名  
  
extractfilepath 函数 返回指定文件的路径  
  
fileage 函数 返回文件已存在的时间  
  
fileclose 命令 关闭指定的文件  
  
filecreate 命令 用指定的文件名建立新文件  
  
filedatetodatetime 函数 将dos的日期格式转换为delphi的日期格式  
  
fileexists 函数 检查文件是否存在  
  
filegatattr 函数 返回文件的属性  
  
filegetdate 函数 返回文件的dos日期时间标记  
  
fileopen 命令 用指定的存取模式打开指定的文件  
  
filepos 函数 返回文件的当前指针位置  
  
fileread 命令 从指定的文件读取  
  
filesearch 命令 在目录中搜索指定的文件  
  
fileseek 函数 改变文件的指针  
  
filesetattr 函数 设置文件属性  
  
filesetdate 函数 设置文件的dos日期时间标记  
  
filesize 函数 返回当前文件的大小  
  
filewrite 函数 对指定的文件做写操作  
  
fillchar 函数 用指定的值填充连续字节的数  
  
findclose 命令 终止findfirst/findnext序列  
  
findfirst 命令 对指定的文件名及属性搜索目录  
  
findnext 命令 返回与文件名及属性匹配的下一入口  
  
floattodecimal 函数 将浮点数转换为十进制数  
  
floattostrf 函数 将浮点数转换为字符串  
  
floattostr 函数 将浮点数转换为字符串  
  
floattotext 函数 将给定的浮点数转换为十进制数  
  
floattotextfmt 函数 将给定的浮点数转换为十进制数  
  
flush 函数 将缓冲区的内容刷新到输出的文本文件中  
  
fmtloadstr 函数 从程序的资源字符串表中装载字符串  
  
fmtstr 函数 格式化一系列的参数，其结果以参数result返回  
  
font 属性 设置字体  
  
format 函数 格式化一系列的参数并返回pascal字符串  
  
formatbuf 函数 格式化一系列的参数  
  
formatdatetime 函数 用指定的格式来格式化日期和时间  
  
formatfloat 函数 指定浮点数格式  
  
frac 函数 返回参数的小数部分  
  
freemem 函数 按给定大小释放动态变量所占的空间  
  
getdir 返回指定驱动器的当前目录  
  
getheapstatus 返回内存管理器的当前状态  
  
getmem 建立一指定大小的动态变量，并将指针指向该处  
  
getmemorymanager 返回内存管理器的入口点  
  
glyph 函数 按钮上的图象  
  
halt 停止程序的执行并返回到操作系统  
  
hi 返回参数的高地址位  
  
high 返回参数的上限值  
  
hint 属性 提示信息  
  
int 返回参数的整数部分  
  
include 添加元素到集合中  
  
insert 在字符串中插入子串  
  
inttohex 将整型数转换为十六进制数  
  
inttostr 将整型数转换为字符串  
  
ioresult 返回最新的i/o操作完成状态  
  
isvalidident 测试字符串是否为有效的标识符  
  
items 属性 默认显示的节点  
  
kind 属性 摆放样式  
  
largechange 属性 最大改变值  
  
layout 属性 图象布局  
  
length 函数 返回字符串的动态长度  
  
lines 属性 缺省显示内容  
  
ln 函数 自然对数函数  
  
lo 函数 返回参数的低地址位  
  
loadstr 函数 从应用程序的可执行文件中装载字符资源  
  
lowercase 函数 将给定的字符串变为小写  
  
low 函数 返回参数的下限值  
  
max 属性 最大值  
  
maxlength 属性 最大长度  
  
min 属性 最小值  
  
mkdir 命令 建立一子目录  
  
move 函数 从源到目标复制字节  
  
multiselect 属性 允许同时选择几个数据项  
  
name 属性 控件的名字  
  
new 函数 建立新的动态变量并设置一指针变量指向他  
  
newstr 函数 在堆栈上分配新的字符串  
  
now 函数 返回当前的日期和时间  
  
odd 测试参数是否为奇数  
  
onactivate 事件 焦点移到窗体上时触发  
  
onclick 事件 单击窗体空白区域触发  
  
ondblclick 事件 双击窗体空白区域触发  
  
onclosequery 事件 使用者试图关闭窗体触发  
  
onclose 事件 窗体关闭后才触发  
  
oncreate 事件 窗体第一次创建时触发  
  
ondeactivate 事件 用户切换到另一应用程序触发  
  
ondragdrop 事件 鼠标拖放操作结束时触发  
  
ondragover 事件 有其他控件从他上面移过触发  
  
onmousedown 事件 按下鼠标键时触发  
  
onmouseup 事件 释放鼠标键时触发  
  
onmousemove 事件 移动鼠标时触发  
  
onhide 事件 隐藏窗体时触发  
  
onkeydown 事件 按下键盘某键时触发  
  
onkeypress 事件 按下键盘上的单个字符键时触发  
  
onkeyup 事件 释放键盘上的某键时触发  
  
onpaint 事件 窗体上有新部分暴露出来触发  
  
onresize 事件 重新调整窗体大小触发  
  
onshow 事件 在窗体实际显示之前瞬间触发  
  
ord 返回序数类的序数  
  
outlinestyle 属性 类型  
  
outofmemoryerror 引起outofmemory意外  
  
pageindex 属性 页索引  
  
pages 属性 页  
  
paramcount 函数 返回在命令行上传递给程序的参数数量  
  
paramstr 函数 返回指定的命令行参数  
  
pen 属性 画刷设置  
  
pi 函数 返回圆周率pi  
  
picture 属性 显示图象  
  
pictureclosed 属性 设置closed位图  
  
pictureleaf 属性 设置leaf位图  
  
pictureminus 属性 设置minus位图  
  
pictureopen 属性 设置open位图  
  
pictureplus 属性 设置plus位图  
  
pos 函数 在字符串中搜索子串  
  
pred 函数 返回先前的参数  
  
random 函数 返回一随机函数  
  
randomize 函数 用一随机数初始化内置的随机数生成器  
  
read 函数 对有格式的文件，读一文件组件到变量中；  
  
对文本文件，读一个或多个值到一个或多个变量中  
  
readln 函数 执行read过程，然后跳到文件下一行  
  
readonly 属性 只读属性  
  
reallocmem 函数 分配一动态变量  
  
rename 函数 重命名外部文件  
  
renamefile 函数 对文件重命名  
  
reset 函数 打开已有的文件  
  
rewrite 函数 建立并打开一新的文件  
  
rmdir 函数 删除空的子目录  
  
round 函数 将实数值舍入为整型值  
  
runerror 函数 停止程序的执行  
  
scrollbars 属性 滚动条状态  
  
seek 函数 将文件的当前指针移动到指定的组件上  
  
seekeof 函数 返回文件的文件结束状态  
  
seekeoln 函数 返回文件的行结束状态  
  
selectedcolor 属性 选中颜色  
  
setmemorymanager 函数 设置内存管理器的入口点  
  
settextbuf 函数 给文本文件指定i/o缓冲区  
  
shape 属性 显示的形状  
  
showexception 函数 显示意外消息与地址  
  
sin 函数 正弦函数  
  
sizeof 函数 返回参数所占的字节数  
  
smallchange 属性 最小改变值  
  
sorted 属性 是否允许排序  
  
sqr 函数 平方函数  
  
sqrt 函数 平方根函数  
  
startmargin 属性 开始边缘  
  
state 属性 控件当前状态  
  
str 函数 将数值转换为字符串  
  
stralloc 函数 给以null结束的字符串分配最大长度-1的缓冲区  
  
strbufsize 函数 返回存储在由stralloc分配的字符缓冲区的最大字符数  
  
strcat 函数 将一字符串附加到另一字符串尾并返回合并的字符串  
  
strcomp 函数 比较两个字符串  
  
strcopy 函数 将一个字符串复制到另一个字符串中  
  
strdispose 函数 释放堆栈上的字符串  
  
strecopy 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针  
  
strend 函数 返回指向字符串尾部的指针  
  
stretch 属性 自动适应控件的大小  
  
strfmt 函数 格式化一系列的参数  
  
stricomp 函数 比较两个字符串（不区分大小写）  
  
stringtowidechar 函数 将ansi字符串转换为unicode字符串  
  
strlcat 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串  
  
strlcomp 函数 以最大长度比较两个字符串  
  
strlcopy 函数 将一个字符串中的字符复制到另一个字符串中  
  
strlen 函数 返回字符串中的字符数  
  
strlfmt 函数 格式化一系列的参数，其结果中包含有指向目标缓冲区的指针  
  
strlicomp 函数 以最大长度比较两个字符串（不区分大小写）  
  
strlower 函数 将字符串中的字符转换为小写  
  
strmove 函数 将一个字符串中的字符复制到另一个字符串中  
  
strnew 函数 在堆栈上分配一个字符串  
  
strpas 函数 将以null结束的字符串转换为pascal类的字符串  
  
strpcopy 函数 将pascal类的字符串复制为以null结束的字符串  
  
strplcopy 函数 从pascal类的最大长度字符串复制为以null结束的字符串  
  
strpos 函数 返回一个字符串在另一个字符串中首次出现指针  
  
strrscan 函数 返回字符串中最后出现字符的指针  
  
strscan 函数 返回字符串中出现首字符的指针  
  
strtodate 函数 将字符串转换为日期格式  
  
strtodatetime 函数 将字符串转换为日期/时间格式  
  
strtofloat 函数 将给定的字符串转换为浮点数  
  
strtoint 函数 将字符串转换为整型  
  
strtointdef 函数 将字符串转换为整型或默认值  
  
strtotime 函数 将字符串转换为时间格式  
  
strupper 函数 将字符串中的字符转换为大写  
  
style 属性 类型选择  
  
suce 函数 返回后继的参数  
  
swap 函数 交换参数的高低地址位  
  
tabs 属性 标记每一项的内容  
  
tabindex 属性 标记索引  
  
text 属性 显示的文本  
  
texttofloat 函数 将字符串（以null结束的格式）转换为浮点数  
  
time 函数 返回当前的时间  
  
timetostr 函数 将时间格式转换为字符串  
  
trim 函数 从给定的字符串中删除前导和尾部的空格及控制字符  
  
trimleft 函数 从给定的字符串中删除首部的空格及控制字符  
  
trimright 函数 从给定的字符串中删除尾部的空格及控制字符  
  
trunc 函数 将实型值截取为整型值  
  
truncate 函数 截去当前文件位置后的内容  
  
unselectedcolor 属性 未选中颜色  
  
upcase 将字符转换为大写  
  
uppercase 将给定的字符串变为大写  
  
val 函数 将字符串转换为整型值  
  
vararraycreate 函数 以给定的界限和维数建立变体数组  
  
vararraydimcount 函数 返回给定变体的维数  
  
vararrayhighbound 函数 返回给定变体数组维数的上界  
  
vararraylock 函数 锁定给定的变体数组  
  
vararraylowbound 函数 返回给定变体数组维数的下界  
  
vararrayof 函数 返回指定变体的数组元素  
  
vararrayredim 函数 通过改变上限来调整变体的大小  
  
vararrayunlock 函数 解锁指定的变体数组  
  
varastype 函数 将变体转换为指定的类型  
  
varcase 函数 将变体转换为指定的类型并保存他  
  
varclear 函数 清除指定的变体  
  
varcopy 函数 将指定的变体复制为指定的变体  
  
varformdatetime 函数 返回包含日期时间的变体  
  
varisarray 函数 测试变体是否为数组  
  
varisempty 函数 测试变体是否为unassigned  
  
varisnull 函数 测试变体是否为null  
  
vartodatetime 函数 将给定的变体转换为日期时间  
  
vartype 函数 将变体转换为指定的类型并保存他  
  
visible 属性 控件的可见性  
  
wantreturns 属性 为true时，按回车键产生一个回车符；  
  
为false时，按下ctrl+enter才产生回车符  
  
write 命令 对有格式的文件，写一变量到文件组件中；  
  
对文本文件，写一个或多个值到文件中  
  
writeln 命令 执行write过程，然后输出一行结束标志  
  
widecharlentostring 函数 将ansi字符串转换为unicode字符串  
  
widecharlentostrwar 函数 将unicode字符串转换为ansi字符串变量  
  
widechartostring 函数 将unicode字符串转换为ansi字符串  
  
widechartostrvar 函数 将unicode字符串转换为ansi字符串变量

uses windows,messages,sysutils,forms,classes,registry,DB,dbtables,BDE,shellapi;  
  
\{================= String Utils =================\}  
  
function slash(value:string):string;  
\{ensures that value has '/' as last character (for directory strings)\}  
\{example: slash('c:/My Documents') = 'c:/My Documents/'\}  
\{example: slash('D:/') = 'D:/' \}  
  
function capfirst(value:string):string;  
\{Capitalise first character of each word, lowercase remaining chars\}  
\{example: capfirst('bOrLANd delPHi FOR windOWs') = 'Borland Delphi For Windows'\}  
  
function striptags(value:string):string;  
\{strip HTML tags from value\}  
\{example: striptags('<TR><TD Align="center">Hello World</TD>') = 'Hello World'\}  
  
function striphtmidents(value:string):string;  
\{strip common html identifiers (&nbsp, &reg, &copy) from value\}  
  
function replace(str,s1,s2:string;casesensitive:boolean):string;  
\{replace all incidences of s1 in str with s2\}  
\{example: replace('We know what we want','we','I',false) = 'I Know what I want'\}  
  
function replacechar(s:string;c:char;i:integer):string;  
\{replace character at position i in string s with character c\}  
\{example: replacechar('charactar','e',8) = 'character\}  
  
function CopyFromChar(s:string;c:char;l:integer):string;  
\{copy l characters from string s starting at first incidence of c\}  
\{example: Copyfromchar('Borland Delphi','a',3) = 'and'\}  
  
procedure splitstring(s:string;delim:char;ts:tstrings);  
\{splits a compound string (s) delimited by (delim) into TStrings (ts)\}  
\{example SplitString('Tony,Blair,Downing Street,London',',',ts) returns:  
ts.count=4  
ts\[0\]='Tony'  
ts\[1\]='Blair'  
ts\[2\]='Downing Street'  
ts\[3\]='London'\}  
  
function posnext(s,srch:string;lastpos:integer):integer;  
\{repeatedly search for position of srch within s starting at lastpos\}  
\{example: to find the positions of 'ab' within s\}  
\{s:='abcdefgsabcvderabnbvcswahgabfabxserta';  
x:=1;  
while x<>0 do  
      begin  
      x:=posnext(s,'ab',x);  
      (do something with the value x here...)  
      end;  
\}  
  
function currstrtofloat(value:string):single;  
\{converts currency style strings to a floating point value\}  
\{example: currstrtofloat('$100,000.45')=100000.45\}  
  
function strtofloattry(const value:string):extended;  
\{tries to convert value to a valid floating point value.returns zero if it fails\}  
\{example: strtofloattry('a100d3.65')=1003.65\}  
\{example: strtofloattry('notthistime')=0\}  
  
function padstring(s:string;c:char;l:integer):string;  
\{pads string s with as many extra characters c required to achieve length l\}  
\{if l is less than length of s, result is s truncated to length l\}  
\{example: padstring('hello','-',10)='hello-----'\}  
\{example: padstring('string less than l','-',15)='string less than'\}  
  
function strs(c:char;l:integer):string;  
\{returns a string containing l of character c.\}  
\{example: strs('=',12) = '============'\}  
  
  
\{================= System Utils =================\}  
  
function getwinsysdir:string;  
\{returns Windows System Path (inc drive)\}  
\{example: getwinsysdir = 'C:/WINDOWS/SYSTEM/'\}  
  
function getwindir:string;  
\{returns windows directory path (inc Drive)\}  
\{example: getwindir = 'C:/WINDOWS/'\}  
  
function getinstalldir:string;  
\{returns install directory of EXE using this library\}  
\{example: getinstalldir = 'C:/PROGRAM FILES/BORLAND/DELPHI/DEMOS/'\}  
  
function getcurrentdir:string;  
\{returns current directory\}  
\{example: getcurrentdir = 'D:/DELPHI PROJECTS/CLASSES/UTILS/'\}  
  
function getbootdir:string;  
\{returns boot directory\}  
\{example: getbootdir = 'C:/'  \}  
  
function getregvalue(root:integer;key,value:string):string;  
\{reads a registry value\}  
\{example: getregvalue(HKEY\_LOCAL\_MACHINE,'network/logon/','username') = 'Eddie Bond'\}  
  
function getaliaspath(dbset:Tdataset):string;  
\{returns DOS path of an ACTIVE dataset's (TTable or TQuery) database alias\}  
\{example getaliaspath(Table1) = 'C:/Program Files/Borland/Delphi/Demos/Data/'\}  
  
function getfiledate(filename:string):Tdatetime;  
\{returns a file's date in TDateTime format\}  
  
function folderexists(dir:string;cancreate:boolean):boolean;  
\{checks if folder exists. If cancreate is true, tries to create folder, and returns success\}  
  
function DiskInDrive(Drive:Char):Boolean;  
\{checks if drive is ready without\}  
\{the low-level 'Not Reading Drive ?: Abort, Retry, Ignore' message\}  
\{example: DiskInDrive(a) = false (if the the disk drive is empty)\}  
  
function BSGetDiskFreeSpace(drv:string;var ffree,fsize:comp):boolean;  
\{get disk free space for BIG disks ie > 2.1GB \}  
  
\{================= File Management ==================\}  
  
function filecopy(f,t:string;NoOverwrite:boolean):boolean;  
\{returns success of copy from file f to t with overwrite protection\}  
\{example: filecopy('C:/WINDOWS/WIN.INI','C:/BACKUPS/WIN.INI',true)=true\}  
  
function AppendToFile(filename:string;ts:Tstrings):boolean;  
\{appends ts to the end of textfile 'filename'. if filename does not exist, it is created\}  
\{example: AppendToFile('c:/autoexec.bat',memo1.lines\}  
\{appends the contents of memo1 to autoexec.bat\}  
  
function UniqueFilename(path:string):string;  
\{Generates a unique (random) filename; checks that it is unique within the givep path\}  
\{example: UniqueFilename(c:/) = A2W88UH7.77Y \}  
  
\{================= Arithmetic Utils =================\}  
  
function StrToFloatDef(const s:string;def:Extended):Extended;  
\{converts S into a number. If S is invalid, returns the number passed in Def.\}  
\{example: strtofloatdef('$10.25',0) = 0\}  
  
function VolSphere(radius:single):extended;  
\{volume of sphere of given radius\}  
  
function AreaSphere(radius:single):extended;  
\{surface area of sphere of given radius\}  
  
function VolCylinder(radius,height:single):extended;  
\{volume of cylinder of given radius and height\}  
  
function AreaCylinder(radius,height:single):extended;  
\{surface area of cylinder of given radius and height\}  
  
function MinExt(const A:array of Extended):Extended;  
\{returns minimum value of an array of extended\}  
  
function MaxExt(const A:array of Extended):Extended;  
\{returns maximum value of an array of extended\}  
  
function MinInteger(const A:array of Integer):Integer;  
\{returns minimum value of an array of integers\}  
  
function MaxInteger(const A:array of integer):Integer;  
\{returns maximum value of an array of integers\}  
  
function InverseSum(const a:array of single):single;  
\{solves formulae of type 1/r = 1/a + 1/b +...1/n (eg electrical resistance in parallel)\}  
  
\{================= Financial Utils =================\}  
  
function MarkUp(profit:single):single;  
\{returns markup percentage required to return a profit of profit percent\}  
\{example: MarkUp(25) = 20 \}  
  
function SellingPrice(net:double;markup:single):double;  
\{returns selling price after adding markup percent to net\}  
\{example: SellingPrice(199.50,22.5) = 244.3875\}  
  
function NetPrice(gross:double;taxrate:single):double;  
\{returns the net value of an item of gross value containing tax at taxrate percent\}  
\{example: NetPrice(199.99,17.5) = 170.204255319149\}  
  
function Contrast(value:integer):integer;  
\{returns a contrasting color from value\}  
\{example: Canvas.font.color:=contrast(canvas.brush.color);\}  
  
const  
ukton\_Kg=1016;    \{UK Ton to KiloGram\}  
yard\_mtr=0.9144;  \{Yard to Metre\}  
acre\_SqMtr=4047;  \{Acre to Square Feet\}  
oz\_Kg=0.02835;    \{Ounce to KiloGram\}  
acre\_ha=0.4047;   \{Acre to Hectare\}  
ukgal\_ltr=4.546;  \{UK Gallon to Litre\}  
usgal\_ltr=3.7854; \{US Gallon to Litre\}  
lbsqin\_kpa=6.895; \{Pounds per Square Inch to KiloPascals\}  
mile\_km=1.6093;   \{Miles to Kilometres\}  
in\_cm=2.54;       \{Inches to Centimetres\}  
sqin\_sqcm=6.4516; \{Square Inches to Square Centimetres\}  
cuin\_cucm=16.387; \{Cubic Inches to Cubic Centimetres\}  
  
implementation  
  
  
function slash(value:string):string;  
begin  
if (value='') then result:='' else  
begin  
if (value\[length(value)\]<>'/') then result:=value+'/' else result:=value;  
end;  
end;  
  
function capfirst(value:string):string;  
var  
i:integer;  
s:string;  
begin  
s:=uppercase(value\[1\]);  
for i:=2 to length(value) do  
    if (value\[i-1\] in \[' ',',',':',';','.'\]) then s:=s+uppercase(value\[i\]) else s:=s+lowercase(value\[i\]);  
result:=s;  
end;  
  
function striptags(value:string):string;  
var  
i:integer;  
s:string;  
begin  
i:=1;  
s:='';  
while i<=length(value) do  
      begin  
      if value\[i\]='<' then repeat inc(i) until (value\[i\]='>') else s:=s+value\[i\];  
      inc(i);  
      end;  
result:=s;  
end;  
  
  
function replace(str,s1,s2:string;casesensitive:boolean):string;  
var  
i:integer;  
s,t:string;  
begin  
s:='';  
t:=str;  
       repeat  
       if casesensitive then i:=pos(s1,t) else i:=pos(lowercase(s1),lowercase(t));  
       if i>0 then  
          begin  
          s:=s+Copy(t,1,i-1)+s2;  
          t:=Copy(t,i+Length(s1),MaxInt);  
          end  
       else s:=s+t;  
       until i<=0;  
result:=s;  
end;  
  
function replacechar(s:string;c:char;i:integer):string;  
var x:integer;  
begin  
result:='';  
for x:=1 to length(s) do  
    if x=i then result:=result+c  
       else result:=result+s\[x\];  
end;  
  
function striphtmidents(value:string):string;  
var s:string;  
begin  
s:=replace(value,'&nbsp;',' ',false);  
s:=replace(s,'&reg','(r)',false);  
s:=replace(s,'&copy','(c)',false);  
result:=s;  
end;  
  
  
function CopyFromChar(s:string;c:char;l:integer):string;  
var i:integer;  
begin  
i:=pos(c,s);  
result:=copy(s,i,l);  
end;  
  
procedure SplitString(s:string;delim:char;ts:TStrings);  
var  
i:integer;  
t:string;  
begin  
t:='';  
for i:=1 to length(s) do  
 begin  
 if (s\[i\]<>delim) then t:=t+s\[i\] else  
  begin  
  ts.add(t);  
  t:='';  
  end;  
end;  
if t<>'' then ts.add(t);  
end;  
  
function padstring(s:string;c:char;L:integer):string;  
var  
i:integer;  
t:string;  
begin  
if length(s)<L then result:=copy(s,1,L) else  
   begin  
   for i:=0 to L-(length(s))-1 do t:=t+c;  
   result:=s+t;  
   end;  
end;  
  
function strs(c:char;l:integer):string;  
var i:integer;  
begin  
result:='';  
for i:=1 to l do result:=result+c;  
end;  
  
function posnext(s,srch:string;lastpos:integer):integer;  
var  
t:string;  
x:integer;  
begin  
t:=copy(s,lastpos+length(srch),maxint);  
x:=pos(srch,t);  
if x>0 then result:=lastpos+x else result:=0;  
end;  
  
function currstrtofloat(value:string):single;  
var e:integer;  
begin  
result:=0;  
if (value='') then exit;  
if value\[1\]=currencystring then value:=copy(value,2,length(value)-1);  
value:=replace(value,thousandseparator,'',false);  
val(value,result,e);  
if e<>0 then result:=0;  
end;  
  
function getwinsysdir:string;  
var p:pchar;  
    z:integer;  
begin  
z:=255;  
getmem(p,z);  
getsystemdirectory(p,z);  
result:=slash(string(p));  
freemem(p,z);  
end;  
  
function getwindir:string;  
var p:pchar;  
    z:integer;  
begin  
z:=255;  
getmem(p,z);  
getwindowsdirectory(p,z);  
result:=slash(string(p));  
freemem(p,z);  
end;  
  
function getbootdir:string;  
var  
rg:Tregistry;  
begin  
rg:=Tregistry.create;  
rg.rootkey:=HKEY\_LOCAL\_MACHINE;  
try  
if rg.openkey('Software/Microsoft/Windows/CurrentVersion/Setup',false) then  
 begin  
 result:=slash(rg.readstring('BootDir'));  
 rg.closekey;  
 end;  
finally  
rg.free;  
end;  
end;  
  
function getcurrentdir:string;  
var p:pchar;  
    z:integer;  
begin  
z:=255;  
getmem(p,z);  
getcurrentdirectory(z,p);  
result:=slash(string(p));  
freemem(p,z);  
end;  
  
  
function getinstalldir:string;  
begin  
result:=slash(extractfiledir(application.exename));  
end;  
  
function folderexists(dir:string;cancreate:boolean):boolean;  
begin  
\{$I-\}  
chdir(dir);  
result:=(IOResult=0);  
if not result then  
  begin  
  MKDir(dir);  
  chdir(dir);  
  result:=(IOResult=0);  
  end;  
\{$I+\}  
end;  
  
function DiskInDrive(Drive:Char):Boolean;  
var  
EM:word;  
begin  
result:=false;  
if Drive in \['a'..'z'\] then Dec(Drive, $20);  
if not (Drive in \['A'..'Z'\]) then exit;  
EM:=SetErrorMode(SEM\_FailCriticalErrors);  
  try  
  result:=DiskSize(Ord(Drive)-$40)>-1;  
  finally  
  SetErrorMode(EM); \{restore original errormode\}  
  end;  
end;  
  
function UniqueFilename(path:string):string;  
var  
c:char;  
begin  
 repeat  
 result:='';  
 randomize;  
   repeat  
   c:=chr(random(43)+47);  
   if (length(result)=8) then result:=result+'.' else  
     if (c in \['0'..'9','A'..'Z'\]) then result:=result+c;  
   until length(result)=12;  
   result:=slash(path)+result;  
 until not (fileexists(result));  
end;  
  
function BSGetDiskFreeSpace(drv:string;var ffree,fsize:comp):boolean;  
Type  LargeInt =  Comp;          \{use INT64 for delphi versions 3+\}  
Type pLargeInt = ^Comp;  
  
var  
GetDiskFreeSpaceEx: function(  
                             RootName: pChar;  
                             var FreeForCaller,TotNoOfBytes:LargeInt;  
                             TotNoOfFreeBytes: pLargeInt  
                             ): BOOL; stdcall;  
  
LFree,LSize:comp;  
Lib:THandle;  
begin  
result:=false;  
LFree:=-1;  
LSize:=-1;  
Lib:=GetModuleHandle('Kernel32'); \{get the handle for kernel32.dll\}  
If (Lib<>0) then  
   begin  
   @GetDiskFreeSpaceEx:=GetProcAddress(Lib,'GetDiskFreeSpaceExA');  
   if (@GetDiskFreeSpaceEx<>nil) then  
         if GetDiskFreeSpaceEx(pchar(drv),LFree,LSize,nil) then  
         begin  
         FFree:=LFree;  
         FSize:=LSize;  
         result:=true;  
         end;  
      FreeLibrary( Lib );  
   end;  
end;  
  
  
  
function getregvalue(root:integer;key,value:string):string;  
var  
rg:Tregistry;  
begin  
rg:=Tregistry.create;  
  try  
  rg.rootkey:=root;  
  if rg.OpenKey(key,false) then result:=rg.readString(value) else result:='';  
  finally  
  rg.free;  
  end;  
end;  
  
function getaliaspath(dbset:Tdataset):string;  
var  
vDBDesc:DBDesc;  
s:string;  
begin  
result:='';  
if not (dbset.active) then exit;  
if (dbset is TTable) then s:=(dbset as ttable).databasename;  
if (dbset is TQuery) then s:=(dbset as tquery).databasename;  
Check(DbiGetDatabaseDesc(PChar(s),@vDBDesc));  
result:=slash(string(vDBDesc.szPhyName));  
end;  
  
function getfiledate(filename:string):Tdatetime;  
begin  
if fileexists(filename) then  
   result:=filedatetodatetime(fileage(filename)) else result:=maxint;  
end;  
  
function filecopy(f,t:string;NoOverwrite:boolean):boolean;  
begin  
result:=copyfile(pchar(f),pchar(t),NoOverwrite);  
end;  
  
function AppendToFile(filename:string;ts:Tstrings):boolean;  
var  
f:textfile;  
i:integer;  
begin  
result:=true;  
assignfile(f,filename);  
  try  
  if fileexists(filename) then append(f) else rewrite(f);  
  for i:=0 to ts.count-1 do writeln(f,ts\[i\]);  
  closefile(f);  
  except  
  result:=false;  
  end;  
end;  
  
  
function strtofloatdef(const s:string;def:Extended):Extended;  
var  
i:integer;  
begin  
val(s,result,i);  
if i<>0 then result:=def;  
end;  
  
function strtofloattry(const value:string):extended;  
var  
e:integer;  
s:string;  
begin  
result:=0;  
if (value='') then exit;  
s:=value;  
repeat  
val(s,result,e);  
if e<>0 then  
   begin  
   s:=replace(s,s\[e\],'',false);  
   if s<>'' then val(s,result,e);  
   end;  
until (e=0) or (s='');  
end;  
  
  
  
  
function volsphere(radius:single):extended;  
begin  
result:=((4/3)\*pi\*radius\*radius\*radius);  
end;  
  
function areasphere(radius:single):extended;  
begin  
result:=(4\*pi\*radius\*radius);  
end;  
  
function volcylinder(radius,height:single):extended;  
begin  
result:=(pi\*radius\*radius\*height);  
end;  
  
function areacylinder(radius,height:single):extended;  
begin  
result:=(2\*pi\*radius\*height);  
end;  
  
function MinExt(const A:array of Extended):Extended;  
var  
i:integer;  
begin  
Result:=A\[Low(A)\];  
for i:=Low(A)+1 to High(A) do if A\[i\]<Result then Result:=A\[I\];  
end;  
  
function MaxExt(const A:array of Extended):Extended;  
var  
i:integer;  
begin  
Result:=A\[Low(A)\];  
for i:=Low(A)+1 to High(A) do if A\[i\]>Result then Result:=A\[I\];  
end;  
  
function MinInteger(const A:array of Integer):Integer;  
var  
i:integer;  
begin  
Result:=A\[Low(A)\];  
for i:=Low(A)+1 to High(A) do if A\[i\]<Result then Result:=A\[I\];  
end;  
  
function MaxInteger(const A:array of integer):Integer;  
var  
i:integer;  
begin  
Result:=A\[Low(A)\];  
for i:=Low(A)+1 to High(A) do if A\[i\]>Result then Result:=A\[I\];  
end;  
  
function InverseSum(const a:array of single):single;  
var i:integer;  
begin  
result:=0;  
for i:=low(a) to high(a) do result:=result+(1/a\[i\]);  
result:=(1/result);  
end;  
  
function MarkUp(profit:single):single;  
begin  
result:=(100-(10000/(100+profit)));  
end;  
  
function SellingPrice(net:double;markup:single):double;  
begin  
result:=net+(net\*markup/100);  
end;  
  
function NetPrice(gross:double;taxrate:single):double;  
begin  
result:=gross-(gross\*(taxrate)/(100+taxrate));  
end;  
  
function Contrast(value:integer):integer;  
var r,g,b:integer;  
begin  
r:=value shr 16;  
g:=(value and $FF00) shr 8;  
b:=(value and $FF);  
if r<$A0 then r:=$FF else r:=$00;  
if g<$C0 then g:=$FF else g:=$00;  
if b<$A0 then b:=$FF else b:=$00;  
result:=b+(g\*$FF)+(r\*$FFFF);  
end;  
  
end.

[http_www.nara.gov_genealogy_coding.html]: http://www.nara.gov/genealogy/coding.html