OpenBinaryReader(FileName: String): IBinaryReader;
FileName — путь и наименование файла, который необходимо открыть.
Метод OpenBinaryReader открывает файл для чтения в двоичном виде.
Sub UserProc;
Var
BinR: IBinaryReader;
d: DateTime;
Begin
If File.Exists("c:\New_folder\1.txt") Then
BinR:=File.OpenBinaryReader("c:\New_folder\1.txt");
d:=BinR.ReadDateTime;
End If;
End Sub UserProc;
После выполнения примера в переменную «d» из файла «1.txt» будет получена дата и время.
См.также: