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

    +137

    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
    DBEdit.DataField:='';
      b:=0;
      Bookmark:=ADOQuery.GetBookmark;
      try
      if FLDFND.Text<>'' then
       begin
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsFloat;
        b:=1;
        except
        end;
       end;
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsString;
        b:=2;
        except
        end;
       end;
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsInteger;
        b:=3;
        except
        end;
       end;
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsDateTime;
        b:=4;
        except
        end;
       end;

    Определял тип поля. Писал в пъяном бреду, ночью...

    guest, 14 Июня 2009

    Комментарии (2)
  2. Pascal / Говнокод #1188

    +144.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    case ErrorType of
        1: fmError.Label1.Caption:=GetMsg('Err001');
        2: fmError.Label1.Caption:=GetMsg('Err002');
        3: fmError.Label1.Caption:=GetMsg('Err003');
        4: fmError.Label1.Caption:=GetMsg('Err004');
        5: fmError.Label1.Caption:=GetMsg('Err005');
        end;

    Работающее приложение. Смотю сорцы, которые написал малчик.

    guest, 11 Июня 2009

    Комментарии (8)
  3. Pascal / Говнокод #1122

    +93.9

    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
    SetTime(0,0,0,0);  {засекаем время, т.е. устанавливаем системное время равным
                        0 ч 0 мин 0.00 сек   }
    {NumDist - число расматриваемых расстояний
    i - индекс элемента массива расстояний,
    количество групп всегда равно расстоянию d,
    CurGroup - номер сортируемой группы}
    For i:=1 to NumDist do
      begin
        d:=dist[i];
        For CurGroup:=1 to d do
          InsertSort(d,CurGroup);
      end;
    GetTime(hour,minute,second,hund);   {Получаем время сортировки}

    Говнокод для измерения времени работы алгоритма.
    Источник - http://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0% BE%D0%B2%D0%BA%D0%B0_%D0%A8%D0%B5%D0%BB% D0%BB%D0%B0

    В лучших индусских традициях, виват!

    guest, 01 Июня 2009

    Комментарии (5)
  4. Pascal / Говнокод #1113

    +153

    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
    program Drink;
     
    {$APPTYPE CONSOLE}
     
    uses
      SysUtils,
      Windows;
    
    const
      C: array[0..5] of Cardinal = ($64AABAB8, $54AAA288, $54AB3A90, $54AAAAA0, $563ABBB8,$60820000);
     
    var
      I: Byte;
      B: PByte;
    begin
      for I := 191 downto 0 do
      begin
        B := @C[I div 32];
        Inc(B, (I - (I div 32) * 32) div 8);
        if (B^ and (1 shl (I mod 8))) <> 0 then
          Write('X')
        else
          Write(' ');
        if (I mod 32) = 0 then
          Writeln('');
      end;
      ReadLn;
    end.

    guest, 31 Мая 2009

    Комментарии (2)
  5. Pascal / Говнокод #1112

    +133.5

    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
    program Project1;
    
    {$APPTYPE CONSOLE}
    
    uses
      SysUtils,
      Windows;
    
    const
      C: array[0..5] of Cardinal = ($4A9AAA90, $8AA33308, $8AA2AA88, $4C9AAA90, $22200, $822200);
    
    var
      I: Byte;
      B: PByte;
    begin
      for I := 191 downto 0 do
      begin
        B := @C[I div 32];
        Inc(B, (I - (I div 32) * 32) div 8);
        if (B^ and (1 shl (I mod 8))) <> 0 then
          Write('X')
        else
          Write(' ');
        if (I mod 32) = 0 then
          Writeln('');
      end;
      ReadLn;
    end.

    nickkk govnokod

    guest, 31 Мая 2009

    Комментарии (2)
  6. Pascal / Говнокод #1074

    +153

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    function B2R(Bytes: Int64): string;
     const
      k: int64 = 1024;
    begin
     if Bytes < k then result := IntToStr(Bytes) + 'B' else
     if Bytes < k*k then result := FloatToStr(Round(Bytes*10/k)/10) + 'K' else
     if Bytes < k*k*k then result := FloatToStr(Round(Bytes*10/(k*k))/10) + 'M' else
     if Bytes < k*k*k*k then result := FloatToStr(Round(Bytes*10/(k*k*k))/10) + 'G' else
     if Bytes < k*k*k*k*k then result := FloatToStr(Round(Bytes*10/(k*k*k*k))/10) + 'T' else
     result := IntToStr(Bytes);
    end;

    Функция из плагина для JAJC особенно "понравилось" созерцание деления и умножения на 10 ;)

    guest, 20 Мая 2009

    Комментарии (8)
  7. Pascal / Говнокод #1053

    +136.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    hMutex := CreateMutex(0, true , 'Radionic');
      if GetLastError = ERROR_ALREADY_EXISTS then
      begin
        FullProgPath := PChar(Application.ExeName);
        WinExec(FullProgPath, SW_SHOW); // Or better use the CreateProcess function
        Application.Terminate; // or: Close;
      end;

    Пытался сделать обновления копии проги в памяти а наговнокодил кроликов в оперативке.

    guest, 16 Мая 2009

    Комментарии (0)
  8. Pascal / Говнокод #1038

    +152

    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
    function TDM.RecCount(DSet: TDataSet): integer;
    begin
     Result := 0;
     with DSet do
      if Active then
       begin
         First;
         while not EOF do
          begin
           Inc(Result);
           Next;
         end;
     end;
    end;

    Код коллеги
    DataSet.RecordCount не рулит...

    guest, 14 Мая 2009

    Комментарии (2)
  9. Pascal / Говнокод #1009

    +100.3

    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
    procedure TShemaForm.T1Timer(Sender: TObject);
    begin
    ShemaForm.Visible:=true;
    ShemaForm.AlphaBlend:=true;
    T1.Enabled:=false;
    ShemaForm.AlphaBlendValue:=20;
    T2.Enabled:=true;
    end;
    
    procedure TShemaForm.T2Timer(Sender: TObject);
    begin
    T2.Enabled:=false;
    ShemaForm.AlphaBlendValue:=50;
    T3.Enabled:=true;
    end;
    
    procedure TShemaForm.T3Timer(Sender: TObject);
    begin
    T3.Enabled:=false;
    ShemaForm.AlphaBlendValue:=100;
    T4.Enabled:=true;
    end;
    
    procedure TShemaForm.T4Timer(Sender: TObject);
    begin
    T4.Enabled:=false;
    ShemaForm.AlphaBlendValue:=150;
    T5.Enabled:=true;
    end;
    
    procedure TShemaForm.T5Timer(Sender: TObject);
    begin
    T5.Enabled:=false;
    ShemaForm.AlphaBlendValue:=200;
    T6.Enabled:=true;
    end;
    
    procedure TShemaForm.T6Timer(Sender: TObject);
    begin
    T6.Enabled:=false;
    ShemaForm.AlphaBlendValue:=255;
    ShemaForm.AlphaBlend:=false;
    ShemaForm.SetFocus;
    MaForm.ShemaB.BevelWidth:=2;
    MaForm.ShemaB.Color:=$00C08080;
    end;

    Дипломный проект. Реализация плавного появления окна. На плавное исчезновение еще 6 таймеров

    guest, 06 Мая 2009

    Комментарии (5)
  10. Pascal / Говнокод #1008

    +115.1

    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
    case Key of
      'F','f','а' : Key:='А';
      '<',',','б' : Key:='Б';
      'D','d','в' : Key:='В';
      'U','u','г' : Key:='Г';
      'L','l','д' : Key:='Д';
      'T','t','е' : Key:='Е';
      '~','`','ё' : Key:='Ё';
      ':',';','ж' : Key:='Ж';
      'P','p','з' : Key:='З';
      'B','b','и' : Key:='И';
      'Q','q','й' : Key:='Й';
      'R','r','к' : Key:='К';
      'K','k','л' : Key:='Л';
      'V','v','м' : Key:='М';
      'Y','y','н' : Key:='Н';
      'J','j','о' : Key:='О';
      'G','g','п' : Key:='П';
      'H','h','р' : Key:='Р';
      'C','c','с' : Key:='С';
      'N','n','т' : Key:='Т';
      'E','e','у' : Key:='У';
      'A','a','ф' : Key:='Ф';
      '{','[','х' : Key:='Х';
      'W','w','ц' : Key:='Ц';
      'X','x','ч' : Key:='Ч';
      'I','i','ш' : Key:='Ш';
      'O','o','щ' : Key:='Щ';
      'M','m','ь' : Key:='Ь';
      '}',']','ъ' : Key:='Ъ';
      '"','''','э' : Key:='Э';
      'S','s','ы' : Key:='Ы';
      '>','.','ю' : Key:='Ю';
      'Z','z','я' : Key:='Я';
     end;

    висит на процедуре Edit1KeyPress :)

    guest, 06 Мая 2009

    Комментарии (18)