Eliminar salto de linea de TStrings
 

Hola,
estoy desarrollando un programa simple en el cual incluye una funcion para pasar un TStrings a un memo, el problema es que siempre hace el salto de linea, llevo 3 dias en esto, ya intente esto clubdelphi.com/foros/showthread.php?t=21324
no funciona, lo he modificado de varias maneras, me dice "Acess Violation" pero nada, uso XE3 mi programa es en Firemonkey.
gracias por responder.

Estimado sería tan amable de escribir algo de código para intentar visualizar cual sería su problema...Como dice alguien por aquí "La bola de cristal esta fallando..." :D

lo siento mi conexion a internet no es muy buena,
como dije antes me dice Invalid Pointer o Acess Violation, esto me tiene de algo impotente, pues es algo simple lo se, pero a mi no me funciona, por algo que quiza no eh visto.
lo que hago es buscar archivos y luego guardar el resultado, funciona perfecto, pero al pasar el memo siempre salta de linea.

aqui utilizo esto clubdelphi.com/foros/showthread.php?t=21324 este me dice Acess Violation

var:Listado2:TStrings; lista3:TStrings;

begin
lista:= TStringList.Create;
Listado2:= TStringList.Create;
BuscarArchivos4(carpeta, '*.exe', faAnyFile, lista3);
Listado2:=lista3;

//aqui hago el preceso segun el ejemplo anterior

lista4.free;
Listado2.free;

despues use este pero tampoco me funciona clubdelphi.com/foros/showthread.php?t=84303

tambien use este

{:Elimina los saltos de línea de un TStrings.
Elimina los saltos de línea (caracteres #10 y #13; salto de linea y salto
de carro) de un TStrings.
@param Strs TStrings del que se desean eliminar los caracteres
@param CharReplace Caracter a sustituir
}
function QuitarSaltosLinea(Strs: TStrings; CharReplace:String=STR_EMPTY):String;
var
Str:string;
begin
Str := AnsiReplaceStr(Strs.Text, #10, CharReplace);
Result := AnsiReplaceStr(Str, #13, CharReplace);
end;

y hasta el mas simple

ShowMessage(TStringsToString(Listado2));

todos me dice acces violation o invalid pointer. en otras ocasione me muestra el memo en blanco, lleno de lineas pero en blanco


"si tienes la bola de cristal pásamela por favor, así no quiebro el cerebro" jejeej

Amigo

Código Delphi [-]
var
      Lista3:TStrings;
begin
       //Talvez el procedimiento no está creando el objeto Lista3

       BuscarArchivos4(Carpeta, '*.cod', faAnyFile, Lista3);

       //Verifica que el objeto este creado...
       If Assigned(Lista3) Then
       begin
              Lista3.Text:=QuitarSaltosLinea(Lista3,'');
              Showmessage(Lista3.Text);
              Lista3.free;
       end;
end;

elmago00,

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;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

   for i := 0 to 10 do
      Memo1.Text := S.Text;

   S.Free;   

end;

end.

El código anterior permite pasar la información de un TStrings a un TMemo.

Espero sea útil :)

Nelson.

cloayza
tu codigo funciona bien en ShowMessage, pero al pasarlo al memo, lo muestra en blanco, esta lleno pero en blanco, lo pase a una varable string, y lo guarde a un .txt y lo muestra en blanco, pero lleno.

estoy probando el tuyo ahora [nlsgarcia]

por cierto los archivos a leer son 2000 y el nombre de cada uno tiene 10 letras, por lo que no se si el problema sea ese, pues son 20000 caracteres.

veo que solo guarda y muestra hasta 5000 caracteres, cuando leo mas los muestra lleno y en blanco a la vez, esto me rompe la cabeza. es la primera vez que veo esto asi. no es mi memoria, pues hice uno en vb.net y otro en java y funcionan bien leen 350000 lineas

[nlsgarcia]
acabo de probar el tuyo y sigue igual, en el showmesage con salto de linea funciona pero al memo, lo muestra repleto pero en blanco. y siempre hace salto de linea

esto me tiene desesperado ya. son 13 horas al dia pegado al computador, y no le veo por donde. solo los puedo hacer mostrar en el memo o variables con salto de linea. auxilio.

gracias a los dos por sus respuestas

señores anuncio mi futuro retiro. no puede ser que no le encuentre solución a esto de "variable llena pero en blanco"
como desarrollador es la primera vez que me veo tan impotente.
en fin creo que alguna vez se pierde, saludos a todos y gracias por haberme ayudado.

elmago00,

Esta es la salida que obtengo con el código del Msg #5 en Delphi 7 sobre Windows 7 Professional x32:



Pregunto:

1- ¿Esto es lo que requiere tu programa?

2- De no ser así, ¿Puedes detallar con un ejemplo como quieres que quede formateada la información?

Espero sea útil :)

