Скачать: CL | DM;

Skip код   Найти похожие ветки 

← →
SkipKod   (2005-08-09 14:04) [0]

Cкажите пожалуйста как можно проверать текст из RichEdit1 в RichEdit2 через 2 символа(или желательно проверять какждый символ из RichEdit1 в RichEdit2 через столько символов сколько написанно в edit1)И найденные символы увеличить в размере.
Например:

RichEdit1:Проверка
RichEdit2:ддпддрддоддвддеддрддкдда
RichEdit2(После проверки):ддПддРддОддВддЕддРддКддА
Я знаю код который будет проверять текст не зависимо через сколько симвлов расположены одинвковые символы
var
S1, S2: string;
L1, L2, I, J: Integer;
begin
S1 := RichEdit1.Text;
S2 := RichEdit2.Text;

L1 := Length(S1);
L2 := Length(S2);

I := 1;
J := 1;

while (I <= L1) and (J <= L2) do
begin
  if AnsiUpperCase(S1[I]) = AnsiUpperCase(S2[J]) then
  begin
    with RichEdit2 do
    begin
      SelStart := J - 1;
      SelLength := 1;
      SelAttributes.Color := clRed
    end;
    Inc(I)
  end;
  Inc(J)
end;
end.

---

← →
Игорь Шевченко ©   (2005-08-09 14:09) [1]

Поле "Тема вопроса" служит для темы вопроса.

ПРАВИЛА ЧИТАТЬ НАИЗУСТЬ.

---

← →
panov ©   (2005-08-09 14:10) [2]

Правила прочитай дважды.
Я тебя уже предупреждал за спам.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c