Código Delphi [-] function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;
function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;