Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2011, 23:39   #11
vmilyoshin
Пользователь
 
Регистрация: 20.02.2010
Сообщений: 66
По умолчанию

Можно так.
Код:
function _AnsiUpperCase(stroka: String): String;
var
  s,ss,sss: String;
begin
  stroka:= trim(stroka);
  if length(stroka) <> 0 then
  begin 
  s:= stroka[1];
  ss:= AnsiUpperCase(stroka[1]);
  sss:= StringReplace(stroka, s, ss, []);
  result:= sss;
  end;
end;
Способ применения:
Код:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Text:= _AnsiUpperCase(Edit1.Text);
end;

Последний раз редактировалось vmilyoshin; 12.09.2011 в 23:52.
vmilyoshin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как мне в tListView выелить item зная индекс Altera Общие вопросы Delphi 2 15.05.2008 06:23
Даны числа от 100 до 999. Вводится индекс... Ci_novice Помощь студентам 4 19.04.2008 12:59
Перевод кода символа в символ таблицы ASCII nerh Общие вопросы C/C++ 3 01.02.2008 20:34
50 лет назад в СССР произведён запуск первого искусственного спутника Земли. Alex21 Свободное общение 2 07.10.2007 05:57