Чтение любых файлов.

[qwertyk]

В одной из тем приводился код:

var OD:TOpenDialog;  //Диалог открытия файла(переменка)
    F:File;   //файл для чтения
    B:array[1..1024] of char;  //буфер
    N:integer;                //кол-во прочитаннх байт за один присест

begin
 Memo1.Text:='';            //очищаем мемо
 OD:=TOpenDialog.Create(Form1);   //создаем диалог
 if OD.Execute then begin      //показываем диалог, если выбрали файл...
              assignfile(f,OD.FileName); //...то,открываем файл
              reset(f,1);
              while not EoF(F) do          //пока есть что читать то читаем..
               begin
                    BlockRead(F,b[1],1024,N);   //пробуем прочесть весь буфер
                     Memo1.Text:=Memo1.Text+Copy(B,1,N); //копируем то сколько прочли
                end;
                CloseFile(F); //закрываем файл.
            end
            else Close; //...иначе выходим
 OD.Free;  //уничтожжаем диалог.
end;

Код полностью рабочий, окрывает любые файлы, но почему если вместо memo1.text указать переменую типа string и отрыть exe или doc файл то в переменную запишется не все содержимое файла? Хотя memo1.text принадлежит типу string.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[veniside]

Сообщение от qwertyk

в переменную запишется не все содержимое файла

как проверяли?

[Пепел Феникса]

а версия Делфи какая?
для надежности в этом коде надо ставить AnsiChar

[qwertyk]

как проверяли?

вместо

Memo1.Text:=Memo1.Text+Copy(B,1,N); //копируем то сколько прочли

написал

s:=s+Copy(B,1,N); //копируем то сколько прочли

естественно в переменных я указал s, и конце кода написал showmessage(s);

а версия Делфи какая?

v.7.3.3.5

[veniside]

Сообщение от qwertyk

showmessage(s)

хм.. это ж какой экран надо иметь, чтобы вывести весь экзешник на него. В любом случае, showmessage() остановился на первом #0, и правильно сделал. Но это не значит, что в s не весь файл.

[Пепел Феникса]

вы уверены что не все?
может просто не просмотреть весь файл в одном окне.
чтоб проверить можно в конце написать такое
if FileSize(F)<>Length(s) then ShowMessage('размеры не совпадают');
это вставить перед CloseFile

[qwertyk]

В любом случае, showmessage() остановился на первом #0

Если код не преобразовывать и дописать s:=memo1.text; showmessage(s) то сообщение выведет весь текст и не остановится на первом #0.

[Пепел Феникса]

потому что мемо преобразует текст в читабельный вид, однако если записать его обратно в файл, то файлы получатся разные.
запомните Memo.Text это св-во.
Memo.Text:=s;
сводится к Memo.SetText(s);
а далее там преобразуются нечитабельные символы в закорючки.

[qwertyk]

Спасибо, Пепел Феникса! Теперь немного разобрался. Тема закрыта.