| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Snek
Зарегистрирован: 13.07.2005
Сообщения: 39
|
 Добавлено: Ср Окт 05 2005 11:18 Заголовок сообщения: Delphi, реестр |
 |
|
Народ кто скажет в чём моя ошибка...
Var
R:TRegistry;
s:TStrings;
begin
R:=TRegistry.Create;
S:=TStrings.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('SoftWare\ODBC\ODBC.INI\ODBC Data Sources\',false);
R.GetValueNames(S);
R.Free;
S.Free;
end;
...выдаёт ошибку "Abstract Error", ругается на функцию R.GetValueNames(S); |
|
| Вернуться к началу |
|
 |
Anvano
Зарегистрирован: 24.03.2005
Сообщения: 58
|
| Добавлено: Ср Окт 05 2005 15:27 Заголовок сообщения: Re: Delphi, реестр |
|
|
| Snek писал(а): | Народ кто скажет в чём моя ошибка...
|
Читаем справку по TStrings:
TStrings class See also Properties Methods. Unit PALClasses Description This base
class use usually used as an abstract class. Use TStringList instead.
Нужно так:
Var
R:TRegistry;
s:TStrings;
begin
R:=TRegistry.Create;
S:=TStringList.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('SoftWare\ODBC\ODBC.INI\ODBC Data Sources\',false);
R.GetValueNames(S);
R.Free;
S.Free;
end;
То есть объявляешь как TStrings, а создаешь экземпляр TStringList |
|
| Вернуться к началу |
|
|
Snek
Зарегистрирован: 13.07.2005
Сообщения: 39
|
| Добавлено: Чт Окт 06 2005 07:11 Заголовок сообщения: |
|
|
Огромнейшее спасибо!!! просто спас!! Так держать чувак!!  |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
