в программе по нахождению избыточности (код Хеминга) иногда выводится не тот результат

[Алексей_2012]

procedure TForm1.Button1Click(Sender: TObject);
var  i,k,j:integer;
s:string;
begin
  Edit1.Text:=Trim(Edit1.text);
  if edit1.text='' then exit;
  RichEdit1.clear;
    k:=0;
    for i:=length(Edit1.text) downto 1 do
    if Edit1.Text[i]='1' then
    begin
      s:= bin(length(Edit1.text)-i+1);
      RichEdit1.Lines.Add(IntToStr(length(Edit1.text)-i+1)+'='+bin(length(Edit1.text)-i+1));
      k:=k xor (length(Edit1.text)-i+1);
    end;
    RichEdit1.Lines.Add('-----------------------------');
    RichEdit1.Lines.Add(IntToBin(k,length(s)));
    Edit1.SetFocus;
end;

Все работает, теперь сижу тестирую, но думаю в принципе ошибок возникнуть не должно, спасибо всем кто помогал мне

[Алексей_2012]

Вот полностью рабочее нахождение избыточности, а как к переменной l прибавить содержимое(тоже двоичное) из edit2.text? тоже по модулю 2

procedure TForm1.Button1Click(Sender: TObject);
var  poruadok,i,k,j:integer;
s,l:string;
begin
    k:=0;
poruadok:=0;
 RichEdit1.Lines.Add('1)   Ïîèñê èçáûòî÷íîñòè ìåòîäîì Õåìèíãà.');
 RichEdit1.Lines.Add('-----------------------------------');
  RichEdit1.Lines.Add('Âû ââåëè òàêîé êîä: '+edit1.text);
 RichEdit1.Lines.Add('-----------------------------------');
 RichEdit1.Lines.Add('2)   Âûïèñûâàåì âñå ïîðÿäêîâûå íîìåðà åäèíè÷åê íà÷èíàÿ ñ 1 è ïåðåâîäèì â äâîè÷íûé âèä');
  RichEdit1.Lines.Add('-----------------------------------');
    for i:=length(Edit1.text) downto 1 do
    if Edit1.Text[i]='1' then
    begin
      s:= bin(length(Edit1.text)-i+1);
      RichEdit1.Lines.Add('        '+inttostr(poruadok)+')    '+IntToStr(length(Edit1.text)-i+1)+'='+s);
      k:=k xor (length(Edit1.text)-i+1);
      inc(poruadok);
    end;
    RichEdit1.Lines.Add('-----------------------------------');
    RichEdit1.Lines.Add('3)   Ñêëàäûâàåì äâîè÷íûå ïîðÿäêîâûå íîìåðà...');
     RichEdit1.Lines.Add('-----------------------------------');
    l:= IntToBin(k,length(s));
    RichEdit1.Lines.Add(l);
    RichEdit1.Lines.Add('-----------------------------------');
    RichEdit1.Lines.Add('4)   Èíâåðòèðóåì ïîëó÷åííóþ ñóììó...');
     RichEdit1.Lines.Add('-----------------------------------');
    for i:=1 to Length(l) do if l[i]='1' then l[i]:='0' else l[i]:='1';
    RichEdit1.Lines.Add(l);
    RichEdit1.Lines.Add('-----------------------------------');
    RichEdit1.Lines.Add('Âû ïîëó÷èëè èçáûòî÷íûé êîä: '+l);
    Edit1.SetFocus;
end;

[Алексей_2012]

надо написать l:=L XOR (LENGTH(EDIT2.TEXT))?

[Аватар]

надо написать l:=L XOR (LENGTH(EDIT2.TEXT))?

Алексей_2012, а что из этого получится? При чем длина текста в едите? Преобразуйте двоичную запись из эдита в Integer, и только после этого XOR.

[Алексей_2012]

Точно, сейчас постараюсь, кстати, пытался добавить вам еще репутации, пишет что надо еще кому то добавить х) не пойму этой системы

[Алексей_2012]

дак вить в переменной l-строковые символы из 1 и 0, в edit2 тоже строковое число из 1 и 0, как преобразовать?