Ĺadny brzuch
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('(Domyślna)',Edit1.Text);
Reg.CloseKey;
Reg.Free;
Mam taką oto procedurke służącą do zmiany nazwy kosza (nowa nazwa podawana jest w Edit1). Mam z tym taki problem że nie zmiena mi wartości, tylko tworzy nową, wiecie dlaczego tak się dzieje :? Probowalem juz na początku usunąć starą i stworzyć nową, jednak to też nic nie daje [:/] Dodam jeszcze ze RenameValue tez nie pomaga.
__ __ __ __ __ __ __ __ __ __
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
nie Reg.WriteString('(Domyślna)',Edit1.Text);
tylko
Reg.WriteString('',Edit1.Text);
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na wyżej wymienionej stronie
callto://beldzio_software
Dzięki Bełdzio ;)
__ __ __ __ __ __ __ __ __ __
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
Ja wtrące -- a gdzie wpisac ta procedure ?? w edit ?? ;)
PS. nie mam przed sobą delphi...:cheesy:
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
cytat:yoyek napisał:
Ja wtrące -- a gdzie wpisac ta procedure ?? w edit ?? ;)
Tam gdzie Ci pasuje - w OnCreate, onclick itp itd.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:yoyek napisał:
Ja wtrące -- a gdzie wpisac ta procedure ?? w edit ?? ;)
Zależy jaki chcesz uzyskać efekt...
Praktycznie możesz to wsadzić gdzie chcesz...
Jeżeli chcesz, aby nazwa była zmieniana po naciśnieciu buttona w delphim, to wrzuć to do zdarzenie onclick pod button, itd... ;)
// My Web // My GG // My E-Mail //
Najlepiej zrobić po naciśnięciu ENTER
np. Piszesz w Edit i ENTER to tak:
w OnPressKey Edita:
if key #13 then
blablabla..
:)
Anonymous AdSoftKontakt e-mail
oj nie OnPressKey tylko onkeypress :)
Anonymous AdSoftKontakt e-mail
Tak zrobiłem i... wyskakuje mi kilka bledów (wtym 6 takich samych :P)
Moja procedura wyglada tak:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key #13 then
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
A bledy tak:
[Error] Unit1.pas(28): Missing operator or semicolon
[Error] Unit1.pas(29): Undeclared identifier: 'Reg'
[Error] Unit1.pas(29): Missing operator or semicolon
[Error] Unit1.pas(30): Missing operator or semicolon
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(32): Missing operator or semicolon
[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(34): Missing operator or semicolon
Co jest zle ?? :(
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
cytat:yoyek napisał:
...
A gdzie jest var reg: TRegistry
i uses REGISTRY :? 8)
----
m@il: ali88@tlen.pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
cytat:Ali240 napisał:
cytat:yoyek napisał:
...
A gdzie jest var reg: TRegistry
i uses REGISTRY :? 8)
----
m@il: ali88@tlen.pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
To co ?? ma być tak ?? (nie mam delphi przy sobie...) :
procedure TForm1.Edit1KeyPress(Sender: TObject; var reg: TRegistry
Key: Char);
begin
if key #13 then
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
i w uses dodac "registry"
TAK ?? :D
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
cytat:yoyek napisał:
...
procedure TForm1.Edit1KeyPress(Sender: TObject, var Key: Char); var Reg : TRegistry; begin if key #13 then Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False); Reg.WriteString('',Edit1.Text); Reg.CloseKey; Reg.Free; end;
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na wyżej wymienionej stronie
callto://beldzio_software
cytat:yoyek napisał:
Tak zrobiłem i... wyskakuje mi kilka bledów (wtym 6 takich samych :P)
Moja procedura wyglada tak:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key #13 then
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
A bledy tak:
[Error] Unit1.pas(28): Missing operator or semicolon
[Error] Unit1.pas(29): Undeclared identifier: 'Reg'
[Error] Unit1.pas(29): Missing operator or semicolon
[Error] Unit1.pas(30): Missing operator or semicolon
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(32): Missing operator or semicolon
[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(34): Missing operator or semicolon
Co jest zle ?? :(
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key #13 then
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
end;
Anonymous AdSoftKontakt e-mail
cytat:Anonymous napisał:
....
czym w działaniu to się różni od mojego kodu ???
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
cytat:Bełdzio napisał:
cytat:Anonymous napisał:
....
czym w działaniu to się różni od mojego kodu ???
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
sorry ale dopiero po fakcie zobaczyłem :P
Anonymous AdSoftKontakt e-mail
cytat: Bełdzio:
czym w działaniu to się różni od mojego kodu ???
Chyba się różni i Twój kod nie będzie działał poprawnie bo nie dałeś begin i end;
cytat:
procedure TForm1.Edit1KeyPress(Sender: TObject, var Key: Char); var Reg : TRegistry; begin if key #13 then [b] begin[/b] //tu Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False); Reg.WriteString('',Edit1.Text); Reg.CloseKey; Reg.Free; [b] end;[/b] //i tu end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam taką oto procedurke służącą do zmiany nazwy kosza (nowa nazwa podawana jest w Edit1). Mam z tym taki problem że nie zmiena mi wartości, tylko tworzy nową, wiecie dlaczego tak się dzieje :? Probowalem juz na początku usunąć starą i stworzyć nową, jednak to też nic nie daje [:/] Dodam jeszcze ze RenameValue tez nie pomaga.
__ __ __ __ __ __ __ __ __ __
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
nie Reg.WriteString('(Domyślna)',Edit1.Text);
tylko
Reg.WriteString('',Edit1.Text);
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na wyżej wymienionej stronie
callto://beldzio_software
Dzięki Bełdzio ;)
__ __ __ __ __ __ __ __ __ __
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
Ja wtrące -- a gdzie wpisac ta procedure ?? w edit ?? ;)
PS. nie mam przed sobą delphi...:cheesy:
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
cytat:yoyek napisał:
Ja wtrące -- a gdzie wpisac ta procedure ?? w edit ?? ;)
Tam gdzie Ci pasuje - w OnCreate, onclick itp itd.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:yoyek napisał:
Ja wtrące -- a gdzie wpisac ta procedure ?? w edit ?? ;)
Zależy jaki chcesz uzyskać efekt...
Praktycznie możesz to wsadzić gdzie chcesz...
Jeżeli chcesz, aby nazwa była zmieniana po naciśnieciu buttona w delphim, to wrzuć to do zdarzenie onclick pod button, itd... ;)
// My Web // My GG // My E-Mail //
Najlepiej zrobić po naciśnięciu ENTER
np. Piszesz w Edit i ENTER to tak:
w OnPressKey Edita:
if key #13 then
blablabla..
:)
Anonymous AdSoftKontakt e-mail
oj nie OnPressKey tylko onkeypress :)
Anonymous AdSoftKontakt e-mail
Tak zrobiłem i... wyskakuje mi kilka bledów (wtym 6 takich samych :P)
Moja procedura wyglada tak:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key #13 then
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
A bledy tak:
[Error] Unit1.pas(28): Missing operator or semicolon
[Error] Unit1.pas(29): Undeclared identifier: 'Reg'
[Error] Unit1.pas(29): Missing operator or semicolon
[Error] Unit1.pas(30): Missing operator or semicolon
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(32): Missing operator or semicolon
[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(34): Missing operator or semicolon
Co jest zle ?? :(
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
cytat:yoyek napisał:
...
A gdzie jest var reg: TRegistry
i uses REGISTRY :? 8)
----
m@il: ali88@tlen.pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
cytat:Ali240 napisał:
cytat:yoyek napisał:
...
A gdzie jest var reg: TRegistry
i uses REGISTRY :? 8)
----
m@il: ali88@tlen.pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712
To co ?? ma być tak ?? (nie mam delphi przy sobie...) :
procedure TForm1.Edit1KeyPress(Sender: TObject; var reg: TRegistry
Key: Char);
begin
if key #13 then
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
i w uses dodac "registry"
TAK ?? :D
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
cytat:yoyek napisał:
...
procedure TForm1.Edit1KeyPress(Sender: TObject, var Key: Char); var Reg : TRegistry; begin if key #13 then Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False); Reg.WriteString('',Edit1.Text); Reg.CloseKey; Reg.Free; end;
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na wyżej wymienionej stronie
callto://beldzio_software
cytat:yoyek napisał:
Tak zrobiłem i... wyskakuje mi kilka bledów (wtym 6 takich samych :P)
Moja procedura wyglada tak:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key #13 then
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
A bledy tak:
[Error] Unit1.pas(28): Missing operator or semicolon
[Error] Unit1.pas(29): Undeclared identifier: 'Reg'
[Error] Unit1.pas(29): Missing operator or semicolon
[Error] Unit1.pas(30): Missing operator or semicolon
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(32): Missing operator or semicolon
[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(34): Missing operator or semicolon
Co jest zle ?? :(
---------------------->
GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl
YoYek Master - Delphi NoN StOp !!!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key #13 then
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False);
Reg.WriteString('',Edit1.Text);
Reg.CloseKey;
Reg.Free;
end;
end;
Anonymous AdSoftKontakt e-mail
cytat:Anonymous napisał:
....
czym w działaniu to się różni od mojego kodu ???
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
cytat:Bełdzio napisał:
cytat:Anonymous napisał:
....
czym w działaniu to się różni od mojego kodu ???
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
sorry ale dopiero po fakcie zobaczyłem :P
Anonymous AdSoftKontakt e-mail
cytat: Bełdzio:
czym w działaniu to się różni od mojego kodu ???
Chyba się różni i Twój kod nie będzie działał poprawnie bo nie dałeś begin i end;
cytat:
procedure TForm1.Edit1KeyPress(Sender: TObject, var Key: Char); var Reg : TRegistry; begin if key #13 then [b] begin[/b] //tu Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}',False); Reg.WriteString('',Edit1.Text); Reg.CloseKey; Reg.Free; [b] end;[/b] //i tu end;