Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
3-84926
DKalinin
2002-08-05 10:36
2002.08.26
Как сохранить в базу шаблон отчета и считать его оттуда?


4-85282
Дмитрий К.
2002-06-21 10:14
2002.08.26
Как включить пункт меню в другой программе?


1-85095
ЮРИЙ_К
2002-08-13 17:06
2002.08.26
Необычное сравнение даты на вход в диапазон


3-84902
Vint
2002-08-06 10:35
2002.08.26
Резервное копирование


6-85161
heex
2002-06-14 17:38
2002.08.26
все ли в сети закрыли ДАННОЕ приложение.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский