| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
привести текст к верхнему регистру
Irisss © (2010-11-24 12:25:00)Нужно привести текст к верхнему регистру и убрать пробелы
почему-то все коплиться, но не отрабатывает
что делаю не так?
function TForm1.getText(): string;
var AText: AnsiString;
begin
// AText := Self.LabelEditText.Text;
AText := 'Прилетаю восьмого';
UpperCase(AText);
AnsiReplaceText(AText, ' ', '');
Result := AText;
end;
Jeer (2010-11-24 15:22:00) [1]В современном варианте "коплиться" == "компилиться".
А в Дале "коплиться" - от корня "коп":
Производные:
копить, копиться, копал, копление, копилка, копище, коплиться
Anatoly Podgoretsky (2010-11-24 14:01:00) [2]Хм, не знал, а ты правду говоришь?
Jeer (2010-11-24 13:53:00) [3]Это из Даля :)
"Коплиться - сидеть над чем и копаться, коптеть, корпеть."
Anatoly Podgoretsky (2010-11-24 13:04:00) [4]
> почему-то все коплиться
Это текст сообщения об ошибке?
Irisss (2010-11-24 12:51:00) [5]спасибо!
Медвежонок Пятачок (2010-11-24 12:38:00) [6]UpperCase(AText);
Прелестно, прелестно.
А куда результат? В форточку?
Irisss (2010-11-24 12:36:00) [7]
> AnsiUpperCase
не сработало
И. Павел (2010-11-24 12:33:00) [8]
UpperCase(AText);
Попробуйте заменить на AnsiUpperCase
| |
