Чтение файла.

← →
DAV © (2003-01-24 18:53) [0]

Как прочитать файл по 1 символу перебором? Не могу найти. ;-(

← →
Александр Спелицин © (2003-01-24 21:26) [1]

См. ReadFile (MSDN).

← →
atmospheric © (2003-01-24 23:10) [2]

хм, а так что не пойдет -
var
c: char;
f: textfile;
begin
...
while not eof(f)
Read(f,c);

end;

← →
DAV © (2003-01-25 08:41) [3]

Это понятно на обычных txt-ках, но у меня лог файл, и по Read(f,c) читает несколько строк и всё. Хотя файл здоровый.
Делаю допустим Memo1.Lines.LoadFromFile("msg.dat"), загружает только первую букву и всё.
Может кто поможет?

← →
cyborg © (2003-01-25 10:50) [4]

Var F : File; Ch : Char; begin AssignFile(F,"msg.dat"); Reset(f,1); While not eof(f) begin Blockread(f,Ch,1); //c Ch чего нибудь делаешь end; closefile(f); end;
Только посимвольно будет очень медленно, читай сразу блоками например по 4 кб. в массив, а затем уже смотри массив посимвольно.

← →
DAV © (2003-01-26 09:53) [5]

Спасибо. Работает. Тока почему то Memo половину записей обрубает.

← →
Моисей (2003-01-26 11:06) [6]

у тебя там наверное бинарная гадость какая-нибудь попадается,
вот StringList и путается

← →
stranger71 (2003-01-27 10:02) [7]

Дело в том, что файл типа Text может содержать только алфавитно-цифровые и некоторые управляющие (перевод строки, прогон листа) символы. Если же это бинарник, то вполне может встретиться и символ конца файла (для текстовых есть и такой). И тогда конструкция While not eof do ... завершится на первом таком символе, хотя файл не закончился. Вычитывать такие файлы нужно обычными файлами - либо так, как показал Cyborg, либо используя файл с указанным типом данных ( File of char например). Для Memo - та же петрушка, там можно использовать алфавитно-цифровые символы и символы #10#13 - остальное Мемо откажется выводить

← →
Anatoly Podgoretsky © (2003-01-27 10:16) [8]

Кстати Memo может обрубать из-за превывшения максимального размера текста :( Пользую RichEdit там ограничения побольше.

TextFile и File of Char синонимы одного и того же типа
А вот File of Byte круче...

а File еще круче (-:|~

Чтение файла. Найти похожие ветки