Eliminar salto de linea de TStrings

[elmago00]

recuerden quiero eliminar el salto de linea, pero soporte gran cantidad de nombre de archivos por ejemplo 20000 nombres, siempre solo puedo ver todo el valor de la variable pero son salto, y eso es lo que no quiero.

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...quiero eliminar el salto de línea...

Pregunto: ¿Puedes detallar con un ejemplo como quieres que quede formateada la información?.

Espero sea útil

Nelson.

[elmago00]

quiero el directorio mas el nombre del archivo. asi como aparece en la lista, pero sin el salto de linea,funciona perfecto con 825 direcciones de archivos, pero no puedo leer mas de eso, si lo hago aparece todo en blanco y quiero leer 5000 cadenas.

[ecfisa]

Hola elmago00.

Creo que nlsgarcia se refiere a como deseas la salida en el memo, si es:

C:\Windows\System32\tasklist.exe
C:\Windows\System32\Taskmgr.exe
...

O si deseas eliminar todos los saltos de línea:

C:\Windows\System32\tasklist.exeC:\Windows\System32\Taskmgr.exe
...

Es decir que grafiques con un ejemplo como deseas el resultado en el memo.

Saludos

[elmago00]

tal como tu lo pones en el segundo ejemplo, eliminar todos los saltos de linea y en lugar de hacer el salto que aparezca un espacio entre ellos. eso lo consigo pero repito solo 825 direcciones de ficheros, mas no puedo pues en el memo me aparece en blanco, al igual que cualquier variable a donde deseo enviar la información. solo funciona bien en showmessage, 5000 diferentes direcciones sin salto de linea, pero no lo asi, sino que en el memo.

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...tal como tu lo pones en el segundo ejemplo, eliminar todos los saltos de linea y en lugar de hacer el salto que aparezca un espacio entre ellos...

Empezado por ecfisa

...Creo que nlsgarcia se refiere a como deseas la salida en el memo...

Es correcto ecfisa, gracias

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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],#13,'',[rfReplaceAll]);

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

   end;

   Result := S2;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   S : TStrings; // StringList : TStringList;

begin

   S := TStringList.Create;

   for i := 0 to 10 do
      S.Add('Text-' + IntToStr(i));

   Memo1.Text := RemoveCRLF(S);

   S.Free;

end;

end.

El código anterior elimina los caracteres de CR y LF de los strings contenidos en un TString y los sustituye por un espacio en blanco, asignando la salida resultante a un TMemo, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.

[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.