Главная страница
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.032 c
3-84899
Chuvi
2002-08-06 11:46
2002.08.26
Как в SQL сервере изменит формат системной даты ?


7-85261
as2002
2002-05-26 01:03
2002.08.26
надо спрятать папки


7-85276
Ильнур
2002-06-13 11:05
2002.08.26
Работа со сканером


14-85220
VEG
2002-07-29 18:49
2002.08.26
Куда катимся?


3-84922
fvl
2002-08-07 09:43
2002.08.26
работа с полями типа LONG