Eliminar salto de linea de TStrings

[elmago00]

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.

[cloayza]

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

[elmago00]

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

[cloayza]

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;

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...una funcion para pasar un TStrings a un memo...

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.

[elmago00]

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

[elmago00]

[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

[cloayza]

Empezado por elmago00

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.

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

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

Saludos...