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

[sergey.serg-72]

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

Несколько замечаний: этот код пишет FF (для 00 в двух строках исправить код); нужно гарантировать, что все старые и новые диапазоны между собой не пересекаются, иначе получится фигня в выходном файле (разные данные для одного и того же адреса).

Мне кажется проблема в том. что в новом коде отсутствует часть кода

for i := 0 to read_count - 1 do
begin
data_s := data_s + IntToHex(b[i], 2);
Inc(sum, b[i]);
end;

Может из за этого, одни 00 идут , а данные отсутствуют (не записываются) ?

[BDA]

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

Мне кажется проблема в том. что в новом коде отсутствует часть кода

Да, потому что я просто обозначил, куда вставлять новый код, а после "Inc(addr, offset);" не надо было убирать код, который как раз и пишет данные.

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

То есть за место j в цикле поставить 0 ?

Не в цикле. Сначала вынести этот новый код, который пишет нули, например, перед циклом "for j := Low(ranges3) to High(ranges3) do" (можно и после цикла, зависит от желаемого результата). Потом в новом коде поменять j на 0, чтобы использовать информацию о первом диапазоне.

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

не срабатывает код при пустых edit, не пойму почему ?

А зачем проверять "sender <> Button1"?

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

усовершенствовать код с помощью скажем комбобкса , поставил галочку и считанный кусок данных, записался с 0 адреса

Не запускал, но примерно так:

if checkbox1.checked then
begin
  p1 := Stream.Memory;
  p2 := Stream.Memory;
  Inc(p2, start_pos);
  for i := start_pos to end_pos do
  begin
    p1^ := p2^;
    inc(p1);
    inc(p2);
  end;
  Stream.Size := end_pos - start_pos + 1;
end
else
begin
  p := Stream.Memory;
  for i := 0 to start_pos - 1 do
  begin
    p^ := $FF;
    inc(p);
  end;
  Stream.Size := end_pos + 1;
end;

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

Если в программе так делаю, то ошибка вылетает и требуется вводить в ручную

Что сказано в тексте ошибки?

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

if Stream.Size < 0 then

Странная проверка размера.

[sergey.serg-72]

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

А зачем проверять "sender <> Button1"?

Как зачем ? , если пустые egit начальный адрес и пустое edit2 конечный адрес, откуда по по куда будет писать файл? как предупредить пользователя чтоб ввести адреса? зачем понятно, не понятно почему не срабатывает, в чём причина?

[BDA]

Да проверку текста эдита на пустоту можно делать. Я спрашиваю, зачем проверять в этом условии сендера. Это обычно делается, если один общий обработчик вешается на несколько кнопок, чтобы понять, какая кнопка была нажата. А тут зачем?

[sergey.serg-72]

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

Что сказано в тексте ошибки?

Окошко вылетает системное , типа не нравится ей что адрес скопирован , а не введён в ручную.
Бред какой то вот что вылетает.

[BDA]

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

не нравится ей что адрес скопирован

Там пробел в конце затесался, вот он и не нравится.

[sergey.serg-72]

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

Странная проверка размера.

да я не столько размер, сколько чтоб конечный адрес не был меньше начального.
Но тоже не работает.

if start_pos  < end_pos then
begin
MessageBox(handle,PChar('ошибка адреса'), PChar('сообщение'), 64);
Stream.Free;
exit;
end;

[BDA]

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

Но тоже не работает.

Скорее, "if end_pos < start_pos then". И проверять уже после инициализации start_pos и end_pos.

[sergey.serg-72]

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

Там пробел в конце затесался, вот он и не нравится.

Пробел в адресе? странно как то ...

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

Скорее, "if end_pos < start_pos then". И проверять уже после инициализации start_pos и end_pos.

действительно, отлично всё встало, на свои места.

Вот только не пойму почему не срабатывает ?

if (sender <> Button1 ) and (EDit2.Text = '')  then

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

Да проверку текста эдита на пустоту можно делать. Я спрашиваю, зачем проверять в этом условии сендера.

Чтоб до открытия и загрузке файла, разве это лишнее? чтоб записывала 0 длины файлы с пустыми едитами , разве нормально?

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

Не в цикле. Сначала вынести этот новый код, который пишет нули, например, перед циклом "for j := Low(ranges3) to High(ranges3) do" (можно и после цикла, зависит от желаемого результата). Потом в новом коде поменять j на 0, чтобы использовать информацию о первом диапазоне.

Сейчас приступаю к главному моменту, а то я совсем запутался..... Новый код вывожу перед циклом и в новом коде поменять j на 0 ?

[BDA]

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

Вот только не пойму почему не срабатывает ?

Попробуйте просто:

if Edit2.Text = '' then

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

Новый код вывожу перед циклом и в новом коде поменять j на 0 ?

Да.