Небольшое затруднение с BlockWrite

[URQq]

Добрый день.

Возникла небольшая проблема с записью в нетипизированный двоичный файл.
Необходимо записать данные из таблицы в двоичный файл. Выделяем для этого в файле 8 байт. В свободные "нули", край правый.
Имеется таблица с данными.
Берём данные из таблицы и записываем в двоичный файл:

...
  Str := DBGrid1.DataSource.DataSet.FieldByName('Str').Text;
  AssignFile(myFile, SaveDialog2.FileName);
  ReWrite(myFile, 1);
  BlockWrite(myFile, Str[1], 8);
...

Если данные в таблице состоят из четырёх и более символов (ограничение 8), то в двоичном файле записывается всё верно.
Например: 05 05 05 05 00 00 00 00

Проблема возникает, когда менее четырёх символов в таблице. Появляется некий "мусор", неизвестные символы.
Например: 05 05 05 00 D0 4C F1 01 (необходимо: 05 05 05 00 00 00 00 00)

У меня два вопроса (может плохо искал, но гугл мне не помог):
1. Что это за символы (конец ячейки? конец строки? или где?)?
2. Как реализовать задачу правильно?

Спасибо.

[Аватар]

Она и пишет 8 байт начиная с указанного адреса. Если строка короче, то справа будет мусор. Даже те нули для 4-х символов мусор, повезло просто.

[Serge_Bliznykov]

Это мусор, который находится в памяти. Он там никому не мешает, т.к. в строке есть либо длина строки (это в начале строки или в управляющей структуре, Pascal-подобные строки), либо строка заканчивается нулём (C-подобные строки).

Теперь, что делать Вам. Если мусор Вам мешает, то Вы можете банально заполнять нулями строку:

while Length(s)<8 do s := s + #0;

если важна скорость, то можно взять обычный статический массив длиной 8 байт,
скинуть строку туда (через Move: Move(s[1], Buf, Length(s) * SizeOf(Char));
массив предварительно занулить.

2. Как реализовать задачу правильно?

что такое "правильно" - это Вам виднее!
вообще, я бы лично писал в файл сначала длину строки (Intgere), а потом полностью всё строку. Это позволило бы: 1) не заботиться о мусоре, которого там бы не было по определению 2) возможность писать пустые строки и строки длиной в сотни и тысячи символов

p.s. и вообще, зачем Вам олдскульный BlockWrite - чем Вас TFileStream не устраивает?!

[min@y™]

А тебе именно по 8 байт надо писать или от 0 до 8? Если размер блоков постоянный, то резонно юзать таки как раз типизированный файл.
Но, в любом случае, паскальные файловые функции - ФТОПКУ, юзай TFileStream.

[URQq]

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

Это мусор, который находится в памяти. Он там никому не мешает, т.к. в строке есть либо длина строки (это в начале строки или в управляющей структуре, Pascal-подобные строки), либо строка заканчивается нулём (C-подобные строки).

Теперь, что делать Вам. Если мусор Вам мешает, то Вы можете банально заполнять нулями строку:

while Length(s)<8 do s := s + #0;

Спасибо! Решение оказалось очень простым. После десятилетнего перерыва делаю банальные ошибки.

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

вообще, я бы лично писал в файл сначала длину строки (Intgere), а потом полностью всё строку. Это позволило бы: 1) не заботиться о мусоре, которого там бы не было по определению 2) возможность писать пустые строки и строки длиной в сотни и тысячи символов

Я бы тоже так сделал, но задача стоит иная. Есть определенный файл, который должен быть вшит в прибор и он чётко расписан по адресам. Добавить байты о длине строк не имею возможности, выйду за рамки размера файла.

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

p.s. и вообще, зачем Вам олдскульный BlockWrite - чем Вас TFileStream не устраивает?!

Как я уже писал, перерыв в программировании около 10-ти лет. Спасибо ещё раз за подсказку, буду изучать TFileStream.

Решение(если кому нужно будет):

...
  Str := DBGrid1.DataSource.DataSet.FieldByName('Str').Text;
  AssignFile(myFile, SaveDialog2.FileName);
  ReWrite(myFile, 1);
  while Length(Str) < 8 do Str := Str + #0;
  BlockWrite(myFile, Str[1], 8);
...

[Serge_Bliznykov]

Хорошо.

Ещё совет, на будущее - не стоит использовать имена стандартных функций в качестве идентификаторов - замените Str на что-нибудь более подходящее.
На худой случай, если ничего не придумаете, то, хотя бы на StrText

[URQq]

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

Хорошо.

Ещё совет, на будущее - не стоит использовать имена стандартных функций в качестве идентификаторов - замените Str на что-нибудь более подходящее.
На худой случай, если ничего не придумаете, то, хотя бы на StrText

Да, я знаю.
Просто для примера так написал, что бы не писать модуль var s: string. Подумал, что сразу ясно будет Str - string, Int - integer и т.д.
В программе у меня, конечно же, иначе.