delphi 添加或解除引号

添加或解除引号:

function QuotedString: string;

function QuotedString(const QuoteChar: Char): string;

function DeQuotedString: string;

function DeQuotedString(const QuoteChar: Char): string;

//--------------------------------------------------------------------------------

var

str1, str2: string;

begin

str1 := 'Delphi';

str2 := str1.QuotedString; // 'Delphi'

str2 := str1.QuotedString('"'); // "Delphi"

str1 := '"Delphi"';

str2 := str1.DeQuotedString('"'); // Delphi

end;

推荐分享