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

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

Помогите разобраться

Comptoi's G ©   (2006-01-17 00:09:00) 

function TForm1.AllKeys(root: HKEY;key:string): String;
 var
 Reg:TRegistry;
 Str: TStrings ;
 begin
   Str:=TStrings.Create;
   Reg:=TRegistry.Create;
   try
   reg.RootKey := HKEY_CURRENT_USER;
   reg.OpenKey(key,false);
reg.GetKeyNames(str);
   reg.Closekey;
   except
   end;
   Reg.free;
   Str.free;
end;

Выдает ошибку, при выполнении программы в выделенной строке
что-то не так с переменной Str ?

---

STK   (2006-01-17 01:11:00) [1]

Не, походу дела я попутал х.. с трамвайной ручкой, но попробуй.

---

STK   (2006-01-17 01:08:00) [2]

> Str: TStrings ;


> а Str:=TStringList.Create

Ну наверно не при выполнении а при компеляции. Переменная типа Tstring, а create как TstringList - чистое не соответствие. Если я не путаю. Будь вниметельней.

---

Compton's G   (2006-01-17 00:16:00) [3]

Блин вот я баран, не Str:=TStrings.Create, а Str:=TStringList.Create

---

Наверх