Доброго Времени Суток,  все начинающие и зубры.

По причине небывалой жары проектирование моей игрушки было отложено до наступления прохлады.

Однако же энергия требовала выхода и я почитав инетфорумы  набрел на следующую популярную проблему:

 Необходимо удалить из строки все одинаковые символы. Чтобы не один символ в строке не повторялся. Была скажем строка: "рододендрон", стала "роден". Поскольку "Рассказы о Шерлоке" Холмсе разбудили во мне призраки дедуктивного мышления, потратил я на решение этой задачи одну ночь.  Ночью лучше всего думается, к тому же никто не мешает. 
Код отличается несовершенством, но вполне работоспособен может пригодиться и вам. Комментировать пока не буду:



Пример использования. Т - объект типа TEdit. Button1 - TButton.







Это сообщение отредактировал(а) PsiMagistr - 30.6.2010, 16:58

Я бы рекомендовал вам не использовать много функций типа Delete и Pos, т.к. они требуют определенных вычслительных затрат, а взять и сделать копирование одной строки в другую с проверкой наличия копируемого символа в строку где копируем, на мой взгляд такой код будет более эффективным как по времени выполнения так и по памяти.

DarkProg, Большое спасибо за совет. Теперь мне кажется, что можно обойтись даже без Copy.

Всегда пожалуйста, обращайтесь 
Я просто как-то задумался насчет того что у меня тормозит прогу(конкретно у меня прога была с очень большой работой по парсингу строк), и начал прикидывать, логически подумал на эту тему и пришел к выводу что тормозит большой вызов процедур типа copy, delete, pos и т.п., потом подумал как обойтись без них и как результат программа увеличила свое быстродейсвие(если память не изменяет) в 5 раз(вот это был для меня шок, я надеялся что будет хотя бы выйгрыш в пару минут, а тут с 5 минут до 1, хотя засекал по часам, но все же результат был феноменальным  )

Добавлено через 20 секунд
Теперь вот делюсь опытом   

ололо. а stringreplace(s,'c','',[]) ни о чём не говорит?

Ни о чем, поясняйте что это и зачем.

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

Сварганил с утречка новый вариант. Вообще простой как правда. Никаких тебе двойных while. 







Proxin, прав это все жара виновата. )))

Это сообщение отредактировал(а) PsiMagistr - 1.7.2010, 09:12