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

    +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
    36. 36
    37. 37
    38. 38
    dep_id:=-1;
    next_day:=1;
    cds.First;
    while not (cds.Eof) do
    begin
      if (dep_id <> cds.FieldByName('DEP_ID').AsInteger) then
      begin
        dep_id := cds.FieldByName('DEP_ID').AsInteger;
        //переходим на новую страницу, печатаем шапку
        //...
        
        row:=7;
        next_day :=1;
      end;
      if (DS_Parametes.FieldByName('DATE').AsString <> FieldByName('RS_DATE').AsString) and (next_day <> 5) then
             next_day := 2;
      if (next_day < 3) then
      begin
        //Печатаем шапку дня 
        //...
        if (DS_Parametes.FieldByName('DATE').AsString <> cds.FieldByName('RS_DATE').AsString)  then
        begin
          WS.Cells[Row,01]:= 'Завтра, '+ cds.FieldByName('RS_DATE').AsString;
          next_day :=5;
        end
        else
        begin
          WS.Cells[Row,01]:= cds.FieldByName('RS_DATE').AsString;
          next_day :=4;
        end;
        inc(row);
      end;
      //Ну и дальше печатаем строчки таблицы
      //...
      inc(row);
      cds.next;
      
    end;

    next_day := 4

    Запостил: tucvbif, 22 Декабря 2016

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

    • Что ни строкка, то криповый смайл.
      :=4
      :=5
      :=1
      :=7
      Не хватает их предводителя /|\(;,,;)/|\
      Ответить
      • Предводителя нет, но вы там держитесь. Хорошего вам настроения!
        Ответить
      • Зато есть заместители:
        ]:=
        Ответить
        • Ещё можно пригласить товарищей :={} и :=@
          Ответить
          • как назывались те чудесные трехсимвольные конструкции в ANSI C 89 для тех, у кого нету фигурной скобочки?
            Ответить
            • триграфы
              Ответить
            • Кстати, в Паскале есть диграфы. Например, (* и *) заменяют фигурные скобки, а (. и .) заменяют квадратные скобки.
              Ответить
              • растопырил тебе очко квадратными скобками, проверь
                Ответить
                • Проверил. Вроде норм, но почему говно валится у тебя из штанины понять не могу?
                  Ответить
    • Повадились галитозники заходить на наш сайт.
      Ответить

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