Имеется структура:
- Код: Выделить всё
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
Спасибо!
