Delphi字符串.doc

字符串比较1子串2查找与替换3拷贝4转换5格式化9逆序11查找11文件操作12时间14系统20字符串比较1. 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; 功能 返回两个字符串是否相似 例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);2. 首部 function CompareStr(const S1, S2: string): Integer; $SysUtils.pas功能 返回比较两个字符，说明 当S1S2返回值0;当S1S2返回值S2返回值0;当S1S2返回值S2返回值0;当S1S2返回值S2返回值0;当S1S2返回值S2返回值0;当S1S2返回值0;当S1=S2返回值=0;不区分大小写例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);12. 首部 function WideSameText(const S1, S2: WideString): Boolean; $SysUtils.pas功能 返回两个双字节字符串是否相同，不区分大小写例子 CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);子串1. 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 功能 返回字符串AText是否包含子串ASubText例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);2. 首部 function AnsiStartsText(const ASubText, AText: string): Boolean; 功能 返回字符串AText是否以子串ASubText开头例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);3. 首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; 功能 返回字符串AText是否以子串ASubText开头例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);4. 首部 function AnsiEndsText(const ASubText, AText: string): Boolean; 功能 返回字符串AText是否以子串ASubText结尾例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);5. 首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; 功能 返回字符串AText是否以子串ASubText结尾例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);6. 首部 function AnsiMatchText(const AText: string; const AValues: array of string): Boolean; 功能 返回字符串数组AValues中是否包含字符串AText例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, a1, a2, a3, a4);7. 首部 function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;功能 返回字符串数组AValues中是否包含字符串AText例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, a1, a2, a3, a4);8. 首部 function AnsiIndexText(const AText: string; const AValues: array of string): Integer;功能 返回字符串AText在字符串数组AValues中的位置，如果不包含则返回-1例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, a1, a2, a3, a4);9. 首部 function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; 功能 返回字符串AText在字符串数组AValues中的位置例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, a1, a2, a3, a4);10. 首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 功能 返回字符串AText是否包含子串ASubText例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);查找与替换1. 首部 function AnsiReplaceText(const AText, AFromText, AToText: string): string; 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);2. 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): string; 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);3. 首部 function Trim(const S: string): string; overload; $SysUtils.pas首部 function Trim(const S: WideString): WideString; overload; $SysUtils.pas功能 返回除去字符串S左右不可见字符，小于#32的字符看作不可见字符例子 Edit2.Text := Trim(Edit1.Text);4. 首部 function TrimLeft(const S: string): string; overload; $SysUtils.pas首部 function TrimLeft(const S: WideString): WideString; overload; $SysUtils.pas功能 返回除去字符串S左边不可见字符，小于#32的字符看作不可见字符例子 Edit2.Text := TrimLeft(Edit1.Text);5. 首部 function TrimRight(const S: string): string; overload; $SysUtils.pas首部 function TrimRight(const S: WideString): WideString; overload; $SysUtils.pas功能 返回除去字符串S右边不可见字符，小于#32的字符看作不可见字符例子 Edit2.Text := TrimRight(Edit1.Text);6. 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $SysUtils.pas功能 返回字符串S中有多少个字符，说明 MaxLen指定处理多字节字符个数例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value);7. 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $SysUtils.pas功能 返回字符位置对应的多字节字符位置，说明 ByteToCharIndex(你好, 2) = 1;ByteToCharIndex(你好, 3) = 2例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value);8. 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; $SysUtils.pas功能 返回多字节字符位置对应的字符起始位置说明 CharToByteIndex(你好, 1) = 1;CharToByteIndex(你好, 2) = 3例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value);9. 首部 function StrCharLength(const Str: PChar): Integer; $SysUtils.pas功能 返回第一个字符的宽度，说明 参数为空则返回0例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text);10. 首部 function CharLength(const S: String; Index: Integer): Integer; $SysUtils.pas功能 返回字符串中指定位置的字符宽度，说明 CharLength(English汉, 1) = 1;CharLength(English汉, 8) = 2例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value);11. 首部 function NextCharIndex(const S: String; Index: Integer): Integer; $SysUtils.pas功能 返回下一个字符的位置，说明 CharLength(你好, 1) = 3;CharLength(你好, 3) = 5例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value);12. 首部 function AnsiPos(const Substr, S: string): Integer; $SysUtils.pas功能 返回子串Substr在字符中第一次出现的位置，说明 不存在则返回0例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text);13. 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; $SysUtils.pas功能 返回替换后的字符串，说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写例子/Begin StringReplaceprocedure TForm1.Button1Click(Sender: TObject);beginMemo1.Lines.Values :=StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, );Memo1.Lines.ValuesrfReplaceAll :=StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, rfReplaceAll);Memo1.Lines.ValuesrfIgnoreCase :=StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, rfIgnoreCase);Memo1.Lines.ValuesrfReplaceAll, rfIgnoreCase :=StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, rfReplaceAll, rfIgnoreCase);end;/End StringReplace14. 首部 function WrapText(const Line, BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string; overload; 首部 function WrapText(const Line: string; MaxCol: Integer = 45): string; overload; $SysUtils.pas功能 返回对字符串自动换行说明 Result := WrapText(Line, sLineBreak, , -, #9, MaxCol);例子 Memo1.Text := WrapText(Memo2.Text, SpinEdit1.Value);拷贝1. 首部 function DupeString(const AText: string; ACount: Integer): string; $StrUtils.pas功能 返回字符串AText的ACount个复本，当ACount为0时返回例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);2. 首部 function LeftStr(const AText: string; const ACount: Integer): string; 功能 返回字符串AText左边的ACount个字符，LeftStr(123456, 3) = 123例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);3. 首部 function RightStr(const AText: string; const ACount: Integer): string;功能 返回字符串AText右边的ACount个字符，RightStr(123456, 3) = 456例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);4. 首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; 功能 返回字符串AText从AStart开始的ACount个字符，实质为copy 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);5. 首部 procedure AppendStr(var Dest: string; const S: string); deprecated; $SysUtils.pas功能 在字符串Dest后追加字符串S说明 相当于Dest := Dest + S;Delphi6已经不建议使用参考 例子 /Begin AppendStrprocedure TForm1.Button1Click(Sender: TObject);varS: string;beginS := Edit2.Text;AppendStr(S, Edit1.Text);Edit2.Text := S;end;/End AppendStr转换1. 首部 function UpperCase(const S: string): string; $SysUtils.pas功能 返回字符串S的大写形式，非小写字符不处理例子 Edit2.Text := UpperCase(Edit1.Text);2. 首部 function LowerCase(const S: string): string; $SysUtils.pas功能 返回字符串S的小写形式，非大写字符不处理例子 Edit2.Text := LowerCase(Edit1.Text);3. 首部 function AnsiUpperCase(const S: string): string; $SysUtils.pas功能 返回字符串S的大写形式，非小写的字符不变例子 Edit2.Text := AnsiUpperCase(Edit1.Text);4. 首部 function AnsiLowerCase(const S: string): string; $SysUtils.pas功能 返回字符串S的小写形式，非大写字符不处理例子 Edit2.Text := AnsiLowerCase(Edit1.Text);5. 首部 function WideUpperCase(const S: WideString): WideString; $SysUtils.pas功能 返回双字节字符串的大写形式，WideChar双字节字符例子 Edit2.Text := WideUpperCase(Edit1.Text);6. 首部 function WideLowerCase(const S: WideString): WideString; $SysUtils.pas功能 返回双字节字符串的小写形式例子 Edit2.Text := WideLowerCase(Edit1.Text);7. 首部 function IntToStr(Value: Integer): string; overload; $SysUtils.pas首部 function IntToStr(Value: Int64): string; overload; $SysUtils.pas功能 返回整数Value转换成字符串，Format(%d, Value)例子 Edit2.Text := IntToStr(SpinEdit1.Value);8. 首部 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填充例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value);9. 首部 function StrToInt(const S: string): Integer; $SysUtils.pas功能 返回字符串S转换成整数，说明 字符串非整数表达时将引起异常例子 SpinEdit1.Value := StrToInt(Edit1.Text);10. 首部 function StrToIntDef(const S: string; Default: Integer): Integer; $SysUtils.pas功能 返回字符串S转换成整数，说明 字符串非整数表达时则返回默认值Default例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);11. 首部 function TryStrToInt(const S: string; out Value: Integer): Boolean; $SysUtils.pas功能 返回字符串S转换成整数Value是否成功，说明 字符串非整数表达时返回False并且Value将输出为0例子/Begin TryStrToIntprocedure TForm1.Button1Click(Sender: TObject);varI: Integer;beginCheckBox1.Checked := TryStrToInt(Edit1.Text, I);SpinEdit1.Value := I;end;/End TryStrToInt12. 首部 function StrToInt64(const S: string): Int64; $SysUtils.pas功能 返回字符串S转换成六十四位整数，说明 字符串非六十四位整数表达时将引起异常例子 SpinEdit1.Value := StrToInt64(Edit1.Text);13. 首部 function StrToInt64Def(const S: string; const Default: Int64): Int64; $SysUtils.pas功能 返回字符串S转换成六十四位整数，说明 字符串非六十四位整数表达时则返回默认值Default例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);14. 首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; $SysUtils.pas功能 返回字符串S转换成六十四位整数Value是否成功说明 字符串非六十四位整数表达时返回False并且Value将输出为0例子/Begin TryStrToInt64procedure TForm1.Button1Click(Sender: TObject);varI: Int64;beginCheckBox1.Checked := TryStrToInt64(Edit1.Text, I);SpinEdit1.Value := I;end;/End TryStrToInt6415. 首部 function StrToBool(const S: string): Boolean; $SysUtils.pas功能 返回字符串S转换成逻辑值，说明 字符非逻辑表达时将引起异常例子 CheckBox1.Checked := StrToBool(Edit1.Text);16. 首部 function StrToBoolDef(const S: string; const Default: Boolean): Boolean; $SysUtils.pas功能 返回字符串S转换成逻辑值，说明 字符非逻辑表达时则返回默认值Default例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);17. 首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; $SysUtils.pas功能 返回字符串S转换成逻辑值Value是否成功说明 注意0为假非0为真;不是True和False;Delphi6 Bug 如下修正例子/Begin TryStrToBoolprocedure TForm1.Button1Click(Sender: TObject);varB: Boolean;beginSetLength(TrueBoolStrs, 2);SetLength(FalseBoolStrs, 2);TrueBoolStrs0 := True;FalseBoolStrs0 := False;TrueBoolStrs1 := Yes;FalseBoolStrs1 := No;CheckBox1.Checked := TryStrToBool(Edit1.Text, B);CheckBox2.Checked := B;end;/End TryStrToBool附加/Begin TryStrToBoolfunction TryStrToBool(const S: string; out Value: Boolean): Boolean;function CompareWith(const aArray: array of string): Boolean;varI: Integer;beginResult := False;for I := Low(aArray) to High(aArray) doif AnsiSameText(S, aArrayI) thenbeginResult := True;Break;end;end;varLResult: Extended;beginResult := TryStrToFloat(S, LResult);if Result thenValue := LResult 0elsebeginResult := True; /修正处VerifyBoolStrArray;if CompareWith(TrueBoolStrs) thenValue := Trueelse if CompareWith(FalseBoolStrs) thenValue := FalseelseResult := False;end;end;/End TryStrToBool18. 首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; $SysUtils.pas功能 返回逻辑值B转换成字符串，说明 BoolToStr(False, False)=0;BoolToStr(False, True)=-1例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);19. 首部 function StrToFloat(const S: string): Extended; $SysUtils.pas功能 返回字符串S转换成浮点数，说明 字符串非浮点数表达时将引起异常例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end;20. 首部 function StrToFloatDef(const S: string; const Default: Extended): Extended; $SysUtils.pas功能 返回字符串S转换成浮点数，说明 字符串非浮点数表达时则返回默认值Default例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end;21. 首部 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将输出为不确定的值例子/Begin TryStrToFloatprocedure TForm1.Button1Click(Sender: TObject);varE: Extended;beginCheckBox1.Checked := TryStrToFloat(Edit1.Text, E);Edit2.Text := FormatFloat(, E);end;/End TryStrToFloat22. 首部 function StrToCurr(const S: string): Currency; $SysUtils.pas功能 返回字符串S转换成货币数，说明 字符串非货币数表达时将引起异常例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end;23. 首部 function StrToCurrDef(const S: string; const Default: Currency): Currency; $SysUtils.pas功能 返回字符串S转换成货币数，说明 字符串非货币数表达时则返回默认值Default例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end;24. 首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean; $SysUtils.pas功能 返回字符串S转换成货币数Value是否成功说明 字符串非货币数表达时返回False并且Value将输出为不确定的值例子/Begin TryStrToCurrprocedure TForm1.Button1Click(Sender: TObject);varC: Currency;beginCheckBox1.Checked := TryStrToCurr(Edit1.Text, C);Edit2.Text := FormatCurr(, C);end;/End TryStrToCurr25. 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Boolean; $SysUtils.pas功能 返回将指针字符串Buffer转换成无类型变量Value，说明 ValueType指定无类型参数Value的类型例子/Begin TextToFloatprocedure TForm1.Button1Click(Sender: TObject);varE: Extended;beginCheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E,fvExtended);Edit2.Text := FormatFloat(, E);end;/End TextToFloat26. 首部 procedure FloatToDecimal(var Result: TFloatRec; const Value; ValueType: TFloatValue; Precision, Decimals: Integer); $SysUtils.pas功能 将浮点数转换成浮点结构类型并返回到Result说明 ValueType指定类型;Precision指定精度;Decimals指定小数格式化1. 首部 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 /前面补充0Format(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);2. 首部 procedure FmtStr(var Result: string; const Format: string; const Args: array of const);功能 按指定方式格式化一个数组常量的字符形式返回例子 3. 首部 function FloatToStr(Value: Extended): string; $SysUtils.pas功能 返回浮点数Value转换成字符串，说明 当浮点数大等于1E15将采用科学记数法例子 Edit1.Text := FloatToStr(Now);4. 首部 function CurrToStr(Value: Currency): string; $SysUtils.pas功能 返回货币数Value转换成字符串，说明 货币数只保留四位小数例子 Edit1.Text := CurrToStr(Now);5. 首部 function FloatToCurr(const Value: Extended): Currency; $SysUtils.pas功能 返回浮点数Value转换成货币数，说明 如果浮点数Value超出范围则将触发异常例子 Edit1.Text := CurrToStr(FloatToCurr(Now);6. 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string;功能 返回浮点数以指定格式转换成字符串，说明 Precision指定精度;Digits指定小数宽度例子/Begin FloatToStrFprocedure TForm1.Button1Click(Sender: TObject);beginMemo1.Lines.ValuesffGeneral := FloatToStrF(StrToFloatDef(Edit1.Text, 0),ffGeneral, SpinEdit1.Value, SpinEdit2.Value);Memo1.Lines.ValuesffExponent := FloatToStrF(StrToFloatDef(Edit1.Text, 0),ffExponent, SpinEdit1.Value, SpinEdit2.Value);Memo1.Lines.ValuesffFixed := FloatToStrF(StrToFloatDef(Edit1.Text, 0),ffFixed, SpinEdit1.Value, SpinEdit2.Value);Memo1.Lines.ValuesffNumber := FloatToStrF(StrToFloatDef(Edit1.Text, 0),ffNumber, SpinEdit1.Value, SpinEdit2.Value);Memo1.Lines.ValuesffCurrency := FloatToStrF(StrToFloatDef(Edit1.Text, 0),ffCurrency, SpinEdit1.Value, Spin