Ок
Оксана

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



Задан текст, состоящий из слов, которые разделены одним или несколькими пробелами. Сформулируйте новый текст, включив в него слова заданного, разделенные только одним пробелом.

ДИ
Дмитрий Искатель

Надо поубирать лишние пробелы, типо а___б___в перейдет в а_б_в? (_ - это пробел).

Юляшка Листопадова
Юляшка Листопадова

Суть проста . Функция для удаления лишних пробелов :

function PackSpaces(sString:String):String;
var
i : integer ;
begin
result := sString[1];
for i:=2 to length(sString) do
begin
if sString <> ' ' then
result:=result + sString
else
if result[length(result)] <> ' ' then
result:=result + ' ';
end;
end;

Рабочий проект lazarus смотри в почте .

Похожие вопросы
Помогите пожалуйста решить задачи в Lazarus, нужно очень срочно:
Помогите решить задачу по С# :-)
помогите решить задачу на с++
Помогите решить задачу по С++))))))
Помогите решить задачу на С
Помогите решить задачу по С++
помогите решить задачу по С#
Помогите с Lazarus!!!
Помогите решить задание Lazarus ax+b=0
lazarus где ошибка ???