Eliminar salto de linea de TStrings

[ecfisa]

Empezado por elmago00

...eliminar todos los saltos de linea y en lugar de hacer el salto que aparezca un espacio entre ellos...

Hola.

Entonces proba de este modo:

Código Delphi [-]
procedure DeleteCRLF(TS: TStrings);
begin
  TS.Text := StringReplace(TS.Text, #$D#$A, #$20, [rfReplaceAll]);
  TS.Text := StringReplace(TS.Text, #$D#$A#$D#$A, #$20, [rfReplaceAll]);
end;

Ejemplo de uso:

Código Delphi [-]
  DeleteCRLF(Memo1.Lines);

Saludos

[[nlsgarcia]]

elmago00,

Continuación del Msg #18:

La correcta definición de la función RemoveCRLF es la siguiente:

Código Delphi [-]
function RemoveCRLF(S1 : TStrings) : String;
var
   i : Integer;
   S2 : String;

begin

   for i := 0 to S1.Count -1 do
   begin

      if Pos(#13,S1.Strings[i]) <> 0 then
         StringReplace(S1.Strings[i],#13,'',[rfReplaceAll]);

      if Pos(#10,S1.Strings[i]) <> 0 then
         StringReplace(S1.Strings[i],#10,'',[rfReplaceAll]);

       S2 := S2 + S1.Strings[i] + ' ';

   end;

   Result := S2;

end;

Espero sea útil

Nelson.

[ecfisa]

Empezado por nlsgarcia

La correcta definición de la función RemoveCRLF es la siguiente:

Hola Nelson.

¿ Por que consideras incorrecta la definición del procedimiento RemoveCRLF ?

Una simple prueba basta para ver que funciona correctamente...

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  SR: TSearchRec;
begin
  Memo1.Clear;
  if FindFirst('C:\Windows\System32\*.*', faArchive, SR) = 0 then
  begin
    repeat
      Memo1.Lines.Add(SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure DeleteCRLF(TS: TStrings);
begin
  TS.Text := StringReplace(TS.Text, #$D#$A, #$20, [rfReplaceAll]);
  TS.Text := StringReplace(TS.Text, #$D#$A#$D#$A, #$20, [rfReplaceAll]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteCRLF(Memo1.Lines);
end;

Saludos

[[nlsgarcia]]

ecfisa,

Empezado por ecfisa

...¿ Por que consideras incorrecta la definición del procedimiento RemoveCRLF ? ...

Me refiero a la función RemoveCRLF no al procedimiento DeleteCRLF.

En la definición original de la función RemoveCRLF en el Msg #18, no se estaba eliminado el Carácter #10 (Salto de Línea), en la definición del Msg #20 si se elimina correctamente.

Espero que esto aclare el punto

Nelson.

[ecfisa]

Empezado por nlsgarcia

En la definición original de la función RemoveCRLF en el Msg #18, no se estaba eliminado el Carácter #10 (Salto de Línea), en la definición del Msg #20 si se elimina correctamente.

Espero que esto aclare el punto

Totalmente: Leí mal.

Me confundió la terminación (Se nota que ambos estábamos pensando en "carriage return" y "line feed" )

Así que a eso se debió mi confusión .

Saludos

[elmago00]

[nlsgarcia]
tu codigo funciona bien con poca cantidad de archivos, pero si deseo abrir mas de 825 archivos, muestra lo siguiente, como podras ver el memo lleno pero en blanco.


ecfisa

tu codigo funciona mostrando solo el nombre, pero si muestro el directorio + el nombre. el resultado es el mismo que el anterior, un memo en blanco. no si sea el limite de delphi para cada variable string. pues son 5000 imagenes.
no soporta el directorio mas el nombre, al parecer son demasiadas cadenas. no se por que me da ese resultado.

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...tu codigo funciona bien con poca cantidad de archivos...

Pregunto:

1- ¿Puedes publicar una imagen donde funcione bien para tener una mejor idea del problema?.

2- ¿Si lo pruebas en algún directorio de Windows funciona o falla?.

Espero sea útil

Nelson.

[ecfisa]

Hola.

Me faltó hacer una aclaración, si la ruta+nombre de archivo son cargados en el memo de la forma que se hace en el mensaje #21, la línea que se encarga de quitar la separación de párrafos es innecesaria:

Código Delphi [-]
  TS.Text := StringReplace(TS.Text, #$D#$A#$D#$A, #$20, [rfReplaceAll]);

Pero como no sé como realizaba la carga elmago00, no lo quise librar al azar...

Saludos