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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.10.2018, 11:56   #1
Женя32
Форумчанин
 
Регистрация: 12.09.2008
Сообщений: 621
Счастье Изменить регистр первой буквы в строке

Здравствуйте!
Подскажите пожалуйста, как изменить регистр первой буквы в строке?
Женя32 вне форума Ответить с цитированием
Старый 02.10.2018, 12:05   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Например так:

s[1]:=AnsiUpperCase(s[1])[1]

s не нулевой длины обязательно, проверь до этого )

ps чуть подправил
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 02.10.2018 в 12:10.
Аватар вне форума Ответить с цитированием
Старый 03.10.2018, 19:59   #3
Женя32
Форумчанин
 
Регистрация: 12.09.2008
Сообщений: 621
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Например так:

s[1]:=AnsiUpperCase(s[1])[1]

s не нулевой длины обязательно, проверь до этого )

ps чуть подправил
А эта функция переводит в нижней, или в верхний регистр?
Женя32 вне форума Ответить с цитированием
Старый 03.10.2018, 20:04   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

в средний ) На экране не видно куда переводит?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 03.10.2018, 20:37   #5
Женя32
Форумчанин
 
Регистрация: 12.09.2008
Сообщений: 621
Счастье

Цитата:
Сообщение от Аватар Посмотреть сообщение
в средний ) На экране не видно куда переводит?
У меня что-то ничего ни куда не переводит.
Может я что-то ни то делаю?
Я из функции mess получаю строку, и из всей строки остаётся одна буква:
Код:
procedure TForm2.Button2Click(Sender: TObject);
var
  messag: string;
begin

            messag:= AnsiUpperCase(mess[1])[1];
end;

Последний раз редактировалось Женя32; 03.10.2018 в 20:40.
Женя32 вне форума Ответить с цитированием
Старый 03.10.2018, 20:59   #6
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Код:
s[1]  := AnsiUpperCase(s   [1])[1] // Аватар
messag:= AnsiUpperCase(mess[1])[1]
найдите отличия
программа — запись алгоритма на языке понятном транслятору
evg_m на форуме Ответить с цитированием
Старый 04.10.2018, 12:55   #7
Женя32
Форумчанин
 
Регистрация: 12.09.2008
Сообщений: 621
Счастье

Цитата:
Сообщение от Аватар Посмотреть сообщение
в средний ) На экране не видно куда переводит?
Видно, в верхний... А как перевести в нижний регистр?
Женя32 вне форума Ответить с цитированием
Старый 04.10.2018, 13:19   #8
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Женя32 Посмотреть сообщение
А как перевести в нижний регистр?
AnsiLowerCase()
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Perl задачи. Перевод буквы в верхний регистр. Как сделать так, чтобы переводил буквы в верхний регистр после точки, восклицательного знака,вопросительного знака? Maxis10 Помощь студентам 0 09.11.2017 01:31
Фильтрация не с первой буквы в Dbgrid Roman123654789 БД в Delphi 5 28.04.2014 21:23
Дана строка, содержащая цифры и строчные латинские буквы. Если буквы в строке упорядочены по алфавиту, то вывести 0; в противном nadyaH Помощь студентам 12 22.11.2013 11:11
Как изменить регистр Windows? Влад_М Общие вопросы Delphi 12 12.05.2009 21:41
Изменение первой буквы Костя Общие вопросы Delphi 4 28.11.2007 14:31