Cette fonction élimine les guillemets au début et à la fin et remplace les guillemets en double pour une simple.

Function AnsiExtractQuotedStr(Var Src:PChar;Quote:Char):String;