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

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

Как заменить символы в строке [D1, D2, D3, D4, D5, D6, Win95/98, WinME]

Charlz ©   (2002-06-17 18:09:00) 

Как заменить символы в строке на заданные по номеру символы строки как здесь:

S := Edit1.Text;
Edit2.Text:= StringReplace(S[1],"a", "_", flags );

но в S[1] указать несколько номеров символов строки
к примеру S[1], S[4], S[7]...
Всю неделю не как не могу догадаться
Я только начал учиться будьте нисходительны :)

---

Charlz   (2002-06-17 22:22:00) [1]

Спасибо! Самое важное чтобы было компактно! Если для каждой буквы такое писать, то будет на 100 кб одного текста :) Попробую третий вариант. Ещё раз спасибо!

---

ATR   (2002-06-17 18:42:00) [2]

Решений полно
1. Edit2.Text:= StringReplace(Edit1.Text,"a", "_", flags );
2.:))))
Edit2.Text:= StringReplace(Edit1.Text[1],"a", "_", flags );
Edit2.Text:= StringReplace(Edit1.Text[4],"a", "_", flags );
Edit2.Text:= StringReplace(Edit1.Text[7],"a", "_", flags );
Edit2.Text:= StringReplace(Edit1.Text[9],"a", "_", flags );
3.
const temp: array[0..5] of Integer = (1, 3, 5, 7, 10, 12);
var i: Integer;
begin
for i := 0 to 5 do
Edit2.Text := Edit2.Text + StringReplace(Edit1.Text[temp[i]], "a", "_", [rfReplaceAll]);
end;
4. Еще кучу можно придумать.

---

Наверх