Hallo Leute,
ich habe eine kleine Frage. Ich benutze folgenden Code um Daten aus der Registry auszulesen, ich benutze dafür die
OnClick Routine eines
MainMenu eintrages:
Delphi-Quellcode:
procedure TForm1.Datenholen1Click(Sender: TObject);
var reg : TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Fischmob\Flotteninformationen\0.1 beta', false);
Edit1.Text := reg.ReadString('Typ 1');
Edit2.Text := reg.ReadString('Typ 2');
Edit3.Text := reg.ReadString('Typ 3');
Edit4.Text := reg.ReadString('Typ 4');
Edit5.Text := reg.ReadString('Typ 5');
Edit6.Text := reg.ReadString('Typ 6');
Edit7.Text := reg.ReadString('Typ 7');
Edit8.Text := reg.ReadString('Typ 8');
Edit9.Text := reg.ReadString('Typ 9');
reg.free;
end;
weil ich aber eigentlich einen klick sparen wollte da die Daten sowieso bei jedem Programmstart gelesen werden sollen, habe ich den identischen Code in das
OnCreate Ereigniss von Form1 gesetzt, sobald ich dann das Programm starte werden keine Werte mehr gelesen und alle Werte in der Registry werden auf 0 gesetzt, wie kann das sein?