Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Natali7
0 / 0 / 0
Регистрация: 14.02.2016
Сообщений: 57
1

Компонент Memo

23.11.2016, 15:44. Просмотров 237. Ответов 7
Метки нет (Все метки)

Помогите, пожалуйста, выполнить следующие задания:
При нажатии на кнопку
1) Из первого Memo во второй перенести все цифры и специальные символы форматирования (отступы пробелы, символы перехода на новую строку), остальные символы заменить пробелами;
2) Все числа из второго Memo увеличить в два раза;
3) Из первого Memo во второй перенести только ту строку, в которой находится курсор.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2016, 15:44
Ответы с готовыми решениями:

Компонент Memo
Вот такая проблемка возникла: Возможно ли сохранение в один файл текста из...

компонент Memo
Дан одномерный массив слов,каждое из которых записано в формате XX-YY. Часть...

Компонент memo
Всем привет. Как в компоненте memo организовать цикл for, что бы...

компонент memo
помогите решить задачку В компонент memo ввести произвольный текст(не более 80...

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

7
qwertehok
2301 / 2205 / 602
Регистрация: 29.08.2013
Сообщений: 14,727
23.11.2016, 16:23 2
вы совсем не можете ничего сделать?
0
Natali7
0 / 0 / 0
Регистрация: 14.02.2016
Сообщений: 57
23.11.2016, 18:17  [ТС] 3
qwertehok, Суть заданий понятна, а как реализовать, нет.
Ну в первом задании, как я думаю, нужно кодировку использовать.
Во втором, ввести константу, где будут перечислены все числа, затем проверить, если в строке есть число, то увеличить его.
В третьем, найти строку, в которой находится курсор (вроде функция есть такая даже) и потом нужно совершить перенос.
0
qwertehok
2301 / 2205 / 602
Регистрация: 29.08.2013
Сообщений: 14,727
23.11.2016, 19:07 4
Цитата Сообщение от Natali7 Посмотреть сообщение
Ну в первом задании, как я думаю, нужно кодировку использовать.
вовсе нет

первые два задания это просто через for обойти мемо и сделать с символом то что нужно
в третьем никакой функции не надо, у мемо есть Lines
0
Natali7
0 / 0 / 0
Регистрация: 14.02.2016
Сообщений: 57
23.11.2016, 19:38  [ТС] 5
qwertehok, подскажи, как обратиться к числу после объявления цикла?
0
qwertehok
2301 / 2205 / 602
Регистрация: 29.08.2013
Сообщений: 14,727
23.11.2016, 20:13 6
к какому числу? какого цикла?
0
AHBAR
239 / 239 / 167
Регистрация: 05.04.2013
Сообщений: 1,106
24.11.2016, 10:41 7
Цитата Сообщение от Natali7 Посмотреть сообщение
Из первого Memo во второй перенести все цифры и специальные символы форматирования (отступы пробелы, символы перехода на новую строку), остальные символы заменить пробелами;
Delphi
1
2
3
4
5
6
7
8
9
VAR
i:Integer;
s:String;
begin
s := Memo1.Text;
for i := 1 to length(s) do
if s[i] in ['0'..'9',#13 {ДОПОЛНИТЬ НУЖНЫМИ}] then Memo2.Text := Memo2.Text + s[i]
else Memo2.Text := Memo2.Text + ' ';
end;
Добавлено через 2 минуты
Цитата Сообщение от Natali7 Посмотреть сообщение
Все числа из второго Memo увеличить в два раза;
здесь как бы встречный вопрос, нужно разобраться что понимается под числом? это целое или дробь, как насчет числа с букафкой Е?

Добавлено через 10 минут
Цитата Сообщение от Natali7 Посмотреть сообщение
Из первого Memo во второй перенести только ту строку, в которой находится курсор.
Delphi
1
Memo2.Lines.Add(memo1.Lines[memo1.CaretPos.Y]);
0
Natali7
0 / 0 / 0
Регистрация: 14.02.2016
Сообщений: 57
24.11.2016, 14:48  [ТС] 8
AHBAR, во втором задании целое число или десятичное
0
24.11.2016, 14:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2016, 14:48

Компонент Memo
Доброго времени суток! Ниже представлена программа. В ней есть условия...

компонент Memo
Помогите пожалуйста добить задачу. Имею форму Form1 на которой находятся три...

компонент memo
помогите решить задачку В компонент memo ввести произвольный текст(не более 80...


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

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

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