delphi字符串大全(3)

首部 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\'@')='@hello\, '\

参考 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 例子

━━━━━━━━━━━━━━━━━━━━━

首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 功能 返回字符串Ident是否是正确的标识符 说明 标识符::字母|下划线[字母|下划线|数字]... 参考

例子 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 例子 ;

━━━━━━━━━━━━━━━━━━━━━

首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 功能 返回指针字符串的长度

说明 当指针字符串Str为nil时将触发异常 参考

例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串的结尾

说明 当指针字符串Str为nil时将触发异常 参考

例子 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