Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
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;

https://delphiworld.narod.ru/

DelphiWorld 6.0

 

 


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

function DeleteLineBreaks(const S: string): string;

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

Автор: Vit