Как удалить переносы из строки

Материал из DRKB

Как удалить переносы из строки[править | править код]

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;


Source: http://delphiworld.narod.ru/
ID: 00850


Можно значительно проще:

function DeleteLineBreaks(const S: string): string;
begin
  Result := StringReplace(S, #10#13, '', [rfReplaceAll]);
end;


Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
ID: 00851