Is' ja gar nicht so off-topic.
Ich kann den von Dir angesprochenen Fehler momentan nicht entdecken. Hier mal der Auszug aus der .WriteInteger-Methode:
Delphi-Quellcode:
CreateKey(Section);
Key := GetKey(Section);
if Key <> 0 then
try
OldKey := CurrentKey;
SetCurrentKey(Key);
try
inherited WriteString(Ident, IntToStr(Value));
finally
SetCurrentKey(OldKey);
end;
finally
RegCloseKey(Key);
end;
Zeile 1: Key wird erzeugt, wenn nicht vorhanden
Zeile 2: Key wird abgefragt und ...
Zeile 3: ... nur dann, wenn Key existiert, wird der folgende Code ausgeführt.
Ich sehe das als prinzipiell richtig an - ohne jetzt diese Klasse als Ganzes verteidigen zu wollen.
Daniel R. Wolf
mit Grüßen aus Hamburg