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

Вниз

Подскажите как удалить повторяющиеся символы в текстовом файле   Найти похожие ветки 

← →
Zhenka   (2003-08-09 12:56) [0]

сабЖ

---

← →
Rouse_   (2003-08-09 13:04) [1]

Проходим посимвольно, если следующий символ равен текущему - следующий удаляем.

Желаю успехов

---

← →
Zhenka   (2003-08-09 13:13) [2]

символ я знаю, например буква Е

---

← →
Rouse_   (2003-08-09 14:06) [3]

Ну ёёёё

procedure TForm1.Button1Click(Sender: TObject);
var
Data: String;
I: Integer;
begin
Data := "qqqqqqqqqqwwwwwwwwweeeeeeeeee";
I:= 1;
while I < Length(Data) - 1 do
begin
if Data[I] = Data[I+1] then
Delete(Data, I, 1)
else
( I) Ну ёёёё

procedure TForm1.Button1Click(Sender: TObject);
var
Data: String;
I: Integer;
begin
Data := "qqqqqqqqqqwwwwwwwwweeeeeeeeee";
I:= 1;
while I < Length(Data) - 1 do
begin
if Data[I] = Data[I+1] then
Delete(Data, I, 1)
else
Inc(I);
end;
if Data[I] = Data[I+1] then Delete(Data, I, 1);
Caption := Data;
end;

Желаю успехов

---

← →
Rouse_   (2003-08-09 14:17) [4]

Ой, блин, торможу уже :)

procedure TForm1.Button1Click(Sender: TObject);
var
Data: String;
I: Integer;
begin
Data := "ННННеее тттооорррррмммоооозииииии!!!!!!";
I:= 1;
while I < Length(Data) do
begin
if Data[I] = Data[I+1] then
Delete(Data, I, 1)
else
( I) Ой, блин, торможу уже :)

procedure TForm1.Button1Click(Sender: TObject);
var
Data: String;
I: Integer;
begin
Data := "ННННеее тттооорррррмммоооозииииии!!!!!!";
I:= 1;
while I < Length(Data) do
begin
if Data[I] = Data[I+1] then
Delete(Data, I, 1)
else
Inc(I);
end;
Caption := Data;
end;

Желаю успехов

---

← →
sniknik   (2003-08-09 14:58) [5]

проще
Label1.Caption:= StringReplace(Label1.Caption, "e", "", [rfReplaceAll]);

---

← →
Anatoly Podgoretsky   (2003-08-09 15:28) [6]

Все что ли убить :-)

---

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

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

Наверх

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