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

← →
Marser1 (2006-12-09 14:56) [0]

← →
Джо © (2006-12-09 15:04) [1]

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

← →
RASkov (2006-12-09 18:22) [2]

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;

← →
default © (2006-12-09 18:56) [3]

всё очень просто
берётся булев массив 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)

развод

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