OpenTextReader(FileName: String): ITextReader;
FileName. Путь и наименование файла, который необходимо открыть.
Метод OpenTextReader открывает файл для чтения в текстовом виде.
Sub UserProc;
Var
TextR: ITextReader;
d: DateTime;
Begin
If File.Exists("c:\New_folder\1.txt") Then
TextR := File.OpenTextReader("c:\New_folder\1.txt");
TextR.Encoding := CodePage.UTF8;
d := TextR.ReadDateTime;
End If;
End Sub UserProc;
После выполнения примера в переменную d из файла 1.txt будет получена дата и время. При работе с файлом будет использоваться кодировка UTF-8.
См.также: