değer yoksa

[zaxacm]

program altında tarih değeri kullanıcı tarafından silinme ihtimaline karşı önlem almak istiyorum.

Yani aşağıdakine benzer birşey yapmak istiyorum
Reg.OpenKey('Software\program\',True);
if not Reg.ReadDate('tarih\') then //yoksa
showmessage('Hata! Değer silinmiş'

[ulu coder]

Bir klasör altındaki değişkenlerin listesini alabiliyoruz;

Kod: Tümünü seç

var
  reg:Tregistry;
  liste:TStringList;
  i:integer;
  t_var:boolean;
begin
  reg:=TRegistry.Create;
  liste:=TStringList.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\program\',True);
  reg.GetValueNames(liste);
  reg.CloseKey;
  
  t_var:=False;
  For i:=1 to liste.Count do 
  begin
    if liste.Strings[i-1]='tarih' Then t_var:=True;
  end;
  if t_var=False then ShowMessage('Hata! Değer silinmiş');
end;

Kolay gelsin.

EDİT:

Çok teşekkürler..

Faydam olduysa ne mutlu bana.
Fakat bir önerim olacak, tarih'i tarih adlı değişkende saklamayın ve aynı değeri bir yerde daha saklayın.

[zaxacm]

Çok teşekkürler..