Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.20;
Скачать: 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 вся ветка

Текущий архив: 2002.06.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
7-65256
vet
2002-03-21 11:39
2002.06.20
Мастера!!!!!!! Пожалуйста!!!!! (работа с модемом в voice-режиме)


4-65291
Ильясов Вадим
2002-04-21 19:34
2002.06.20
Работа с реестром из DOS


6-65195
oklam
2002-04-13 04:01
2002.06.20
Есть ли плеер который мог бы записывать воспроизводить из потока?


3-64907
Garry
2002-05-25 15:28
2002.06.20
Как узнать количество строк в наборе данных?


1-65018
Magic
2002-06-06 21:09
2002.06.20
Отсносительно ошибок в MaskEdit...