* AnsiExtractquotedStr returns original string if unquoted

git-svn-id: trunk@34495 -

rtl/objpas/sysutils/sysstr.inc

@@ -630,7 +630,7 @@ begin
  Q := StrEnd(P);
  result:='';
  if P=Q then exit;
- if P^<>quote then exit;
+ if P^<>quote then exit(strpas(P));
  inc(p);
 
  setlength(result,(Q-P)+1);
@@ -1836,6 +1836,7 @@ var p : pchar;
 begin
   p:=pchar(pointer(s)); // work around CONST. Ansiextract is safe for nil
   result:=AnsiExtractquotedStr(p,AQuote);
+  
 end;
 
 function StrToBool(const S: string): Boolean;