字符串函数大全(18) $[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;