2

Столкнулся с проблемой в Delphi. Имеется файловая переменная F: File. Как в нее добавить нулевой байт? Это нужно осуществить с помощью процедуры BlockWrite.

14
  • Эмм.. Объясните на примере, пожалуйста. Пока что-то не понятно 20 дек 2019 в 15:39
  • Допустим у меня есть файловая переменная F: File of Byte. В нее я могу записать нулевой байт следующим образов: Write(F, '#0'). А если тип просто File, то необходимо использовать вместо Write процедуру BlockWrite. Но через неё записать нулевой байт у меня не получается.
    – RenGrand
    20 дек 2019 в 15:45
  • "записать нулевой байт у меня не получается" - покажите.
    – user176262
    20 дек 2019 в 15:47
  • Вот так получилось, работает: BlockWrite(F, '#0', 4). Но правильно ли это?
    – RenGrand
    20 дек 2019 в 15:51
  • Нет, это неправильно. Что означает параметр 4?
    – user176262
    20 дек 2019 в 15:52

2 ответа 2

1
var
  ...
  b: byte;
begin
  ...
  b := 0;
  BlockWrite(F, b, 1);

BlockWrite(F, '#0', 4)

но если я там ставлю число 1, то записывает в файл # вместо #0

Потому что Вы пишете в файл кусок строки, залезая за ее конец.

Как объявлена переменная F, и как открыт файл?

3
  • F: File; AssignFile(F, FileName); Reset(F);
    – RenGrand
    20 дек 2019 в 16:06
  • Все работает. Спасибо
    – RenGrand
    20 дек 2019 в 16:09
  • @pharaxx Пожалуйста. Успехов. Знак "галочка" - слева от ответа.
    – user176262
    20 дек 2019 в 16:12
-1

В паскале, а затем и в языках/средах программирования, выросших из него, принято использовать типизированные файлы. Это значит, что компилятор/линкер автоматически предложат наилучший путь записи данных в файл таким образом, чтобы затем используя тот же типизированный файл, их прочитать.
Пример:

var
  f1: file of byte;
  a:byte;

begin
  AssignFile(f1, 'c:\temp\fileofbytes.dat');
  Rewrite(f1);
  a:=0;
  Write(f1, a); // вот ваш ноль

и так далее, вы можете писать в файл данные побайтово. На самом деле, это очень неоптимально, но если вам там хочется, - пожалуйста. Зато не ошибётесь: каждый раз, когда будете использовать

  Read(f1, a);

будет считываться именно байт. Если использовали file of string - будет строка (на самом деле лучше использовать Text/TextFile, и тогда мы можем работать с текстовыми файлами) , и так далее.

Другой вариант (мы не рассматриваем потоки и другие разумные подходы в Delphi/Lazarus/Pascal.ABC и т.п, хотя они гораздо удобнее, быстрее...) - использовать нетипизированный файл:

var
  f2: file;
  a:byte;
  s:string;

и в него вы можете писать, что угодно, однако, должны помнить о том, что и разбираться, что за данные вы считали - это ваша проблема.

begin
  AssignFile(f2, 'c:\temp\file_simple.dat');
  Rewrite(f2);
  a:=0;
  BlockWrite(f2,a,1); // вот тут вы записали ваш ноль
  s:='Привет, мир!';
  BlockWrite(f2,s,length(s)); // а вот тут строка ушла в тот же файл
20
  • 1
    Чушь пишите. Особенно про строки. В Delphi string это указатель 20 дек 2019 в 18:51
  • 1
    @AntonShchyrov Неужели? Во-первых, я писал про паскаль, но многое осталось и в delphi.Во-вторых, изначально string не был указателем. Он теперь в Delphi - shortstring (но всё ещё можно опцией компилятора ограничить использование string только как shortstring). В этом, кстати, часто проявляются ошибки тех, кто привык к старому string, и продолжает работать с новым (который действительно указатель) теми же методами, например использовать в записях и т.п. 21 дек 2019 в 2:38
  • 1
    Хм... Опять голландский синдром? Изначально строки в паскале и делфи - не указатели. Вот неплохая статья: cyberguru.ru/programming/delphi/strings-details.html?showall=1 21 дек 2019 в 9:54
  • @AlexeyKozlov Изначально в Delphi это когда? Delphi1? Ничего, что у автора вопроса в метках delphi-xe? 21 дек 2019 в 13:10
  • 1
    Ну и ваши домыслы о том, что file of string будет объявляться как file of ShortString неверны. При попытке такого объявления будет банальная ошибка компиляции [dcc32 Error] E2155 Type 'string' needs finalization - not allowed in file type 21 дек 2019 в 15:15

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.