Вниз
Скачать: CL | DM;

Преобразование Символов   Найти похожие ветки 

← →
Sa   (2003-05-09 08:52) [0]

Подскажите пожалуйста, есть строка в ней символы в разных регистрах нужно поменять все большие буквы на маленькие и наоборот, пытался сделать чтото типа
if (s[i] in ["a".."я"]) then s[i] := AnsiUpper(s[i])
но все фукции преобразования должны получать строку и возвращают строку как быть ?


← →
Song ©   (2003-05-09 09:07) [1]

UpCase() ?


← →
Ученик ©   (2003-05-09 09:12) [2]

if (s[i] in ["a".."z", "а".."я"]) then s[i] := Char(Byte(s[i]) - 32) else
if (s[i] in ["A".."Z", "А".."Я"]) then s[i] := Char(Byte(s[i]) + 32)

В Sa (09.05.03 08:52) "a" - латинская :-)

Можно еще
if (s[i] in ["а".."я"]) then s[i] := AnsiUpperCase(s[i])[1]





← →
Anatoly Podgoretsky ©   (2003-05-09 09:19) [3]

Напиши таблицу преобразования и за один цикл заменишь по всей строке.


← →
Юрий Зотов ©   (2003-05-09 09:46) [4]

> но все фукции преобразования должны получать строку и
> возвращают строку как быть ?

Строка из одного символа - это тоже строка. Сработает.


← →
Sa   (2003-05-09 23:05) [5]

> Строка из одного символа - это тоже строка. Сработает
та не пишет что типа не могу т.к. это символ а у вас строка и т.п.


← →
Юрий Зотов ©   (2003-05-10 12:18) [6]

> Sa (09.05.03 23:05)

При передаче все сработает и так. А при получении поставьте в конце [1] (как написал Ученик). И все сработает.


← →
Verg ©   (2003-05-10 13:14) [7]

Про букву ё не забудте

"ё" in ["а".."я"] = false


← →
Sa   (2003-05-11 14:05) [8]

Всё спасибо только один момент, бкткт ли следующий "алгоритм" считаться хорошим тоном программирования:
добавить езё две текстовые переменные в в одну из них преоброзовать в верхний регситр другую в нижний и в цикле по старой строке уже смотреть какой символ если такой то брать такойже из одной переменной если другой то из другой



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c
11-70198
CrazyAngel
2002-08-16 20:27
2003.05.22
ComboBox+Runtime Error


1-70372
Nikos
2003-05-08 14:11
2003.05.22
Как правильно объявить массив объектов?


3-70117
KIR
2003-04-30 09:51
2003.05.22
вопрос по использованию pFIBTransaction в FIBPlus


1-70320
Переяслов Григорий
2003-05-07 19:02
2003.05.22
Присваивние строки полю Pointer


14-70444
Шоломицкий
2003-05-01 22:47
2003.05.22
Помогите пожалуйста перевести следущее...




   Наверх