字符串函数大全

字符串函数大全(19)       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);
      ━━━━━━━━━━━━━━━━━━━━━