1. Список говнокодов пользователя Grivus

    Всего: 1

  2. Pascal / Говнокод #2841

    +104.4

    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 TForm1.vibor_chiselClick(Sender: TObject);
begin
case vibor_chisel.ItemIndex of
   0: begin
      procedure TForm1.But_sortClick(Sender: TObject);
       begin
       n:=vib_el_v.value;
       setlength(massiv,n);
        for i:=0 to n-1 do
        massiv[i]:=strtoint(stringgrid1.Cells[i,0]);
         case vibor_sortirovki.itemindex of
         0: begin
             sortpuzirek(n,massiv);
             for i:=1 to n do
             stringgrid1.Cells[i,0]:=inttostr(massiv[i]);
            end;
         1: begin
            end;
         2: begin
            end;
         end;
        end;
       end;
   1: begin
       procedure TForm1.But_sortClick(Sender: TObject);
       begin
       n:=vib_el_v.value;
       setlength(mas_siv,n);
        for i:=0 to n-1 do
        mas_siv[i]:=strtofloat(stringgrid1.Cells[i,0]);
         case vibor_sortirovki.itemindex of
         0: begin
             sort_puzirek(n,mas_siv);
             for i:=1 to n do
             stringgrid1.Cells[i,0]:=floattostr(mas_siv[i]);
            end;
         1: begin
            end;
         2: begin
            end;
         end;
        end;
       end;
      end;
  end;
end;

    Орали всей группой. А вы часто описываете процедуры в case of ?)
    PS
    Работает.)

    Grivus, 22 Марта 2010

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