Discussion :

[the_magik_mushroom]

bonjour,

je connais le chemin et la cle ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  var : reg : Tregistry;
 
  reg := tregistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software\Microsoft\abcexemple',false);

j'ai des milliers de string value dans cette cle, ex name:

'allor (3499)'
'axzon9834'
'bouchedfdf'
'car0940949(30)'

ce que je voudrais c'est trouver/lire le nom d'une string value dont je je connais que le debut (et pas la fin) ex :

je connais 'allor', 'axon', car09' ect..


comment faire pour ouvrir et lire 'allor (3499)' quand je ne connais que 'allor' ?

merci d'avance

[Paul TOTH]

avec TRegistry.GetKeyNames qui te donnera la liste des clés. Ensuite, à toi de faire le tri.

[the_magik_mushroom]

oui je pensais justement a affecter TRegistry.GetKeyNames dans un TStringList puis faire une recheche dedans avec ce genre de code (ici exemple de recherche dans un TListbox) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Function Cherche_ListBox(Chaine:string;ListBox:TListBox):Integer;
 var TayChain, ListCont, i, j : integer;
     s, s2                    : string;
     ListVirtuel              : TStringList;
  begin
      ListVirtuel := TStringList.Create;       { on creer une liste virtuelle }
      TayChain    := Length(Chaine);           { taille de la chainne à chercher }
      ListCont    := ListBox.Count-1;          { nb d'items -1}
 
    For i:= 0 to ListCont do
     begin
      s := ListBox.Items.Strings[i]; { on recup la ligne }
       s2 := '';
       if Length(s) > TayChain Then    { si la taille de l'item est la meme que celle de la chaine on ne fait rien }
        begin
          for j := 1 to TayChain do    { sinon on le met à la meme taille }
           begin
             s2 := s2 + s[j]; { On met cette ligne à la meme taille que la recherche }
           end;
        end
        else s2 := s;
 
      ListVirtuel.Add(s2); {on ajoute les items ds la liste virtuelle }
     end;
 
      result := ListVirtuel.IndexOf(Chaine); { le résultat en integer }
 
      ListVirtuel.Destroy;
 
end;

si quelqu'un voit une autre methode

[sjrd]

J'ai du mal à comprendre le but de ta fonction, mais ce que tu cherches est peut-être StringsOps.FindAtPos, utilisée comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CompleteName := KeyNames[StringsOps.FindAtPos(KeyNames, PartialName)];

[Gilbert Geyer]

Salut,

Suggestion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        if pos('allor', maChaineLongue)=1 then  nomComplet := maChaineLongue;
        c''est à dire :
        if pos(DebutDuNom, maChaineLongue)=1 then  nomComplet := maChaineLongue;

A+

Tiens Sjrd vient d'insérer une autre solution

[Paul TOTH]

si quelqu'un voit une autre methode

il est amusant ton code...il a une logique qui m'est totalement étrangère en fait

première chose qui me saute aux yeux, tu pars du principe que les éléments de ta liste de recherche sont trop long, donc tu crées une nouvelle liste avec les mêmes éléments mais ajustés à la bonne taille (au passage tu aurais pu faire sauter ceux qui sont trop petits).

imagine que l'élément recherché soit le premier de la liste alors que celle-ci contient disont...300 lignes

tu vas tester, tronquer, triturer 300 lignes alors que tester la première ligne aurait était suffisant

bien évidemment si la ligne correspondante est la 300ième, ça ne fera pas bcp de différence...mais tout de même !

donc le plus simple est de parcourir la liste et de comparer les deux chaines à chaque fois en s'arrêtant si ça correspond

[the_magik_mushroom]

voila j'ai trouvé mon bonheur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure TForm1.ListBox1Click(Sender: TObject);
var  reg : Tregistry; x,y : integer; lsitx : TStringList;
begin
 
reg := tregistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\abcexemple',false);
 
 lsitx := Tstringlist.Create;
 reg.GetValueNames(lsitx);
 lsitx.Sorted := true;
 
 y := listbox1.ItemIndex;
 
for x := 0 to lsitx.Count-1 do begin
if pos(listbox1.Items.Strings[y],lsitx.Strings[x]) =1 then begin
label1.Caption := reg.ReadString(listx.Strings[x]);
break; // si on a trouvé, on arrete de chercher
end;
 
end;
end;

merci a tous