Скачать: CL | DM;

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

← →
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

---

← →
palva ©   (2005-11-06 23:16) [4]

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

---

← →
Германн ©   (2005-11-07 02:07) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c