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

привести текст к верхнему регистру   Найти похожие ветки 

← →
Irisss   (2010-11-24 12:25) [0]

Нужно привести текст к верхнему регистру и убрать пробелы
почему-то все коплиться, но не отрабатывает
что делаю не так?
function TForm1.getText(): string;
var AText: AnsiString;
begin
//    AText := Self.LabelEditText.Text;
   AText := "Прилетаю восьмого";
   UpperCase(AText);
   AnsiReplaceText(AText, " ", "");
   Result := AText;
end;

---

← →
И. Павел ©   (2010-11-24 12:33) [1]

UpperCase(AText);
Попробуйте заменить на AnsiUpperCase

---

← →
Irisss   (2010-11-24 12:36) [2]

> AnsiUpperCase

не сработало

---

← →
Медвежонок Пятачок ©   (2010-11-24 12:38) [3]

UpperCase(AText);

Прелестно, прелестно.
А куда результат? В форточку?

---

← →
Irisss   (2010-11-24 12:51) [4]

спасибо!

---

← →
Anatoly Podgoretsky ©   (2010-11-24 13:04) [5]

> почему-то все коплиться

Это текст сообщения об ошибке?

---

← →
Jeer ©   (2010-11-24 13:53) [6]

Это из Даля :)
"Коплиться - сидеть над чем и копаться, коптеть, корпеть."

---

← →
Anatoly Podgoretsky ©   (2010-11-24 14:01) [7]

Хм, не знал, а ты правду говоришь?

---

← →
Jeer ©   (2010-11-24 15:22) [8]

В современном варианте "коплиться" == "компилиться".

А в Дале "коплиться" - от корня "коп":
Производные:
копить, копиться, копал, копление, копилка, копище, коплиться

---

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

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



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