VPF::Найти цыфры и заменить - Форум программистов

Михалыч

Дата 22.3.2015, 18:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Как в Memo можно найти в тексте цыфры , и заменить их на случайные , после чего выделить их другим цветом.
Например такой текст , но соответственно он будет меняться

Код


Гуляя по лесу в 1 час дня встретилось  более 18 белок,
После 5 часов и пятнадцати минут  и 6 секунд пошел 
дождь.

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

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Illusion Dolphin

Дата 22.3.2015, 21:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

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

Код



function TForm6.ReplaceCC(const Match: TMatch): string;
begin
  Result := '<span style="color:' + IntToHex(Random($FFFFFF), 6) + '">' + IntToStr(Random(MaxInt)) + '</span>';
end;


procedure TForm6.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('about:blank');
end;

procedure TForm6.Memo1Change(Sender: TObject);
var
  regex: TRegEx;
  input: string;
  myEval: TMatchEvaluator;
  Doc: Variant;
begin
  input := Memo1.Text;
  regex.Create('(?<!\S)(\d+)(?!\S)');
  myEval := ReplaceCC;
  Memo2.Text := regex.Replace(input, myEval);

  Doc := WebBrowser1.Document;
  Doc.Clear;
  Doc.Write(Memo2.Text);
  Doc.Close;
end;

Присоединённый файл ( Кол-во скачиваний: 1 )

ColorNumbers.zip 4,98 Kb

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Михалыч

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

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

Загрузка ...

Опытный

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

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

Спасибо! С браузером понравилось!
Выделить другим цветом в memo это я погорячился

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

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

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