VPF::Опять про сравнивание. - Форум программистов

Alkash

Дата 23.8.2004, 00:39 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Вообщем никак не пойму, как сделать.В эдите набор букв, в рич эдит выводится текст, у текста имеются различия(по цвету или наклону).Как мне проверить на идентичность текст определенного цвета в Рич Эдите с буквами в эдите и выделить их например красным(если совпадение по всем буквам из эдита), а если различия не более чем в один символ, то подчеркнуть?Заранее благодарен.

--------------------

Подпись >> /dev/null

[3Df]Grey DeMonstr

Дата 25.8.2004, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 21.8.2004
Где: Москва

Репутация: 1
Всего: 1

Если тебя интересует совпадение по всем буквам, то могу посоветовать такой код:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
while True do with RichEdit1 do begin
  if SelLength <> 0 then StartPos := SelStart + SelLength
                    else StartPos := 0;
  ToEnd := Length(Text) - StartPos;
  FoundAt := FindText(Edit1.Text, StartPos, ToEnd, []);
  if FoundAt <> -1 then begin
    SetFocus;
    SelStart := FoundAt;
    SelLength := Length(Edit1.Text);
    if SelAttributes.Color=clRed then SelAttributes.Color:=clBlue;
    end else begin
    SelLength:=0;
    exit;
    end;
  end;
end;

Здесь сделана проверка на красный цвет, при совпадении перекрашивается в синий. Если интересует совпадение в регистре символов, нужно выставить параметр [stMatchCase] в функции FindText. Как проверять различие в одном символе пока не знаю, но думаю ;)

Alkash

Дата 26.8.2004, 09:38 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Спасибо, дело сдвинулось дело с мёртвой точки

--------------------

Подпись >> /dev/null

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »