удаление повторяющихся символов из строки

[kametto]

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

[Serge_Bliznykov]

из каких строк? как эти строки задаются? какой язык программирования, в конце-то концов?

[kametto]

простите) это в delphi. я пишу строку в форму. и затем ниже мне должно показывать строку без повторяющихся символов. пишу в edit, показывает в label

[Hacker19_90]

i := 1;
while i <= length(edit1.text) do
begin
  for j := i+1 to length(edit1.text) do
    if edit1.text[i] = edit1.text[j] then
      delete(edit1.text, j, 1);
  inc(i);
end;

не проверял

[Mad_Cat]

Function DeleteRepeatChar(s:string):string;
var buf:string;
begin
while length(s)<>0 do // пока строка s не пустая
begin
buf:=buf+s[1]; // забираем из нее 1 символ
while pos(buf[length(buf)],s)<>0 do delete(s,pos(buf[length(buf)],s),1); // и удаляем все его вхождения
end;
DeleteRepeatChar:=buf;
end;

использование

ss:=edit.text;
label.caption:=DeleteRepeatChar(ss);

мама мыла раму
ма ылру

[kametto]

Сообщение от Mad_Cat

Function DeleteRepeatChar(s:string):string;
var buf:string;
begin
while length(s)<>0 do
begin
buf:=buf+s[1];
delete(s,1,1);
while pos(buf[length(buf)],s)<>0 do delete(s,pos(buf[length(buf)],s),1);
end;
DeleteRepeatChar:=buf;
end;

использование

ss:=edit.text;
label.caption:=DeleteRepeatChar(ss);

спасибо но не могли бы вы дать краткий комментарий к каждой строке? я не совсем могу разобраться

[Hacker19_90]

Function DeleteRepeatChar(s:string):string;
var buf:string;
begin
while length(s)<>0 do //пока строка не пуста
begin
buf:=buf+s[1]; // запоминаем первый символ строки
delete(s,1,1);//удаляем
while pos(buf[length(buf)],s)<>0 do delete(s,pos(buf[length(buf)],s),1); //пока в строке есть сохранёный символ то удаляем его!
end;
DeleteRepeatChar:=buf; 
end;

[kametto]

Сообщение от Hacker19_90

Function DeleteRepeatChar(s:string):string;
var buf:string;
begin
while length(s)<>0 do //пока строка не пуста
begin
buf:=buf+s[1]; // запоминаем первый символ строки
delete(s,1,1);//удаляем
while pos(buf[length(buf)],s)<>0 do delete(s,pos(buf[length(buf)],s),1); //пока в строке есть сохранёный символ то удаляем его!
end;
DeleteRepeatChar:=buf; 
end;

спасибо большое

[ALex_WH]

Что нужно исправить, чтобы удалялись все символы, кроме пробела?

[Stilet]

ALex_WH

Не лезь в чужую тему. Создавай свою.