This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Anotadores en Delphi [Open Source]

  • 1 Replies
  • 2544 Views

0 Members and 1 Guest are viewing this topic.

Offline Matabarras

  • *
  • Underc0der
  • Posts: 124
  • Actividad:
    0%
  • Reputación 0
  • In-Seguridad informática
    • View Profile

Anotadores en Delphi [Open Source]

  • on: October 12, 2014, 07:42:54 pm
Aqui el de metal_kingdom , solo es abrirlo y se guarda solo.
Code: (delphi) You are not allowed to view links. Register or Login
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.
Code: (delphi) You are not allowed to view links. Register or Login
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
« Last Edit: October 12, 2014, 08:48:31 pm by Expermicid »
No esperes nada, vive la vida, y que los demas hagan lo que ellos creen.

Online ANTRAX

  • *
  • Administrator
  • Posts: 5849
  • Actividad:
    66.67%
  • Country: ar
  • Reputación 43
  • ANTRAX
  • Twitter: @Underc0de
    • View Profile
    • Underc0de
    • Email

Re:Anotadores en Delphi [Open Source]

  • on: October 12, 2014, 09:23:00 pm
Matabarras!! un gusto verte nuevamente por casa!!
Muchisimas gracias por el aporte bro!!

Saludos!
ANTRAX