[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'sysutils' (#rtl)

# AnsiExtractQuotedStr

Removes the first quoted string from a string.

## Declaration

Source position: sysstrh.inc line 111

`function AnsiExtractQuotedStr(`
`var Src: PChar;`
`Quote: Char`
`):string;`

## Description

AnsiExtractQuotedStr returns the first quoted string in Src, and deletes the result from Src. The resulting string has with Quote characters removed from the beginning and end of the string (if they are present), and double Quote characters replaced by a single Quote characters. As such, it reverses the action of AnsiQuotedStr.

## Errors

None.

## See also

AnsiQuotedStr |  | Return a quoted version of a string.

## Example

    Program Example51;
    { This program demonstrates the AnsiQuotedStr function }
    Uses sysutils;

    Var
      S : AnsiString;
      P : PChar;

    Begin
     S:='He said "Hello" and walked on';
     P:=Pchar(S);
     S:=AnsiQuotedStr(P,'"');
     Writeln (S);
     P:=Pchar(S);
     Writeln(AnsiExtractQuotedStr(P,'"'));
    End.