* Fix bug #35660, introduce prefervaluestonames

git-svn-id: trunk@42153 -

rtl/objpas/classes/classesh.inc

@@ -602,7 +602,6 @@ type
   end;
 
 { TStrings class }
-
   TStrings = class(TPersistent)
   private
     FDefaultEncoding: TEncoding;
@@ -618,6 +617,7 @@ type
     FSkipLastLineBreak : Boolean;
     FStrictDelimiter : Boolean;
     FLineBreak : String;
+    FPreferValuesToNames,
     FWriteBOM: Boolean;
     function GetCommaText: string;
     function GetName(Index: Integer): string;
@@ -736,6 +736,7 @@ type
     property StringsAdapter: IStringsAdapter read FAdapter write SetStringsAdapter;
     Property SkipLastLineBreak : Boolean Read GetSkipLastLineBreak Write SetSkipLastLineBreak;
     property WriteBOM: Boolean read FWriteBOM write FWriteBOM;
+    Property PreferValuesToNames : Boolean Read FPreferValuesToNames Write FPreferValuesToNames;
   end;
 
 { TStringList class }

rtl/objpas/classes/stringl.inc

@@ -162,6 +162,7 @@ begin
   FNameValueSeparator:=c;
 end;
 
+
 Function TStrings.GetNameValueSeparator :Char;
 begin
   CheckSpecialChars;
@@ -248,8 +249,13 @@ begin
     AName:=Copy(AValue,1,L-1);
     System.Delete(AValue,1,L);
     end
+  else if PreferValuesToNames then
+    AName:=''
   else
-    AName:='';
+    begin
+    aName:=aValue;
+    aValue:='';
+    end;
 end;
 
 function TStrings.ExtractName(const s:String):String;