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

Компонент TMemo. Составление условия

19.03.2012, 22:07. Просмотров 457. Ответов 2
Метки нет (Все метки)

Всем привет.

Программа, запрашивающая строки, слова которых разделены пробелами и знаками препинания и выводящую в столбик, в алфавитном порядке слова этой строки, обладающие указанными свойствами, или сообщение «таких слов нет». Для ввода и вывода использовать компоненты TMemo.

Задача: Слова заданной длины, в которые входит данная буква.

Решаю по частям, чтобы понять все и не запутаться)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
  prep = '.,:;?! ';   {ГўГ±ГҐ Г§Г*Г*ГЄГЁ ïðåìèГ*Г*Г*ГЁГї}
  glas = ['Г*','ГҐ','ГЁ','Г®','Гі','Г»','ГЅ','Гѕ','Гї','Вё'];   {Г¬Г*îæåñòâî ГЈГ«Г*Г±Г*ûõ}
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var s, slovo, otv: string;
    i, ns, ks: Integer;
    dlina: real;
 
begin
  s:= Edit1.Text;
  i:=1;
  otv:= '';
  while i<= Length (s) do begin
    ns:=i;
    while (Pos (s[i], prep) = 0) do
    Inc(i);
    ks:=i-1;
    while (Pos (s[i], prep) <> 0) do
    Inc(i);
    slovo:= Copy (s, ns, ks-ns+1);
    otv:= otv + slovo + '';
    end;
    for i:=1 to Length (slovo) do begin
    dlina:= StrtoFloat(Edit2.Text);
    if (Length(slovo) = dlina) then
    Memo1.Lines.Add(otv) else Memo1.Lines.Add('ss');
    end;
end;
end.
Не могу никак доделать условие, чтобы выводило в Memo1 только те слова, у которых заданная длина dlina (в Edit2)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2012, 22:07
Ответы с готовыми решениями:

Можно ли создать компонент на основе класса TMemo, чтобы компонент был в виде геометрической фигуры?
Требуется создать компонент на основе класса TMemo, так чтобы вид компонента...

Компонент TMemo(строки)
Подскажите как можно найти Слова, в которых не более 3-х различных букв.?

Компонент TMemo и диалог
Доброго времени суток :) На форме имеется компонент &quot;TMemo&quot; и меню с пунктом...

String и компонент класса TMemo
Как реализовать в Делфи цикличный перебор и изменения каждого символа...

Добавление символов в строку, компонент TMemo
Подскажите пожалуйста в чем ошибка, в первую строку символы добавляются...

2
Arcor
4881 / 1833 / 382
Регистрация: 20.11.2009
Сообщений: 5,887
Записей в блоге: 1
19.03.2012, 23:05 #2
вот недавно была похожая задача но обратная, нужно было найти слова в которых нет заданной буквы, программу можно поменять за 3 минуты
Выяснить, чего больше - букв или цифр в заданном тексте
исследуйте
0
seosage
0 / 0 / 0
Регистрация: 25.10.2011
Сообщений: 70
19.03.2012, 23:09  [ТС] #3
Arcor, не не, задачку надо решить на основах. Посмотрел, то решение можно переделать, изменить, но мне не подходит
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2012, 23:09

Выводит в компонент TMemo простые числа
Составить программу, которая выводит в компонент TMemo простые числа из...

Как удалить компонент с формы(например, TMemo)?
У меня в программе при нажатии на одну кнопку динамически создается TMemo, а...

Составление условия
Приветствую. Подскажите, как сделать выборку? Есть стринглист с названиями...


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

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

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