Delphi-Help

ReadLn

Печать
Рейтинг пользователей: / 1
ХудшийЛучший 

ReadLn

Описание

1 procedure ReadLn ( var Variable1 {,var Variable2...} ) ;
2 procedure ReadLn ( var FileHandle : TextFile; var Variable1 {,var Variable2...} ) ;

Delphi процедура ReadLn читает полную строку данных из текстового файла или до консоли (console).

Версия 1

Используется, чтобы читать из консоли (console).

Версия 2

Используется, чтобы читать строку текста из текстового файла с данными. Вы должны использовать AssignFile, чтобы назначать файл для операций - чтения / записи; и открыть файл до процедуры чтения.

ReadLn прочтёт только одну строку, а так как указатель чтения из файла мы не передвигали, то эта строка будет первой строкой текстового файла.

Для прочтения всего текстового файла удобно использовать цикл.

Пример кода

var
myFile : TextFile;
n1, n2, n3 : Integer;

begin
// Попытка открыть файл Test.txt для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);

// Запись чисел в строку
WriteLn(myFile, '1 2 3 4');   // Обратите внимание, что 4 будут проигнорирована

// Запись чисел как отдельные параметры
WriteLn(myFile, 5, ' ', 6, ' ', 7);

// Запись чисел как отдельные параметры
WriteLn(myFile, '8 9');       // Отсутствие чисел будет замечено 0

// Закрытие фала
CloseFile(myFile);

// Переоткрытие фала для чтения
Reset(myFile);

// Показ содержимого фала
while not Eof(myFile) do
begin
ReadLn(myFile, n1, n2, n3);
ShowMessage(IntToStr(n1)+' '+
IntToStr(n2)+' '+
IntToStr(n3));
end;

// Закрытие фала в последний раз
CloseFile(myFile);
end;

1 2 3
5 6 7
8 9 0

Примечание

ReadLn не буферизует записи, так что его выполнение ухудшено. BlockRead более эффективен, но приспособлен для записи в двоичные файлы.

Авторизация



Счетчики