Говнокод

form2.label1.Text:=inttostr(mydots[0,0].StepsNum);
form2.label2.Text:=inttostr(mydots[0,1].StepsNum);
form2.label3.Text:=inttostr(mydots[0,2].StepsNum);
form2.label4.Text:=inttostr(mydots[0,3].StepsNum);
form2.label5.Text:=inttostr(mydots[0,4].StepsNum);
form2.label6.Text:=inttostr(mydots[0,5].StepsNum);
form2.label7.Text:=inttostr(mydots[0,6].StepsNum);
form2.label8.Text:=inttostr(mydots[0,7].StepsNum);
form2.label9.Text:=inttostr(mydots[0,8].StepsNum);
form2.label10.Text:=inttostr(mydots[1,0].StepsNum);
form2.label11.Text:=inttostr(mydots[1,1].StepsNum);
form2.label12.Text:=inttostr(mydots[1,2].StepsNum);
form2.label13.Text:=inttostr(mydots[1,3].StepsNum);
form2.label14.Text:=inttostr(mydots[1,4].StepsNum);
form2.label15.Text:=inttostr(mydots[1,5].StepsNum);
form2.label16.Text:=inttostr(mydots[1,6].StepsNum);
form2.label17.Text:=inttostr(mydots[1,7].StepsNum);
form2.label18.Text:=inttostr(mydots[1,8].StepsNum);
form2.label19.Text:=inttostr(mydots[2,0].StepsNum);
form2.label20.Text:=inttostr(mydots[2,1].StepsNum);
form2.label21.Text:=inttostr(mydots[2,2].StepsNum);
form2.label22.Text:=inttostr(mydots[2,3].StepsNum);
form2.label23.Text:=inttostr(mydots[2,4].StepsNum);
form2.label24.Text:=inttostr(mydots[2,5].StepsNum);
form2.label25.Text:=inttostr(mydots[2,6].StepsNum);
form2.label26.Text:=inttostr(mydots[2,7].StepsNum);
form2.label27.Text:=inttostr(mydots[2,8].StepsNum);
form2.label28.Text:=inttostr(mydots[3,0].StepsNum);
form2.label29.Text:=inttostr(mydots[3,1].StepsNum);
form2.label30.Text:=inttostr(mydots[3,2].StepsNum);
form2.label31.Text:=inttostr(mydots[3,3].StepsNum);
form2.label32.Text:=inttostr(mydots[3,4].StepsNum);
form2.label33.Text:=inttostr(mydots[3,5].StepsNum);
form2.label34.Text:=inttostr(mydots[3,6].StepsNum);
form2.label35.Text:=inttostr(mydots[3,7].StepsNum);
form2.label36.Text:=inttostr(mydots[3,8].StepsNum);
form2.label37.Text:=inttostr(mydots[4,0].StepsNum);
form2.label38.Text:=inttostr(mydots[4,1].StepsNum);
form2.label39.Text:=inttostr(mydots[4,2].StepsNum);
form2.label40.Text:=inttostr(mydots[4,3].StepsNum);
form2.label41.Text:=inttostr(mydots[4,4].StepsNum);
form2.label42.Text:=inttostr(mydots[4,5].StepsNum);
form2.label43.Text:=inttostr(mydots[4,6].StepsNum);
form2.label44.Text:=inttostr(mydots[4,7].StepsNum);
form2.label45.Text:=inttostr(mydots[4,8].StepsNum);
form2.label46.Text:=inttostr(mydots[5,0].StepsNum);
form2.label47.Text:=inttostr(mydots[5,1].StepsNum);
form2.label48.Text:=inttostr(mydots[5,2].StepsNum);
form2.label49.Text:=inttostr(mydots[5,3].StepsNum);
form2.label50.Text:=inttostr(mydots[5,4].StepsNum);
form2.label51.Text:=inttostr(mydots[5,5].StepsNum);
form2.label52.Text:=inttostr(mydots[5,6].StepsNum);
form2.label53.Text:=inttostr(mydots[5,7].StepsNum);
form2.label54.Text:=inttostr(mydots[5,8].StepsNum);
form2.label55.Text:=inttostr(mydots[6,0].StepsNum);
form2.label56.Text:=inttostr(mydots[6,1].StepsNum);
form2.label57.Text:=inttostr(mydots[6,2].StepsNum);
form2.label58.Text:=inttostr(mydots[6,3].StepsNum);
form2.label59.Text:=inttostr(mydots[6,4].StepsNum);
form2.label60.Text:=inttostr(mydots[6,5].StepsNum);
form2.label61.Text:=inttostr(mydots[6,6].StepsNum);
form2.label62.Text:=inttostr(mydots[6,7].StepsNum);
form2.label63.Text:=inttostr(mydots[6,8].StepsNum);
form2.label64.Text:=inttostr(mydots[7,0].StepsNum);
form2.label65.Text:=inttostr(mydots[7,1].StepsNum);
form2.label66.Text:=inttostr(mydots[7,2].StepsNum);
form2.label67.Text:=inttostr(mydots[7,3].StepsNum);
form2.label68.Text:=inttostr(mydots[7,4].StepsNum);
form2.label69.Text:=inttostr(mydots[7,5].StepsNum);
form2.label70.Text:=inttostr(mydots[7,6].StepsNum);
form2.label71.Text:=inttostr(mydots[7,7].StepsNum);
form2.label72.Text:=inttostr(mydots[7,8].StepsNum);
form2.label73.Text:=inttostr(mydots[8,0].StepsNum);
form2.label74.Text:=inttostr(mydots[8,1].StepsNum);
form2.label75.Text:=inttostr(mydots[8,2].StepsNum);
form2.label76.Text:=inttostr(mydots[8,3].StepsNum);
form2.label77.Text:=inttostr(mydots[8,4].StepsNum);
form2.label78.Text:=inttostr(mydots[8,5].StepsNum);
form2.label79.Text:=inttostr(mydots[8,6].StepsNum);
form2.label80.Text:=inttostr(mydots[8,7].StepsNum);
form2.label81.Text:=inttostr(mydots[8,8].StepsNum);

