添加定界符: 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'; {如果中間包含要添加的定界符, 将被雙寫}

ShowMessage(s); {#Hello##Hello#}

end;