Текущий архив: 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