Nelson.

Entonces las lines de código que bienen a continuación no estan realizando bien el trabajo...:D

Incluye el código completo para ver que hay...

Saludos...;)

elmago00,

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  FMX.StdCtrls, FMX.Layouts, FMX.Memo;

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

var
  Form1: TForm1;

implementation

{$R *.fmx}

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

   for i := 0 to 10 do
      Memo1.Text := S.Text;

   S.Free;

end;

end.

El código anterior permite pasar la información de un TStrings a un TMemo en Delphi XE4 con FireMonkey HD en una máquina virtual VMWare con Windows 7 Professional x32, como se indica en la siguiente imagen:



Espero sea útil :)

Nelson.

aqui el codigo fuente un simple ejemplo
Archivo Adjunto 2784

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.

elmago00,

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

Espero sea útil :)

Nelson.

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.

Hola elmago00.

Creo que nlsgarcia se refiere a como deseas la salida en el memo, si es:
O si deseas eliminar todos los saltos de línea:
Es decir que grafiques con un ejemplo como deseas el resultado en el memo.

Saludos :)

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.

elmago00,

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.

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 :)

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.

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 :)

ecfisa,

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.

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 :)

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 :o.

Saludos :)

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

elmago00,

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.

[nlsgarcia]
todos los directorios es igual, mira esa imagen funciona bien con 100 archivos, el directorio mas el nombre.


funciona bien puedo abrir hasta 825 archivos , dependiendo que tan largo sea el directorio, pero si paso esa cantidad el memo variables se vuelven en blanco.

al parecer si el directorio es muy largo, solo abre unos 500 a 800 archivos, hasta e pensado dividir la búsqueda, para ver si las variables no soportan tanta cadena, pero cuando se almacena despues en una sola, da el mismo resultado en blanco.
e intentado todo, o al menos eso creo. alguien me da una luz

elmago00,

Pregunto:

1- ¿Por que requieres tener en un TMemo, un string con la sumatoria total de Ruta+Nombre_Archivo de todos los archivos de un directorio en una misma línea?.

2- ¿Por que hay un TListBox con cada string individual formado con Ruta+Nombre_Archivo?, ¿Cual es la relación con el TMemo?, ¿Por que ambos tienen al parecer la misma información?.

Te comento:

1- Una variable String en Delphi tiene un límite de 2 GB, asumo que alcanzastes dicha cota al concatenar tantos Ruta+Nombre_Archivo en un mismo String.

2- Un TMemo como esta planteado en tu aplicación no es muy practico de manejar, aun con 100 archivos, te sugiero considerar otro modo de presentación de la información, quizás usar solo el TListbox o sustituir el TMemo por un TListView, o mostar un TextBox con la Ruta y en el TListBox solo los nombres de archivo, las opciones son múltiples, todo depende del objetivo final de tu aplicación.

Si es posible, explica cual es la naturaleza de tu proyecto para tener una mejor comprensión del problema planteado.

Espero sea útil :)

Nelson.

Solucionado
veras, el programa es un ftp, que desarrollamos en la empresa en la que trabajo, debe cargar todo los archivos de manera aleatoria. uno tras otro.
no quiero mostrarla en el memo, solo lo uso por que se que soporta string, y la variable donde envió los archivos a cargar debe ser string,
comparaba la variable con texto del memo. pero lo solucione haciendo una referencia todos los archivos de una sola vez, en un solo directorio como constante y no uno tras otro. te preguntaras ¿por que no mueves la carpeta? por que el servidor no reconoce ese método, solo archivos con el ruta especifica almacenado en archivo externo en este caso un .txt. tenias mucha razón la variable sobrepasaba los 2gb. pero al fin lo solucione.

agradezco a todos por su ayuda. saludos a todos, son los mejores,y muy amables, mil gracias.