файл не читается до конца

[kalyakin]

Проблема в чтении текстового файла всего пол метра размером. Пробовал разные процедуры, но всегда одно и то же, а именно...

файл выглядит таким образом:

яю $(,0448<@DHLLPTX\``dhlpttx|__"___"" __*¤Ё┐°_ёАДИМРФШЬадд px|_"___"__¤Ё┐°_ё_АДИМРФШЬадд... и ещё пару сотен символов

при чтении файла всегда выводится только этот отрезок:

яю $(,0448<@DHLLPTX\``dhlpttx|__"___"" __ ¤Ё┐°_ёАДИМРФШЬадд

то есть чтение останавливается на символе, имеющем нулевой код (если верить FAR).
Как заставить пригу читать файл полностью?

[Grag]

Так покажи код, как ты читаешь файл...

[kalyakin]

да хотя бы тот,что в представленном на сайте исходнике в категории работа с файлами\чтение из файла

[GoodDA]

попробуй в мемо загрузить, или в RichEdit

memo1.lines.loadfromfile('имя файла');

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

[kalyakin]

loadFromFail я тоже пробовал и через буфер тоже. Я тоже думаю, что прога считает этот символ концом файла (где-то в учебника я встречал понятие истинный ноль), но как это избежать ?

[GoodDA]

определяй размер файла, и читай через буфер нужное кол-во раз

[kalyakin]

размер 512 КБ. а что значит читать через буфер нужное количество раз?
Если я даю буферу команду прочитать и запомнить 70 символов, а этот злополучный нулевой символ стоит 64-м, то из буфера в мемо попадает только 63 символа.

[GoodDA]

вот пример, но имхо это изврат читать "битый" файл как текстовый

http://www.delphisources.ru/pages/fa..._file_eof.html

var
  f1 :file of Byte;
  a :Byte;
  i :Longint;
begin
  AssignFile(f1, 'a.dat');
  Reset(f1);
  for i := 1 to FileSize(f1) do
  begin
     Read(f1, a);
     if a <> 26 then  memo1.text := memo1.text + chr(a);
  end;
  CloseFile(f1);
end;

[Serge_Bliznykov]

присоединяясь к вышесказанному.
1) Читать файл надо НЕ КАК ТЕКСТОВЫЙ! (либо file, либо file of byte. А вообще в данном случае лучше использовать TFileStream)

2) прочитанные данные напрямую бросать в визуальные компоненты не очень хорошая мысль - TEdit, TMemo и прочая предназначены для отображения/редактирования ТЕКСТА! Что они будут делать, если в них загрузить символы с кодами 00..31 - можно только догадываться. Но, думаю, ничего хорошего при этом не отобразиться!

[kalyakin]

Спасибо за пример, он работает. Я изменил код и чтение идёт не останавливаясь на нулевых символах.
Вот код:

var
  f1 :file of Byte;
  a :Byte;
  i :Longint;
begin
  AssignFile(f1, 'C:\1.dat');
  Reset(f1);
  for i := 1 to 200 do
  begin
     Read(f1, a);
     memo1.text := memo1.text + chr(a);
  end;
  CloseFile(f1);
end;

Но есть одно но. Эти нулевые символы выбрасываются из текста и в memo не попадают,а без них файл не будет работать. Какой цикл написать, чтобы они не пропадали?