Скачать: CL | DM;

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

← →
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;

---

← →
Fay ©   (2005-01-06 09:03) [14]

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

---

← →
begin...end ©   (2005-01-06 09:06) [15]

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

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

---

← →
Fay ©   (2005-01-06 09:09) [16]

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

---

← →
KSergey ©   (2005-01-06 09:35) [17]

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

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

---

← →
Fay ©   (2005-01-06 10:30) [18]

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

---

← →
ceval ©   (2005-01-06 15:21) [19]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.033 c