| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как посимвольно прочитать файл?
Toxa_ua © (2005-11-06 22:21:00)Скажите пожалуйста. Как можно прочитать строку в текстовом файле посимвольно, выводя последовательно каждый символ например в компонент Edit?
Германн (2005-11-07 02:07:00) [1]2 Toxa_ua ©
Ты только пойми, что чтение файла <> анализу содержимого сего файла. Так может стоит его сначала считать куда-нибудь, а потом проанализировать "посимвольно"? Имхо, второй вариант - гораздо быстрее! (Особливо в попугаях! :-) )
palva (2005-11-06 23:16:00) [2]При помощи Read можно прочитать сразу много символов, например:
Read(f, c1, c2, c3)
Если конец строки то будут прочитаны символы Chr(13), Chr(10), если файл кончится, то будут читаться символы Chr(26).
Если вместо Read использовать процедуру Readln, то после чтения перейдем на начало следующей строки, пропуская остаток текущей.
Еще есть полезные булевские фунции Eoln(f) и Eof(f), которые возвращают True, если находимся в конце строки или в конце файла соответственно.
Anatoly Podgoretsky (2005-11-06 23:05:00) [3]Еще раз Read
Toxa_ua (2005-11-06 22:57:00) [4]В таком случае читается только первый символ. А как прочитать следующий?
palva (2005-11-06 22:37:00) [5]Текстовый файл можно читать посимвольно процедурой Read.
var
f: Text;
c: Char;
begin
AssignFile(f, '. . .');
Reset(f);
Read(f, c);
. . .
| |
