Как можно реализовать следующее?

В реестре нужно создать раздел
HKEY_LOCAL_MACHINE\MyKey\00000
при добавлении следующей записи, нужно создать раздел
HKEY_LOCAL_MACHINE\MyKey\00001
и так далее. То есть, если раздел 00000 сушествует - создать 00001, если и 00001 сушествует - создать 00002 и т.д и т.п. Идей у меня пока нет, топчусь на одном месте, как видите. Вот и решил спросить.

Пример обязателен, хоть какой-нибудь.  

Код

var t:TStringlist; begin  t:=TStringList.create;  try    with TRegistry.create do      try        RootKey:=HKEY_LOCAL_MACHINE;        OpenKey('Software\MyKey',true);        GetKeyNames(t);        t.Sorted:=true;        t.sort;        if t.count>0 then          OpenKey(Format('%.5d',[strtoint(t[t.count-1])+1]), true)        else          OpenKey('00000', true);        WriteString('A','A');      finally        free;      end;  finally    t.free;  end; end;

Спасибо. На этом форуме действительно профи помогают.
Агой (пока по чешски, или привет, точно уже не помню).  

Для этой цели использую GUI - всегда будет уникальной, хотя и неудобоваримой как Ваш ключ.

Не работает. Ошибочка вот такая:

Project Project1.exe raised exception class EConvertError with message
"MPEG-4DC' Is nol a valid Inleger value". Process slopped. Use Slep or Run to
conllnue.

Вот код:

Код

procedure NewUninstallKey; var UnikKey:TStringlist; begin  Reg := TRegistry.Create; try  Reg.RootKey:=HKEY_LOCAL_MACHINE;  UnikKey:=TStringList.Create;   if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Uninstall', True) then    begin     Reg.GetKeyNames(UnikKey);     UnikKey.Sorted:=true;     UnikKey.sort;      if UnikKey.count > 0 then       Reg.OpenKey(Format('%.5d',[StrToInt(UnikKey[UnikKey.count-1])+1]), True)      else       Reg.OpenKey('\00000', true); //       Reg.WriteString('DisplayName', FrmChange.txtDn.text); //       Reg.WriteString('UninstallString', FrmChange.txtUnstr.text);     end;   Reg.CloseKey;   Reg.Free; except  Reg.CloseKey;  Reg.Free;  UnikKey.Free; end; // FrmChange.Hide; // ReadUninstalKey; end;

Ну так я расчитывал что у тебя будут только папки "00000", "00001" и т.д., а у тебя там появилась "MPEG-4DC". Тебе надо или исключить их появление или обрабатывать эту ситуацию.

Цитата

Тебе надо или исключить их появление или обрабатывать эту ситуацию.

Я не понимаю.

Собственно моя ошибка в том, что видимо нельзя давать готовый код - он будет просто вставлен и вопрошающий так и не поймёт что он делает

В данном случае надо исключить не числовые значения из массива UnikKey - т.е. там надо оставить значения "00000", "00001" и т.п. и исключить типа "MPEG- 4DC", кроме того, естественно я не предполагал что будет посторонний мусор, поэтому надо придумать как обработать ситуацию если попадётся например ключ "234" - сортируются то строки, не цифры, так что такие значения если найдены то должны быть тоже исключены.

Объясни что делает следующий фрагмент кода (желательно по-подробнее):

Format('%.5d',[StrToInt(UnikKey[UnikKey.count-1])+1])




:baaa  :baaa

Функия Format позволяет вставлять в строку различные значения. Например

Format('Егор (%s %s) ',['который', 'не Летов']) вернёт строку:
'Егор (который не Летов)'

т.е. вместо %s будут вставлены значения строк из массива в квадратных скобках

Format('%d Попугаев',[38]) вернёт строку:

'38 Попугаев'

т.е. вместо %d будет вставлено число (не строка) из массива

теперь в нашем случае:


Format('%.5d', ....

"%.5d" обозначает что мы вставляем число и что это число будет пятизначным, т.е. если мы вставим

Format('%.5d', [1]) то получим строку "00001"


"UnikKey.count-1" - номер последней строки в массиве (отсортированном по порядку)

UnikKey[UnikKey.count-1] - последняя строка в массиве

StrToInt - перевод строки в число (она как раз и генерит ошибку, когда попадается строка, которую нельзя конвертировать в целое число)

StrToInt(UnikKey[UnikKey.count-1]) взять последнюю строку в массиве и конвертировать ее в число

StrToInt(UnikKey[UnikKey.count-1])+1 - взять следуещее число


Format('%.5d',[StrToInt(UnikKey[UnikKey.count-1])+1]) - следующее число конвертировать в 5тизначнное число в виде строки

Не выходит у меня без ошибки создать ключ. Может, кто поможет?

Ok, значит задача состоит в том чтобы убрать из массива названий все что не являются цифрами, и сделать это надо здесь:

    Reg.GetKeyNames(UnikKey);
   //сюда вставляет код который удаляет все ключи из UnikKey, которые не являются цифрами
    UnikKey.Sorted:=true;