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
public
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..