замена каждого 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 Если это первый символ в строке
ДЗЖБАГВНМПОЙИЛ Если второй символ в строке
ЛИЙОПМНВГАБЖЗД Если третий

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

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

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

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