1. Pascal / Говнокод #935

    +151

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    procedure Load_flashDEF_setings;
var
  Reg: TRegistry;
  RegKeyPath: string;
begin
 Reg := TRegistry.Create;
 try
  with Reg do begin
   RootKey := HKEY_CURRENT_USER;
   RegKeyPath := 'Software\fuckinSoft';
   OpenKey(RegKeyPath, True);
   if ReadBool('Wipe_File')=false then begin Main.frmMain.CBx_wipe_file.Checked:=false;
   end
   else
   if ReadBool('Wipe_File')=true then begin Main.frmMain.CBx_wipe_file.Checked:=true;
   end
   else
   if ReadBool('Def_Module')=false then begin Main.frmMain.CBx_defence_module.Checked:=false;
   end
   else
   if ReadBool('Def_Module')=true then begin Main.frmMain.CBx_defence_module.Checked:=true;
   end
  end
 finally
  Reg.CloseKey;
  Reg.Free;
 end;
end;
 
procedure Save_flashDEF_setings;
var
  Reg: TRegistry;
  RegKeyPath: string;
begin
 Reg := TRegistry.Create;
 try
  with Reg do begin
   RootKey := HKEY_CURRENT_USER;
   RegKeyPath := 'Software\fuckinSoft';
   OpenKey(RegKeyPath, True);
   if Main.frmMain.CBx_wipe_file.Checked=true then begin WriteBool('Wipe_File', true);
   end
   else
   if Main.frmMain.CBx_wipe_file.Checked=false then begin WriteBool('Wipe_File', false);
   end
   else
   if Main.frmMain.CBx_defence_module.Checked=true then begin WriteBool('Def_Module', true);
   end
   else
   if Main.frmMain.CBx_defence_module.Checked=false then begin WriteBool('Def_Module', false);
   end
  end
 finally
  Reg.CloseKey;
  Reg.Free;
 end;
end;

    Ифы хороши в меру =\

    Запостил: guest, 23 Апреля 2009

    Комментарии (1) RSS

    • ava guest 23.04.2009 23:40 # +1

      Leonid:
      пестата! я сел перечитывать все книги по делфе. не будить.
      Ответить

    Добавить комментарий