Editando un archivo de texto

[sirsolrac]

Les agradesco mucho su interes por ayudarme y se que ya me han dado las suficientes ideas para poder desarrollar mi aplicacion. Pero por mas que he buscado no encuentro nada especifico que me permita resolver el problema a la hora de escribir el codigo.

Es mi primer programa en delphi y no le hayo como escribir las sentencias utilizando el Tstring con el loadfromfile tal como lo suegerio PepeLolo.

Por cierto tenguna una duda ahi, mi archivo de texto lo tengo que convertir a una lista???

Si me ayudan quizas ya no con ideas sino que con algo de codigo se los agradeceria mucho. Asi de un solo puede quedar un buen ejemplo documentado para compartirlo con cualquier otro entusiasta de delphi.
Muchas gracias.

[[Delphius]]

Empezado por sirsolrac

Les agradesco mucho su interes por ayudarme y se que ya me han dado las suficientes ideas para poder desarrollar mi aplicacion. Pero por mas que he buscado no encuentro nada especifico que me permita resolver el problema a la hora de escribir el codigo.

Es mi primer programa en delphi y no le hayo como escribir las sentencias utilizando el Tstring con el loadfromfile tal como lo suegerio PepeLolo.

Por cierto tenguna una duda ahi, mi archivo de texto lo tengo que convertir a una lista???

Si me ayudan quizas ya no con ideas sino que con algo de codigo se los agradeceria mucho. Asi de un solo puede quedar un buen ejemplo documentado para compartirlo con cualquier otro entusiasta de delphi.
Muchas gracias.

Sería oportuno que nos detalles en forma más presisa que es lo que estás haciendo. En lo posible que nos aportes tu código y en base a ello podemos serte de mayor ayuda.

Para que el código se vea bien copialo y haz clic en un botón que diga "resaltar sintaxis delphi" (el botón que esta al lado que dice SQL).

Si te estás iniciando en delphi te recomiendo leer la Cara Oculta de Delphi 4. En la sección FTP del club lo vas a encontrar.

Saludos,

[sirsolrac]

Necesito generar un archivo te texto y escribir siempre en el principio de dicho archivo sin borrar ninguna informacion escrita anteiormente. El codigo para la parte del texto es el siguiente:

Código Delphi [-]
   CardNum: TEdit;
   Block0data: TEdit;
   myFile : TextFile;
   text   : string;

//Aqui escribe en el archivo de texto que previamente ha sido creado
AssignFile(myFile, 'archivotedexto.txt');
Append(myFile);
WriteLn(myFile,'');
Write(myFile,'# Tarjeta numero: '+CardNum.Text+'');  // escirbo una linea dentro del archivo de texto con una variable string
WriteLn(myFile,'  ');
Write(myFile,Block0data.Text+'  ' + 'Dato del bloque = "' + ,'  ' );
WriteLn(myFile,'  ');
CloseFile(myFile);

y esa secuencia se va a ejecutar ciclicamente de manera indefinada para cada lectura que realice mi programa. Les agradeceria si me ayudan con el codigo. De antemano muchas gracias por tomar su tiempo.

[[Delphius]]

El ejemplo que te paso aquí ilustra el uso de un TStringList. Lo primero que se hace es crear el objeto y abrir el archivo.
Con el button1 se van ingresando las lineas. Siempre se van ingresando al final del archivo.
Con el boton2 das por finalizada la operación (simplemente guarda el archivo y lo muestra. se puede seguir ingresando sin problemas).

Y cuando se cierra la aplicación se libera la memoria que ocupa el objeto.

El archivo que se consigue tiene esta forma:

# Tarjeta numero: nro2
Dato del bloque = "dato2
# Tarjeta numero: nro1
Dato del bloque = "dato1