Определяем кол-во шагов, которое должна совершить точка, что бы выйти из лабиринта.

Запостил:

Toha, 28.03.2015 (Updated 28.03.2018)

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

bormand 11 лет ago # 0

Господи... Автор не заметил в тулбаре TStringGrid и составил табличку из 9х9 лейблов?
Ответить
- kegdan 11 лет ago # 0 ⇈
  
  Помню у нас на первом курсе кто то тоже так хотел сделать. Но я уже тогда понял, что изобретать велосипед нинужно, а нужно загуглить
  Ответить
  - guest 11 лет ago # 0 ⇈
    
    Страсть к тупым авам не проходит?.. Может, сам выебешь себя в жопу? Мужиком стань, йоба.
    Ответить
    - kegdan 11 лет ago # 0 ⇈
      
      ты как с девушкой разговариваешь, пидор?
      Ответить
- wvxvw 11 лет ago # 0 ⇈
  
  Давно потерял ссылку на МСДН, кде такой же наивный пришел с вопросом почему если на форму прилепить 5000 кнопок, то начинаются лаги. Оказалось он сапера писал.
  Ответить
  - guest 11 лет ago # 0 ⇈
    
    А есть ли шанс при этом израсходовать какие-то глобальные системные ресурсы (не память/цпу)?
    Ответить
    - kegdan 11 лет ago # 0 ⇈
      
      Ага. Ману и Эфир
      Ответить
    - bormand 11 лет ago # 0 ⇈
      
      Дескрипторы окошек разве что.
      Ответить
      - guest 11 лет ago # 0 ⇈
        
        У меня сейчас глюк. Не могу растянуть окно оперы 12 больше определенного размера или тем более развернуть на весь экран, иначе пропадает отрисовка. Это может быть с этим связано?
        
        Было и такое: в проге со временем пропадали менюшки. Если перезапустить - все возвращалось на место.
        Ответить
        
        bormand 11 лет ago # 0 ⇈
        
        Видеопамяти может быть мало?
        Ответить
        
        guest 11 лет ago # 0 ⇈
        
        Ты про оперу? Лол, а сколько ей нужно? Остальные проги работают нормально.
        Ответить
        
        inkanus-gray 11 лет ago # 0 ⇈
        
        Какая ОС и сколько оперативной памяти? Современные веб-браузеры больше 256 мегабайт сжирают.
        Ответить
        
        guest 11 лет ago # 0 ⇈
        
        XP 32 bit / 3,3. Памяти достаточно.
        
        (Хотите прикол? Заказал 2 гига, а пришло 4)
        Ответить