Znowu rejestr

0

Pisałem podobny post, ale ni dostałe tego czego chciałem więc wyjaśnie dokładniej:

Jest Form1 i Form2.
Na Form2 jest ComboBox i przycisk.
Na Form1 nic nie ma.
Dla przycisku na Form2 mam:
var
Reg: TRegistry;
begin
try
Reg := TRegistry.Create;
Reg.OpenKey(<font color="blue">'Text'</span>,True);
Reg.WriteInteger(<font color="blue">'teskcik'</span>, ComboBox1.ItemIndex);
finally
Reg.Free;
W OnActivate Form1 mam
var
reg: Tregistry;
KeyExist: Boolean;
begin
try
Reg:=Tregistry.create;
KeyExist := Reg.OpenKey('tekst', False);
if not KeyExist then
begin
Form2.ComboBox1.ItemIndex := 6;
end;
form2.ComboBox1.ItemIndex := Reg.ReadInteger('teskcik');
finally
reg.free;

Chodi w tym kodziku aby przy aktywacji formy1 do ComboBox na Form2 była wczytywana warość z rejestru, jeżeli dzieje się to po raz pierwszy to ComboBox1 ustaw ItemIndex na 6.

Wszystko by było Ok. Kompilacja bez problemów.
Jednak przy uruchomienu form1 okno:
Invalid go to data 'teskcik' (chyba tak bo niepamiętam) a po nim następny:
'' is not integer value (tu też dobrze nie pamiętam treści).

Co robić???;-| ;-| Pomocy!!!!

0

if not KeyExist then begin
Form2.ComboBox1.ItemIndex:=6;
end <font color="red">else</span> Form2.ComboBox1.ItemIndex := Reg.ReadInteger('teskcik');

0

if not KeyExist then begin
Form2.ComboBox1.ItemIndex:=6;
end <font color="red">else</span> Form2.ComboBox1.ItemIndex := Reg.ReadInteger('teskcik');

Dzięki!!!!
Już myślałem, że nikt mi nie jest w stanie pomóc... [stuk]

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