Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];
Внизсделать первую букву заглавной Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c