Посчитать кол-во символов в каждом слове введенных в edit и вывести их

@frosttin · Регистрация: 22.03.2014

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

помогите решить задачу. нужно посчитать кол-во символов в каждом слове введенных в edit и вывести их.

22.03.2014, 03:06

Команда Length не спасёт?

@frosttin · 24.03.2014, 02:38 **[ТС]**

Думаю не спасет. Дано предложение и надо вывести кол-во символов каждого слова. Отдельно.

24.03.2014, 03:14

Добавить использование Pos/PosEx.

@NIKOLAYY · 24.03.2014, 11:07

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

посчитать кол-во символов в каждом слове введенных в edit и вывести их.

Delphi

var
  Form1: TForm1;
  str: string;
  sym, sl, i: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  str := Edit1.Text + ' '; //пробел для последнего слова
  for i := 1 to Length(Str) do
  begin
    inc(sym);
    case ord(Str[i]) of
      32:
        begin
          inc(sl);
          ListBox1.Items.Add(IntToStr(sl) + ' слово ' + IntToStr(sym - 1) + ' символов');
          sym := 0;
        end;
    end;
  end;
end;
end.

@frosttin 0 / 0 / 0 Регистрация: 22.03.2014 Сообщений: 3
		1
	Посчитать кол-во символов в каждом слове введенных в edit и вывести их 22.03.2014, 03:01. Показов 2059. Ответов 4 Метки нет (Все метки) помогите решить задачу. нужно посчитать кол-во символов в каждом слове введенных в edit и вывести их. 0

angstrom
	22.03.2014, 03:06	2
	Команда Length не спасёт?

@frosttin 0 / 0 / 0 Регистрация: 22.03.2014 Сообщений: 3
	24.03.2014, 02:38 [ТС]	3
	Думаю не спасет. Дано предложение и надо вывести кол-во символов каждого слова. Отдельно. 0

angstrom
	24.03.2014, 03:14	4
	Добавить использование Pos/PosEx.

	24.03.2014, 11:07