Скачать: CL | DM;

Только первый символ нужно сделать 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))

---

← →
gsu ©   (2003-01-13 16:28) [6]

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

---

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

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

---

← →
gsu ©   (2003-01-13 16:45) [8]

(-:|~

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c