Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
Dmitry_Rublevsk
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 66
1

Перевод строки строчных букв в прописные

04.12.2013, 00:06. Просмотров 1795. Ответов 2
Метки нет (Все метки)

Составил программу по заданию: Составьте программу перевода строки строчных русских букв в прописные в Lazarus. При отладке, ввожу русские буквы и они превращаются в ?????? или УаленьШй тест. Пробовал в Delphi всё работает...Может быть нужно изменить что-нибудь в инспекторе объектов или настройки изменить?
0
Вложения
Тип файла: rar Проект в Лазарусе.rar (2.70 Мб, 31 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2013, 00:06
Ответы с готовыми решениями:

Замена первых букв слов на прописные
Обработка строки введенной пользователем, заменяя первые буквы слов на...

Статистика: определить, каких букв (строчных или прописных) в тексте больше
Помогите другу с курсачом плиззз. Статистика. Дан текст. Определите, каких...

Перевод русских букв в hex
Всем привет. Столкнулся с такой проблемой у меня есть функция. function...

Автомобильные номера состоят из 1,2, или 3 букв и 4 цифр. используется 30 букв, найти число таких букв
Автомобильные номера состоят из 1,2, или 3 букв и 4 цифр. используется 30 букв,...

Перевод строки в цифры
вообщем есть поле edit1 допустим. В нем есть текст, состоящий только из цифр 1...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26127 / 17521 / 6949
Регистрация: 22.10.2011
Сообщений: 30,857
Записей в блоге: 6
04.12.2013, 02:22 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

Лазарус работает с UTF8-строками, поэтому конвертировать из в верхний/нижний регистр надо с помощью специальных функций, корректно работающих с Юникодом. Они описаны в модуле LCLProc. Измени Implementation-секцию вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
implementation
 
uses LCLProc;
 
{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := UTF8UpperCase(Edit1.Text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := UTF8LowerCase(Edit2.Text);
end;
 
end.
2
Dmitry_Rublevsk
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 66
04.12.2013, 05:48  [ТС] 3
Спасибо, всё получилось!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2013, 05:48

Перевод из строки в число с плавающей запятой
У меня на форме присутствует StringGrid в нем в последней ячейке в каждой...

Вычеркнуть из строки слова, состоящие из 4-х букв
Дано строчка из слов на латыни. Составить программу, которая будет вычеркивать...

Перевод русских строчных букв в прописные (UpCase)
Составить внешнюю подпрограмму и оформить его в отдельном модуле. Для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru