| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нужна помощь, я в отчаянии :-) [D6, WinXP]
Данькин Дмитрий © (2002-05-31 09:31:00)Не могу понять в чем дело. В синтаксисе ошибок не находит, а дебагер ругается нехорошими словами. Посмотрите если не сложно, я уже не знаю что делать :( Заранее благодарен!
Вот код:
procedureTForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
Keys: TStrings;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
ifReg.OpenKey("\SOFTWARE\Microsoft\Windows NT\CurrentVersion", False) then
begin
Reg.GetValueNames(Keys);
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
end;
Данькин Дмитрий (2002-05-31 10:02:00) [1]Всем спасибо!
Lord Warlock (2002-05-31 09:58:00) [2]
> Данькин Дмитрий (31.05.02 09:51)
inherited означает вызов родительского обработчика события TForm.OnCreate, что совершенно ни к чему...
MBo (2002-05-31 09:56:00) [3]Inherited- вызов метода предка
Кстати, Keys - локальная переменная и не используется
Внук (2002-05-31 09:55:00) [4]Значит вызов унаследованного метода предка, в данном случае вероятно TForm.OnCreate
Данькин Дмитрий (2002-05-31 09:52:00) [5]Просто я с энглишем не дружу
Данькин Дмитрий (2002-05-31 09:51:00) [6]2Kaban:
Я уберу, но что он вообще значит?
Kaban (2002-05-31 09:48:00) [7]2 Данькин Дмитрий
Не удивляйтесь, просто вопрос очень простой.
P.S.
Кстати inherited вы все таки уберите
Внук (2002-05-31 09:46:00) [8]В нашем полку прибыло :)
Данькин Дмитрий (2002-05-31 09:43:00) [9]Если честно, я немножко в шоке :) Первый раз на этом форуме, не успел задать вопрос, тут же получил ответ. Не перевелись еще на свете добрые люди. Пожалуй я тут пропишусь :)
Данькин Дмитрий (2002-05-31 09:39:00) [10]2Kaban:
Огромное спасибо :)))
Kaban (2002-05-31 09:36:00) [11]var Keys : TStringList;
bagin
Keys := TStringList.Create;
...
Keys.Free;
end;
Song (2002-05-31 09:36:00) [12]:))
Данькин Дмитрий (2002-05-31 09:35:00) [13]Так в документации по дельфям пример пиведен именно inherited
MBo (2002-05-31 09:32:00) [14]inherited; ?????????????
| |
