Байты в число и число в байты нужной размерности

← →
Sha © (2010-05-22 15:00) [40]

> РП (22.05.10 14:50) [38]

Что такое по-твоему "10тичное число"?

Что значит "сконвертить по принципу"?
Принцип словами сформулируй, чтобы не гадать, что ты имел в виду.

> "Этот код делает нечто подобное".
В угадайку играем? Точно скажи, что надо.

> "реузльтат: 2736529"
Как посчитал?

> твой код выводит
> и этоже в обратном порядке. Это вобще к чему.

А разобраться пробовал?
Каждая строчка в отдельности понятна?
Про целочисленные типы данных в хелпе читал?
Как они располагаются в памяти препод говорил?

← →
РП (2010-05-22 15:03) [41]

Вот код, берем 3 байта, переделываем в число 2736529 и второй батон конвертируем обратно в 3 байта. Но как для 6-ти сделать тожсамое.
procedure TForm1.Button2Click(Sender: TObject); var MyInteger:TMyInteger; N:Integer; begin MyInteger[0] := 145; MyInteger[1] := 193; MyInteger[2] := 041; Pointer(N):= Pointer(MyInteger); memo1.Lines.add(inttostr(N)); end; procedure TForm1.Button3Click(Sender: TObject); var MyInteger:TMyInteger; N,h:Integer; begin Pointer(MyInteger):=Pointer(2736529); for h:=0 to 2 do memo1.Lines.Add(inttostr(MyInteger[h])); end;

← →
Sha © (2010-05-22 15:11) [42]

Ты понимаешь, что твой код работает с "лишним" байтом?

← →
РП (2010-05-22 15:12) [43]

это да, вот вернее.

procedure TForm1.Button2Click(Sender: TObject); var MyInteger:TMyInteger; N:integer; begin MyInteger[0] := 145; MyInteger[1] := 193; MyInteger[2] := 041; MyInteger[3] := 031; Pointer(N):= Pointer(MyInteger); memo1.Lines.add(inttostr(N)); end; procedure TForm1.Button3Click(Sender: TObject); var MyInteger:TMyInteger; N,h:integer; begin Pointer(MyInteger):=Pointer(522830225); for h:=0 to 3 do memo1.Lines.Add(inttostr(MyInteger[h])); end;

все же у меня в этом вопрос. тут максимум 3 байта можно конвертить.

← →
Sha © (2010-05-22 15:57) [44]

> тут максимум 3 байта можно конвертить.

4

← →
РП (2010-05-22 16:12) [45]

да как больше

см [34]

Байты в число и число в байты нужной размерности Найти похожие ветки