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

    +15

    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
    58. 58
    59. 59
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    if GetAsyncKeyState(81) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+'й ';
    end;
    
    begin
    if GetAsyncKeyState(87) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+'ц ';
    end;
    
    ...
    
    begin
    if GetAsyncKeyState(13) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    if memo1.Text <> ' ' then
    button1.Click;
    end;
    
    if GetAsyncKeyState(32) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    end;
    
    begin
    if GetAsyncKeyState(1) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    if memo1.Text <> ' ' then
    button1.Click;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    ...
    end;

    Видимо чувак копипастил вместе с begin от процедуры, а потом "исправил" ошибки об отсутствии end.

    FrontlineReporter, 15 Мая 2016

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

    +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
    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
    58. 58
    59. 59
    TForm1 = class(TForm)
        Button2: TButton;
        Timer1: TTimer;
        Button5: TButton;
        Button6: TButton;
        Timer2: TTimer;
        Button7: TButton;
        Button8: TButton;
        Button9: TButton;
        Button10: TButton;
        Panel1: TPanel;
        Edit1: TEdit;
        Button1: TButton;
        Button4: TButton;
        Button11: TButton;
        Button12: TButton;
        Panel2: TPanel;
        Memo1: TMemo;
        Button13: TButton;
        Button14: TButton;
        Timer3: TTimer;
        Button15: TButton;
        Button16: TButton;
        Button3: TButton;
        Button17: TButton;
    
    procedure TForm1.Button13Click(Sender: TObject);
    begin
      Memo1.Lines.Clear;  //Очищаем компонент Memo1.
      Button14.Caption:='.......';
    end;
    
    procedure TForm1.Timer2Timer(Sender: TObject);   //перемещение переключателя в произвольном направлении для определения нужного полюса
    var Button_Tag: Integer;
    begin
        Button_Tag:= Button7.Tag+Button8.Tag+Button9.Tag+Button10.Tag;              //Button7.Tag+Button2.Tag
      case Button_Tag of
        1:  begin
              var_integer[C_the_timer_counter]:= var_integer[C_the_timer_counter]+1;    //счетчик  Timer2
              var_integer[C_the_X_coordinate]:=var_integer[C_the_timer_counter]; //координата X
              coordinates[2].X:=coordinates[2].X+var_integer[C_the_X_coordinate];//
              blank_backgroun;           //очистить до пустого фона  !!!!!!!!!
             Draw_a_picture30(coordinates[2],bmps[2]); //не более [bmp_cnt-1] Draw_a_picture30(coordinates[1],bmps[2]); выводит   img3 BITMAP 3.bmp
            end;             
        2:  begin
              var_integer[C_the_timer_counter]:= var_integer[C_the_timer_counter]+1;    //счетчик  Timer2
              var_integer[C_the_X_coordinate]:=-var_integer[C_the_timer_counter]; //координата X
              coordinates[2].X:=coordinates[2].X+var_integer[C_the_X_coordinate];//
              blank_backgroun;            //очистить до пустого фона  !!!!!!!!!
              Draw_a_picture30(coordinates[2],bmps[2]); //не более [bmp_cnt-1] Draw_a_picture30(coordinates[1],bmps[2]); выводит   img3 BITMAP 3.bmp
            end;
        3:  begin
           ...
        4:  begin
           ...
      else   Noop;
      end;
          Edit1.Text:=IntToStr(coordinates[2].X)+'*   '+IntToStr(coordinates[2].Y);
    end;

    Классика Дельфи.

    FrontlineReporter, 14 Мая 2016

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

    +8

    1. 1
    2. 2
    3. 3
    4. 4
    for i:=0 to control_array_size-1 do //говорят, что так я очистил память
      begin
         control_array[i].view.Free;
      end;

    This man knows what he's doing.

    FrontlineReporter, 14 Мая 2016

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

    +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
    var
      Form1: TForm1;
      customer : array of TCustomer; //выбор пути выполнения
      var_integer: array of integer;// все локальные переменные с такими свойствами:
      M_parameter_output: array of string;  //названия параметров по которому произойдет выход из Timer1Timer (0 не используется, 1 ниже-выше, 2 слева-справа, 3 поворот)
     Work_on_the_points_WhereFurther : array of Integer; //исходные числа (Work on the points)
    
    procedure TForm1.Timer1Timer(Sender: TObject); //Interval 20
    var
      numerator_ArcTan2: Extended;                  //the numerator and denominator (числитель и знаменатель   ArcTan2)
      E: Tpoint;                                    //нужна для E:=ScreenToClient(Form1.FDesignSize); 
      local_variable:Integer;  // локальная переменная

    Отличные имена переменных, а после комментариев вообще все становится понятно.

    FrontlineReporter, 14 Мая 2016

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

    +7

    1. 1
    2. 2
    3. 3
    kol:=0; 
    for i:=1 to length(s) do 
    kol:=kol+1;

    https://otvet.mail.ru/question/41008748

    stasyan1902, 11 Мая 2016

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

    0

    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
    procedure TForm1.sButton1Click(Sender: TObject);
    begin
    if sOpenDialog1.Execute then begin
    AccountsList.Clear;
    AccountsList.LoadFromFile(sOpenDialog1.FileName);
    Form1.sButton1.Caption:='[+]Загрузить лист аккаунтов | '+inttostr(AccountsList.Count);
    end else
    ShowMessage('База не загруженна!!!');
    end;
    
    procedure TForm1.sButton2Click(Sender: TObject);
    begin
    if sOpenDialog2.Execute then begin
    ProxyList.Clear;
    ProxyList.LoadFromFile(sOpenDialog2.FileName);
    Form1.sButton2.Caption:='[+]Загрузить лист прокси | '+inttostr(ProxyList.Count);
    end;
    end;

    Когда просто открыл исход с просьбой о помощи, послал сразу же после sOpenDialog....

    AnGel, 08 Мая 2016

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

    +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
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    uses crt;
    begin
      
    gotoxy (34,12);
    write ('*'); {Центр}
    
    {шагаем линию от центра в лево на 6 позиций, меняется только ось Х в - 6}
    gotoxy (33,12);
    write ('*');
    gotoxy (32,12);
    write ('*');
    gotoxy (31,12);
    write ('*');
    gotoxy (30,12);
    write ('*');
    gotoxy (29,12);
    write ('*');
    gotoxy (28,12);
    write ('*'); 
    
    {шагаем линию от центра в право на 6 позиций, меняется только ось Х в + 6}
    gotoxy (35,12);
    write ('*');
    gotoxy (36,12);
    write ('*');
    gotoxy (37,12);
    write ('*');
    gotoxy (38,12);
    write ('*');
    gotoxy (39,12);
    write ('*');
    gotoxy (40,12);
    write ('*');
    
    {шагаем верх линию от центра на 6 позиций, меняется только ось У на - 6}
    gotoxy (34,11);
    write ('*');
    gotoxy (34,10);
    write ('*');
    gotoxy (34,9);
    write ('*');
    gotoxy (34,8);
    write ('*');
    gotoxy (34,7);
    write ('*');
    gotoxy (34,6);
    write ('*');
    
    {шагаем диагональ лево верхнее крыло на 6 позиций меняются все оси}
    
    gotoxy (29,11);
    write ('*');
    gotoxy (30,10);
    write ('*');
    gotoxy (31,9);
    write ('*');
    gotoxy (32,8);
    write ('*');
    gotoxy (33,7);
    write ('*');
    gotoxy (34,6);
    write ('*');
    
    {шагаем диагональ право верхнее крыло на 6 позиций меняются все оси}
    gotoxy (35,7);
    write ('*');
    gotoxy (36,8);
    write ('*');
    gotoxy (37,9);
    write ('*');
    gotoxy (38,10);
    write ('*');
    gotoxy (39,11);
    write ('*');
    gotoxy (40,12);
    write ('*');
    
    {шагаем вниз линию от центра на 6 позиций, меняется только ось У на + 6}
    gotoxy (34,13);
    write ('*');
    gotoxy (34,14);
    write ('*');
    gotoxy (34,15);
    write ('*');
    gotoxy (34,16);
    write ('*');
    gotoxy (34,17);
    write ('*');
    gotoxy (34,18);
    write ('*');
    
    {шагаем диагональ право нижнее крыло на 6 позиций меняются все оси}
    gotoxy (35,17);
    write ('*');
    gotoxy (36,16);

    Вот такая вот еботина

    karl, 23 Апреля 2016

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

    −2

    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
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    {Программа позволяющая найти номер квартиры в любом доме, введите данные конструкции. количество подъездов количесвто этажей, количество квартир на этаж. 
     Вводим номер квартиры и получаем результат.}
    uses crt;
    label l1,l2,l3;
    var
    i,i1,m,kv,numkv,etag,searhkv,numetag,pod,numpod,sey,error:integer;
    
      begin
      l1:
      ClrScr;
      write ('Введите количество подъездов: ');
      readln (pod);
      write ('Введите количество этажей: ');
      readln (etag);
      write ('Введите количество квартир на этаж: ');
      readln (kv);
     
     error:=(etag*kv)*pod; {некорректный ввод пользователя}
             
         writeln;
                writeln('Возможный вариант квартир ',error);
                writeln;
     
     l3:
     write ('Введите искомый номер квартиры: ');
      readln (searhkv);
       writeln;
      
              if searhkv>error then
                    begin
                    
                     writeln; 
                     textcolor(4);
             writeln ('некорректный ввод номера квартиры');
             writeln;
                      textcolor(7);
             writeln ('повторить ввод номера       - 1');           
             writeln ('повторить ввод всех данных  - 2');  
             writeln ('выход                       - 3');  
             writeln;
             write ('Введите номер нужного вам пункта: ');
             readln (sey);
    
                case sey of
                1: goto l3;
                2: goto l1;
                3: goto l2;
                end; {case}
                    end; {if error}
                    
              
                    
    for m:=1 to pod do
       begin
       
       numpod:=m; {Номера подъезда}
      
      for i:=1 to etag do
         begin
          
           numetag:=i;  {Номера этажей}
          
           for i1:=1 to kv do
             begin 
              numkv:=numkv+1; {Номера квартир}
              if searhkv = numkv then 
           writeln (numetag,' ','этаж','   ',numpod,' ','подеъзд')
              
              
               end; {for kv}
               
        
                end; {for etag}
                 
                  end; {for pod}
            
       l2:
        writeln;
        readln;
       writeln ('Удачи');
             
         end.

    karl, 22 Апреля 2016

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

    +2

    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
    function CanonicPath(const PathName:string):string; forward;
    begin
    	SetLength(Result,Length(PathName));
    	if PathCanonicalize(PChar(Result), PChar(PathName)) then
    	SetLength(Result, PChar(StrLen(Result)))
    	else
    	Result:=PathName;
    end;
    
    var
    	i:integer;
    	path:string;
    begin
     {...}
    	for i:=1 to 200 do
    	Path:=PathCanonicalize(Path);
    {...}

    "а вот и таран!.. Святые отцы-каноники посылают нам его!"

    fajes_rown, 22 Апреля 2016

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

    +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
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    iPart := ksPart(iDocument3D.GetPart( pNew_Part )); // новый компонент
      if iPart <> nil then
      begin
       iSketchEntity := ksEntity( iPart.NewEntity( o3d_sketch ));
        if iSketchEntity <> nil then
        begin
          // интерфейс свойств эскиза
          iSketchDef := ksSketchDefinition(iSketchEntity.GetDefinition);
          if iSketchDef <> nil then
          begin
            // интерфейс плоскости XOY
            iPlaneEntity := ksEntity(iPart.GetDefaultEntity( o3d_planeXOY ));
    
            if iPlaneEntity <> nil then
            begin
              iSketchDef.SetPlane( iPlaneEntity ); // установим плоскость XOY базовой для эскиза
              iSketchEntity.Create; // создадим эскиз
              // интерфейс редактора эскиза
              iSketchDocument2D := ksDocument2D(iSketchDef.BeginEdit);
    
              if iSketchDocument2D <> nil then
              begin
    
    
    
                ... //сокращено для вашего благополучия
    
    
    
    
    		      if iBossExtrusionDef <> nil then
                          begin
    		      	iExtrusionProperty := ksExtrusionPa-ram(iBossExtrusionDef.ExtrusionParam); // интерфейс структуры параметров выдавли-вания
    		      	iThinProperty := ksThinParam(iBossExtrusionDef.ThinParam); // интер-фейс структуры параметров тонкой стенки
    
    		      	if (iExtrusionProperty <> nil) and (iThinProperty <> nil ) then
                            begin
       		      	  iBossExtrusionDef.SetSketch( iSketch2Entity ); // эскиз операции выдав-ливания
                              iExtrusionProperty.Direction := dtNormal; // направление выдавливания (прямое)
    			  iExtrusionProperty.TypeNormal := etBlind; // тип выдавливания ( стро-го на глубину )
    			  iExtrusionProperty.DepthNormal := 50; // глубина выдавливания
                              iThinProperty.Thin := false; // без тонкой стенки
    
                              iBossExtrusion.Create; // создадим операцию
                            end;
                          end;
                        end;
                      end;
                          end;
                        end;
                      end;
                    end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
        Form2.Close;
    end;

    Официальный пример использования API КОМПАС-3D под Delphi

    itaksoydet, 16 Апреля 2016

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