Das habe ich aber nicht gemeint.
Ich spreche davon:
Zitat:
Delphi-Quellcode:
reg := TRegistry.Create;
with reg do
begin
RootKey := HKEY_CURRENT_USER;
if OpenKey('Software\Fischmob\Flotteninformationen\0.1 beta', false) then
begin
Try
Edit1.Text := ReadString('Typ 1');
Edit2.Text := ReadString('Typ 2');
Edit3.Text := ReadString('Typ 3');
Edit4.Text := ReadString('Typ 4');
Edit5.Text := ReadString('Typ 5');
Edit6.Text := ReadString('Typ 6');
Edit7.Text := ReadString('Typ 7');
Edit8.Text := ReadString('Typ 8');
Edit9.Text := ReadString('Typ 9');
finally
CloseKey;
Free;
end;
end;
end;
Das
try/
finally wird üblicherweise nach dem Erzeugen des Registry-Objektes benutzt. Wenn du auf Nummer Sicher gehen willst, kannst du auch "OpenKey" noch mal damit einklammern, so wie du es ja auch getan hast.