Verständisfrage: TStringlist als Hashmap & Löschen leerer Values

[amoibos]

Wie im Betreff bereits geäußert nutze ich TStringlist und der Values-Eigenschaft um eine Hashmap(Key->Value)-Funktionalität nachzubauen. Zu meiner Verwunderung musste ich feststellen, dass laut Implementierung leere Value-Strings dazu führen dass das komplette Paar entfernt wird. Hat das einen tieferen Grund unabhängig der Verärgerung der Programmierer? Ich nehme mal an, dass ist nicht nur in Delphi 5 so implementiert.

[Uwe Raabe]

Über den Grund kann man wohl nur rätseln, aber immerhin ist es so, daß du, wenn du einen leeren Wert in Values[<xxx>] rein schreibst, auch beim Lesen ein leerer Wert zurückgegeben wird. Stellt sich also erstmal die Frage, warum dir dieses Verhalten nicht genügt, und dann, welche Implementierung für deinen Fall besser geeignet ist. Bei neueren Delphi-Versionen würde man wohl auf TDictionary<string, string> zurückgreifen.

[amoibos]

Weil das Hinzufügen eines neuen Paares wo der Wert leer ist, verworfen wird? Wo ist da die Logik?

[Sir Rufo]

Zitat von amoibos:

Weil das Hinzufügen eines neuen Paares wo der Wert leer ist, verworfen wird? Wo ist da die Logik?

Wo ist das Problem?

Du speicherst unter einem Schlüssel einen Wert (leer). Wenn du jetzt abfragst, welcher Wert für diesen Schlüssel gespeichert ist bekommst du welchen Wert zurück? Genau den, den du auch gespeichert hast: (leer)

Oder hast du (besonders leer) erwartet?

[Dejan Vu]

Genau genommen ist 'leer' <> 'nicht vorhanden'. Und wenn man das unterscheiden will (was vernünftig ist), dann ist das ein Problem => TStringList <> Hashmap/Dictionary.

[Uwe Raabe]

Zitat von Dejan Vu:

Genau genommen ist 'leer' <> 'nicht vorhanden'. Und wenn man das unterscheiden will (was vernünftig ist), dann ist das ein Problem => TStringList <> Hashmap/Dictionary.

Dann ist die TStringList vielleicht nicht die richtige Implementierung für deine Hashmap bzw. dein Directory? Wie schon erwähnt, gibt es dafür mittlerweile geeignetere Klassen.

[Dejan Vu]

Auffallend richtig.

[kwhk]

Wenn Du möchtest, dass dieser Eintrag ganz verschwindet, dann musst Du den Rest um EINS nach vorn umspeichern, gewissermaßen ein REORG der StringList vornehmen. Statt leer könnte man ja auch "NICHT VORHANDEN" oder "GELÖSCHT" eintragen und diese Zeilen einfach ignorieren.

[Sir Rufo]

Zitat von kwhk:

Wenn Du möchtest, dass dieser Eintrag ganz verschwindet, dann musst Du ...

... einfach nur sl.Values['foo'] := ''; angeben. Dann ist der Eintrag verschwunden. Genau dieses Verhalten ist es doch, was der TE bemängelt.

[nahpets]

Das beschriebene "Problem" liegt in dieser Routine der Delphiquellen:

Delphi-Quellcode:

procedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);
begin
  if Value <> '' then
  begin
    if Index < 0 then Index := Add('');
    Put(Index, Names[Index] + NameValueSeparator + Value);
  end
  else
    if Index >= 0 then Delete(Index);
end;

(Bei Delphi 7 in der Classes.pas zu finden.)

Eventuell könnte man eine eigene Klasse definieren, die von TStringList abgeleitet ist und dort die Methode SetValueFromIndex entsprechend den eigenen Wünschen überschreiben?

Eigentlich müsste ja nur

Delphi-Quellcode:

  else
    if Index >= 0 then Delete(Index)

entfallen.