Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите с реестором [D7, Win95/98]

ceval © (2005-01-04 16:13:00)
Как сделать следующие: есть 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;

ceval (2005-01-06 15:21:00) [1]
Вот издеваться не стоит (или нестоит )!!
Просто не было время разобраться
Спасибо KSergey за исправления.
Всех с наступающим РОЖДЕСТВОМ !!!

Fay (2005-01-06 10:30:00) [2]
2 KSergey © (06.01.05 9:35) [17]
Есть только розовые очки, но размер не подходит. Не одолжите?

KSergey (2005-01-06 09:35:00) [3]
> [14] Fay © (06.01.05 09:03)

Еще бы красный фломастер взял...

Fay (2005-01-06 09:09:00) [4]
А мне запомнилось, что в таких случаях гордо молчат.

begin...end (2005-01-06 09:06:00) [5]
> [14] Fay © (06.01.05 09:03)

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

Fay (2005-01-06 09:03:00) [6]
>> прав ельно
>> выгл ед ет
>> пожалуста
>> Н екак не могу разобраться
Блин вы ахринели чтоле? 8)

KSergey (2005-01-06 08:16:00) [7]
> [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;

sniknik (2005-01-05 19:58:00) [8]
> "Fedit"- вторая форма на которой находится Edit1в нем указываю путь например C:\Temp ....
которая возможно еще не создана при создании той в которой код отрабатывает.

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

ceval (2005-01-05 19:51:00) [9]
Подскажите плиз !!

ceval (2005-01-05 18:37:00) [10]
Может есть у кого кусок кода,пожалуста
Не как не могу разобраться ??

ceval (2005-01-04 17:32:00) [11]
KSergey [6]
А) что такое "Fedit"??

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

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

malij (2005-01-04 17:30:00) [12]
хммммм если бы :))))))))

begin...end (2005-01-04 17:17:00) [13]
> [4] malij (04.01.05 16:44)

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

KSergey (2005-01-04 17:12:00) [14]
> Fedit.Edit1.Text:= reg.readstring('Path'); !!!!!! - как
> правельно считать
> Выдает ошибку

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

malij (2005-01-04 16:47:00) [15]
а может и не правильно

malij (2005-01-04 16:44:00) [16]
это ты мне говоришь что неправильно????

Anatoly Podgoretsky (2005-01-04 16:42:00) [17]
Неправильно, поскольку попытка чтения, вне зависимости есть параметр PATH или нет

malij (2005-01-04 16:34:00) [18]
ну по моему считываешь ты правельно, просто присваивать это в
Fedit.Edit1.Text при TFmain.FormCreate нельзя.
Введи переменную а затем уже ее присвой Fedit.Edit1.Text, ну только например в событии TFmain.FormShow
Мне кажется что в этом ошибка

Andrewp (2005-01-04 16:22:00) [19]
А как выгледет ошибка?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »