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

    +103

    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
    procedure tform1.cek_setting;
begin
 { RUTIN CEK FILE CONFIG }
  { Cek File Buzz.cfg }
 status := '';
 ceklagu('C:\Windows\buzz.cfg');
 status := cek_lagu;
 if status = 'sukses' then
 begin
  listbox2.Items.LoadFromFile('C:\Windows\buzz.cfg');
  load_setting;
  save_setting;
 end else
 begin
  default_setting;
  load_setting;
  save_setting;
 end;
  { Cek File Buzz.dat }
 status := '';
 ceklagu('C:\Windows\buzz.dat');
 status := cek_lagu;
 if status = 'sukses' then
 begin
  listbox3.Items.LoadFromFile('C:\Windows\buzz.dat');
  convert_files;
 end else
  listbox3.Items.SaveToFile('c:\Windows\buzz.dat');
 { Cek File Buzz.sld }
 status := '';
 ceklagu('C:\Windows\buzz.sld');
 status := cek_lagu;
 if status = 'sukses' then
 begin
  listbox4.Items.LoadFromFile('C:\Windows\buzz.sld');
 end else
  listbox4.Items.SaveToFile('C:\Windows\buzz.sld');
end;

    https://github.com/achri/Buzzwave/blob/master/Unit1.pas
    Там такого завались, achriнеть можно.

    Запостил: d_dev, 17 Октября 2011

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

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