Нужна помощь, я в отчаянии :-)

← →
Данькин Дмитрий (2002-05-31 09:31) [0]

Не могу понять в чем дело. В синтаксисе ошибок не находит, а дебагер ругается нехорошими словами. Посмотрите если не сложно, я уже не знаю что делать :( Заранее благодарен!

Вот код:

procedure TForm1.FormCreate(Sender: TObject); var Reg: TRegistry; Keys: TStrings; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey("\SOFTWARE\Microsoft\Windows NT\CurrentVersion", False) then begin Reg.GetValueNames(Keys); Reg.CloseKey; end; finally Reg.Free; inherited; end; end;

← →
MBo © (2002-05-31 09:32) [1]

inherited; ?????????????

← →
Данькин Дмитрий (2002-05-31 09:35) [2]

Так в документации по дельфям пример пиведен именно inherited

← →
Kaban (2002-05-31 09:36) [3]

var Keys : TStringList;
bagin
Keys := TStringList.Create;
...
Keys.Free;
end;

← →
Song © (2002-05-31 09:36) [4]

:))

← →
Данькин Дмитрий (2002-05-31 09:39) [5]

2Kaban:
Огромное спасибо :)))

← →
Данькин Дмитрий (2002-05-31 09:43) [6]

Если честно, я немножко в шоке :) Первый раз на этом форуме, не успел задать вопрос, тут же получил ответ. Не перевелись еще на свете добрые люди. Пожалуй я тут пропишусь :)

← →
Внук © (2002-05-31 09:46) [7]

В нашем полку прибыло :)

← →
Kaban (2002-05-31 09:48) [8]

2 Данькин Дмитрий
Не удивляйтесь, просто вопрос очень простой.

P.S.
Кстати inherited вы все таки уберите

← →
Данькин Дмитрий (2002-05-31 09:51) [9]

2Kaban:

Я уберу, но что он вообще значит?

← →
Данькин Дмитрий (2002-05-31 09:52) [10]

Просто я с энглишем не дружу

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

Inherited- вызов метода предка
Кстати, Keys - локальная переменная и не используется

> Данькин Дмитрий (31.05.02 09:51)

inherited означает вызов родительского обработчика события TForm.OnCreate, что совершенно ни к чему...

← →
Данькин Дмитрий (2002-05-31 10:02) [14]

Всем спасибо!

Нужна помощь, я в отчаянии :-) Найти похожие ветки