very often we have Logs to keep track of processes and/or errors, some times we have the logs displaying on screen using TMemo or TRichEdit and you often have to watch for logfiles too large as they might consume your memory...

I created a procedure just to make life easier when loggin the common stuff, instead of using code like:

MyLogMemo.Lines.Add('an event just happened!');
or
MyRichEdit.Lines.Append('Windows is crashing...')
etc...

I have this procedure, which I have on my "goodies.pas" unit (togheter with my setstatusbar procedure)

Procedure Log(S:String; LogTo:TStrings; Const MaxLogSize:Integer; Const AddTime:Boolean=True; Const OnlyTime:Boolean=True);
Var X:Integer;
Begin
  If (AddTime) Then
    If (OnlyTime) Then
      S:=FormatDateTime('hh:mm - ', Now)+S
    Else
      S:=FormatDateTime('mm/dd hh:mm - ', Now)+S;
  LogTo.Append(S);
  If (LogTo.Count>MaxLogSize) Then
    For X:=0 To (LogTo.Count-(MaxLogSize Div 10)) Do
      LogTo.Delete(0)
End;

...there's 2 constants by default to TRUE
- addtime (go figure its use!)
- onlytime (take out the date)

so, when I need it, I just include my "goodies.pas"

uses goodies;

and call it like:

Log('AnyEvent', Memo.Lines, 1000)
or
Log('whatever', MyLogFile, 1000)

hope this is useful

by the way, the source code of the article was formatted using my PAS 2 HTML converter

keep up coding

salu2
EberSys