Статистика выбранного пользователем документа

@Серожкин · Регистрация: 02.05.2012

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

Разработать программу, которая выводит статистику выбранного пользователем документа. Статистические данные включают количество слов, символов, пробелов и строк

@alexmcoder · 27.05.2012, 12:51

на форме Button1 и memo1 для вывода результата

Delphi

var
k,p,i,x:integer;
s:string;
t:tstringlist;
begin
memo1.Lines.Clear;
t:=tstringlist.Create;
// загружаем текстовый файл
t.LoadFromFile('C:\\1.txt');
x:=t.Count; // количество строк
s:=t.Text+' ';
t.Free;
// считаем количество слов и пробелов
k:=0; p:=0;
 for i:=1 to length(s) do  begin
 if (s[i]=' ')and(s[i+1]<>' ') then k:=k+1;
 if s[i]=' ' then  inc(p);
 
                           end;
 memo1.Lines.Add('количество слов= '+inttostr(k));
 memo1.Lines.Add('количество пробелов= '+inttostr(p-1));
 memo1.Lines.Add('количество символов= '+inttostr(length(s)-1));
 memo1.Lines.Add('количество строк= '+inttostr(x));
 
 
end;

@Серожкин 0 / 0 / 0 Регистрация: 02.05.2012 Сообщений: 17
		1
	Статистика выбранного пользователем документа 16.05.2012, 23:40. Показов 1452. Ответов 1 Метки нет (Все метки) Разработать программу, которая выводит статистику выбранного пользователем документа. Статистические данные включают количество слов, символов, пробелов и строк 0

	27.05.2012, 12:51

Статистика выбранного пользователем документа

Решение