Скачать: CL | DM;

замена каждого 3-его символа в строке   Найти похожие ветки 

← →
Charlz ©   (2002-06-09 20:18) [0]

Плиз.. Подскажите пожалуйста, как можно заменить каждый 3-ий символ в строке, на заданый. Пожалуйста если можно приведите короткий пример. Зарание спасибо!

---

← →
jedi ©   (2002-06-09 20:27) [1]

var
S: string;
I: Integer;
begin
S := "GUHQGugUKGKgkgKVHKGVHKVv h vhjcvHJCF GJfcjCFFCFC";
for I := 1 to Length(S) do
if I mod 3 = 0 then S[I] := "|";
ShowMessage(S);
end;

---

← →
Song ©   (2002-06-09 20:57) [2]

Repeat .. Until()

---

← →
Charlz ©   (2002-06-09 22:34) [3]

Спасибо большое за ответ! Всё оказывается очень просто!
Но я это не как не могу применить в своей схеме. Это типа кодировщика. Для каждого 1, 2 и 3, 1,2,3 и т.д. символа в строке приходиться какой-то символ. К примеру:

ABCDEFGHIJKLMN
?<=:;896745230 Если это первый символ в строке
ДЗЖБАГВНМПОЙИЛ Если второй символ в строке
ЛИЙОПМНВГАБЖЗД Если третий

Пожалуйста дайте намёк, я только учусь и всё даётся не так легко, даже такая простая вещь.

---

← →
Anatoly Podgoretsky ©   (2002-06-09 23:00) [4]

Намек следующий
case I mod 3 of
0: ...
1: ...
2: ...
end;

---

← →
Charlz ©   (2002-06-10 12:25) [5]

Как можно увязать этот намёк с подстановкой, выбором и заменой символов.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c