Possible bug in TStringList

[egsuh]

I'm afraid setting TStringList.ValueFromIndex[n] := ''  removes the row altogether, even though name is defined.

I confirmed this in TValueListEditor.
 
          ValueListEditor1.Values[ValueListEditor1.Keys[n] := '';    / /works fine, but
          ValueListEditor1.Strings.ValueFromIndex[n-1] := '';    / /removes the whole row.

Also,
         StringList1.Values[StringList1.Names[n]] := '';   works fine.

[Blaazen]

Code: Pascal  [Select][+][-]

1. Procedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);
2.  
3. begin
4.   If (Value='') then
5.     Delete(Index)
6.   else
7.     begin
8.     If (Index<0) then
9.       Index:=Add('');
10.     CheckSpecialChars;
11.     Strings[Index]:=GetName(Index)+FNameValueSeparator+Value;
12.     end;
13. end;

Delphi compatibility, I guess.

[Sieben]

It is indeed a bit confusing and inconsistent. While SetValueFromIndex indeed deletes the entry when Value is blank, it even adds an entry with a blank Name when Index is < 0:

Code: Pascal  [Select][+][-]

1. Procedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);
2. begin
3.   If (Value='') then
4.     Delete(Index)
5.   else
6.     begin
7.     If (Index<0) then
8.       Index:=Add('');
9.     CheckSpecialChars;
10.     Strings[Index]:=GetName(Index)+FNameValueSeparator+Value;
11.     end;
12. end;

SetValue on the other hand apparently allows blank values for Name and Value, there is no testing at all:

Code: Pascal  [Select][+][-]

1. Procedure TStrings.SetValue(const Name, Value: string);
2. Var L : longint;
3. begin
4.   CheckSpecialChars;
5.   L:=IndexOfName(Name);
6.   if L=-1 then
7.    Add (Name+FNameValueSeparator+Value)
8.   else
9.    Strings[L]:=Name+FNameValueSeparator+value;
10. end;

For a consistent behaviour one would also expect that SetValue calls SetValueFromIndex once the index of Name is retrieved, reducing both code and the probability of inconsistencies.

Added: If this were for Delphi compatibility it should at least be consistent.

[PascalDragon]

Added: If this were for Delphi compatibility it should at least be consistent.

Delphi indeed behaves the same for SetValueFromIndex but it also displays the same behavior for SetValue (thus it behaves consistently), that FPC behaves differently is thus a bug. Would you please report it?

[Sieben]

Reported as bug 38214. Bit weird though that empty Names/Keys should be allowed and are even added while empty Values are not...

Edit: still don't know if suggestions are welcome in the bug tracker...

Code: Pascal  [Select][+][-]

1. procedure TStrings.SetValue(const Name, Value: string);
2. var Index: Integer;
3. begin
4.   Index := IndexOfName(Name);
5.   if (Index < 0)
6.   and (Value > '') then
7.     Index := Add(Name);
8.   SetValueFromIndex(Index,Value);
9. end;
10.  
11. procedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);
12. begin
13.   if (Value > '') then
14.   begin
15.     CheckSpecialChars;
16.     if (Index < 0) then
17.       Index := Add('');
18.     Strings[Index] := GetName(Index) + FNameValueSeparator + Value;
19.   end else
20.     if (Index > -1) then
21.       Delete(Index);
22. end;

[Sieben]

I still think it doesn't make any sense to allow for an empty Name here but not for an empty Value, let alone adding an empty Name with SetValueFromIndex. First I thought this is just another weird Emba stuff, but to my very astonishment this misconception as I would call it has been in there since Delphi 1.0... I really wonder if in all those years anyone has ever really thought about it and if it wouldn't be worth a try to have a word with Emba about that...?

[winni]

Added: If this were for Delphi compatibility it should at least be consistent.

Delphi indeed behaves the same for SetValueFromIndex but it also displays the same behavior for SetValue (thus it behaves consistently), that FPC behaves differently is thus a bug. Would you please report it?

Hi

A fixed Delphi bug is a bug because it is not Delphi compatible.

Says the chief physician of the madhouse because he needs new patients.

Winni