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

← →
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 - чистое не соответствие. Если я не путаю. Будь вниметельней.

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

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