Дан массив, состоящий из символов. Удалить из него повторные

@sanja_sanja18 · Регистрация: 29.09.2011

Author24 — интернет-сервис помощи студентам

Дан массив, состоящий из символов. Удалить из него повторные
вхождения каждого символа. (выложите фотку ''Form'' )

@Alex_pac · 18.10.2011, 20:17

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var cmass,cmass2: string; ec: set of char; i:integer;
begin
   // любая строка это массив символов
   cmass:='asdvfnrrraassdewswwsxaxqqsxaqwwqsqzzqwwqsaqaqwaqzqqsqas1qqs';
   cmass2:='';
   ec:=[];
   for i := 1 to length(cmass) do
    if not (cmass[i] in ec) then begin
     cmass2:=cmass2+cmass[i];
     ec:=ec+[cmass[i]]
    end;
   ShowMessage(cmass2);
end;

@sanja_sanja18 0 / 0 / 0 Регистрация: 29.09.2011 Сообщений: 27
		1
	Дан массив, состоящий из символов. Удалить из него повторные 18.10.2011, 19:34. Показов 2542. Ответов 1 Метки нет (Все метки) Дан массив, состоящий из символов. Удалить из него повторные вхождения каждого символа. (выложите фотку ''Form'' ) 0

	18.10.2011, 20:17

Дан массив, состоящий из символов. Удалить из него повторные

Решение