Форум: "Начинающим";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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)

---

← →
Desdechado ©   (2006-12-09 21:20) [4]

развод

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.043 c