Создать копию бинарного файла в формате txt, с разбивкой строк и адресацией.

[sergey.serg-72]

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

Не вижу такого.
Код:

Да, я просто константу неправильно выставлял, сейчас разобрался.

На счёт кода Вашего, ну что , тут можно сказать? Вы настоящий профи и мастер своего дела, нам лузерам до такого уровня, как до Китая ползком. Но благодаря Вам и мы стараемся , учимся.
Всё просто замечательно и отлично, тут даже слов нет, рот открыт и одни эмоции...

Я единственно что не увидел выбор комбобокса в Вашем коде .

И второй момент, допустим поставили новую задачу: добавить ещё 3-4 списка для S19,S28,S37 как тогда быть? ну допустим ;

  const
ranges: array[0..7] of array[0..1] of Integer = (     // S19
    ($0000, $06C0),
    ($0870, $1F20),
    ($2080, $3A90),
    ($3DD0, $42C0),
    ($4C60, $58E0),
    ($6030, $73C0),
    ($0BAE0, $BF60),
    ($0E800, $FFFF)
  );  

 const
ranges: array[0..7] of array[0..1] of Integer = (     // S19
    ($0010, $04C0),
    ($0670, $1E20),
    ($3080, $2A90),
    ($2DD0, $32C0),
    ($4D60, $59E0),
    ($6230, $73D0),
    ($0CAE0, $BF60),
    ($0E700, $FFFF)
  );

И так несколько для каждой S, как тогда быть ?

[BDA]

Сообщение от sergey.serg-72

в константе $FFFF, тогда надо +,, если $10000 то минус.

Нет, в выражении "ranges[j, 1] - addr" всегда минус, но если хочется, чтобы конец диапазона был включен, то нужно добавить в выражение "+ 1".

Сообщение от sergey.serg-72

не увидел выбор комбобокса

      if ComboBox1.ItemIndex = -1 then
        raise Exception.Create('Не выбран диапазон!');
      ...
      with info[ComboBox1.ItemIndex] do
      begin

Сообщение от sergey.serg-72

добавить ещё 3-4 списка для S19,S28,S37 как тогда быть?

Расширить массив записей info, добавить инициализацию новых записей аналогично имеющимся, добавить строки в комбобокс. Единственное ограничение, что сейчас в каждой записи должно быть строго 8 диапазонов.

[sergey.serg-72]

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

Нет, в выражении "ranges[j, 1] - addr" всегда минус, но если хочется, чтобы конец диапазона был включен, то нужно добавить в выражение "+ 1".

Если выставляю адрес, $FFFF то тогда за место + addr, ставить просто + 1 я правильно понял ?

[sergey.serg-72]

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

if ComboBox1.ItemIndex = -1 then
raise Exception.Create('Не выбран диапазон!');
...
with info[ComboBox1.ItemIndex] do
begin

Будем разбирать этот момент. Хотя на трёх позициях пока работает и так.

[BDA]

Сообщение от sergey.serg-72

за место + addr, ставить просто + 1 я правильно понял

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

          while fbin.Position < Min(fbin.Size, ranges[j, 1] + 1) do
          begin
            addr := fbin.Position;
            read_count := fbin.Read(b[0], Min(BYTES_IN_LINE, ranges[j, 1] + 1 - addr));

[sergey.serg-72]

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

Расширить массив записей info, добавить инициализацию новых записей аналогично имеющимся, добавить строки в комбобокс. Единственное ограничение, что сейчас в каждой записи должно быть строго 8 диапазонов.

добавить надо разбираться с этим , а в комбобокс добавить это понятный момент.
А вот то, что ограничение только на 8 и по разному нельзя, это не айс!.

При тестах использовал оба кода, адреса одинаковые, тестовые файлы тоже.
Файлы полностью идентичны, пошагово проверял , оба кода рабочие.

[BDA]

Сообщение от sergey.serg-72

А вот то, что ограничение только на 8 и по разному нельзя, это не айс!.

Это легко обойти, если добавить еще поле в TInfo, которое обозначает реальное количество диапазонов, но инициализировать придется всё равно все 8 (например, нулями).

[sergey.serg-72]

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

Это легко обойти, если добавить еще поле в TInfo, которое обозначает реальное количество диапазонов, но инициализировать придется всё равно все 8 (например, нулями).

да, но всё ровно не айс ! лишний, не нужный код, пустышка.

Я тестировал пошагово и отловил неприятный касячёк в наших кодах. В обработки 8 адресов, есть обработка , если нет одного диапазона. Но нет полной обработки диапазонов всех и что получается на выходе ? : прога прошла обработку по 7 диапазонам , но на 8 попалась .

$0BAE0, $BF60), этот диапазон прошла.
($0E800, $FFFF) а на этом, последнем спотыкнулась, файл не 65536 байт а меньше 65504 байта и получилось не хорошо $0E800 с этого начала , а конец то другой файла по этому данные испорчены считай. А если бы была полная обработка то прога должна была бы пропустить $0E800, $FFFF) этот диапазон полностью, но не пропкстила и перевела считай битый (неправильный ) файл. Как этот момент обработать ?

Так что тесты это не маловажная тоже работа.

p.s
тестовый обрезной файл в архиве.

[BDA]

Сообщение от sergey.serg-72

А если бы была полная обработка то прога должна была бы пропустить этот диапазон полностью

Да, вроде, не было формулировки до этого, что диапазон обязан быть целиком в файле, поэтому вычитывалось, что есть (диапазон частично). Вот так должен пропускать диапазон:

          if ranges[j, 0] < fbin.Size then
            fbin.Position := ranges[j, 0]
          else
            Break;
          if ranges[j, 1] > fbin.Size then
            Break;
          while fbin.Position < ranges[j, 1] do

Сообщение от sergey.serg-72

лишний, не нужный код, пустышка

На мой взгляд, пара лишних чисел в данных всё равно лучше, чем дублирование кода.

[sergey.serg-72]

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

if ranges[j, 0] < fbin.Size then
fbin.Position := ranges[j, 0]
else
Break;
if ranges[j, 1] > fbin.Size then
Break;
while fbin.Position < ranges[j, 1] do

Не, непо

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

Да, вроде, не было формулировки до этого, что диапазон обязан быть целиком в файле, поэтому вычитывалось, что есть (диапазон частично). Вот так должен пропускать диапазон:
Код:
if ranges[j, 0] < fbin.Size then
fbin.Position := ranges[j, 0]
else
Break;
if ranges[j, 1] > fbin.Size then
Break;
while fbin.Position < ranges[j, 1] do

Так все нюансы и не уследишь, это в процессе тестов выяснилось. А момент то существенный .
Этот код я тоже делал, но это не вариант, так как диапазон от 16 до 65536 , то может быть файл в котором 6 диапазонов полных можно считать, а которые не полный не считывать.
А с этим кодом просто пустой файл, хотя 6 из 8 диапазонов можно считать и нужно.
А так пустой файл, не вариант, могли целых 6 диапазонов считать и записать.

Я тоже, сижу над этим, пока не получается .