Программа на Delphi

[МедведЪ]

Необходимо посчитать количество слов в текстовом файле.
Строк может быть несколько, перед словами в строке могут быть пробелы, а также слова могут отделяться несколькими пробелами.
Результат нужно вывести в Memo. Заранее спасибо!

[ATL]

Можно сделать через for, while и if
Ищешь пробел в строке, нашёл, если возле него нет ещё одного - удаляешь пробел, увеличиваешь счётчик на 1, ищешь дальше.
Если есть несколько проблелов рядом - удаляешь дублированные циклом пробелы до тех пор, пока не останется 1 пробел. Дальше удаляешь его и опять же увеличиваешь счётчик.

Может метод и не лучший. Но я бы сделал так.

[МедведЪ]

Я вставляю строки из файла в Memo
memo1.Lines.LoadFromFile(edit1.text );
потом запускаю цикл
for i:=1 to memo1.lines.count-1 do(от первой строки до последней)
а как потом из Memo записать в строку(например s)?

[Hollander]

Весь твой текст в Memo это и есть String. т.е. s:=Memo1.Lines.Text(или String) не помню точно

[Трофимов Александр]

procedure TForm1.Button1Click(Sender: TObject);
Var
Kol,i:integer;
s:string;
begin
Kol:=form1.Memo1.Lines.Count-1;
for i:=0 to Kol do
s:=s+form1.Memo1.Lines.Strings[i];
form1.Label1.Caption:=s;
end;
На этом примере думаю разберёшься

[МедведЪ]

Спасибо всем за ответы!