Главная страница
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.01 c
1-1215159636
Sashka
2008-07-04 12:20
2009.09.20
Реализуемо ли? Форма в Форме


15-1248209018
Keph
2009-07-22 00:43
2009.09.20
Delphi demos


1-1215345387
Kolan
2008-07-06 15:56
2009.09.20
Как сделать подчёркивание чёрточками?


1-1215755404
МистерТ
2008-07-11 09:50
2009.09.20
Подмена Application динамической библиотеки


6-1206897457
prostoi
2008-03-30 21:17
2009.09.20
Proxy