AnsiExtractQuotedStr

Removes the first quoted string from a string.

Declaration

Source position: sysstrh.inc line 101

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 revereses the action of AnsiQuotedStr.

Errors

None.

Example

Program Example51;

{ This program demonstrates the AnsiQuotedStr function }

Uses sysutils;

Var S : AnsiString;

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

Notes