Показать сообщение отдельно
  #8  
Старый 07.03.2014, 01:41
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от AArtem
..только паузу бы между набором и стиранием и как реализовать возможность перевода строки
Вероятно для этого нужно смотреть с самого начала, с задачи. Допустим, надо симулякрнуть набор с ошибками фразы
Цитата:
Мама мыла раму,
а может это рама пыталась её вымыть
с ошибками это должно выглядеть так
Цитата:
Мами мула ламу,
а могет это рима питалась ея вымать
здесь нужен ещё как бы управляющий набор комманд, допустим выполнить исправление это символ "|", перевод строки - "^", пауза - "_". Тогда вариант текста будет выглядеть примерно так
Цитата:
Мами|а мула|ыла ламу|раму,^а могет|может это рима|ама питалась|ыталась ея|ё вымать|ыть
паузу не знаю куда вснуть, но это можно сделать и позже

Вырисовывается такой алгоритм: в цикле разбиваем строку на отдельные куски по пробелам, их в свою очередь тоже раскладываем на "до исправлений" и "после", выполняем псевдопечать/упс, почесать затылок/исправ.ошибок и переходим к следующему слову. Встретился символ "^" к выходному тексту в мемо прибавляем #13#10 или выполняем Memo1.Lines.Add('') и так до конца фразы. Вроде всё это реализуемо (см. пост выше), и наверное так будет оптимально
Ответить с цитированием