С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ruletik
2 / 2 / 0
Регистрация: 08.12.2015
Сообщений: 202
1

Работа со строками в компоненте Memo

23.11.2016, 17:41. Просмотров 777. Ответов 4
Метки нет (Все метки)

Для каждой строки в компоненте Memo изменить порядок следования символов на обратный (пример, была строка «Мама мыла раму», после нажатия на кнопку должно получиться «раму мыла Мама»).

Я сделала так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button3Click(Sender: TObject);
var s,p:string;
    n,i:integer;
begin
  p:=' ';
  s:=Memo1.Lines.Text;
  while Memo1.Lines.Count-1>=0 do
  begin
  n:=Pos(' ',s);
  Insert(Copy(s,1,n),p,1); 
  Delete(s,1,n);
    if n=0 then begin 
    Insert(s+' ',p,1); 
    Break; 
    end;
    Memo2.Clear;
    Memo2.Lines.Add(p);
  end;
end;
Не могу понять, где у меня ошибки. Помогите исправить, пожалуйста!!!
Результат:
0
Миниатюры
Работа со строками в компоненте Memo  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2016, 17:41
Ответы с готовыми решениями:

Массив строк в компоненте Memo
И снова здравствуйте =) У меня есть задачка с компонентами Memo/ Мне немного...

Поиск слова в компоненте Memo через Pos
В общем написал я поиск слова в Memo, через функцию Pos(...), но слово...

Можно ли замутить титры в компоненте memo
У меня появилась идея замутить в моей программе типо титров - как в...

Работа со строками, заполнить компоненты строками из файла
Привет! Нужна помощь в заполнении формы В общем, есть форма отправки письма. У...

Работа с текстом в компоненте Мемо
Если точнее, то с компонентом SynMemo (из набора SynEdit), но это не столь...

4
DenNik
Непрофессионал
2014 / 1499 / 308
Регистрация: 26.07.2011
Сообщений: 8,131
23.11.2016, 17:50 2
Цитата Сообщение от ruletik Посмотреть сообщение
«раму мыла Мама»
это не обратный порядок симоволов, а обратный порядок СЛОВ. ты определись, че нужно
0
ruletik
2 / 2 / 0
Регистрация: 08.12.2015
Сообщений: 202
23.11.2016, 17:55  [ТС] 3
Цитата Сообщение от ruletik Посмотреть сообщение
n,i:integer;
Только здесь i не должно быть, забыла стереть. Но все равно результат такой же.

Добавлено через 58 секунд
DenNik, не могу что-то понять как это сделать.

Добавлено через 1 минуту
Цитата Сообщение от ruletik Посмотреть сообщение
(пример, была строка «Мама мыла раму», после нажатия на кнопку должно получиться «раму мыла Мама»).
Там в задании так было написано с таким примером
0
Nanotentacle
337 / 218 / 95
Регистрация: 20.10.2016
Сообщений: 1,021
23.11.2016, 17:59 4
Лучший ответ Сообщение было отмечено ruletik как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button3Click(Sender: TObject);
var s,p:string;
    n,i:integer;
begin
 For I:= 0 to Memo1.lines.count - 1 do
 begin
  P := '';
  S := memo1.lines[I];
  While (pos(' ', s) > 0) do
   Begin
  P := copy(s,1,pos(' ', s)) + p;
  Delete(s,1,pos(' ',s));
   End;
   P := s + ' ' + p;
   Memo2.lines.add(p);
  End;
end;
1
ruletik
2 / 2 / 0
Регистрация: 08.12.2015
Сообщений: 202
23.11.2016, 18:07  [ТС] 5
Nanotentacle, большое спасибо)) У меня получилось.
0
23.11.2016, 18:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2016, 18:07

работа с memo
можно ли при нажатии кнопки чтобы определенный текст выводило именно там где...

работа с memo
в первом задании мне нужно в области мемо определить тип предложений и каких...

работа с MEMO
В МЕМО может быть около10000-12000 строк. Надо удалить несколько сотен строк...


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

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

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