Преобразование Символов

← →
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]

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

> Sa (09.05.03 23:05)

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

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

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

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

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

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