ITextReader.ReadToEnd

Синтаксис

ReadToEnd: String;

Описание

Метод ReadToEnd осуществляет считывание текстового файла в виде одной символьной строки.

Пример

Sub UserProc;
Var
    File1: IFileInfo;
    TextR: ITextReader;
    s: String;
Begin
    File1:=New FileInfo.Attach("c:\New_folder\1.txt");
    If File1.Exists Then
        TextR:=File1.OpenTextReader;
        s:=TextR.ReadToEnd;
    End If;
    Dispose File1;
End Sub UserProc;

После выполнения примера в переменную «s» будут считан текстовый файл «1.txt».

См.также:

ITextReader