TRegistry

[Andreas L.]

Hi Leutz,
mit folgenden Code schreibe ich daten aus einen JvDirectoryedit und 3 edits in die registry:

Delphi-Quellcode:

procedure Tconfig.Button2Click(Sender: TObject);
var Reg : TRegistry;
    a:Boolean;
begin
  Reg:=TRegistry.Create;
  Reg.Rootkey:=HKEY_CURRENT_USER;
  a:= Reg.createkey('\MySQL_Tool');
  if Reg.Openkey('\MySQL_Tool',False) then
  begin
   Reg.WriteString('','MySQL_Tool');
  end;
  a:= Reg.createkey('\MySQL_Tool'+'\mysqlbinpath');
  if Reg.Openkey('\MySQL_Tool'+'\mysqlbinpath',False) then
   Reg.WriteString('',(JvDirectoryedit1.text));
  a:= Reg.createkey('\MySQL_Tool'+'\mysqlhost');
  if Reg.Openkey('\MySQL_Tool'+'\mysqlhost',False) then
   Reg.WriteString('',(edit1.text));
    a:= Reg.createkey('\MySQL_Tool'+'\mysqlusername');
  if Reg.Openkey('\MySQL_Tool'+'\mysqlusername',False) then
   Reg.WriteString('',(edit2.text));
  a:= Reg.createkey('\MySQL_Tool'+'\mysqlpassword');
  if Reg.Openkey('\MySQL_Tool'+'\mysqlpassword',False) then
   Reg.WriteString('',(edit3.text));
  Reg.Free;
end;

Wie kann ich jetzt die eingetragenen Strings von der registry holen lassen und Sie gleich ins richtige Edit einfügen?? Mit Readstring müsste das gehen, hasb aber net geschafft. Kann mir bitte gleich einer den Code geben?

thx