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

[itsChris]

Moin, hier der Code, der bei sl.valuefromindex[1] aufgerufen wird und deinen Eintrag unerwartet löscht:

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;

Wenn du auf ein Element zugreifen willst, dann kannst du einfach sl[1] := '' schreiben.