Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] поиск в memo

Автор: photozaz 6.5.2008, 13:01

помогите пожалуйста выполнить следующее задание :: дано 2 memo, в memo1 текст, ну например :: "Форум программистов - место для общения как начинающих, так и профессиональных программистов. Участники клуба отвечают на вопросы новичков. Форум программистов - место для общения как начинающих, так и профессиональных программистов." тогда в memo2 следует вывести предложения, в которых присутствуют ","(запятые), т.е. :: "Форум программистов - место для общения как начинающих, так и профессиональных программистов. Участники клуба отвечают на вопросы новичков. Форум программистов - место для общения как начинающих, так и профессиональных программистов. Участники клуба отвечают на вопросы новичков. " Как это сделать, подскажите??

Автор: THandle 6.5.2008, 13:24

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  pt, pz : integer;
  s : string;
begin
  s := Memo1.Text;
  repeat
    pt := pos('.', s);
    if pt <> 0 then
      begin
        pz := pos(',', s);
        if pz <> 0 then
          if pz in [1..pt] then
              Memo2.Text := Memo2.Text + Copy(s, 1, pt + 1);
        Delete(s, 1, pt + 1);
      end;
  until ((pt = 0) or (pz = 0));
end;

Как то так. Писал на коленке. smile

Цитата(photozaz @ 6.5.2008, 14:01

)

Участники клуба отвечают на вопросы новичков.

Это уж точно smile

Автор: Alexeis 7.5.2008, 09:12

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!