Problemas con TLog

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

[Casimiro Notevi]

Bienvenido a clubdelphi

Cuando pongas código fuente, recuerda usar los tags, ejemplo:



Gracias

[ecfisa]

Hola cristianvera17.

Te pongo una posible implementación, espero te sirva de guía:

Código Delphi [-]
unit uLog;

interface

uses SysUtils,Classes,Forms;

type
  TLog = class(TObject)
  private
    FPath    : string;
    FFileName: string;
    FStream  : TFileStream;
    function DateExists(const aFileName: string): boolean;
  public
    constructor Create; reintroduce; overload;
    procedure SaveLog(const LogStr: string);
    destructor Destroy; override;
  end;

implementation

function TLog.DateExists(const aFileName: string): boolean;
var
  SR: TSearchRec;
begin
  Result := FindFirst(FPath+Copy(aFileName,1,10)+'*.txt', faArchive, SR) = 0;
end;

constructor TLog.Create;
begin
  FPath     := ExtractFilePath(Application.ExeName);
  FFileName := FormatDateTime('dd-mm-yyyy_hh-mm-ss',Now)+'_log.txt';
  if not DateExists(FFileName) then
    FStream := TFileStream.Create(FPath+FFileName, fmCreate)
  else
    raise Exception.Create('Ya existe un archivo Log con esta fecha');
end;

procedure TLog.SaveLog(const LogStr: string);
begin
  with FStream do
  begin
    Seek(0, soFrombeginning);
    Write(LogStr[1],Length(LogStr));
  end;
end;

destructor TLog.Destroy;
begin
   if Assigned(FStream) then
    FStream.Free;
  inherited Destroy;
end;
end.

Ejemplo de llamada:

Código Delphi [-]
implementation

uses uLog;

...
begin
  with TLog.Create do
  try
    SaveLog('Hasta ahora no ha sucedido nada...');
  finally
    Free;
  end;
end;

Saludos