TStringlist verliert Strings

[Helmi]

Mann könnts auch (unsauber) so machen:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  S: String;
  SL: TStringList;

begin
  SL := TStringList.Create;

  try
    //Test-String
    sl.Add('hallo=test');

    //Name des 1. Index auslesen und an gleicher Stelle in SL zurückschreiben 
    SL.Strings[0] := Format('%s=', [SL.Names[0]]);

    ShowMessage(IntToStr(SL.Count));

    //Wert auslesen
    S := SL.ValueFromIndex[0];

    If S = '' then
      S := '*';

    ShowMessage(S);
  finally
    FreeAndNil(SL);
  end;
end;