найти ошибку в проге на Delphi

[Serjik-ahaha]

Задание: написать программу подсчета числа слов в произвольной строке. В качестве разделителя может быть любое число пробелов. Для ввода строк и работы с ними использовать компонент типа ТСоmbоВох. Ввод строки заканчивать нажатием Enter. Для выхода из программы использовать кнопку Close.

Ниже приведен код программы. Вроде как все верно написал, но все же результат в Label3.Caption не выводится. Помогите понять, что не так, пожааалуйста)

Unit LabRab_5;
Interface
Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons;
type	
  TUnit_Lab5 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Procedure FormActivate(Sender: TObject);
    Procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    Procedure ComboBox1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  end;
var
  Unit_Lab5: TUnit_Lab5;

Implementation
{$R *.dfm}

// Обработка события активизации формы
Procedure TUnit_Lab5.FormActivate(Sender: TObject);
begin
  ComboBox1.SetFocus; //Передача фокуса ComboBox1
end;

// Обработка события нажатия левой клавиши мыши
Procedure TUnit_Lab5.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key =#13 then //Если нажата клавиша Enter то...
  begin
//  Строка из окна редактирования заносится в список выборa
    ComboBox1.Items.Add(ComboBox1.Text);
    ComboBox1.Text := ''; //Очистка окна редактирования
  end;
end;

Procedure TUnit_Lab5.ComboBox1Click(Sender: TObject);
var
  St : string;
  n, i, nst, ind  : integer;
begin
  n   := 0; //Содержит число слов выбранной строки 
  ind := 0; //Содержит число слов
//Определение номера выбранной строки
  nSt := ComboBox1.ItemIndex;
//Занесение выбранной строки в переменную st
  St := ComboBox1.Items[nst];
//Просмотр всех символов строки st
  for i := 1 to Length(St) do
  begin
    Case ind of
      0: if St[i] <>'' then
         begin
             //Если встретился символ после пробела
             //число слов увеличивается на единицу
             ind := 1;
            inc(n);
         end;
// Если встретился пробел после символов
      1: if St[i] ='' then ind := 0;
     end; //Case
   Label3.Caption := IntToStr(n); //Вывод числа слов в Label3
  end;
end;

end.

ну вот еще картинку прилагаю, с уже правильно выполненной задачей.

[Mad_Cat]

я бы проще сделал)

s:=cbb1.items[cbb1.itemindex];
while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);
s:=trim(s);
if s='' then exit;
k:=0;
for i:=1 to length(s) do
if s[i]=' ' then inc(k);
k:=k+1;
Label3.Caption := IntToStr(k);

[evg_m]

я бы проще сделал)

for i:=1 to length(s) do
if s[i]=' ' then inc(k);

Два рядом стоящих пробела это что два слова?

В качестве разделителя может быть любое число пробелов.

Label3.Caption не выводится

попробуй так

Label3.Caption := IntToStr(n); //Вывод числа слов в Label3
Label3.update;

[Sparkman]

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
     if (Key=#13)and(Length(ComboBox1.Text)>0)then ComboBox1.Items.Add(ComboBox1.Text);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var n:integer;
    s:string;
begin
     s:=ComboBox1.Text;
     s:=Trim(s);
     if Length(s)>0 then
     begin
          while pos(#32#32,s)>0 do
          s:=StringReplace(s,#32#32,#32,[rfReplaceAll]);
          n:=0;
          while pos(#32,s)>0 do
          begin
               inc(n);
               Delete(s,1,pos(#32,s));
          end;
          Label1.Caption:=IntToStr(n+1);
     end else Label1.Caption:='0';
end;

[Serjik-ahaha]

попробуй так

Label3.Caption := IntToStr(n); //Вывод числа слов в Label3
Label3.update;

не прокатило. проблема осталась. нажимаю Enter, а раздается звук об ошибке и ничего не происходит. очень нужно найти ошибку именно в том коде, который я предоставил... хелп...

[Valio]

Сообщение от Serjik-ahaha

не прокатило. проблема осталась. нажимаю Enter, а раздается звук об ошибке и ничего не происходит. очень нужно найти ошибку именно в том коде, который я предоставил... хелп...

Скидывай сюда архив с проектом. Поковыряюсь в нём пока чай пью.

[evg_m]

нажимаю Enter, а раздается звук об ошибке и ничего не происходит.

Все происходит в полном соответствии с кодом

  if Key =#13 then //Если нажата клавиша Enter то...
  begin
//  Строка из окна редактирования заносится в список выборa
    ComboBox1.Items.Add(ComboBox1.Text);
    ComboBox1.Text := ''; //Очистка окна редактирования

    key:=#0; // отменяет дальнейшую (внутреннюю) обработку вводимого символа. 

 end;

Добавили в список и очистили поле ввода. ВСЕ!
если хотите ЗДЕСЬ (при нажатии Enter) делать еще что-то то надо это написать.

[Mad_Cat]

Два рядом стоящих пробела это что два слова?

для глумливых

после вот этого

while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);

не будет больше 1(одного) пробела между словами

[evg_m]

согласен просмотрел.

while pos(' ',s)<>0 do

снимает проблему "более одного пробела".
но осталась неточность.
число разделителей(пробелов) = число слов - 1

[Mad_Cat]

число разделителей(пробелов) = число слов - 1

и снова разуваем глазки

for i:=1 to length(s) do
if s[i]=' ' then inc(k);
k:=k+1;
Label3.Caption := IntToStr(k);