Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.26;
Скачать: CL | DM;

Вниз

Есть задача из ул.ленина сделать ул.Ленина, я использую   Найти похожие ветки 

 
dimanew   (2002-08-15 05:52) [0]

процедуры Copy,Delete, Insert
как сделать тоже, но через указатели?


 
Leran2002 ©   (2002-08-15 07:15) [1]

Вот когдато нашел в ФАКАХ такую функцию мож тебе и подойдет:

function UpCaseRus( ch : Char ) : Char;
asm
CMP AL,"a"
JB @@exit
CMP AL,"z"
JA @@Rus
SUB AL,"a" - "A"
RET
@@Rus:
CMP AL,"я"
JA @@Exit
CMP AL,"а"
JB @@yo
SUB AL,"я" - "Я"
RET
@@yo:
CMP AL,"ё"
JNE @@exit
MOV AL,"Ё"
@@exit:
end;


...
for i:=1 to Length(S)-1 do
if S[i]="." then S[i+1]:=UpCaseRus(S[i+1]);
...


 
Skfi   (2002-08-15 07:16) [2]

Напиши по подробнее, что тебе требуется.


 
Alx2 ©   (2002-08-15 08:40) [3]

>dimanew (15.08.02 05:52)
S - строка. S[k] - k-я буква в строке.
S[k] := UpCase(S[k]) - перевести S[k] в верхний регистр (для лат. варианта).
для русского надо переписать UpCase или использовать AnsiUpperCase, но это внесколько раз медленее.
S[k] := AnsiUpperCase(S[k])[1];

PS.
Написал, как сам интерпретировал вопрос. Но вообще-то он расплывчато сформулирован.



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

Текущий архив: 2002.08.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-84974
Darts
2002-08-15 13:51
2002.08.26
RichEdit и RTF-текст


4-85295
Керик
2002-06-21 05:36
2002.08.26
Как узнать количество потоков и Base Priority


6-85150
Evgenyk
2002-06-17 12:05
2002.08.26
Как программно отредактировать реестры всех компов в сети


6-85160
Nikollay
2002-06-14 19:50
2002.08.26
Как отловить exception при ClientSocket1->Open() ???


3-84888
vasilly
2002-08-02 17:36
2002.08.26
Как вывести дату без времени(21.01.2002) а не 21.01.2002 18:00:00