[TRUCO DELPHI] Eliminar los saltos de Linea.
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;
Nota: Esta funcion no utiliza la Unidad SysUtils
Saludos!
Editado por sir.dev.a.lot, 09 diciembre 2016 - 09:49 .