замена в бинарном коде 1 на 0 или 0 на 1

[Алексей_2012]

есть tedit, в нем бинарный код, по коду хеминга в этом коде ищется ошибка и изменяется на противоположное значение, ну если ошибка в 5 по счету бите, например там стоит 0, то его надо заменить на 1 или если там стоит 1, ТО ЗАМЕНИТЬ НА 0, проблема в самом цикла, как дойти именно до этого места с ошибкой я знаю, а как заменить-нет

[Kix.IV]

Может быть выложите часть кода? Не понятно в чём именно проблема.

[s-andriano]

читаете нужный байт из файла, меняете в нем нужный бит, записывайте обратно.

[Алексей_2012]

я не выложу код, там его много, выложу прогу саму, (см. radiobutton2)

[Алексей_2012]

Length(txt1)-summator1+1

нужно заменить бит в позиции вычисляемой кодом

По сути прописать такое условие:

if <номер_позиции>='1' then <номер_позиции>:='0' else <номер_позиции>:='1';

[phomm]

procedure inbertbit(bitpos: byte; var b: integer);
var a, p: integer;
begin
p := 1 shl bitpos;
a := b and p;
if a > 0 then
  b := b - p
else
  b := b + p;
end;

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

[Аватар]

есть tedit, в нем бинарный код

ну если ошибка в 5 по счету бите, например там стоит 0, то его надо заменить на 1 или если там стоит 1, ТО ЗАМЕНИТЬ НА 0

Если правильно понял, а понять не очень просто. Не мешало бы более точно выражать

if edit.Text[5]='0' then edit.Text[5]:='1' else edit.Text[5]:='0';

[s-andriano]

Проще в одну строку:

  b := b xor (1 shl bitpos);

[Алексей_2012]

  if edit1.Text[Length(txt1)-summator1+1]='0' then edit1.Text[Length(txt1)-summator1+1]:='1' else edit1.Text[Length(txt1)-summator1+1]:='0';

не компилируется, пишет
[Error] xeming.pas(388): Left side cannot be assigned to

[Аватар]

Я извиняюсь

s:=edit1.Text;
if s[Length(txt1)-summator1+1]='0' then s[Length(txt1)-summator1+1]:='1' else s[Length(txt1)-summator1+1]:='0';
edit1.Text:=s;