Aqui el de metal_kingdom , solo es abrirlo y se guarda solo.
program anotator;
var
S: textfile;
begin
AssignFile(S, 'func.txt');
{$I-} // No mostramos errores I/O para evitar msgboxes innecesarios.
append(S); // intentamos escribir en fichero existente.
{$I+} // Vemos errores para comprobarlos
if IOResult <> 0 then // [0 = Fue bien] Si el resultado no fue bueno al comprobar entonces ..
rewrite(S); // si no se pudo entonces creamos archivo.
WriteLn(S, paramstr(0)); // escribimos ruta completa del archivo en nueva línea.
closefile(S); // cerramos archivo.
end.
Aqui el que hice yo ya hace, lo hice para que se anotara al cliquear.
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.
El codigo de metal_kingdom es más corto, y mejor.
Simplemente este post es una excusa para saludarles y espero que les vaya todo bien, saludos! ;D
Matabarras!! un gusto verte nuevamente por casa!!
Muchisimas gracias por el aporte bro!!
Saludos!
ANTRAX