Registry: GetKeyName + Ausgabe in ListBox

[Aike]

Hallo Leute

Ich habe folgendes Programmierziel:
Aus einem Registry-Schlüssel sollen alle Keys ausgelesen werden und nacheinander in einer ListBox (lstbxCharaktere) ausgegeben werden.
Dazu habe ich dies programmiert:

Delphi-Quellcode:

var Charaktere:TStringList;
    i:integer;
    regist:TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey({Key wird geöffnet});
  try
    Charaktere:=TStringList.Create;
    regist.GetKeyNames(Charaktere);
  finally
    regist.free;
  end;

  for i:=0 to Charaktere.Count-1 do
  begin
    try
      lstbxCharaktere.Items.Add(Charaktere.Strings[i]);
    finally
      Charaktere.Free;
    end;
  end;
end;

Das Schöne ist: Wenn es nur einen Key gibt, funktioniert alles reibungslos. Ansonsten gibt es eine Exception (Zugriffsverletzung).
Ich habe hier und auch in anderen Foren keinen Beitrag dazu finden können :|

Vielen Dank im Voraus!

[Aike]

Ich habe leider vergessen zu schreiben, dass, wenn ich für "lstbxCharaktere.Items.Add(Charaktere.Strings[i])" i=1 einsetze, es trotzdem funktioniert. Nur das Hinzufügen eines zweiten Strings führt zu der Exception.
btw. gibt 's hier keine Edit-Funktion?

[MathiasSimmack]

Eine Edit-Funktion gibt es. Abgesehen davon kannst du gleich die Listbox angeben, da sie auch bloß TStrings benutzt. Soll heißen:

Delphi-Quellcode:

regist:=TRegistry.Create(KEY_READ);
try
  regist.RootKey:=HKEY_CURRENT_USER;
  if(regist.OpenKey('bla bla bla',false)) then
  try
    regist.GetKeyNames(lstbxCharaktere.Items);
  finally
    regist.CloseKey;
  end;
finally
  FreeAndNil(regist);
end;

müsste reichen.

[Aike]

Danke, funktioniert.