Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

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


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) ];





Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
1-28467           Гретый                2001-12-21 21:49  2002.01.10  
Народ у кого-нибудь есть исходники TSpinEdit?


3-28403           Скалли                2001-12-07 10:23  2002.01.10  
Редактирование поля типа Date (дата+время)


6-28514           maxi                  2001-10-15 14:10  2002.01.10  
Как правильно вызвать метод интерфейса на удаленном сервере СОМ ?


1-28512           MaXimka               2001-12-21 17:12  2002.01.10  
Как узнать текущее разрешение экрана?


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