Найти в TStringList

[Shouldercannon]

Как найти в TStringList какое-либо слово и выполнить подсчёт найденных слов?

[Serge_Bliznykov]

банальный Pos() в цикле
или метод IndexOf
или метод Find
смотря какие условия и что надо найти..

[Shouldercannon]

Искать исключительно текст, одно слово, не фразы и не словосочетания.

[Аватар]

Очень похожая тема http://programmersforum.ru/showthrea...532#post781532

[Человек_Борща]

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

Как найти в TStringList какое-либо слово и выполнить подсчёт найденных слов?

банально так:

procedure TForm1.Button1Click(Sender: TObject);
const
  cLetter = ' 1 ';
var
  LetCount: Integer;
  s: string;
begin
  s := Memo1.Text;
  LetCount := 0;
  while not (Pos(cLetter, s) = 0) do
  begin
    if Pos(cLetter, s) > 0 then
    begin
      Inc(LetCount);
      Delete(s, Pos(cLetter, s), Length(cLetter)-1);
    end;
  end;
  Memo1.Text:=s;
  ShowMessage(IntToStr(LetCount));
end;

при условии что слово с двух сторон пробито пробелами:

 1 1 1 1

[Shouldercannon]

procedure TForm1.BLoadClick(Sender: TObject);
begin
  qqq.LoadFromFile('test.txt');
end;

procedure TForm1.BSearchClick(Sender: TObject);
var
  i, i2: Integer;
begin
  for i := qqq.Count - 1 downto 0 do
  if Edit1.Text = trim(qqq[i]) then
  begin
    qqq.Delete(i); // Замена текста, а не удаление
    i2 := i2 + 1;
  end;

  if i2 = 0 then MessageBox(0, 'Текст не найден', 'Project1', MB_ICONInformation) else MessageBox(0, Pchar('Текст найден [' + IntToStr(i2) + ']'), 'Project1', MB_ICONInformation);
end;

Не додумаюсь как вместо удаления сделать замену в помеченном месте.

[Аватар]

qqq.Strings[i]:='Новый текст';

и не qqq[i] а qqq.Strings[i]

[FaTaL]

Очень просто, пусть SL это твой TStringList, тогда

var
i, j : integer;
s   : string;
begin
  s := 'Искомое слово';
  j := 0;
  for i:=0 to sl.count - 1 do
    begin
      while pos (s, sl.Strings[i])<>0 do
        begin
          inc(j);
          Delete (sl.Strings[i], 1, pos (s, sl.Strings[i]));
        end;
    end;
  ShowMessage ('Слово ' + '"' + s + '"' + ' надено ' + IntToStr(j) + ' раз.');
end;

КОнечно нужно сначала sl инициализировать, забить его текстом и потом освободить память, но это наверно сами сможете.
З.Ы. могут быть маленькие ошибки. Пишу в блокноте без компилятора


Замену поможет сделать функция StringReplace

[mss]

Сообщение от Аватар

qqq.Strings[i]:='Новый текст';

и не qqq[i] а qqq.Strings[i]

Strings[] - свойство по умолчанию.
Учи матчасть и впредь не вставляй свои дилетантские комментарии.