Текущий архив: 2006.02.05;
Скачать: CL | DM;

Вниз

Помогите разобраться   Найти похожие ветки 

← →
Comptoi's G   (2006-01-17 00:09) [0]

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 ?

---

← →
Compton's G   (2006-01-17 00:16) [1]

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

---

← →
STK ©   (2006-01-17 01:08) [2]

> Str: TStrings ;


> а Str:=TStringList.Create

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

---

← →
STK ©   (2006-01-17 01:11) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.02.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.041 c