Реестр

[AIst]

Здравствуйте уважаемые форумчане! Пишу программу, которая удаляет из реестра ненужные значения. В данном случае это недопустиме URL адреса, которые записывает в реестр Internet Explorer (введенные в адресную строку Web-адреса ). Возникла проблема, программа удаляет все значения независимо от того, допустимые они или нет... ниже основные моменты кода... посмотрите пожалуйста. где я допустил ошибку? Как правильно нужно?

uses
  Windows, Registry, Messages, SysUtils, ShellApi, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  
...

var
  Form1: TForm1;
  Reg:TRegistry;
  links: array [1..26] of string;
  value_names: TStrings;
  history_patch : string;
  cookies_patch : string;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
//заношу в массив адреса допустимых URL//
links[1]:='https://##############.ru/';
links[2]:='https://##############.ru/';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   counter : integer;
   i : integer;
   s:string;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('###здесь путь к ключу###',False);
value_names:=TStringList.Create;
Reg.GetValueNames(value_names); // заношу в StringList параметры ключа реестра
Reg.CloseKey; 
Reg.Free;
for counter:=0 to value_names.Count-1 do
  begin
    s:= value_names[counter];
    for i:=1 to 26 do
         begin
         if (not(s = links[i])) then     // удаляю параметры если их значения не совпадают с заданными в массиве links[]
                                begin
                                Reg:=TRegistry.Create;
                                Reg.RootKey:=HKEY_CURRENT_USER;
                                Reg.OpenKey('###здесь путь к ключу###',False);  
                                Reg.DeleteValue(s);
                                Reg.CloseKey;
                                Reg.Free;
                                end;
         end;
  end;
end;
end.

[mihali4]

программа удаляет все значения независимо от того, допустимые они или нет

Ничего удивительного.
Вот вы выбрали s:= value_names[counter];
И первое же links оказалось ему не равно (оно равно второму там, или третьему, но до сравнения с ними не доходит), а потому вы его р-р-раз:
[I]if (not(s = links)) then // удаляю параметры если их значения не совпадают с заданными в массиве links[]
и удаляете...
Как исправить? Тоже просто - цикл по [I] для каждого s должен прокручиваться полностью... И если не было ни одного совпадения, только тогда удалять.

[AIst]

вроде все правильно

for counter:=0 to value_names.Count-1 do
  begin
    s:= value_names[counter];

это я выбираю одно значение, затем сравниваю с 26 допустимыми

 for i:=1 to 26 do
         begin
         if (not(s = links[i])) then     // удаляю параметры если их значения не совпадают с заданными в массиве links[]
                                begin
                                Reg:=TRegistry.Create;
                                Reg.RootKey:=HKEY_CURRENT_USER;
                                Reg.OpenKey('###здесь путь к ключу###',False);  
                                Reg.DeleteValue(s);
                                Reg.CloseKey;
                                Reg.Free;
                                end;
         end;

чет я запутался... не вижу...

[Роман Радер]

объясняю:
в таких случаях удобно использовать F7
составлю список действий что делает твоя программа:
1) s='helloworld'
2) for i:=1 to 26 do
3) i=0
4) if not (s=links[1]) тоесть :
if not('helloworld'='https://##############.ru/')
- а это правда!
и сразу-же удаляет.

тоесть, при проверке первого-же элементе массива links оно удаляет из реестра.

надо сделать так:

 flag:=false;
 for i:=1 to 26 do
         begin
           flag:=flag or (not(s = links[i]));
         end;
  if flag then
     //тут удаление