Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.11.2018
Сообщений: 21
1

Как выписать слова?

20.01.2019, 10:19. Показов 993. Ответов 6
Метки нет (Все метки)

Подскажите пожалуйста, как можно выписать в edit2 последние 4 слова из текста, который в edit1?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2019, 10:19
Ответы с готовыми решениями:

выписать слова, состоящие из одинаковых символов (например, ааа, ееее и т.п.);
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Составить программу...

Дано два слова. Выписать буквы, которые есть и в 1-м, и во 2-м слове
Дано два слова. Выписать буквы, которые есть и в 1-м, и во 2-м слове.

Как выписать слова после чисел отдельно друг от друга?
вот есть такой пример 33176 LEONID / 17, MAYA / 1.5 и мне надо чтобы получилось так...

Найти в тексте слова со спаренными согласными, выписать эти слова в отдельную строку
Найти в тексте слова со спаренными согласными. Выписать эти слова в отдельную строку.

6
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
20.01.2019, 11:56 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
  str: TStringList;
  s: string;
  i: integer;
begin
  s := edit1.Text;
  edit2.Text := '';
  str := TStringList.Create;
  str.Text := stringReplace(s, ' ', #13#10, [rfReplaceAll]);
  s := '';
  if str.Count - 1 < 5 then
  begin
    ShowMessage('Error');
    exit;
  end;
  for i := str.Count - 1 downto str.Count - 4 do
    s := s + ' ' + str[i];
  str.Free;
  edit2.Text := s;
end;
1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
20.01.2019, 12:17 3
Или так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var str: TStringList;
    i: integer;
begin
str := TStringList.Create;
str.DelimitedText:=Edit1.Text;
Edit2.Clear;
if str.Count<4 then Edit2.Text:='В тексте нет четырех слов'
else
for i:=0 to 3 do
Edit2.Text:=Edit2.Text+str[i]+' ';
str.Free
end;
1
0 / 0 / 0
Регистрация: 19.11.2018
Сообщений: 21
21.01.2019, 07:31  [ТС] 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var
 str: TStringList;
    i: integer;
begin
str := TStringList.Create;
str.DelimitedText:=Edit1.Text;
Edit2.Clear;
if str.Count<4 then Edit2.Text:=' òåêñòå íåò ÷åòûðåõ ñëîâ'
else
for i:=0 to 3 do
Edit2.Text:=Edit2.Text+str[i]+' ';
str.Free
end;
end.
Ура! Работает, но выводит первые 4 слова, а как сделать, чтоб последние?)
0
Модератор
7467 / 4885 / 2043
Регистрация: 21.01.2014
Сообщений: 20,787
Записей в блоге: 3
21.01.2019, 08:14 5
Цитата Сообщение от АнастасияАсся Посмотреть сообщение
а как сделать, чтоб последние?
Изменить цикл. Не так, как у Вас:
Цитата Сообщение от АнастасияАсся Посмотреть сообщение
for i:=0 to 3 do
а вот так:
Delphi
1
for i := str.Count - 1 downto str.Count - 4 do
1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
21.01.2019, 08:30 6
Лучший ответ Сообщение было отмечено АнастасияАсся как решение

Решение

Что-то я прочитал неправильно задачу, еще подумал зачем ZX Spectrum-128 последние берет.
Delphi
1
2
for i:=str.Count-4 to str.Count-1 do
Edit2.Text:=Edit2.Text+str[i]+' ';
1
0 / 0 / 0
Регистрация: 19.11.2018
Сообщений: 21
23.01.2019, 11:01  [ТС] 7
Огромное спасибо!!! Вы меня спасли!)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2019, 11:01

Выписать последние буквы каждого слова
Помогите решить задачу, вот условие : Дана строка, выписать последние буквы каждого слова. ...

Выписать из текста слова, начинающиеся и заканчивающиеся цифрой
Помогите написать программу с помощью классов в среде Eclipse Выписать из текста слова,...

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

Выписать из текста слова начинающиеся и заканчивающиеся цифрой.
Вот я попытался что то написать, если её запустить она работает, но если ввести что то с цифрой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru