你需要另一个报价来逃避报价:
Writeln('I''m in your head'); //prints: I'm in your head Writeln(''''); //prints: '
另见这个问题.
你需要另一个报价来逃避报价:
Writeln('I''m in your head'); //prints: I'm in your head Writeln(''''); //prints: '
另见这个问题.
Delphi具有QuotedStr()
在字符串周围添加引号并自动转义字符串中的撇号的功能.
procedure MyForm.MyProc; var str : string; begin str = QuotedStr(MyForm.Edit1); ... end;
QuotedStr()
将编辑字段的内容放入撇号.如果编辑字段包含撇号,则它们将被正确转义.