Eintrag in TStringList wird gelöscht wenn value auf '' gesetzt wird

[itsChris]

Zitat von Uwe Raabe:

Zitat von itsChris:

SetValue wird aber nicht bei sl[1] := '' aufgerufen (Jedenfalls in Delphi 11 nicht).

In dem Fall würde ja auch nicht nur der Value geleert, sondern das gesamte Name/Value-Pair durch einen Leerstring ersetzt.

Stimmt...hab mal wieder nicht richtig gelesen. Die Zuordnung mit dem Namen hab ich übersehen .

[haentschman]

Wie wäre es denn mit TDictionary<string, string>?
https://docwiki.embarcadero.com/Libr...ns.TDictionary

[himitsu]

Da Values[name] beim Auslesen von nichtexistierenden Namen einen Leerstring zurück gibt, ist es immer Programm auch egal, ob es gelöscht wird, oder nicht.

Außer wenn es z.B. in einer Datei gespeichert werden soll und es dort für "Andere" vorhanden bleiben muß.

[softtouch]

Da die Namen in der Liste erhalten bleiben müssen, unabhängig ob Value einen Wert hat oder nicht, habe ich es einfach so gelöst:

Delphi-Quellcode:

s:=<originaler wert> oder leer

sl[i]:=sl.names[i]+'='+s;

[himitsu]

Wenn es den Eintrag gibt, dann ist es so OK.

Statt '=' kannst/solltest du aber SL.NameValueSeparator nutzen,
falls es mal was Anderes ist.




Ich würde mal einen FeatureRequest zu erstellen, damit man das Löschen in der Liste deaktivieren kann, oder es ein eine Art SL.ValuesNotDeleteIfEmpty[name] := gibt.

Außerdem wollte ich eh mal einen 20 Jahre alten Bug beheben lassen.
Dieses blöde ValueFromIndex wurde ja nur erfunden, weil man ursprünglich (bis Delphi 7 oder so) die Default-Property und Array-Property nicht überladen konnte,
aber seit 15-20 Jahren geht es ja nun direkt

Delphi-Quellcode:

property Values[const Name: string]: string read GetValue write SetValue;
property Values[Index: Integer]: string read GetValueFromIndex write SetValueFromIndex;  // das hier neu

property ValueFromIndex[Index: Integer]: string read GetValueFromIndex write SetValueFromIndex;  // anstatt ähhhhhhhh, zusätzlich zu dem