Недавно добавленные исходники

•  TDictionary Custom Sort  535

•  Fast Watermark Sources  899

•  3D Designer  1 827

•  Sik Screen Capture  1 474

•  Patch Maker  1 482

•  Айболит (remote control)  1 406

•  ListBox Drag & Drop  1 174

•  Доска для игры Реверси  21 785

•  Графические эффекты  1 354

•  Рисование по маске  1 294

•  Перетаскивание изображений  1 096

•  Canvas Drawing  968

•  Рисование Луны  813

•  Поворот изображения  770

•  Рисование стержней  814

•  Paint on Shape  493

•  Генератор кроссвордов  762

•  Головоломка Paletto  667

•  Теорема Монжа об окружностях  855

•  Пазл Numbrix  617

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Text Spinner (спиннер) : .

 

Delphi - Text Spinner - пример генерации (размножения) текста (спинннинг)

Исходник программы, показывающей пример генерации (размножения) текста (спинннинг) - это метод случайного изменения текста на основе заданных пользователем фраз, встроенных в текст.

Описание

В этой реализации «наборы альтернативных фраз» определены в фигурных скобках {}, которые должны выбираться случайным образом при помощи разделителя символа вертикальной черты |. Если набор фраз содержит только одну фразу, она будет случайным образом включена или опущена из расчета 50/50.

Заметки

Я использую функцию Posex для сканирования ввода символов {|} и |. Posex имеет преимущество перед старой функцией Pos, потому что мы можем указать точку для начала поиска указанного символа. Обновляя поле Start с предыдущего N и просматривая местоположение N следующего желаемого символа, мы можем систематически перемещаться по тексту. Использование Posex требует добавления StrUtils в предложение Uses модуля.

Логика состоит в том, чтобы скопировать неизмененный текст из начала текста или предыдущего символа} в следующий cледующий {или конец текстовой строки. Если {найден, просканируйте, чтобы убедиться, что есть закрывающий символ}, а затем создайте массив фраз (Phrases), содержащихся в этих скобках, причем конец каждой фразы будет отмечен знаком | символ или закрывающий символ}. Мы используем функцию Random, чтобы выбрать один из них для добавления в строку вывода текста.

Просмотры: 451
Дата: 23.06.2021, Автор: Gary Darby
Написать сообщение:
 

 

Скачать (5 Кб)   ↓ 3   Регистрация >>


 

Похожие исходники


Image2Text (изображение в текст)

TextureGen (генератор текстур)

Shaded Text

Text in Image

 

Texture Packer

GDI Path Text

Text Bezier Curve (Безье)

Word Search in Text

 

Drag and Drop Text

 

© 2004-2022 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software