Código: Seleccionar todo

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
F: textFile;
begin
ShowMessage ('Funcional y Apuntado' );
AssignFile ( F, ExtractFileName( Application.ExeName ) + 'Funcional.txt');
Rewrite ( F );
WriteLn( F, 'Archivo Funcional !' );
CloseFile ( F );
Form1.Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;

end.

Código: Seleccionar todo

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    boton: TButton;
    procedure botonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  myFile : TextFile;
  text   : string;
  sFileName : string;
implementation

{$R *.dfm}

procedure TForm1.botonClick(Sender: TObject);
begin
sFileName:= ExtractFileName(Application.ExeName);



   AssignFile(myFile, 'Funcionales.txt');
   Append(myFile);

   WriteLn(myFile, sFileName);

   CloseFile(myFile);

   Reset(myFile);

   CloseFile(myFile);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    AssignFile(myFile, 'Funcionales.txt');
    ReWrite(myFile);
    CloseFile(myFile);
end;

end.