Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.10;
Скачать: CL | DM;

Вниз

Как изменить букву на несколько букв вперёд(по алфавиту)?   Найти похожие ветки 

 
Delphimun ©   (2001-12-21 14:24) [0]

Как изменить букву на несколько букв вперёд(по алфавиту)?
Например у меня в переменной типа стринг находится буква "A", и мне нужно сдвинуть эту буква скажем на 3 буквы вперёд, чтобы в переменной стала буква "Г".


 
Alx2 ©   (2001-12-21 14:29) [1]

var ch : char;
begin
ch := "A";
inc(ch,3);
end;


 
Алексей Петров ©   (2001-12-21 14:30) [2]

Для латыни - просто добавь :)
char(byte("A")+3);

А для русских - придется массив с алфовитом делать, индекс нскать и затем выбирать последующую.


 
Alx2 ©   (2001-12-21 14:33) [3]

>Алексей Петров
Можно и так же, если позволяет кодировка.


 
Anatoly Podgoretsky ©   (2001-12-21 14:50) [4]

А что делать для "я"


 
Alx2 ©   (2001-12-21 14:54) [5]

:))
Вот так рождаются философы....
В конце концов кодовая таблица тот же самый алфавит. Только с кучей букв. Дойдя до #255 возратимся к #0 (при однобайтной кодировке, естественно)


 
MBo ©   (2001-12-21 15:25) [6]

для русского языка придется, видимо делать
const RuB="АБВГ..."
и
if pos(c,RuB)>0 then c:=RuB[(pos(c,RuB)+3) mod length(RuB) ];





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

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

Наверх




Память: 0.48 MB
Время: 0.007 c
14-28533
anod
2001-11-15 20:58
2002.01.10
Блок питания жужит


14-28531
Burmistroff
2001-11-10 20:22
2002.01.10
Opera + delphi.mastak.ru?


3-28411
dva
2001-12-08 00:27
2002.01.10
Vopros


6-28524
Алексей Штыков
2001-10-16 14:38
2002.01.10
Как втихую проверить обновления (любые) с сервера.?


1-28478
tovSuhov
2001-12-22 13:47
2002.01.10
Как поюзать ListView ?