Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-05-2015
albelg albelg is offline
Miembro
NULL
 
Registrado: may 2015
Posts: 21
Poder: 0
albelg Va por buen camino
Question Como abrir varios archivos.txt en un mismo Memo

hola a todos los colegas del club, soy nuevo y necesito una colaboracion sobre como abrir varios archivos.txt en un mismo memo sin aplastarlos. o sea cuando abro los txt solo me muestra en el memo el ultimo de ellos. gracias de antemano
Responder Con Cita
  #2  
Antiguo 15-05-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola albelg, bienvenido a Club Delphi

Como acostumbramos con los que se inician, te invitamos a que leas nuestra guía de estilo.

Revisa este ejemplo:
Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.Filter := 'Archivos de texto|*.TXT'
  with Memo1 do
  begin
    // Limpiar
    Lines.Clear;
    // Scroll vertical
    ScrollBars := ssVertical;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: TStrings;
begin
  if OpenDialog1.Execute then
  begin
    ts := TStringList.Create;
    try
      // agregar archivo texto
      ts.LoadFromFile(OpenDialog1.FileName);
      Memo1.Lines.AddStrings(ts);
      // ir al final
      Memo1.SelStart  := Length(Memo1.Text);
      Memo1.SelLength := 0;
      Memo1.SetFocus;
    finally
      ts.Free;
    end;
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 15-05-2015 a las 22:57:48.
Responder Con Cita
  #3  
Antiguo 15-05-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
albelg,

Cita:
Empezado por albelg
...como abrir varios archivos.txt en un mismo memo...
¡Bienvenido al Club Delphi!

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}

procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;
   FileList : TStringList;

begin

   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'Text Files | *.txt';

   if openDialog.Execute then
   begin
      FileList := TStringList.Create;
      FileList.LoadFromFile(openDialog.FileName);
      Memo1.Text := Memo1.Text + FileList.Text;
   end;

   openDialog.Free;
   FileList.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Memo1.Clear;
end;

end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32, Permite abrir varios archivos .txt dentro de un TMemo uno a continuación del otro, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.
Responder Con Cita
  #4  
Antiguo 16-05-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola de nuevo.

Esta variante del código del mensaje #2, te permite hacer una o múltiples selecciónes de los archivos de texto que desees concatenar en el memo, en una sola operación:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with OpenDialog1 do
  begin
    Filter:= 'Archivos de texto|*.TXT';
    // permitir selección múltiple
    Options:= Options + [ofAllowMultiSelect];
  end;
  with Memo1 do
  begin
    // Limpiar
    Lines.Clear;
    // Scroll vertical
    ScrollBars := ssVertical;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: TStrings;
  i : Integer;
begin
  if OpenDialog1.Execute then
  begin
    ts := TStringList.Create;
    try
      // agregar archivos de texto
      for i := 0 to OpenDialog1.Files.Count - 1 do
      begin
        ts.Clear;
        ts.LoadFromFile(OpenDialog1.Files[i]);
        Memo1.Lines.AddStrings(ts);
      end;
      // ir al final
      Memo1.SelStart  := Length(Memo1.Text);
      Memo1.SelLength := 0;
      Memo1.SetFocus;
    finally
      ts.Free;
    end;
  end;
end;
Dentro del cuadro de diálogo, la selección múltiple se realiza igual que en windows por ej.: Ctrl+Left Click ~ Shift+KeyDown/KeyUp/PageDown/PageUp ~ etc.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #5  
Antiguo 17-05-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
albelg,

Cita:
Empezado por albelg
...como abrir varios archivos.txt en un mismo 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;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.ScrollBars := ssBoth;
   Memo1.WordWrap := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;
   FileList : TStringList;
   i : Integer;

begin

   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist, ofAllowMultiSelect];
   openDialog.Filter := 'Text Files | *.txt';

   if openDialog.Execute then
   begin
      for i := 0 to OpenDialog.Files.Count - 1 do
      begin
         FileList := TStringList.Create;
         FileList.LoadFromFile(openDialog.Files[i]);
         Memo1.Text := Memo1.Text + FileList.Text;
         FileList.Free;
      end;
   end;

   openDialog.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Memo1.Clear;
end;

end.
El código anterior (Versión 2 del Msg #3) en Delphi 7 sobre Windows 7 Professional x32, Permite abrir varios archivos .txt dentro de un TMemo uno a continuación del otro, como se muestra en la siguientes imágenes:





Espero sea útil

Nelson.
Responder Con Cita
  #6  
Antiguo 18-05-2015
albelg albelg is offline
Miembro
NULL
 
Registrado: may 2015
Posts: 21
Poder: 0
albelg Va por buen camino
gracias a todos me sirvio de mucho. pronto los molestare para algo mas
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como evito abrir 2 veces el mismo form? daragor Lazarus, FreePascal, Kylix, etc. 13 14-08-2016 10:37:07
Archivos .D . D01 . DIR .I .T ¿como los puedo abrir? Delphitest Tablas planas 4 28-01-2008 23:27:55
Abrir varios archivos asociados a la aplicacion JMGR Varios 2 11-02-2007 01:12:39
como puedo abrir (desde un programa de delpi) archivos hlp, doc, txt, csv, htm, etcet galexanderch Varios 5 31-07-2004 20:47:28
¿Como dividir un archivo en varios archivos? Raisen Varios 3 24-07-2004 04:16:28


La franja horaria es GMT +2. Ahora son las 11:12:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi