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

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

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