задача на работу со строками

[Toxi]

Задача:
Определить, сколько раз в строке встречается заданное слово

помогите с решением пожалуйста, заранее спасибо

[Базиля]

В чем помочь? Какие сложности?

[Toxi]

Сообщение от Базиля

В чем помочь? Какие сложности?

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

решите задачу пожалуйста... а то завтра последний день сдачи...

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k,x: integer;
  s1,s2: string;
begin
  i:=0;     // текущая строка
  k:=0;
  s2:=Edit2.Text;           // s2 - фрагмент
  while i<Memo2.Lines.Count do  // пока i меньше количества строк
  begin
    s1:=Memo2.Lines[i];   // s1 - текущая строка текста
    while x>0 do
    begin
      x:=pos(s2,s1);        // x-позиция фрагмента в строке
      if x>0 then
      begin
        inc(k);               // количество фрагментов
        delete(s1,1,x);
      end;
    end;
    inc(i);
  end;
  Memo1.Lines.add:=IntToStr(k);
end;

выдает ошибки в строке

Memo1.Lines.add:=IntToStr(k);

[Error] Unit1.pas(57): Not enough actual parameters
[Error] Unit1.pas(57): Incompatible types: 'Integer' and 'String'

[Hacker19_90]

Потомучто Add это метод
Но не свойство!
Делайте так

Memo1.Lines.add(IntToStr(k));

[Toxi]

все разобрался)

[grom333]

А вот простейшее решение, правда с эдитами. Edit1 - это текст введенный, Edit2 это искомое слово.

var
i:integer;
str:string; //текст
str2:string; //заданное слово
k,k2:integer;
begin
str2:=edit2.Text;
k2:=length(str2);
k:=0;
str:=edit1.text;
for i:=1 to length(str) do
    begin
    if (str[i+k2]=str2) then k:=k+1;
    end;
    showmessage(inttostr(k));
end;

[Hacker19_90]

А вот простейшее решение, правда с эдитами. Edit1 - это текст введенный, Edit2 это искомое слово.

Только вот, не полное!
Где проверка на то что это слово вообще?
А не часть слова?
Понимаете о чём я?
При таком раскладе простейшим решение будет использовать
Функции pos и delete выйдет куда проще!
ХОТЯ СТОП
ВОТ ЭТО ЧТО ВООБЩЕ?

str[i+k2]=str2

Обьясните мне суть!

[grom333]

Сообщение от Hacker19_90

Только вот, не полное!
Где проверка на то что это слово вообще?
А не часть слова?
Понимаете о чём я?
При таком раскладе простейшим решение будет использовать
Функции pos и delete выйдет куда проще!
ХОТЯ СТОП
ВОТ ЭТО ЧТО ВООБЩЕ?

Обьясните мне суть!

Ну, да, ну да, поторопился. Хотел из своего паскалевского примера перебрать код... Тут максимум по одной букве найдет

[Hacker19_90]

Да ничего бывает!
Собствеено мой пост выше(смотреть верхнюю его часть) Относится и ТС
Вы не ищете слова, а ищете лишь вхождения!
Разные вещи!

[Toxi]

всем спасибо)) это был только фрагмент задачи, там полей мемо много и они используются для записи в текстовый файл так что не буду мучаться щас с эдитами, сделал как есть)) у меня уже мозг если честно кипит от делфи... 5 практических сделал за вечер=)) все как всегда в последний день