найти все слова, в которых заданный символ встречается не менее чем заданное число раз. Delphi.

[Виктория7777]

Задача: "Дан текст, найти все слова, в которых заданный пользователем символ встречается не менее чем заданное число раз."
Я сделала чтобы программа искала заданный пользователем символ:

 var st :string;
      i,j:integer;
  begin
    j:=0;
    st:=memo1.Lines.Text;
    if(length(form1.vvodparametraed.Text)=0 ) then   {проверяем не пустая ли строка}
      begin
        Application.MessageBox('Введите искомый символ','Предупреждение',MB_OK);
        exit;
      end;
     i:=pos(form1.vvodparametraed.Text[1],st);  {определяем позицию искомого сивола}
    while (i>0) do
     begin
       inc(j); {счётчик}
       st:=copy(st,i+1,length(st)-i); {вырезаем строку}
       i:=pos(form1.vvodparametraed.Text[1],st);
      end;
   form2.Label1.Caption:='Колличество искомых сиволов - '+inttostr(j);
   form2.showmodal; 
  end;

никак не поучается вторая часть задачи про заданное число раз... помогите пожалуйста...(

[WhiteSpirit]

Ну, как-то так:

procedure TForm1.Button1Click(Sender: TObject);
var st :string;
    i,j :Integer;
    ps1, ps2: Integer;
    s: String;
begin
j:=0;
st:=Memo1.Lines.Text;
if(Length(Edit1.Text) = 0) then {проверяем не пустая ли строка}
begin
    Application.MessageBox('Введите искомый символ','Предупреждение',MB_OK);
    exit;
    end;
ps1:=1;
ps2:=1;
Memo2.Lines.Clear;
while ps1 <= Length(st) do begin
    while st[ps1] = ' ' do Inc(ps1);
    ps2:=ps1 + 1;
    while (st[ps2] <> ' ') and (ps2 <= Length(st)) do Inc(ps2);
    s:=Copy(st, ps1, ps2 - ps1);
    j:=0;
    i:=PosEx(Edit1.Text[1], s, 1);
    while i > 0 do begin
        Inc(j);
        if j = StrToInt(Edit2.Text) then Break;
        i:=PosEx(Edit1.Text[1], s, i + 1);
        end;
    if j = StrToInt(Edit2.Text) then Memo2.Lines.Add(s);
    ps1:=ps2 + 1;
    end;
end;

Комментарии не писал, и так всё понятно

[Виктория7777]

не работает, выдаёт ошибку в этой строчке:
i:=PosEx(Edit1.Text[1], s, 1)

[WhiteSpirit]

Надо подключить модуль StrUtils, там эта функция прописана

[Serge_Bliznykov]

Надо подключить модуль StrUtils, там эта функция прописана

если только версия Delphi >= 7 :

В Delphi 7 в модуле StrUtils внесены некоторые изменения. Есть новая функция: PosEx....

[WhiteSpirit]

Да, точно... в шестой этой функции нет
Ну, автор темы не указала, в какой версии нужно

[Виктория7777]

7) всё работает) спасибо большое))