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

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

Здравствуйте, уважаемые эксперты!
Я конечно вообще туплю.... Мне надо получить список всех ключей реестра в 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 (статус: 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 Комментарий к оценке: совсем не то

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

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

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