Помогите разобраться с UpperCase

← →
LM (2004-01-05 10:36) [0]

Люди плиз кому не жалко объясните как заставить UpperCase и LowerCase работать с русскими буквами!

← →
Anatoly Podgoretsky (2004-01-05 10:37) [1]

Их никак, по поределению только из верхней половине таблицы.

← →
Sergey13 (2004-01-05 10:43) [2]

AnsiUpperCase&AnsiLowerCase

← →
Passlight (2004-01-05 10:44) [3]

Может быть ANSIUppserCase & ANSILowerCase помогут?

← →
Undert (2004-01-05 12:55) [4]

А самому написать слабо? 1 цикл на 1 функцию ... =)
типа

function UpperRUSCase(s:string):string;
const lb = ..; // ord("а") - смотри сам
le = ..; // ord("я")
ub = ..; // ord("А")
var i:integer;
begin
for i:=lb to le do
begin
s:=StringReplace(s,chr(i),chr(i+ub-lb),[.тоже смотри хелп по этой функции.]);
s:=StringReplace(s,chr(i+ub-lb),chr(i),[..]);
end;
result:=s;
end;

← →
Undert (2004-01-05 12:56) [5]

Или делай через таблицы - быстрее

← →
Sergey_Masloff (2004-01-05 12:57) [6]

← →
Undert (2004-01-05 12:57) [7]

> Sergey_Masloff

Ну, иногда выручает =))) Особенно когда нельзя объявлять левые модули ...

← →
Anatoly Podgoretsky (2004-01-05 13:19) [8]

Не только не эффективно, но и не правильно, а вот второе предложение - через таблицы верное.

Помогите разобраться с UpperCase Найти похожие ветки