Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.08.2011, 17:26   #1
Sheran
Новичок
Джуниор
 
Регистрация: 12.08.2011
Сообщений: 2
По умолчанию Поиск предложений в TMemo

Помогите пожалуйста,как в тексте(загруженом в Memo) найти предложения содержащие более 30 сим.(предложения заканчиваются на точку) и вывести в соседний компонент Memo?
В коде плутанина,но что есть,прилагаю:
Код:
procedure TForm1.Button3Click(Sender: TObject);
Var s,s1:string;
    i,j:integer;
begin
 s:=memo2.lines[i];
for i:=0 to memo2.lines.count-1 do
begin
repeat
j:=pos('.',s);
if j>=30 then  s1:=copy(s,1,j);
delete(s,1,j);
memo1.lines.Add(s1);
until j>1;
end;
end;
Sheran вне форума Ответить с цитированием
Старый 12.08.2011, 20:59   #2
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
  i,j:Integer;
  st,subst:String;
begin
   With Memo1 do
   Begin
     i:=0;
     While i <= lines.Count-1 do
     Begin
       st:=lines[i];
       For j:=1 to Length(St) do
       Begin
         If (st[j] <> '.') and (j <= Length(St)) then subst:=subst+st[j];
         If (st[j] <> '.') and (j = Length(st)) then Break;
         If (st[j] = '.') or (j = Length(st)) then
         If Length(subst) >= 30 then
         Begin
           Memo2.Lines.Add(Subst);
           subst:=''
         End
         Else
         subst:=''
       End;
       inc(i)
     End;
   End;
end;
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск перевертышей в предложений. Язык Си. Нужна помоши SeriiMD Помощь студентам 9 12.12.2010 00:35
Поиск предложений (C#) Dimfn Помощь студентам 0 30.05.2010 16:21
Немного необычный поиск в TMemo RIO Общие вопросы Delphi 8 30.07.2009 02:12
поиск в TMemo и работа со строками MixanMM Общие вопросы Delphi 5 15.06.2009 13:44
Поиск предложений varvara16 Общие вопросы Delphi 4 11.09.2008 09:33