Как сделать все буквы маленькими delphi

Во введенной строке поменять первые буквы каждого слова на прописные

Написать программу, которая позволяет во введенной строке поменять первые буквы каждого слова на прописные
нужно составить текст программы, которая позволяет по введенной строке поменять первые буквы.

Заменить первые буквы слов в введённой строке на прописные
Запара вышла на лабораторной.

От каждого слова в строке оставить только первые 3 буквы.
Дана строка. От каждого слова оставить только первые 3 буквы. Например, вводим «мама мыла раму».

Строки. Заменить все первые буквы каждого слова во введенной фразе цифрой «1»
Написать программу, которая заменяет все первые буквы каждого слова во введенной фразе цифрой «1».

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поменять местами 1-ю и 3-ю буквы каждого слова в строке
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены.

Поменять местами первую и последнюю буквы каждого слова в строке
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены.

Во введенной строке заменить все строчные буквы на прописные и наоборот
Во введенной строке заменить все строчные буквы на прописные и наоборот.

Напечатайте номера позиций, на которых во введенной строке стоят прописные буквы кириллицы
Напечатайте номера позиций, на которых во введенной строке стоят прописные буквы кириллицы. НЕ.

Напечатайте номера позиций, на которых во введенной строке стоят прописные буквы кириллицы
Напечатайте номера позиций, на которых во введенной строке стоят прописные буквы кириллицы.

Записать в файл слова отличные от последнего предварительно удаляя первые буквы из каждого слова
Здравствуйте, помогите работаться с ошибками, мучаюсь уже две недели, и не могу понять в чем дело.

Источник

Сделать маленькими все буквы в тех словах, в которых согласных букв больше гласных

Задание: Сделать маленькими все буквы в тех словах, в которых согласных букв больше гласных.

И я снова застрял
При нажатии на кнопку, цикл почему-то не останавливается. И я не могу даже проверить правильность алгоритма.
Сам код:

Сделать большими все буквы в тех словах, в которых согласных букв меньше гласных
Код представлен ниже, и почему то не работает, помогите пожалуйста.

Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв
Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв.

Сделать большими все буквы в тех словах, в которых согласных букв меньше гласных
Здравствуйте! Помогите, пожалуйста, написать программу. Сделать большими все буквы в тех словах.

Сделать маленькими все буквы в тех словах, которые содержат более двух различных гласных букв
Сделать маленькими все буквы в тех словах, которые содержат более двух различных гласных букв.

Читайте также:  Как сделать вытяжку между ванной и туалетом

Вложения

памахите.rar (2.45 Мб, 5 просмотров)

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв
Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв.

Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв
Сделать большими все буквы в тех словах, в которых нет ни одной пары подряд идущих согласных букв.

Сделать большими все буквы в тех словах, в которых есть по крайней мере одна пара подряд идущих гласных букв
Здравствуйте. Помогите, пожалуйста, с C#кой прогой. Надо сделать программу, обеспечивающую.

Источник

Как сделать все буквы маленькими delphi

Здравствуйте. Подскажите как можно сделать, чтобы в пле Edit при вводе значений первая буква автоматически становилась загланой.


clickmaker © ( 2008-01-29 11:43 ) [1]


Сергей М. © ( 2008-01-29 11:45 ) [2]

OnChange, имхо, больше подойдет бо на Delete реагирует.


Семеныч ( 2008-01-29 11:51 ) [4]

Очень советую всерьез прислушаться к [2]. По соотношению нужной функциональности и простоты реализации это самый лучший способ.


Edit ( 2008-01-29 12:03 ) [6]

А можно примерчк кода с событием OnChange, а то у меня что то не получается.

> А можно примерчк кода с событием OnChange, а то у меня что
> то не получается.

Показывай как неполучается&#133

ANSIProperCase из Rx рулит. 🙂

> ANSIProperCase из Rx рулит&#133 🙂

