| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать все параметры ключа реестра?

XeLax ©   (2004-06-28 21:51:00) 

Как узнать все параметры из некоего ключа реестра?
Пишу так и выдает ошибку:

function GetChangedString(s : PChar) : PChar;
 var
   Reg : TRegistry;
   Strings : TStrings;
   i, j, k : integer;
   str, str1 : string;
 begin
   Result:=s;

   str:=s;
   Reg := TRegistry.Create;
   Reg.RootKey:=HKEY_LOCAL_MACHINE;
   Reg.OpenKey('\SYSTEM\WPA',true);

   Strings:=TStrings.Create;
   Reg.GetValueNames(Strings);
   for i:=0 to Strings.Count-1 do  //тута выдает ошибку !
   begin
     ....
   end;
   Reg.Free;
   Strings.Free;
 end;

---

panov   (2004-06-28 21:57:00) [1]

1. TStrings -абстрактный класс, а значит, что можно создавать толтько его потомков, например, TStringList
2. Экземпляр класса надо сначала создавать, а потом использовать:
var
  ...
  Strings : TStringList;
  ...
begin
  Strings := TStringList.Create;

  try
  ...

  finally
    Strings.Free;
  end;

---

Mim1   (2004-06-28 21:56:00) [2]

>  Strings : TStrings;


>  Strings:=TStrings.Create;


Strings := TstringList.Create

---

Наверх