Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Аниточка
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 35
1

Удалить из строки все неповторяющиеся символы

24.04.2014, 15:06. Просмотров 942. Ответов 1
Метки нет (Все метки)

дана строка.удалите из нее все неповторяющиеся символы
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2014, 15:06
Ответы с готовыми решениями:

Из строки удалить все символы до определенного включая его
Всем доброго дня. Подскажите, пожалуйста, как из строки удалить все символы до...

Удалить все символы из строки кроме группы(известно количество) цифр
Ребят подскажите как будет лучше реализовать сделующую задачу: в поле мемо...

Удалить все символы строки до последней точки, и взять символы, идущие только после последней точки
Имеется текст примерно такого вида : attachment;...

Random: генерировать неповторяющиеся символы
Как можно поставить условие что бы при рандоме один тот же символ не мог...

Удалить все символы, кроме латинских букв и цифр, а все большие лат. буквы сделать маленькими
всем привет, помогите исправить код программы. суть проги в том чтобы вводились...

1
Trukhanov_VP
37 / 37 / 12
Регистрация: 28.03.2013
Сообщений: 272
Записей в блоге: 2
24.04.2014, 15:19 2
Лучший ответ Сообщение было отмечено Аниточка как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Procedure TForm1.Button1Click(Sender: TObject);
var str, rstr: string;
i, j, t: integer;
begin
rstr := '';
str := Edit1.Text;
for i := 1 to length(str) do begin
t := 0;
for j := 1 to length(str) do begin
if i <> j then 
if (str[i] = str[j]) then inc(t);
end;
if t <> 0 then rstr := rstr + str[i];
end;
Edit1.Text := rstr;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2014, 15:19

Из строки удалить символы
Дана строка S. Удалить из неё все символы &lt;!&gt; . помогите кодом плз, знаю...

Удалить из строки лишние символы
help-me-please! procedure TForm1.FormCreate(Sender: TObject); var a:...

Удалить все символы не являющиеся цифрами
Всем привет, вроде задача простая, но не знаю как реализовать, дело в том, что,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru