| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ply ©   (2008-06-07 22:50:00) 

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

---

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

спасибо!

---

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

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

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

---

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

> [2] Efir   (07.06.08 22:54)

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

---

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

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

---

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

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;

---

Наверх