| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Skip код [D7, WinXP]
SkipKod © (2005-08-09 14:04:00)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.
panov (2005-08-09 14:10:00) [1]Правила прочитай дважды.
Я тебя уже предупреждал за спам.
Игорь Шевченко (2005-08-09 14:09:00) [2]Поле "Тема вопроса" служит для темы вопроса.
ПРАВИЛА ЧИТАТЬ НАИЗУСТЬ.
| |