Como notarás, primero se ingresaron las lineas nro1 y dato1 y seguidamente nro2 y dato2.

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ListBox1: TListBox;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Archivo: TStringList;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   // Creamos el TStringList
   Archivo := TStringList.Create;

   // Abrimos el archivo...
   Archivo.LoadFromFile('C:\Documents and Settings\Marcelo\Escritorio\archivo.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
var LineaTarjeta, LineaBloque: string;
begin
   // construimos las lineas...
   LineaTarjeta := '# Tarjeta numero:  ' + Edit1.Text;
   LineaBloque := 'Dato del bloque = "' + Edit2.Text;

   // insertamos las lineas en el StringList
   // siempre van desde el comienzo del archivo
   Archivo.Insert(0,LineaTarjeta);
   Archivo.Insert(1,LineaBloque);

   // limpiamos los edits
   Edit1.Text := '';
   Edit2.Text := '';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // aqui guardamos el archivo
  Archivo.SaveToFile('C:\Documents and Settings\Marcelo\Escritorio\archivo.txt');
  ListBox1.Items.Assign(Archivo); 
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // aqui destruimos el objeto
  Archivo.Free;
end;

end.

¿Es esto más o menos lo que deseas conseguir?

Cuando yo decía que aportaras detalles me refería a que profundices sobre el tema, y que expusieras más código del que inicialmente mostraste.
Si haz estado practicando con el TStringList, sería oportuno que expusieras tus resultados.

Saludos,

[sirsolrac]

Te agradesco enormemente me hayas ayudado con tu tiempo y conocimiento en programacion.

Pues te comento un poco porque no puse mas del codigo. Como no soy muy bueno programando en delphi mi codigo utiliza un centenar de lineas (se que mas de algun par estan de mas innecesariamente).

No inclui tampoco nada de mis pruebas con TStringList porque solo consegui errores de compilacion que creo k no hubieran abonado nada productivo en la solucion del problema.

Cuando logre adaptar tu codigo en mi programa lo documentare aqui para que a mas de alguien le ayude a futuro. Ya que este es uno de los objetivos, compartir conocimientos con los demas para buscar la superacion de todos.
Muchas gracias a todos, este es un exelente foro.

[[Delphius]]

Empezado por sirsolrac

Te agradesco enormemente me hayas ayudado con tu tiempo y conocimiento en programacion.

Pues te comento un poco porque no puse mas del codigo. Como no soy muy bueno programando en delphi mi codigo utiliza un centenar de lineas (se que mas de algun par estan de mas innecesariamente).

No debes sentirte presionado por el hecho de que seas principiante. No importa que tuvieras muchas o pocas. Para que tu alcanzaras más experiencia y comprendieras fácilmente sería útil ver tu código. No es lo mismo leer código ajeno que el de casa, más si te estás iniciando.

Empezado por sirsolrac

No inclui tampoco nada de mis pruebas con TStringList porque solo consegui errores de compilacion que creo k no hubieran abonado nada productivo en la solucion del problema.

Todo lo contrario. Sería productivo, de esta manera nosotros podríamos saber donde está el error, que lo produce e indicarte las alternativas o maneras de como solucionarlo. De los errores se aprende, y en la programación no es la excepción.

Te recuerdo que no debes mezclar TStringList con los métodos WriteLn,ReadLn, Append, etc.

Empezado por sirsolrac

Cuando logre adaptar tu codigo en mi programa lo documentare aqui para que a mas de alguien le ayude a futuro. Ya que este es uno de los objetivos, compartir conocimientos con los demas para buscar la superacion de todos.
Muchas gracias a todos, este es un exelente foro.

Me alegro que optes por mostrarnos tus avances. Como dices, esto no sólo te beneficia a ti sino al resto de la comunidad.
Aquí estaremos esperando, tu ve tranquilo. Ante problemas tiene la ayuda de Delphi, y clubdelphi.

Saludos,

[muppett]

Yo tengo la misma duda del principio pero yo utilizo un memo y lo guardo es un archivo¿Me podrian ayudar porfa?