Только первый символ нужно сделать UpCase

← →
Supreme (2003-01-13 14:25) [0]

Как в Edit2 поместить текст Edit1 в нижнем регистре, но чтобы первая буква была в верхнем регистре?

← →
Sergey Masloff (2003-01-13 14:28) [1]

Ну сделай всей строке AnsiLowerCase() а первому символу AnsiUpperCase(). В чем проблема-то?

← →
dimich1978 © (2003-01-13 15:18) [2]

Можно по другому...зная что string это все же массив и к нему можно обращаться напрмер s[i]=1 then ну и т.д. И используя вышеописанные фукнции без проблем.

← →
Supreme (2003-01-13 16:05) [3]

А как именно узнать первый символ в Edit"e?

← →
gsu © (2003-01-13 16:06) [4]

edit1.text[1]

← →
Dmitriy2003 (2003-01-13 16:21) [5]

Edit2.Text := UpperCase(Edit1.Text) + LowerCase(Copy(Edit1.Text, 2, Length(Edit1.Text) - 1))

>> Dmitriy2003
не похоже без 1 то

← →
Dmitriy2003 (2003-01-13 16:39) [7]

я имел в виду UpperCase(Edit1.Text[1]) + LowerCase(Copy(Edit1.Text, 2, Length(Edit1.Text) - 1))

(-:|~

Только первый символ нужно сделать UpCase Найти похожие ветки