Delphi字符串函数大全

      首部 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);
      ━━━━━━━━━━━━━━━━━━━━━

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2 3 4 5 6 7 89 10 11 12 13 下一页

上一篇：我的共享软件防破解的实用着法   下一篇：让ReportBuilder彻底支持Oracle

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】