Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 091

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Я конечно вообще туплю.... Мне надо получить список всех ключей реестра в Memo, хотя нет в Tstrings;
вместе с этим получить во второй Tstrings имена разделов HKEY_ в которых находится n-ый ключ из Первой Tstrings;
т.е. есть ключ HKEY_USERS\.DEFAULT\Console
значит в первый Tstrings довавится '\.DEFAULT\Console' а во второй 'HKEY_USERS' и
Tstrings2[n]='HKEY_USERS' а
Tstrings1[n]='\.DEFAULT\Console'

в идеале всё это процедурой
procedure GetRegKeys(var st1,st2:Tstrings);

Gooddy Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Gooddy (статус: 3-ий класс)
Вопрос отправлен: 5 ноября 2007, 20:14
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Dron

Здравствуйте, Wallpk!
Насколько я понял, вам нужно разделить путь на составляющие... Делается это с помощью TStringList, в нём есть такая функция. Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var S: TStrings;
begin
  S:=TStringList.Create;
  S.Delimiter:='\';
  S.DelimitedText:='HKEY_USERS\.DEFAULT\Console';
  Memo1.Lines:=S;
  S.Free;
end;
Написать процедуру - проще простого.
Удачи!

Ответ отправил: Dron (статус: Студент)
Время отправки: 5 ноября 2007, 20:31
Оценка за ответ: 1

Комментарий к оценке: совсем не то

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 17 октября 2017, 21:42
Выполнено за 0.03 сек.
Рейтинг@Mail.ru