znowu Mam problem z Rejestrem i CheckBox1

0

Mam problem z CheckBox i jego ustawieniem w rejestsze
Problem w tym że jak zaznaczam to rejest nie przyjmuje tego ze jest na True, tak jak by nie potrafił zapisać do rejestru. Edit zapisuje ale CheckedBox nie chce.

var
Reg : TRegistry; deklaruj zmienna dla klasy
begin
Reg := TRegistry.Create;
stworz zmienna
try
Reg.OpenKey('Software\test', True); * utworz katalog

Reg.WriteBool('CheckBox1', CheckBox1.Checked );
Reg.WriteString('Edit', Edit1.Text);
Reg.WriteBool('CheckBox2', CheckBox2.Checked ); * zapisz

finally
Reg.Free; // zwolnij klase
end;
end;
bo zamiast CheckBox1.Checked było false ale nie mogłem potem zmieniać.
to kod ktorego uzywam, pomózcie mi plisssssssssss
:(--&gt &gt ( DELPHI 5 ) &lt &lt
&gt &gt &gt DELPHI 6 &lt &lt &lt

0

A może spróbuj tak:
dodaj do var'a zmienną string,
potem sprawdź:

var
Reg : TRegistry; deklaruj zmienna dla klasy
zmienna : String;
begin
Reg := TRegistry.Create;
stworz zmienna
try
Reg.OpenKey('Software\test', True); utworz katalog
if CheckBox1.Checket=true then zmienna:='tak' else zmienna:='nie';
Reg.WriteString('CheckBox1',zmienna);
Reg.WriteString('Edit', Edit1.Text);
if CheckBox2.Checket=true then zmienna:='tak' else zmienna:='nie';
Reg.WriteBool('CheckBox2', zmienna);
zapisz
finally
Reg.Free; // zwolnij klase
end;
end;

jeśli jest więcej checkboxów, to wystarczy napisać małą funkcję

:-)

0

Już mam: albo wstaw

function odczyt(CheckBox:TCheckBox):string;
begin
if CheckBox.Checked=true then result:='tak' else result:='nie';
end;

i wiesz chyba o co chodzi? :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0