Проблема с записью в файл произвольного доступа

[SKYS]

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

Type connect
ser As String
bd As String
tab As String
fio As String
End Type
Public con As connect



con.ser = Combo1.text
con.bd = Combo3.text
con.tab = Combo2.text
a = Len(con)
Open "c:\nastr.par" For Random As #1 Len = a
Put #1, 1, con
Close #1

Мне необходимо просто записать в файл 4 строчки .
Пишет ошибку при записи BAD record lenght.
Самое смешное что подобный пример только с другой структурой в другом проекте работает нормально я ума не дам в чем тут дело. данный кусок использоват много раз а тут помогите .

[Viper]

Тебя спасет только лишь объявление строк фиксированной длины в структуре. Типо так:

Type MyType
s As String * 20
End Type

В этом случае длина структуруы посчитается правильно

[SKYS]

СПС помогло но почему так в других случаях работет а тут нет МИСТИКА Ж(

[Viper]

В других случаях это в каких? Когда структура состоит их простых типов, то да все будет нормально работать. а когда в ней имеются ссылочные типы, то простые решения не пройдут.

[SKYS]

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

Type nast
pro As Integer
sl1 As Byte
sl2 As Byte
svernut As Integer
sek As Integer
ot1 As Integer
ot2 As Integer
ot3 As Integer
ot4 As Integer
ot5 As Integer
ot6 As Integer
ot7 As Integer
End Type
Public ppr As nast

C такой структурой все норм работает.

[Lumen]

Ну так оно и будет нормально работать, потому что все переменные в структуре числового типа, для этой структуры легко можно посчтитать длину, так как нет переменных строкового типа (чтобы понять почему при наличии строковых переменных возникают ошибки при работе с файлами произвольного доступа рекомендуется почитать статьи GSerg'a на этом сайте о строках в вб6)