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

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

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

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

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

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