Eliminar salto de linea de TStrings

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

[elmago00]

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.

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...acabo de probar el tuyo y sigue igual, en el showmesage funciona pero al memo, lo muestra repleto pero en blanco...

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.

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

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...señores anuncio mi futuro retiro...

Empezado por elmago00

...una funcion para pasar un TStrings a un memo...uso XE3 mi programa es en Firemonkey...

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.

[elmago00]

aqui el codigo fuente un simple ejemplo
prueba.rar

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