Ок
Оксана
Помогите решить задачу на 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 смотри в почте .