添加定界符: AnsiQuotedStr

var
ss,s: AnsiString;
begin
ss := 'Hello';

s := AnsiQuotedStr(ss, '"'); {参数2是定界符, Char 类型}
ShowMessage(s);              {"Hello"}

s := AnsiQuotedStr(ss, '#');
ShowMessage(s);              {#Hello#}

ss := 'Hello#Hello';         {如果中间包含要添加的定界符, 将被双写}
s := AnsiQuotedStr(ss, '#');
ShowMessage(s);              {#Hello##Hello#}
end;