Be seen. Boost your question’s priority for more expert views and faster solutions
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
function MergeSpaces(s: string):string;
var i: integer; Merge: Boolean;
begin
Merge:= false;
for i:= 0 to Length(s)-1 do
begin
if (s[i+1] <> ' ') then Merge:= false;
if NOT Merge then result:= result + s[i+1];
Merge:= (s[i+1] = ' ');
end;
end;