Comment améliorer (pour que ca marche) ca ? :(

Question

g une fonction : 

function WriteReg(Key:string;Value:string;Data:string):boolean; 
var registre : Tregistry; root:string;
begin
root:=SelPartText1(key);
key:=SelPartText2(key);
Registre:=TRegistry.Create;
  case root of
    'HKEY_CLASSES_ROOT' : Registre.RootKey:=HKEY_CLASSES_ROOT;
    'HKEY_CURRENT_USER' : Registre.RootKey:=HKEY_CURRENT_USER;
    'HKEY_LOCAL_MACHINE' : Registre.RootKey:=HKEY_LOCAL_MACHINE;
    'HKEY_USERS' : Registre.RootKey:=HKEY_USERS;
    'HKEY_CURRENT_CONFIG' : Registre.RootKey:=HKEY_CURRENT_CONFIG;
  end;
  try
    Registre.OpenKey(key,true);
    registre.WriteString(value,data);
  except
    messagedlg('Impossible d''accéder à la base des registres',mterror,[mbok],0);
  end;
  Registre.Free;
end;

SelPartText1 & 2 étant des fonction de sépartion de string !
le porb c la section case .. of !!!

slachz · Answer

d'abord tu peux simplifier ta function par function 
WriteReg(Key, Value, Data:string):boolean; pour les parametres
sinon
case .. of accepte que des valeurs ordinales style ('a'..'z')
sinon la syntaxe est


case variable of
             valeur1 : parametre
             valeur2 : parametre
             
             valeurN : parametre
else
end;



et là t'oublie les : je crois que c'est pour ça ^^

slachz · Answer

zut ça prend pas les tabulations ! et g oubliés les ; derrieres les "instructions" (et pas les parametres).

alexis2015 · Answer

ok merci mais les : son en fin de ligne c la disposition de delphifr
ms en testant mon prog, il s'arrête à "case root of" ms je c po koi faire !

slachz · Answer

lol oki j'avais pas vus.
et le compilateur il te met koa comme message ?

alexis2015 · Answer

[Error] Project1.dpr(40): Ordinal type required

japee · Answer

Laisse tomber Case of, alexis2015...

Ca ne prend que les expressions de type scalaire, les types chaîne sont interdits (voir l'aide de Delphi à ce sujet).

Pourquoi ne pas faire ainsi :

uses Registry;

function WriteReg(Key:string;Value:string;Data:string):boolean;
var registre: Tregistry; Root: string;
begin
  root:=SelPartText1(key);
  key:=SelPartText2(key);
  Registre:=TRegistry.Create;
  with Registre do
  begin
    try
      if Root = 'HKEY_CLASSES_ROOT' then RootKey := HKEY_CLASSES_ROOT;
      if Root = 'HKEY_CURRENT_USER' then Registre.RootKey:=HKEY_CURRENT_USER;
      if Root = 'HKEY_LOCAL_MACHINE' then Registre.RootKey:=HKEY_LOCAL_MACHINE;
      if Root = 'HKEY_USERS' then Registre.RootKey:=HKEY_USERS;
      if Root = 'HKEY_CURRENT_CONFIG' then Registre.RootKey:=HKEY_CURRENT_CONFIG;
      try
        OpenKey(key,true);
        WriteString(value,data);
      except
        messagedlg('Impossible d''accéder à la base des registres',mterror,[mbok],0);
      end;
    finally
      Free;
    end;
  end;
end;


C'est pas plus compliqué...   ;) 

Bonne prog'   :-p

alexis2015 · Answer

ok merci bcp

alexis2015 · Answer

ca marche po !!!  :sad) 

  [Error] Project1.dpr(40): Undeclared identifier: 'HKEY_CLASSES_ROOT'
  [Error] Project1.dpr(41): Undeclared identifier: 'HKEY_CURRENT_USER'
  [Error] Project1.dpr(42): Undeclared identifier: 'HKEY_LOCAL_MACHINE'
  [Error] Project1.dpr(43): Undeclared identifier: 'HKEY_USERS'
  [Error] Project1.dpr(44): Undeclared identifier: 'HKEY_CURRENT_CONFIG'

 :sad)   :sad)   :sad)

alexis2015 · Answer

suggestion : registre.currentpath ? non ?  ;)

japee · Answer

Alors, tu t'en sors, alexis2015 ?

Voici ta fonction, j'ai gardé tes variables, je l'ai remaniée et testée avec 2 ComboBox et un Button.
Ca marche impeccable.

La fonction :

uses Registry;

function WriteReg(Root, Key, Value, Data: string): boolean;
var registre: Tregistry;
begin
  Result := False;
  Registre:=TRegistry.Create;
  with Registre do
  begin
    try
      if Root = 'HKEY_CLASSES_ROOT' then RootKey := HKEY_CLASSES_ROOT;
      if Root = 'HKEY_CURRENT_USER' then Registre.RootKey := HKEY_CURRENT_USER;
      if Root = 'HKEY_LOCAL_MACHINE' then Registre.RootKey := HKEY_LOCAL_MACHINE;
      if Root = 'HKEY_USERS' then Registre.RootKey := HKEY_USERS;
      if Root = 'HKEY_CURRENT_CONFIG' then Registre.RootKey := HKEY_CURRENT_CONFIG;
      try
        if OpenKey(Key, true) then
        begin
          WriteString(Value, Data);
          Result := True;
        end;
      except
        messagedlg('Impossible d''accéder à la base des registres',mterror,[mbok],0);
      end;
    finally
      Free;
    end;
  end;
end;


Appel de la fonction avec tes variables :

procedure TForm1.Button1Click(Sender: TObject);
var Racine, Cle, Valeur, Donnees: String;
begin
  Racine := SelPartText1(key);
  Cle := SelPartText2(key);
  Valeur := 'Ta valeur';
  Donnees := 'Tes données';
  if WriteReg(Racine, Cle, Valeur, Donnees)then
    ShowMessage('OK')
  else ShowMessage('Erreur');
end;


Vérification avec deux ComboBox et un Button :

procedure TForm1.Button1Click(Sender: TObject);
var Racine, Cle, Valeur, Donnees: String;
begin
  Racine := ComboBox1.Text;
  Cle := ComboBox2.Text;
  Valeur := Application.Title;
  Donnees := ExtractShortPathName(Application.ExeName);
  if WriteReg(Racine, Cle, Valeur, Donnees)then
    ShowMessage('OK')
  else ShowMessage('Erreur');
end;


Ca va aller ?

Bonne prog'   :-p

alexis2015 · Answer

bo ca marche po,
oups g omi de dire que c'était une DLL ( quel con que je suis ) !
excuse!

g tester et ca marche tjs po ! [:'(]

alexis2015 · Answer

ok merci mais g un prob de compilation (cf + haut!)
evid mes fonction sont suivient de stdcall;

alexis2015 · Answer

au fit c'était tt con il fallait juste déclarer windows ds uses !!!

Comment améliorer (pour que ca marche) ca ? :(

13 réponses

Votre réponse

Discussions similaires