TQuestion = record 
 strQuestion: String[250]; // вопрос 
 strAnswer1 : String[200]; // ответ 1 
 strAnswer2 : String[200]; // ответ n 
 nMark1     : BYTE;        // положитнльная оценка на вопрос  
1 
 nMark2     : BYTE;        // положитнльная оценка на вопрос  
n 
 nNegMark1  : BYTE;        // отрицательная оценка на вопрос  
1 
 nNegMark2  : BYTE;        // отрицательная оценка на вопрос  
n 
end; 

 
1. strQuestion 
2. strAnswer1#strAnswer2 
3. nMark1nMark2nNegMark1nNegMark2 

 
1. strQuestion 
2. strAnswer1 
3. strAnswer2 
4. nMark1 
5. nMark2 
6. nNegMark1 
7. nNegMark2 

 
[Main] 
nCount=n 
[strQuestion<n>]= 
[strAnswer1]= 
[strAnswer2]= 
[nMark1]= 
[nMark2]= 
 
[strQuestion<n+1>]= 
[strAnswer1]= 
[strAnswer2]= 
[nMark1]= 
[nMark2]= 

 
'Get' statements are no longer supported. File I/O functionality is a 
vailable in the 'Microsoft.VisualBasic' namespace. 

 
Dim FileStream As New BinaryReader(File.Open(strFileName, FileMode.Op 
en)) 

 
If hFile.Exists Then 
   Dim pMemory As String = "" 
   Dim FileStream As New BinaryReader(File.Open(strFileName, FileMode 
.Open)) 
   Dim FileStream As IO.BinaryReader = New IO.BinaryReader(hFile.Open 
(FileMode.Open), System.Text.Encoding.GetEncoding(1251)) 
   FileStream.BaseStream.Seek(0, SeekOrigin.Begin) 
   pMemory = FileStream.ReadChars(250) 
   '... 
   FileStream.Close() 
End If 

With BinaryWriter, you have to write primitive data type 
s. You can't write out a whole structure. So, to output the informatio 
n, you need to write each field individually.