Hola ecfisa
Disculpa la tardanza ya que estuve que salir, acabo de probar las dos forma que me pusiste pero no me trabajan no se que estoy haciendo mal, pero te agrego por acá lo que e estado probando, pero de esta forma me lee el archivo pero debo presionar el botón leer para que me lea el archivo, pero lo que busco es de como hacer que me lea el archivo constantemente sin presionar el botón leer, habrá
alguna forma de hacer que sea una ventanita que se quede permanente en la pantalla que se mantenga leyendo el archivo , aca te pongo lo que e echo...
Código Delphi
[-] unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
Datos: TextFile;
TS: TStrings;
Linea: String;
NumLinea: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(Datos,'C:\DBA\contar.txt');
Reset(Datos);
NumLinea := 0;
REPEAT
TS:= TStringList.Create;
Readln(Datos, Linea);
Inc(NumLinea);
UNTIL NumLinea = 1;
TS.Clear;
ExtractStrings(['|'], [], PChar(Linea), TS);
Edit1.Text:= TS.Text;
CloseFile(Datos);
end;
end.
mis conocimientos de programación no son muy amplio y este lo había echo también con un poco de ayuda,