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