Показать сообщение отдельно
  #2  
Старый 06.05.2008, 21:40
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Лень писать код, но примерно алгоритм выглядит так:

1. Забиваем буферную строку 1 первым символом (N штук). вот тебе уже первый элемент. Выводим в Мемо.
2. Забиваем Забиваем буферную строку 2 последним символом (опять N штук). Это конечный элемент.
3. В цикле пока строка 1 не равна строке 2 меняем крайний символ на следующий, с контролем и переносом (т.е. если там уже последний символ, то меняем следующий, а этот сбрасываем в первый).
4. Выводим в Мемо строку 2.

Примерно так.
При этом смену символа лучше всего сделать отдельной процкой с рекурсией для упрощения кода.
Ответить с цитированием