ReadInteger: Integer;
Метод ReadInteger осуществляет считывание целочисленного значения из двоичного файла.
Для выполнения примера предполагается наличие в корневом каталоге диска "С" двоичного файл с наименованием "1.dat".
Sub UserProc;
Var
File1: IFileInfo;
BinR: IBinaryReader;
d: Integer;
Begin
File1:=New FileInfo.Attach("c:\1.dat");
If File1.Exists Then
BinR:=File1.OpenBinaryReader;
d:=BinR.ReadInteger;
End If;
Dispose File1;
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться целочисленное значение, считанное из двоичного файла «1.dat».
См.также: