Главная страница
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.01 c
3-64903
jaric
2002-05-24 18:48
2002.06.20
Какое ограничение на длину текста запроса в TADOQuery


3-64989
kserg@ukr.net
2002-05-28 10:26
2002.06.20
MSSQL: как изнать где


1-65111
QymL
2002-06-06 20:34
2002.06.20
вид кнопок в WinXP


4-65296
SerVS
2002-04-13 22:42
2002.06.20
Как в сервисе отследить LogOut?


1-65100
z_z
2002-06-06 22:30
2002.06.20
Вопросик про TTimer