Функция AnsiExtractQuotedStr ( var S: PChar;
Quote: Char ): string;
Модуль: SysUtils
Описание
Функция преобразовывает строку цитаты, определенную параметром S в обычную строку. Данная функция удаляет символы кавычки из начала и конца строки.
Параметр Quote определяет, какой символ будет интерпретирован в качестве символа кавычки. Если строка S содержит более двух символов Quote, то в результирующую строку будут скопированы только символы строки S, стоящие до второго символа Quote. Если исходная строка начинается не с символа Quote, то результатом функции будет пустая строка. Данная функция поддерживает многобайтовые наборы символов (MBCS).
Пример var
S1: PChar;
S2: string; begin
S1:= '/См. примечание /стр.56/';
S2:= AnsiExtractQuotedStr(S1,'/'); // S2 := 'См. примечание '
MessageDlg(S2, mtInformation, [mbOk], 0); end;