PostHeaderIconDelphi. Функция AnsiExtractQuotedStr ( var S: PChar; Quote: Char ): string;

Функция 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;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.