Remove extra spaces from a string (Views: 27)
Problem/Question/Abstract: I would like to strip all extra/ unnecessary spaces from a string. Meaning, if there are two or more space characters next to each other, I want to strip all but one. How can I do this? Answer: Solve 1: { ... } st := 'This is a test'; p: pos(' ', st); while p <> 0 do begin delete(st, p, 1); p: pos(' ', st); end; { ... } Solve 2: { ... } while pos(' ', st) > 0 do st := StringReplace(st, ' ', ' ', [rfReplaceAll]); { ... } |