Подсчет слов в memo

@4uvak01 · Регистрация: 15.04.2015

Author24 — интернет-сервис помощи студентам

Я сделал подсчет слов в мемо, взяв за основу пробелы и перенос на строку. Понимаю что если поставить два пробела или два переноса то весь результат испортится. Что нужно дописать, чтобы исправить это?

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var i,c:integer;
begin
label1.Caption := 'Количество строк '+ IntToStr(Memo1.Lines.Count);
 
for i := 0 to length(memo1.text) do
     if memo1.text[i]=#32 then inc(c);
for i := 0 to length(memo1.text) do
     if memo1.text[i]=#13 then inc(c);
label2.Caption:='Количество слов '+inttostr(c);
end;

@Puporev · 20.09.2015, 15:50

Если слова разделены пробелами, хоть сколько, то проще так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
begin
t:=TStringList.Create;
t.DelimitedText:=Memo1.Text;
ShowMessage('Количество слов='+inttostr(t.Count))
end;

	20.09.2015, 15:50

Опции темы