| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Считывание из text файла по одному символу [D6, D7, WinXP]

ExpertTech ©   (2004-08-19 14:22:00) 

Уважаемые Мастера!
Мне нужна помощь.
Имеется текстовый файл, примерно на 100-1000 строк, по 50-100 символов с строке.
Каким образом можно считывать из него данные по одному символу?
Если считывать всю строку, а потом посимвольно обрабатывать полученные данные, то получиться очень долго, а это не есть хорошо.

---

Семен Сорокин   (2004-08-19 14:29:00) [1]

var
 _i   : integer;
 _text: string;

with TStringList.Cteate do
try
 LoadFromFile('C:\temp\TextFile.txt');
 Delimiter := ' ';
 _text := DelimitedText
finally
 Free
end;
for _i := 1 to Length(_text) do
// ...

---

Cosinus   (2004-08-19 14:27:00) [2]

>>TUser ©
Ну да, точно, что то я глупость сморозил... Если еще и TStream... то вообще летать будет ;)

---

TUser   (2004-08-19 14:26:00) [3]

TFileStream будет работать быстро.

---

TUser   (2004-08-19 14:25:00) [4]

file of char, tfilestream, f1, архив форума.

---

Cosinus   (2004-08-19 14:25:00) [5]

1) Я не уверен, что получиться долго. Ты пробовал? Или там какие то хитрое сверхмедленное хэширование? ;)
2) Можно попробовать представить файл, как File of byte, и читать побайтно.

---

PVOzerski   (2004-08-19 14:25:00) [6]

Ну, если считывать по символу из файла, выйдет еще медленнее и притом намного. Тогда уж залить содержимое файла целиком в массив и обрабатывать этот массив. А залить можно, например, работая с файлом как с нетипизированным.

---

Наверх