Структура

[Kolobuk]

Доброго времени суток!

Имеется структура:

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

    Structure X
        Dim FLAG As Short 'флаг
        Dim DL_BLOK As Integer 'длина всего блока
        Dim DL_IM As Integer ' длина имени
        Dim IMYA As String 'имя
    End Structure

Считываю с файла:

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

        FileGet(1, STRUC.DL_IM, 7)
        STRUC.IMYA = Space(STRUC.DL_IM)
        FileGet(1, STRUC, 1)

        Debug.Print(STRUC.FLAG)
        Debug.Print(STRUC.DL_BLOK)
        Debug.Print(STRUC.DL_IM)
        Debug.Print(STRUC.IMYA)

STRUC.IMYA находится на 11-м байте от начала файла.
Debug же, от чего-то, выдаёт с 13-го

В чем же дело?

P.S.: Как же было просто и удобно на VB6

Спасибо!

[Viper]

Все дело в выравнивании - поле DL_BLOK начинается не с 3-го байта, а с 5-го. При желании можно при помощи атрибутов сделать нужное выравнивание. На эту тему есть статья на основном сайте.

[Kolobuk]

Спасибо!

Если кому попадется эта же проблема, статья тут.