Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.12.2009, 17:34
Fazotron Fazotron вне форума
Прохожий
 
Регистрация: 26.10.2009
Сообщения: 38
Репутация: 10
По умолчанию Найти в тексте слова, содержащие заданную букву и вывести их

Помогите, пожалуйста, сделать задачу: Найти в тексте (edit1) слова, содержащие заданную букву (задается в edit2) и вывести их в edit3 .
Ответить с цитированием
  #2  
Старый 27.12.2009, 19:31
Kapitoshka438 Kapitoshka438 вне форума
Начинающий
 
Регистрация: 09.11.2009
Сообщения: 145
Репутация: 238
По умолчанию

Код:
procedure FindWords;
var
  C, S, W: string;
  Q: Boolean;
  P, I: Integer;
begin
  Edit3.Clear;
  S := Edit1.Text;
  C := Edit2.Text;
  W := '';
  P := Pos(C, S);   // Находим первое вхождение символа
  Q := P > 0;
  while Q do
  begin
    W := C;   //начинаем составлять слово
    I := P - 1;
    while (I > 0) and (S[i] <> ' ') do  //добавляем в слово предыдущие по пробела символы
    begin
      W := S[i] + W;
      Dec(I);
    end;
    I := P + 1;
    while (I <= Length(S)) and (S[i] <> ' ') do  //добавляем к слову последующие до пробела символы
    begin
      W := W + S[i];
      Inc(I);
    end;
    Edit3.Text := Edit3.Text + W + ', ';
    S := Copy(S, I, Length(S));  // отрезаем из текста рассмотренный кусок текста
    P := Pos(C, S);
    Q := P > 0;
  end;
end;

Вот, как-то так наверно, не проверял, конечно.

Последний раз редактировалось Kapitoshka438, 27.12.2009 в 19:35.
Ответить с цитированием
  #3  
Старый 28.12.2009, 00:21
Fazotron Fazotron вне форума
Прохожий
 
Регистрация: 26.10.2009
Сообщения: 38
Репутация: 10
По умолчанию

спс, опробую
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:38.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025