x() as Double -> y() as Byte -> x() as Double

[Antonariy]

Как это сделать красиво? Пока что делаю через файл

Код: Выделить всё

    Open fName For Binary As #1
    Put #1, , x
    Close #1
    Open fName For Binary As #1
    ReDim y(0 To LOF(1) - 1)
    Get #1, , y
    Close #1

[AjaxVS]

Можно поизвращаться с CopyMemory, но это не для слабонервных +_+
Пример писать не буду =(

[alibek]

Через CopyMemory и делать. Причем тут слабые нервы, не понимаю. Тут скорее слабые руки.

[CodeName33]

Вроде только CopyMemory...

ReDim y(0 to3) as Byte
CopyMemory y(0), d, 8

и обратно

CopyMemory d, y(0), 8

Есть ещё GetMem4/PumMem4 (вроде правильно написал) у msvbvm60, но это в принципе тоже самое...

[AjaxVS]

Через CopyMemory и делать. Причем тут слабые нервы, не понимаю. Тут скорее слабые руки.

Ну, может, не все же такие умные как ты и я +_+ <ironic>

[Antonariy]

Насчет нервов он прав. Обычно мои попытки использовать CopyMemory заканчиваются плачевно. Однако с массивами проще.

Гы... всего две строчки

Код: Выделить всё

ReDim y(0 To (UBound(x) + 1) * 8 - 1)
    CopyMemory y(0), x(0), (UBound(x) + 1) * 8