Не так работает скремблер

[Алексей_2012]

Все-таки сам сделал, но код большеват, кто сможет оптимизировать?

procedure TForm1.Button1Click(Sender: TObject);
var
  s, kto: string;
  i: word;
  b: array of string[1];
begin
  s := '';
  RichEdit1.clear;
  kto := Trim(Edit1.text);
  RichEdit1.Lines.Add('Ваш код: ' + kto);
  RichEdit1.Lines.Add(stringofchar('=', 30));
  SetLength(b, Length(kto));
  for i := 1 to Length(kto) do
  begin
    if i <= 3 then
    begin
      b[i - 1] := Copy(kto, i, 1);
      RichEdit1.lines.Add('B' + inttostr(i) + ' = A' + inttostr(i) + ' = ' + b[i - 1]);
    end
    else
    if (i <= 5) and (i >= 4) then
    begin
      if (kto[i] = '1') and (b[i - 4] = '1') or (kto[i] = '0') and (b[i - 4] = '0') then b[i - 1] := '0' else b[i - 1] := '1';
      RichEdit1.lines.Add('B' + inttostr(i) + ' = A' + inttostr(i) + ' xor B' + inttostr(i - 3) + ' = ' + kto[i] + ' xor ' + b[i - 4] + ' = ' + b[i - 1]);
    end
    else
    begin
      if (kto[i] = '1') and (b[i - 4] = '1') or (kto[i] = '0') and (b[i - 4] = '0') then b[i - 1] := '0' else b[i - 1] := '1';
      if (b[i - 1] = '1') and (b[i - 6] = '1') or (b[i - 1] = '0') and (b[i - 6] = '0') then b[i - 1] := '0' else b[i - 1] := '1';
      RichEdit1.lines.Add('B' + inttostr(i) + ' = A' + inttostr(i) + ' xor B' + inttostr(i - 3) + ' xor B' + inttostr(i - 5) + ' = ' + kto[i] + ' xor ' + b[i - 4] + ' xor ' + b[i - 6] + ' = ' + b[i - 1]);
    end;
    s := s + b[i - 1];
  end;
  RichEdit1.lines.Add(stringofchar('-', 60));
  RichEdit1.Lines.Add('Cкремблированный код: ' + s);
  b := nil;
end;

З.Ы. Еще надо в ричедит выделить символ b[i-1] любым цветом, пытался сам через selstart и SelLength-не вышло, просто не могу для selstart указать какую именно строчку, начиная с какой позиции подсвечивать

[Serge_Bliznykov]

Вы так хотели?

....
    else
    begin
      if (kto[i] = '1') and (b[i - 4] = '1') or (kto[i] = '0') and (b[i - 4] = '0') then b[i - 1] := '0' else b[i - 1] := '1';
      if (b[i - 1] = '1') and (b[i - 6] = '1') or (b[i - 1] = '0') and (b[i - 6] = '0') then b[i - 1] := '0' else b[i - 1] := '1';
      RichEdit1.lines.Add('B' + inttostr(i) + ' = A' + inttostr(i) + ' xor B' + inttostr(i - 3) + ' xor B' + inttostr(i - 5) + ' = ' + kto[i] + ' xor ' + b[i - 4] + ' xor ' + b[i - 6] + ' = ' + b[i - 1]);
    end;
    s := s + b[i - 1];
  end;

  {выделим все B1 .. B8}
  RichEdit1.Lines.BeginUpdate;
  for i := 1 to 8 do begin
    s2 := 'B'+IntToStr(i);
    richedit1.selstart := richedit1.FindText(s2+' =',0, length(richedit1.text), []);
    richedit1.sellength := length(s2);
    richedit1.selattributes.color:=clRed;
    richedit1.selattributes.Style := [fsBold];
  end;
  RichEdit1.Lines.EndUpdate;



  RichEdit1.lines.Add(stringofchar('-', 60));
  RichEdit1.Lines.Add('Cкремблированный код: ' + s);
  b := nil;
end;

[Алексей_2012]

не совсем, но все же, как я понял-надо сначала выделить в цикле то что нужно по-красить, и потом, там цикл не до 8 будет, а до length(kod)) если не трудно, то сделайте комменты для этого куска кода:

  RichEdit1.Lines.BeginUpdate;
  for i := 1 to 8 do begin
    s2 := 'B'+IntToStr(i);
    richedit1.selstart := richedit1.FindText(s2+' =',0, length(richedit1.text), []);
    richedit1.sellength := length(s2);
    richedit1.selattributes.color:=clRed;
    richedit1.selattributes.Style := [fsBold];
  end;
  RichEdit1.Lines.EndUpdate;

а именно меня интересует выделение любой из всех строчек текста в trichedit

Да, и еще, почему то работает не так подсветка синтаксиса, во вложениях код, и скрин того, что работает не так

[Serge_Bliznykov]

код работает ровно так, как ему и положено
Дело в том, что используемый мною код (кстати, я взял его на DelphiWorld - вот тут:
Как выделить в RichEdit 4 строки ) работает только если выделаемый текст УНИКАЛЕН (так работает метод FindText).
Если же текст, который мы хотим выделить НЕ уникален, то выделится только первое вхождение искомого слова (что мы и наблюдаем - B1 B2 .. B8 выделились только первые вхождения в тексте)

Возможно, что Вам удобнее будет воспользоваться другим способов - завести переменную, которая будет считать смещение в richEdit1 от начала текста (в символах, разумеется). Тогда, когда нам нужно будет что-то выделить - мы по этому смещению и задав длину и будем выделять. Это несложно.

что касается комментариев к вышеприведённому коду (если они ещё нужны ):

  RichEdit1.Lines.BeginUpdate; // выключили эранное обновление RichEdit1 (для скорости)
  for i := 1 to 8 do begin // цикл по выделяемым словам от 1 до 8
    s2 := 'B'+IntToStr(i); // искомое слово равно Bx,  где x - это число 

      // методом FindText найдём требуемое слово + пробел + знак (например,
     // для i=1 будем искать текст B1 = 
     // найденную позицию (кстати, мы не проверяем, нашлось что-либо или нет - считаем, что такой текст есть обязательно, поэтому нашлось! )
     // присваиваем переменной selstart - это начало "выделения" в RichEdit
    richedit1.selstart := richedit1.FindText(s2+' =',0, length(richedit1.text), []);
             
    richedit1.sellength := length(s2); // длина "выделения" в RichEdit равна длине строки Bx,  где x - это число
    richedit1.selattributes.color:=clRed; // выделенный текст покрасили красным
    richedit1.selattributes.Style := [fsBold]; // и сделали его ПОЛУЖИРЫМ (Болдом)
  end; // конец цикла
  RichEdit1.Lines.EndUpdate; // закончили изменение RichEdit1 - отобразили изменения