Да есть какая-то ф-ция и в VCL имхо. Как в предложение что-то вертится на языке, но вспомнить немогу&#133

Я вот накидал, хрень какая-то, но работает 🙂

procedure TForm1.Edit1Change(Sender: TObject);
var
S: string;
SelPos: Integer;
TempEdit: TEdit;
begin
if Sender is TEdit then
begin
TempEdit := (Sender as TEdit);
SelPos := TempEdit.SelStart;
S := TempEdit.Text;
if Length(S) > 0 then
begin
S[1] := AnsiUpperCase(S[1])[1];
TempEdit.Text := S;
TempEdit.SelStart := SelPos;
end;
end;
end;


Игорь Шевченко © ( 2008-01-29 12:10 ) [11]

procedure TForm1.Edit1KeyPress (Sender: TObject; var Key: Char);
begin
with (Sender as TCustomEdit) do
if (Key in [«a»..»z»]) then
begin
if selStart = 0 then
Dec(Key, 32);
end
else if (Key in [«A»..»Z»]) then
begin
if selStart <> 0 then
Inc(Key, 32);
end
end;


Edit ( 2008-01-29 12:15 ) [12]

Всем большое спасибо все здаработало.


Anatoly Podgoretsky © ( 2008-01-29 12:32 ) [13]


> Плохо тут то, что пользователь неузнат что будет в итоге
> пока не закончит ввод. А если это диалог, то вот он ввел.
>
> вася и жмет «ОК». И что в итеге ввелось вася или Вася он
> незнает…

Еще хуже будет, когда будет добавлено что-то в начало, получится необходимость просматривать весь текст и менять большую на маленькую, а так гарантировано и без экцессов. Да тебя повесят за это, а по Бизнес правилам должна быть изменена только первая буква тексти и до окончания ввода не известно, первая она или нет.

Читайте также:  Как своими руками сделать посох деда мороза


Anatoly Podgoretsky © ( 2008-01-29 12:33 ) [14]

> Kolan (29.01.2008 12:08:09) [9]

Данная функция не соответвует постановке задачи.

> Еще хуже будет

Примерно так же.

Надо наверно сначала понять, зачем это надо, а потом уже предлагать решения.


Anatoly Podgoretsky © ( 2008-01-29 14:08 ) [16]

> Kolan (29.01.2008 13:05:15) [15]


Семеныч ( 2008-01-29 14:16 ) [17]

Источник

На основе имеющегося файла создать другой файл, в котором все строчные буквы заменены на заглавные.

В заданной строке преобразовать все заглавные буквы латинского алфавита в строчные а строчные в заглавные
1. В заданной строке преобразовать все заглавные буквы латинского алфавита в строчные а строчные в.

В массиве из 70 символов все заглавные буквы А заменить на строчные и все сточные-на заглавные.
1.написать программу по созданию таблицы Пифагора. 2.В массиве из 70 символов все заглавные буквы.

Написать программу, которая заменяет в тексте созданного файла все заглавные буквы строчными, а строчные – заглавными.
Написать программу, которая заменяет в тексте созданного файла все заглавные буквы строчными, а.

В алфавитной строке перевести строчные буквы в заглавные и заглавные в строчные
В заданой алфавитной строке перевести строчные буквы в заглавные и заглавные в строчные. Со.

Речь видимо идет о типизированных файлах.

Вложения

Файлы.rar (170.1 Кб, 1 просмотров)

Решение

Вложения

Файлы_1.rar (170.6 Кб, 2 просмотров)

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и строчные
1) Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и.

Заменить все строчные буквы на заглавные
8)заменить все строчные на заглавные

Заменить все строчные буквы на заглавные
Здравствуйте, дано массив, введен текст, подскажите пожалуйста как все маленькие буквы заменить на.

Источник

Процедуры и функции для работы со строками в Delphi

Для определённости в примерах будем считать, что

Когда мы изучали простые операции со строками, то рассматривали кон­катенацию строк с помощью оператора +. Но объединить две строки можно и функцией

