Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

замена каждого 3-его символа в строке [D6, Win95/98]

Charlz © (2002-06-09 20:18:00)
Плиз.. Подскажите пожалуйста, как можно заменить каждый 3-ий символ в строке, на заданый. Пожалуйста если можно приведите короткий пример. Зарание спасибо!

Charlz (2002-06-10 12:25:00) [1]
Как можно увязать этот намёк с подстановкой, выбором и заменой символов.

Anatoly Podgoretsky (2002-06-09 23:00:00) [2]
Намек следующий
case I mod 3 of
0: ...
1: ...
2: ...
end;

Charlz (2002-06-09 22:34:00) [3]
Спасибо большое за ответ! Всё оказывается очень просто!
Но я это не как не могу применить в своей схеме. Это типа кодировщика. Для каждого 1, 2 и 3, 1,2,3 и т.д. символа в строке приходиться какой-то символ. К примеру:

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

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

Song (2002-06-09 20:57:00) [4]
Repeat .. Until()

jedi (2002-06-09 20:27:00) [5]
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;

Наверх

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