Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
7. Jul 2010
War auch mehr ans Mätzchen gerichtet ... bei ihm klang es so, als wenn es unbedingt nötig ist. :stupid:
Wenn man sich das OpenKey als ChangeToKey vorstellt, dann wäre es wohl einleuchtender, warum man es nicht unbedingt wieder schließen muß. :angel:
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
7. Jul 2010
Es ist ja nicht falsch es dennoch zu machen :D
VAR
Registry : TRegistry;
WriteReportToRegistry : Boolean;
begin
WriteReportToRegistry := True;
Registry := TRegistry.Create;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
7. Jul 2010
kann man ... muß man aber nicht :angel2:
function TRegistry.OpenKey(const Key: string; Cancreate: boolean): Boolean;
begin
Result := CheckResult(RegOpenKeyEx(GetBaseKey(Relative), PChar(S), 0,
FAccess, TempKey));
...
if Result then
begin
...
ChangeKey(TempKey, S); <<<<<