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

    Всего: 1

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

    +94

    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
    var
   one, two, free, four:string;
begin
   one:=sLabel14.Caption+slabel14.caption;
   two:=sLabel1.Caption+slabel15.caption;
   free:=sLabel10.Caption+slabel16.caption;
   four:=sLabel7.Caption+slabel17.caption;

   if ((one = two) or (one = free) or (one = four)
   or (two = one) or (two = free) or (two = four)
   or (free = one) or (free = two) or (free = four)
   or (four = one) or (four = two) or (four = free))
   then begin
       showmessage('Значения должны быть различными');
   end
   else begin
       showmessage('Успешно сохранено');
   end;

    Ну не лол?

    penkovsky1, 29 Марта 2012

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