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]

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

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

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

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