| Форум  Программирование  Код уморил | 
| 
 | 
 Ну зачем же так брутально? Есть же готовый компайлер. Я думаю, что несложно будет добавить в него конструкции типа X++, ++Y, X += Y и т.д. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
| 
 | 
 сегодня наткнулся в проекте: void * malloc(size_t size) { return -1; }жеееесть... не хватает только комментария "иниипёт"  Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth. | ||||||
| 
 | 
 #define true 0 //Удачной отладки ;-) Однажды в своем проекте находил)) | ||||||
| 
 | 
 Подстава? "Digital Networked Knight" | ||||||
| 
 | 
 ага, пошутили коллеги на работе пока за кофем отошел) | ||||||
| 
 | 
 Сегодня сам себя расмешил до слёз. Расследовал, почему программа глючит. function TBit8Processor.FindCompressedForIndex( AChIndex: byte): TCompressedChannel; var i: integer; begin Result := nil; // поиск if Assigned(Result) then exit; // придется создавать Result := TCompressedChannel.Create; list.Add(Result); Result.AssignChannel(AChIndex); Result.Park := true; end; Ситуацию прокомментировал бы так: Забей на всё!!!  "Digital Networked Knight" | ||||||
| 
 | 
 2 DNK: ГЕНИАЛЬНО! Распечатал и на стенку повесил! Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
| 
 | 
 сегодня увидел код у коллеги: ((PWEB_FO_VAR)(list + i))->enableна вопрос, почему бы не написать проще list[i].enableполучил ответ примерно в том духе, типа, "работает же? и ворнингов нету" Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth. | ||||||
| 
 | 
 После каникул сегодня первый рабочий день. На автомате напечатал: ctrl.Enabled :-) "Digital Networked Knight" | ||||||
| 
 | 
 лазарус сначала подумал что писал индус, а оказалось - испанец ) https://sourceforge.net/projects/vboxhdtools/files/Source/ У меня сегодня радость! | ||||||
Перейти в раздел:
|  © 2004 - 2025, Delphi.int.ru | Версия форума: 1.10 (19.01.2010) | Выполнено за 0.02 сек. |