Помогите решить задачу

[Айнур]

Дана строка, состоящая из слов, слова отделены друг от друга одним пробелом. Определить длину каждого слова.

[evb87ar]

Общий смысл:

Код: Выделить всё

var
  temp_StringList: TStringList; // Это массив слов
  temp_Word      : string;
  for_           : integer;
...
  temp_StringList := TStringList.Create;
  
  ExtractStrings([' '], [], PChar(<Строка>), temp_StringList);

  for for_ := 0 to (temp_StringList.Count -1) do begin
    temp_Word := temp_StringList[for_];

    ShowMessage('Слово: ' +temp_Word +#13 +
                'Длина: ' +IntToStr(length(temp_Word)));

  end;

  FreeAndNil(temp_StringList);

[NTFS]

Сессия началась, это хорошо
Задача простая, 100 руб - выполню сегодня утром (т.е. 17 ноября)

[Айнур]

Для бедного студента помощь нужна(( Денег нет

[Vadim]

Денег нет

А куды делись? Всё на пивасик ушло?

[Айнур]

Нет, на интернет и другие контрольные, думал что с Информатикой помогут хорошие люди

[ev]

думал что с Информатикой помогут хорошие люди

хорошим людям не надо кушать?

p.s. перенес тему в профильный форум

[Айнур]

надо)

[NTFS]

Задачу решил, жду подтверждения готовности оплаты.

[Айнур]

Спасибо ребята, все таки есть хорошие люди)) Помогли все работает

[NTFS]

И вам всего хорошего.