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

Помогите разобраться с 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 © (05.01.04 12:55) [4]
это очень неэффективно

---

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

> Sergey_Masloff


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

---

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

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

---

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

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



Память: 0.46 MB
Время: 0.008 c