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

Вниз

Заменить все заглавные буквы в предложении на АБ    Найти похожие ветки 

 
DroNIX   (2005-11-02 18:23) [0]

Я сделал так:

function ReplaceUpperChar(const S, NewPattern: string): string;
var
i: integer;
sTemp: string;
begin
sTemp:=S; Result:="";
for i:=1 to length(s) do
           //  A         ..        Я
if (ord(S[i])>=192) and (ord(S[i])<=223) then
 sTemp:=StringReplace(sTemp, S[i], NewPattern,[rfReplaceAll]);
{Функция StringReplace заменяет OldPattern на NewPattern;
флаг rfReplaceAll - заменять все совпадения OldPattern на NewPattern}
Result:=sTemp;
end;


Но из-за того что StringReplace заменяет все буквы результат получается не такой какойбы хотелось


 
Ega23 ©   (2005-11-02 18:36) [1]

if ANSIUpperCase(S[i])=S[i] then .....  ?


 
MBo ©   (2005-11-02 18:48) [2]

function ReplaceUpperChar(const S, NewPattern: string): string;
var
 i:Integer;
begin
 Result:="";
 for i:=1 to Length(s) do
   if IsCharUpper(s[i]) then
     Result:=Result+NewPattern
   else
     Result:=Result+s[i];
end;

Если быстродействие волнует, то надо по-другому будет делать.


 
DroNIX   (2005-11-02 19:27) [3]

Спасибо



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

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

Наверх




Память: 0.47 MB
Время: 0.043 c
14-1130482664
Изобретатель
2005-10-28 10:57
2005.11.20
Подсчет контрольной суммы файлов. Новая функция!


14-1130674394
Neosted
2005-10-30 15:13
2005.11.20
Как в своей программе использовать файл конфига?


2-1130848978
Monah
2005-11-01 15:42
2005.11.20
Разрешение экрана и форма


5-1111654897
lvi
2005-03-24 12:01
2005.11.20
property FieldName как по умолчанию DataField


6-1122911784
Set33
2005-08-01 19:56
2005.11.20
Работа с прокси