Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.20;
Скачать: CL | DM;

Вниз

Как сохранить число в трех однобайтовых.   Найти похожие ветки 

 
Cobalt ©   (2009-07-16 11:12) [0]

К вопросу о математике и представлении одного числа в трех :-)

Procedure SaveOneToThree(Incoming: SomeThreeByteType; var First, Second, Third: OneByteType);
begin
First := Incoming mod 256;
Incoming := Incoming div 256;
Second := Incoming mod 256;
Third := Incoming div 256;
end;

Function ConcatThreeToOne(First, Second, Third: OneByteType): SomeThreeByteType;
begin
Result := First + Second*256 + Third*256*256;
end


 
Palladin ©   (2009-07-16 11:13) [1]

Это вопрос или что это?


 
brother ©   (2009-07-16 11:14) [2]

и где вопрос? а вообще, эту тему уже замучали.


 
brother ©   (2009-07-16 11:14) [3]

[1] опередил)))))


 
@!!ex ©   (2009-07-16 11:15) [4]

> [0] Cobalt ©   (16.07.09 11:12)

В той ветке уже был ответ.



Страницы: 1 вся ветка

Текущий архив: 2009.09.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
15-1246915947
Германн
2009-07-07 01:32
2009.09.20
Система "Экспресс-3" от РЖД


1-1215171753
asafr
2008-07-04 15:42
2009.09.20
InterBase и FreeLibrary


2-1247549864
Cyberdeity
2009-07-14 09:37
2009.09.20
Корень квадратный


2-1248094465
MAX
2009-07-20 16:54
2009.09.20
из Word в БД


15-1248199056
Kerk
2009-07-21 21:57
2009.09.20
Предлагаю дополнение к ППД