| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление из строки всех одинаковых символов

Marser1 ©   (2006-12-09 14:56:00) 

Удаление из строки всех одинаковых символов

---

Desdechado   (2006-12-09 21:20:00) [1]

развод

---

default   (2006-12-09 18:56:00) [2]

всё очень просто
берётся булев массив var F: Array[ #0..#255] of Boolean
изначально все элементы в нём равны false
далее типа

j := 1;
for i := 1 to Length(S) do begin
 if not F[S[i]] then begin
   S[j] := S[i];
   F[S[i]] = True;
   Inc(j);
 end;
end;
SetLength(S, j-1)

---

RASkov   (2006-12-09 18:22:00) [3]

function DelChars(const S: string; Chr: Char): string;
var
 I: Integer;
begin
 Result := S;
 for I := Length(Result) downto 1 do begin
   if Result[I] = Chr then Delete(Result, I, 1);
 end;
end;

---

Джо   (2006-12-09 15:04:00) [4]

Опиши словами алгоритм.

---

Наверх