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

Вниз

сделать первую букву заглавной   Найти похожие ветки 

 
ply   (2008-06-07 22:50) [0]

подскажите простейщую реализацию следующей задачи:
В строке сделать первую букву заглавную, остальные - в нижнем регистре


 
Игорь Шевченко ©   (2008-06-07 22:53) [1]

function AnsiInitCap(const Source: string): string;
var
 S: string;
begin
 SetLength(Result, Length(Source));
 if Length(Source) > 0 then
 begin
   Result := AnsiLowerCase(Source);
   S := AnsiUpperCase(Copy(Result,1,1));
   Result[1] := S[1];
 end;
end;


 
Efir   (2008-06-07 22:54) [2]

Помогут ф-ции
UpperCase
LowerCase


 
Renegat   (2008-06-07 23:52) [3]

> [2] Efir   (07.06.08 22:54)

Если нужна ещё и кириллица, то AnsiUpper(Lower)Case.


 
Amoeba ©   (2008-06-08 00:10) [4]


> Renegat   (07.06.08 23:52) [3]
>
> > [2] Efir   (07.06.08 22:54)
>
> Если нужна ещё и кириллица, то AnsiUpper(Lower)Case.
>

Зачем эти общие места? Ведь все это уже предельно конкретно сказано в
> Игорь Шевченко ©   (07.06.08 22:53) [1]


 
ply   (2008-06-08 01:07) [5]

спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
15-1211296737
buzb
2008-05-20 19:18
2008.07.06
Посоветуйте C++ компилятор.


2-1212657135
atomAltera
2008-06-05 13:12
2008.07.06
Самопроизвольная прокрутка в редакторе.


2-1212741153
VovKul
2008-06-06 12:32
2008.07.06
Разкладка клавиатуры


15-1211668991
TIF
2008-05-25 02:43
2008.07.06
Photoshop... Как сделать закруглённые углы?


2-1212808366
mik
2008-06-07 07:12
2008.07.06
Приложение не реагирует на нажатие кнопок при работе в цикле.