Подсчет Количества Слов

[triamera977]

Добрый день. Прошу помочь. В Memo парсится код с сайта, хотелось бы подсчитать сколько раз в данном коде встречается #331111 и результат вывести в Label

 

[triamera977]

Решил таким способом. Может кому понадобится.

procedure TForm1.Button2Click(Sender: TObject);
var
   WantedWord, s, w: String;
   i, j, n: Integer;
begin
   WantedWord:='style="background:#331111"';
   n:=0;

   for i:=0 to Memo1.Lines.Count-1 do
   begin
      s:=Memo1.Lines[i]+' ';
      j:=1;
      while j<=Length(s) do
      begin
         w:='';
         while s[j]<>' ' do
         begin
            w:=w+s[j];
            j:=j+1;
         end;
         if w=WantedWord then n:=n+1;
         j:=j+1;
      end;
   end;

   if n>0 then ShowMessage('Количество слов: '+IntToStr(n));

end;

 

[Lomanu4]

Решил таким способом. Может кому понадобится.

procedure TForm1.Button2Click(Sender: TObject);
var
   WantedWord, s, w: String;
   i, j, n: Integer;
begin
   WantedWord:='style="background:#331111"';
   n:=0;

   for i:=0 to Memo1.Lines.Count-1 do
   begin
      s:=Memo1.Lines[i]+' ';
      j:=1;
      while j<=Length(s) do
      begin
         w:='';
         while s[j]<>' ' do
         begin
            w:=w+s[j];
            j:=j+1;
         end;
         if w=WantedWord then n:=n+1;
         j:=j+1;
      end;
   end;

   if n>0 then ShowMessage('Количество слов: '+IntToStr(n));

end;

Увидел тему поздно,но процедура оформлена отлично.