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

Вниз

TFileStream, Variant   Найти похожие ветки 

 
Lamerr   (2003-08-27 09:17) [0]

Мастаки, просветите глупого.

Нужно сохранить Variant (точнее его ДАННЫЕ) в FileStream.
Тип данных на этапе компиляции не известен. Но это либо Single, либо Real.
Проблема в том, что данные в Variantе хранятся в последних 8 байтах.
То есть проблему можно свести к сохранению в FileStream последние 8 байт переменной.

Заранее спасибо.


 
Reindeer Moss Eater   (2003-08-27 09:21) [1]

TWriter.WriteVariant не подходит?
Инкремент PByte тоже не помогает?


 
Lamerr   (2003-08-27 09:26) [2]

TWriter.WriteVariant не подойдет.
А вот PByte может и поможет, спасибо. :о)
Именно это я искал.


 
Lamerr   (2003-08-27 11:50) [3]

Х-м...
Похоже поторопился.
Что такое PByte? PByteArray? Если да, то все-равно не понятно как мне его использовать...


 
clickmaker   (2003-08-27 11:54) [4]

Stream.WriteBuffer(TVarData(V).VDouble, SizeOf(double));


 
Lamerr   (2003-08-27 11:57) [5]

Ага, попробую, спасибо...


 
Reindeer Moss Eater   (2003-08-27 12:00) [6]

Что такое PByte? PByteArray? Если да, то все-равно не понятно как мне его использовать...

PByte - указатель на байт.
Присваиваем переменной этого типа адрес варианта, увеличиваем значение переменной на нужное смещение (последние 8 байт)
Пришем в поток блок P^,8


 
Lamerr   (2003-08-27 12:26) [7]

Спасибо и это тоже попробую.


 
Serginio666   (2003-08-27 12:54) [8]

Посмотри unit SConnect реализацию TDataBlockInterpreter.
В принципе можешь напрямую и использовать


 
Lamerr   (2003-08-28 09:07) [9]

Обязательно погляжу



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

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

Наверх





Память: 0.45 MB
Время: 0.008 c
11-24402
Ajax
2003-01-01 19:15
2003.09.08
Скриншот из программы


4-24748
Coban
2003-07-06 12:30
2003.09.08
w9x аналог GetUserProfileDirectory


3-24344
Alex9
2003-08-18 07:57
2003.09.08
Запись данных на диск


14-24678
Yanis
2003-08-20 02:05
2003.09.08
Как вам альфа Doom3


14-24702
VD602
2003-08-19 12:01
2003.09.08
Совершенно неубиваемый процесс!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский