Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Вниз

Перевод Single в байтовый массив и обратно.   Найти похожие ветки 

 
MAPIIIAJL   (2003-01-25 10:54) [0]

Уважаемые мастера!!! Проблема. Есть массив из четырех байт: mass: [0..3] of byte; В этих четырех байтах сидит число с плавающей точкой - Single. Как мне его оттуда вытащить. И наоборот. А так же как преобразовать LongInt в тот же байтовый массив? В С++ проблм не было memcpy и все. Есть ли в Delphi что-нибудь подобное? Help!!!


 
Юрий Зотов   (2003-01-25 11:28) [1]

Move
CopyMemory


 
MAPIIIAJL   (2003-01-25 11:29) [2]

Спасибо! Разобрался сразу. Это даже проще чем я думал!:)


 
Юрий Зотов   (2003-01-25 12:23) [3]

Только не забудьте об особенностях платформы - перестановке полуслов и байт.


 
REA   (2003-01-25 12:23) [4]

1)
Type
PSingle = ^Single;

SingleValue := PSingle(@mass[0])^;

2) TSingleRec = Record
Case 0: Single;
Case 1: SArray[1..SizeOf(Single)] Of Byte;
End;

работать можно с тем и другим


 
Alex Konshin   (2003-01-25 18:09) [5]

Еще проще:

var
ee : Single;
eeAsInteger : LongInt absloute ee;


 
MAPIIIAJL   (2003-01-26 14:40) [6]

Нарооод! Всем спасибо за помощь. Все ваши варианты работают!!! Огромное спасибо!!!!!!!!!!!!



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

Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
14-5230
Yury
2003-01-14 08:47
2003.02.03
Книга по WinAPI


4-5343
KPV-10k
2002-12-20 22:35
2003.02.03
Кто знает как заставить НТ перейти в спящий режим...


1-4834
diks
2003-01-24 13:34
2003.02.03
Окно


3-4794
Ihtiandr
2003-01-17 11:14
2003.02.03
Помогите с Aliassom


3-4752
Ihor Osov'yak
2003-01-14 22:40
2003.02.03
MsSQL + SQL Query Analyzer, глупый вопрос по управлению транзакци





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский