Показать сообщение отдельно
  #3  
Старый 25.12.2009, 17:31
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Создай массив нужного размера, в цикле пробегай по строке, там же используй структуру case и наращивай нужный элемнт массива на единицу, потом пробегайся по массиву и выводи результат. Может есть более адекватный способ, но это первое что пришло в голову.
Ответить с цитированием