Главная страница
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-85124
jessis
2002-08-15 11:55
2002.08.26
Параметр в командной строке


1-85116
Александр456
2002-08-15 10:21
2002.08.26
Рисунки в ImageList


14-85187
Пыжев Антон
2002-07-29 07:40
2002.08.26
Эмулятор Linux на Delphi


1-84954
Лана Розанова
2002-08-13 08:23
2002.08.26
О важном


3-84877
iconstanta
2002-08-05 18:54
2002.08.26
ORACLE + SELECT ... FOR UPDATE