которая возвращает «сумму» двух строк:

Для сравнения строк вместо операторов отношения можно использовать следующие функции.

Эти функции возвращают значение

0, если строки равны;

Их нельзя применять к русским словам, поэтому лучше пользоваться функциями:

которые одинаково хорошо работают и с латинскими, и с русскими буква­ми.

Теперь перейдём к процедурам и функциям, которые выполняют со сло­вами более сложные действия.

Довольно часто нужно преобразовать все буквы слова либо к верхнему, либо к нижнему регистру. Если слова состоят только из латинских букв, то можно использовать функции:

Читайте также:  Как сделать резервную копию телефона lumia

Функция AnsiLowerCase (S1) вернёт строку «смородина».

Функция AnsiUpperCase (’смородина’) вернёт строку «СМОРОДИНА».

Чаще других в программах применяют функции для преобразования це­лых чисел в строку:

Например, IntToStr (1234) вернёт строку «1234».

Для действительных чисел тоже имеется подобная функция

Если вы хотите узнать, как десятичное число записывается в 16-ричной системе счисления, примените к нему функции:

При вводе данных из файла или некоторых компонентов вместо числа мы получаем строку символов. И хотя она состоит из цифр, это не число. В этом случае поможет функция

Причём строка S может содержать не только десятичное, но и 16-ричное число.

Например, функции StrToInt(’$07D9’) и StrToInt(’2009’) вернут одно и то же число 2009.

Однако эта функция «опасна»: если в строке обнаружится хотя бы один неверный символ, возникнет ошибка. Если у вас есть обоснованные со­мнения в правильности строки, лучше обратиться к надёжной функции

Она возвращает TRUE, если строка преобразована в число без ошибок, и FALSE, если с ошибками. Переменная Value (в нашем примере i) хранит число.

Так же можно использовать и процедуру:

В результате выполнения этого примера будет напечатано число 2009.

Этот код также напечатает число 2009, но значение переменной i будет равно не нулю, как в первом случае, а 6, так как шестой символ строки не является 16-ричной цифрой.

Аналогичные функции для вещественных чисел:

Узнать длину строки (число символов в ней) можно с помощью функции

Удаляем часть строки S от символа номер Index:

Например, после выполнения процедуры:

строка si будет иметь значение «РОДИНА».

А после процедуры delete(s2,5,3); строка s2 будет урезана до «ПАРА».

Если значение переменной Index меньше единицы или больше длины строки, то строка останется без изменений. Ничего не слу­чится со строкой и если Count меньше единицы.

Если же Count больше, чем число символов в строке, начиная с In­dex, то будут удалены все символы до конца строки.

Например, после выполнения процедуры insert (’З’, s1,6); строка s1 превратится в смешное слово «СМОРОЗДИНА».

А процедура insert (’КА’, s2,8); позволит нам насладиться неологиз­неологиз­мом «ПАРАШЮТКА».

Если же мы не хотим портить исходную строку, как это делает процедура Delete, то можем создать новую строку, вырезав из любой строки нужный нам кусок:

Например, строка s примет значение «ПАРА» после выполнения функции s:=copy(s2,1,4);

Обратите внимание: чтобы получить то же самое слово, что и в примере с delete(s2,5,3);, мы указали другие значение параметров в вызове функции!

Функция copy (s1,4,9) вернёт в переменную s слово «РОДИНА».

И последняя функция находит позицию подстроки substr в строке str. function Pos(const substr: string; const str: string): Integer;

Если в строке искомая подстрока встречается несколько раз, то первый вызов функции Pos вернёт позицию первого вхождения, после чего поиск нужно продолжить со следующей позиции. Например, в слове ФЕЛЬДФЕБЕЛЬ так можно найти обе «ели».

Если же подстроки в строке нет, то вернётся безнадёжный ноль!

Источник

Оцените статью
Как сделать своими руками
Adblock
detector