Delete line breaks from a string

~~~~~~~~~~~~~~~~~~~~~~~~~
function DeleteLineBreaks(const S: string): string;
var
   Source, SourceEnd: PChar;
begin
   Source := Pointer(S) ;
   SourceEnd := Source + Length(S) ;
   while Source < SourceEnd do
   begin
     case Source^ of
       #10: Source^ := #32;
       #13: Source^ := #32;
     end;
     Inc(Source) ;
   end;
   Result := S;
End;

~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Two (or more) line Hint box
« Flip Bitmap (Horizontal or Vertical)

• 1
• 2
• 3
• 4
• 5