Подскажите с реестором

← →
ceval © (2005-01-04 16:13) [0]

Как сделать следующие: есть Edit в нем указываю путь например C:\Temp
и что бы приследующем запуске программы в Edite появлялся этот путь
Делаю так:

procedure TFmain.FormCreate(Sender: TObject);
begin
// создаем обьект Reg
Reg := Tregistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.KeyExists("Software\Arhi_zip") then //если ключ есть то считывается
Reg.OpenKey("Software\Arhi_zip",true) ;
Fedit.Edit1.Text:= reg.readstring("Path"); !!!!!! - как правельно считать Выдает ошибку
end;

procedure TFmain.Button1Click(Sender: TObject);
begin
Reg.OpenKey("Software\Arhi_zip",true) ;
reg.WriteString("Files",ParamStr(0));
reg.WriteString("path",Fedit.Edit1.Text);
end;

← →
Andrewp © (2005-01-04 16:22) [1]

А как выгледет ошибка?

← →
malij (2005-01-04 16:34) [2]

ну по моему считываешь ты правельно, просто присваивать это в
Fedit.Edit1.Text при TFmain.FormCreate нельзя.
Введи переменную а затем уже ее присвой Fedit.Edit1.Text, ну только например в событии TFmain.FormShow
Мне кажется что в этом ошибка

← →
Anatoly Podgoretsky © (2005-01-04 16:42) [3]

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

← →
malij (2005-01-04 16:44) [4]

это ты мне говоришь что неправильно????

← →
malij (2005-01-04 16:47) [5]

а может и не правильно

← →
KSergey © (2005-01-04 17:12) [6]

> Fedit.Edit1.Text:= reg.readstring("Path"); !!!!!! - как
> правельно считать
> Выдает ошибку

А) что такое "Fedit"??
Б) как верно указал [3] Anatoly Podgoretsky эта строка выполнится в любом случае...

← →
begin...end © (2005-01-04 17:17) [7]

> [4] malij (04.01.05 16:44)

А почему Вы так удивляетесь? Вы всё делаете правильно?

← →
malij (2005-01-04 17:30) [8]

хммммм если бы :))))))))

← →
ceval © (2005-01-04 17:32) [9]

KSergey [6]
А) что такое "Fedit"??

"Fedit"- вторая форма на которой находится Edit1в нем указываю путь например C:\Temp ....

Anatoly Podgoretsky [3] А если поставить проверку
если Reg.KeyExists существует then //если ключ есть то считывается
else
не считывать
end;
сейчас нет возможности проверить. Действительно может в этом ошибка что пытается считать вне зависимости есть параметр PATH или нет

← →
ceval © (2005-01-05 18:37) [10]

Может есть у кого кусок кода,пожалуста
Не как не могу разобраться ??

← →
ceval © (2005-01-05 19:51) [11]

Подскажите плиз !!

← →
sniknik © (2005-01-05 19:58) [12]

> "Fedit"- вторая форма на которой находится Edit1в нем указываю путь например C:\Temp ....
которая возможно еще не создана при создании той в которой код отрабатывает.

ceval
ты на уточняющие вопросы принципиально не отвечаеш? > Andrewp © (04.01.05 16:22) [1]
очень помогло бы.

← →
KSergey © (2005-01-06 08:16) [13]

> [10] ceval © (05.01.05 18:37)
> Может есть у кого кусок кода,пожалуста

Пипец...
А своя башка на что??? Все же написано уже! вот же привычка: разжевать надо...

> procedure TFmain.FormCreate(Sender: TObject);
> begin
> // создаем обьект Reg
> Reg := Tregistry.Create;
> Reg.RootKey := HKEY_LOCAL_MACHINE;
> if Reg.KeyExists("Software\Arhi_zip") then //если ключ
> есть то считывается
begin
> Reg.OpenKey("Software\Arhi_zip",true) ;
> Fedit.Edit1.Text:= reg.readstring("Path"); !!!!!! - как
> правельно считать
> Выдает ошибку
end;
> end;

>> правельно
>> выгледет
>> пожалуста
>> Не как не могу разобраться
Блин вы ахринели чтоле? 8)

> [14] Fay © (06.01.05 09:03)

Обычно в таких случаях они говорят, что они, дескать, находятся в другом часовом поясе и у них 3 часа ночи. :-)

А мне запомнилось, что в таких случаях гордо молчат.

Вот издеваться не стоит (или нестоит )!!
Просто не было время разобраться
Спасибо KSergey за исправления.
Всех с наступающим РОЖДЕСТВОМ !!!

Подскажите с реестором Найти похожие ветки