Не могу понять ка вызвать метод

[DrugWash]

Добрый вечер,

Господа гуру в Дельфи, помогите разобраться.
Есть прога, к ней нужно прикрутить логирование данных как в файл так и в MEMO. Нашел в принципе не плохой dunit который умеет это длеать. Там вроде все понятно, как писать в файл это просто, но есть наследник от базового класса, который умеет писать в TString но не могу понять инициализировать и вызвать так чтобы писалось сразу и в файл и добавлялось в мемо. Помогите кто чем может.

Исходник uLog.pas вложил.

[DrugWash]

Мыслей нет ни у кого?

[phomm]

Ваши пробы в тестовом или "боевом" проекте выложите, а то непонятно, что требуется и как Вы этого добивались. Если логирование в файл есть, и в TStrings, то сделать и туда и туда можно написанием собственной функции, что-то вроде (пишу от фонаря, без оглядки на тот юнит, просто говорящими именами пользуюсь)

procedure MyLog(Msg: String);
var 
  logfile: TLOGFILE_class;
  logstr: TLOGSTRINGS_class;
begin
  logfile := TLOGFILE_class.Create();
  logstr := TLOGSTRINGS_class.Create();
  logfile.Log(Msg);
  logstr.Log(Msg);
  logfile.Free();
  logstr.Free();
end;

[Stilet]

к ней нужно прикрутить логирование данных как в файл так и в MEMO.

Логируй сразу в Мемо. В конце программы при завершении выполни Memo.Lines.SaveToFie(Имя файла и путь).
Ну иди можешь это сохранение сразу после записи выполнять.

[DrugWash]

Спасибо всем за ответы.

phomm
1. procedure MyLog(Msg: String); - это самое простое что можно сделать. Вопрос немного в другом.


Stilet

Логируй сразу в Мемо.

2. Вот это и не получается на основании на основании юнита который я выложил в первом посте. Что-то где-то не догоняю с наследованием

[Stilet]

Тебе этот юнит зачем? Ты с его помошью хочешь с делать логирование? Так он тебе и не нужен. покажи код своей проги, где нужно логгировать.

[DrugWash]

Сообщение от Stilet

Тебе этот юнит зачем? Ты с его помошью хочешь с делать логирование? Так он тебе и не нужен. покажи код своей проги, где нужно логгировать.

Хочется чтобы было красиво и сайфною

Код простой:
1. Вызвали форму - Записали
2. Выполнили команду - записали
3. Вышли - записали.

[Stilet]

Ну так тебе совсем не нужен этот юнит.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    procedure Log(msg:string);
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Log('Зашли');
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 Log('Вышли');
end;

procedure TForm1.Log(msg: string);
begin
  with Memo1.Lines do begin
    Append(msg);
    SaveToFile(DateTimeToStr(now)+'  qqq');
  end;
end;

end.

И все.

[DrugWash]

Сообщение от Stilet

Ну так тебе совсем не нужен этот юнит.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    procedure Log(msg:string);
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Log('Зашли');
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 Log('Вышли');
end;

procedure TForm1.Log(msg: string);
begin
  with Memo1.Lines do begin
    Append(msg);
    SaveToFile(DateTimeToStr(now)+'  qqq');
  end;
end;

end.

И все.

Спасибо - это понятно, но все же по юниту кто что скажет?

[phomm]

Ну, кинь пробу проекта, и покажи в нём - вот тут я пытаюсь сделать то и то, так и так, ожидаю то и то, а получаю это и это.
Кому надо только по одному модулю гадать, как записать задачу, которая ещё и выражена недостаточно конкретно.
Пример я тебе привёл, я бы сам так делал, имея на руках некий готовый модуль, т.е. если в модуле чего нет, что мне нужно (а именно совмещение функционала 2 элементов из модуля), то я напишу простенькую обёртку. Если ты её написал (раз ты мне ответил соответствующе) и она тебя устраивает - то в чём проблема (её ты не озвучил в том ответе), не пойму.