[Fazotron]

Помогите, пожалуйста, сделать задачу: Найти в тексте (edit1) слова, содержащие заданную букву (задается в edit2) и вывести их в edit3 .

[Kapitoshka438]

Код:

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

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;

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

[Fazotron]

спс, опробую