Обработка строк в delphi

[Ulena]

Помогите найти ошибку, пожалуйста...
Группу символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. Подсчитать количество слов. Ввод слов организовать двумя способамиЖ в одну строку и каждое слово - на отдельной строке.
procedure TForm1.Button1Click(Sender: TObject);
var S1: String; i, k: byte;
begin
k:=1;
if pos(' ', RichEdit1.Lines[RichEdit1.Lines.Count-1])=0 then begin
S1:=RichEdit1.Lines[RichEdit1.Lines.Count-1];
for i:=1 to Length(S1) do
if (S1[i]=' ') then inc(k);
ShowMessage('Количество слов: '+IntToStr(k));

end else begin
S1:=RichEdit1.Lines[0];
while (pos(' ', S1)<>0) do
delete(S1, 1, pos(' ', S1));
for i:=1 to Length(S1) do if (S1[i]=' ') then inc(k);
ShowMessage('Количество слов: '+IntToStr(k));
end;
end;

[SERG1980]

Если каждое слово на своей строке то не надо никаких циклов

k:=RichEdit1.Lines.Count-1

[Ulena]

Понятно, а если слова введены в одну строку через пробел?

[Grag]

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

Помогите найти ошибку, пожалуйста...
Группу символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. Подсчитать количество слов. Ввод слов организовать двумя способамиЖ в одну строку и каждое слово - на отдельной строке.
procedure TForm1.Button1Click(Sender: TObject);
var S1: String; i, k: byte;
begin
k:=1;
if pos(' ', RichEdit1.Lines[RichEdit1.Lines.Count-1])=0 then begin
S1:=RichEdit1.Lines[RichEdit1.Lines.Count-1];
for i:=1 to Length(S1) do
if (S1[i]=' ') then inc(k);
ShowMessage('Количество слов: '+IntToStr(k));

end else begin
S1:=RichEdit1.Lines[0];
while (pos(' ', S1)<>0) do
delete(S1, 1, pos(' ', S1));
for i:=1 to Length(S1) do if (S1[i]=' ') then inc(k);
ShowMessage('Количество слов: '+IntToStr(k));
end;
end;

У тебя вообще не понятно что делает обработчик кнопки...
Точнее - понятно, но только не то что нужно...
Тебе нужно определить количество введенных строк, а потом в цикле построчно определять и подсчитывать количество слов...

[Ulena]

А как это будет выглядеть в виде кода?

[Grag]

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

А как это будет выглядеть в виде кода?

Вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  i: word;
  Nword:word;
  Range:word;
begin
  Nword:=0;
  Range:=RichEdit1.Lines.Count-1;
  for i:=0 to Range do
    begin
      S:=RichEdit1.Lines[i];
      while Pos(' ',S)<>0 do
        begin
          Delete(S,Pos(' ',S),1);
          Inc(Nword)
        end;
      Inc(Nword)
    end;
  ShowMessage('Количество слов: '+IntToStr(Nword));
end;

Все проверено, все работает...
Можно в строке вводить несколько слов, можно вводить несколько строк по одному слову, считает верно
Если помог - оставьте отзыв...