Функция AnsiQuotedStr ( const S: string;
Quote: Char ): string;
Модуль: SysUtils
Описание
Функция приводит строку S к форме цитаты, добавляя в начало и конец строки символ кавычки и заменяя все непарные символы кавычки внутри строки на парные. В параметре Quote указывается какой символ будет использован в качестве кавычки. Функция поддерживает многобайтовые наборы символов (MBCS).
Пример var
S: string; begin
S:= '1997-1998гг.';
S:= AnsiQuotedStr(S, '-'); // S := '-1997--1998гг.-'
MessageDlg(S, mtInformation, [mbOk], 0); end;