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

← →
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] опередил)))))

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