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

    −52

    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
    procedure DoDoubleBuffering(const Form: TForm);
var
  Component: TComponent;
begin
  Form.DoubleBuffered := True;
  for Component in Form do
    if (Component is TLabel) or (Component is TButton) or (Component is TEdit)
    then
      TButton(Component).DoubleBuffered := True;
end;

procedure AppendStringToFile(FileName: string; Data: string);
var
  s: TextFile;
begin
  if not FileExists(FDir + FileName) then
  begin
    AssignFile(s, FDir + FileName);
    Rewrite(s);
    WriteLn(s, Data);
    CloseFile(s);
  end
  else
  begin
    AssignFile(s, FDir + FileName);
    Append(s);
    WriteLn(s, Data);
    CloseFile(s);
  end;
end;

function Pars(T_, ForS, _T: string): string;
var
  a, b: Integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

procedure LoginAndPassword(const Data: string;
  out Login, Password: string); inline;
var
  FIndex: Integer;
  FDelimetr: String;
begin
  FDelimetr := ':';
  if Pos(';', Data) <> 0 then
    FDelimetr := ';';
  FIndex := Pos(FDelimetr, Data);
  Login := Copy(Data, 1, FIndex - 1);
  Password := Copy(Data, FIndex + 1, Length(Data) - FIndex);
end;

procedure IPAndPort(out IP, Port: string); inline;
begin
  if TP >= Proxy.Count then
    TP := 0;
  IP := Copy(Proxy.Strings[TP], 1, Pos(':', Proxy.Strings[TP]) - 1);
  Port := Copy(Proxy.Strings[TP], Pos(':', Proxy.Strings[TP]) + 1,
    Length(Proxy.Strings[TP]));
  Inc(TP);
end;

function ParsIndex(_S: String; S1: String; S_: String; I: Integer): String;
var
  TS: TStringList;
  s: String;
begin
  TS := TStringList.Create;
  while Pos(_S, S1) <> 0 do
  begin
    TS.Add(Pars(_S, S1, S_));
    Delete(S1, Pos(_S, S1), 1);
  end;
  Result := TS.Strings[I];
  FreeAndNil(TS);
end;

    Код великого кодера с BHF.SU имя Грач.

    Запостил: Gratsh, 10 Января 2016

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

    • ava gost 11.01.2016 18:06 # +2

      > BHF.SU
      Фу-фу-фу. Как зашел туда - сразу на мониторе говно появилось. Пришлось спиртом оттирать.
      Ответить

    • ava bormand 11.01.2016 22:03 # +2

      Такое ощущение, что программы на делфи на 99% состоят из Pos, Length, Copy и Delete...
      Ответить

    • ava bormand 11.01.2016 22:59 # +1

      > inline;
      Мастер оптимизации.
      Ответить

      • ava gost 13.01.2016 12:58 # 0

        inline - самая легкая оптимизация! Напиши inline - ускорь программу! Ударим inline'ом по тормозам и зависаниям!
        Ответить

        • ava Vasiliy 13.01.2016 13:02 # +1

          Теперь я знаю почему приложения для виндовс весят как весь дистрибутив Linux.
          Ответить

    • ava guest 12.01.2016 21:43 # 0

      >>
      procedure DoDoubleBuffering(const Form: TForm);
var
  Component: TComponent;
begin
  Form.DoubleBuffered := True;
  for Component in Form do
    if (Component is TLabel) or (Component is TButton) or (Component is TEdit)
    then
      TButton(Component).DoubleBuffered := True;
end;


      кошерное говно.
      Ответить

      • ava bormand 12.01.2016 22:08 # +3

        > if (Component is TLabel)
        > TButton(Component).DoubleBuffered := True
        Кровь-кишки-распидорасило.
        Ответить

        • ava inkanus-gray 12.01.2016 22:16 # +2

          А вдруг автор точно знает, что в таблице полей классов TButton и TLabel поле DoubleBuffered находится по одинаковому смещению? Ну вдруг автор кода является соавтором VCL?
          Ответить

          • ava guest 12.01.2016 22:19 # 0

            А не ты ли автор сего кодия?

            :/
            Ответить

            • ava inkanus-gray 12.01.2016 22:20 # +1

              Процедура AppendStringToFile уже явно не моя. Мне бы лень было столько копипастить.
              Ответить

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