![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 11.12.2012
Сообщений: 5
|
![]()
Вот робот в окне - About
http://md5summer.org/download.html Вот исходник робота. http://luke.pascoe.net.nz/tools.html Можно пояснить человеческим языком, что делают эти участки кода? Мне особенно непонятно вот эти TMazeCell(TObjectList(Cells[Col])[Row]) // из участка кода 1 и это TMazeCell(ParentMaze.CellStack[ParentMaze.CellStack.Count - 2]).CellToCanvas //из участка кода 2 и это ParentMaze.BiasMap.Canvas.Pixels[FCol, FRow] //из участка кода 3 участок кода 1 function TMaze.GetCell(Row, Col: Integer): TMazeCell; begin Result := Nil; if (Col < Cells.Count) and (Row < TObjectList(Cells[Col]).Count) then Result := TMazeCell(TObjectList(Cells[Col])[Row]); end; участок кода 2 //procedure TMazeCell.MakeMove // Redraw the last cell if ParentMaze.CellStack.Count >= 2 then TMazeCell(ParentMaze.CellStack[ParentMaze.CellStack.Count - 2]).CellToCanvas; участок кода 3 //procedure TMazeCell.MakeMove if ParentMaze.BiasMap.Canvas.Pixels[FCol, FRow] = 0 then |
![]() |
![]() |
![]() |
#2 |
Регистрация: 11.12.2012
Сообщений: 5
|
![]()
А что означает когда функция разделяется точкой с процедурой?
GetCell(Dir).CellToCanvas GetCell(Dir) функция CellToCanvas процедура if ParentMaze.Mode = mmGenerating then begin Delay(ParentMaze.MinGenDelay); case Dir of dirUp: begin TopWall := False; GetCell(Dir).CellToCanvas; end; dirDown: begin BottomWall := False; CellToCanvas; end; dirLeft: begin LeftWall := False; GetCell(Dir).CellToCanvas; end; dirRight: begin RightWall := False; CellToCanvas; end; end; end else Delay(ParentMaze.MinSolveDelay); |
![]() |
![]() |
![]() |
#3 | ||
Подтвердите свой е-майл
Регистрация: 07.04.2007
Сообщений: 120
|
![]()
Непонятно где там исходник скачать, лучше его приложить к теме.
Код тегом CODE лучше оформлять. Цитата:
Цитата:
Без полного исходника точно не сказать, но скорее всего это так. Чтобы разобраться в этом коде, попробуйте почитать, например, эту книгу. Последний раз редактировалось Armorer; 14.12.2012 в 13:06. |
||
![]() |
![]() |
![]() |
#4 |
Регистрация: 11.12.2012
Сообщений: 5
|
![]() Последний раз редактировалось cpv; 14.12.2012 в 17:40. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism | savva-paladin | Софт | 18 | 02.10.2010 20:24 |
Замена многоточия одной точкой в строке S. | Карась | Помощь студентам | 9 | 18.01.2008 18:13 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как избавиться от многоточия в TsListView | dimfil | Компоненты Delphi | 5 | 03.12.2007 09:57 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |