|
#1
|
||||
|
||||
TBcd
Всего один вопрос. W T F?!
Цитата с хелпа: Цитата:
jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 23.01.2014 в 18:52. |
#3
|
||||
|
||||
Формата жопошнее чем BCD не видел в жизни.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
||||
|
||||
Цитата:
Впрочем модуль FMTBcd.pas известен своими ошибками. Например такое безобидное выражение: Код:
ShowMessage( VarFMTBcdCreate(20) / VarFMTBcdCreate(6) ); |
#5
|
||||
|
||||
Цитата:
Цитата:
Цитата:
В итоге забил на этот глюкомодуль и сделал проще: Код:
function toBCD(val:byte): byte; begin if val > 99 then result := 0; else result := ((val div 10) shl 4) + (val mod 10); end; jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 24.01.2014 в 18:57. |