[cristianvera17]

buenas gente..debo realizar un ejercicio para la facultad y la verdad que estoy medio perdido..no entiendo que realizar en la codificacion..desde ya les agradezco a los que me puedan ayudar..ahora subo la consigna y lo q hice hasta ahora..

____________________________________________________________________________________________________ _____________

Ejercicio:
Codificar la clase Tlog. La clase tiene que permitir enviar a archivo una cadena de caracteres anteponiendo la fecha y horario del suceso. Por motivos de eficiencia utilice la clase para manejo de archivos binarios TFileStream. Genere tambien un metodo que genere los archivos de manera diaria. Es decir,genere un archivo de log por dia.
Nota:La clase TLog puede implementar metodos de clase si lo considera correcto.

Este es el codigo que tengo hasta ahora...

Código Delphi [-]
unit uMain;

interface

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

type
  TFrmMain = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edLoguearArchivoUnico: TEdit;
    edLoguearArchivoMensual: TEdit;
    btnLogMensual: TButton;
    btnLogUnico: TButton;
    procedure btnLogUnicoClick(Sender: TObject);
    procedure btnLogMensualClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    log:TLog;
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.dfm}

procedure TFrmMain.btnLogMensualClick(Sender: TObject);
begin
//
  log.NewDailyLog(edLoguearArchivoUnico.Text);

end;

procedure TFrmMain.btnLogUnicoClick(Sender: TObject);
begin
  //
  log.NewLog(edLoguearArchivoUnico.Text);

end;

procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  log.Free;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  log := TLog.Create;
end;

end.

____________________________________________________________________________________________________ ___________

esto es todo lo que tengo..muchisimas gracias a los que intenten ayudarme porque realmente me esta costando resolverlo..