Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.28;
Скачать: 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 вся ветка

Текущий архив: 2005.08.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
1-1123669045
BFG9k
2005-08-10 14:17
2005.08.28
RichEdit с картинками


6-1110641616
ТехникПТО
2005-03-12 18:33
2005.08.28
Как загрузить HTML-код в определенный фрейм страницы браузера?


14-1122976090
Kerk
2005-08-02 13:48
2005.08.28
В оутлук можно задать правила...


14-1123483701
SPeller
2005-08-08 10:48
2005.08.28
Что такое Up-Link на хабах?


3-1121775517
BlackWhite
2005-07-19 16:18
2005.08.28
Разнотипные поля в таблице = ОШИБКА