Как посимвольно прочитать файл?

← →
Toxa_ua © (2005-11-06 22:21) [0]

Скажите пожалуйста. Как можно прочитать строку в текстовом файле посимвольно, выводя последовательно каждый символ например в компонент Edit?

← →
palva © (2005-11-06 22:37) [1]

Текстовый файл можно читать посимвольно процедурой Read.
var f: Text; c: Char; begin AssignFile(f, ". . ."); Reset(f); Read(f, c); . . .

← →
Toxa_ua © (2005-11-06 22:57) [2]

В таком случае читается только первый символ. А как прочитать следующий?

← →
Anatoly Podgoretsky © (2005-11-06 23:05) [3]

Еще раз Read

При помощи Read можно прочитать сразу много символов, например:
Read(f, c1, c2, c3)
Если конец строки то будут прочитаны символы Chr(13), Chr(10), если файл кончится, то будут читаться символы Chr(26).
Если вместо Read использовать процедуру Readln, то после чтения перейдем на начало следующей строки, пропуская остаток текущей.
Еще есть полезные булевские фунции Eoln(f) и Eof(f), которые возвращают True, если находимся в конце строки или в конце файла соответственно.

2 Toxa_ua ©
Ты только пойми, что чтение файла <> анализу содержимого сего файла. Так может стоит его сначала считать куда-нибудь, а потом проанализировать "посимвольно"? Имхо, второй вариант - гораздо быстрее! (Особливо в попугаях! :-) )

Как посимвольно прочитать файл? Найти похожие ветки