1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit TrigoTail2;

interface

uses classes,sysutils,windows,forms,StrUtils,StdCtrls;

type
  TTrigoTail2 = class(TThread)
  private
      .
      .
      .
  procedure ChangeNotificator();
  public
    m_bCancel  : boolean;
    constructor create(fileDir,fileName : string; lines : TMemo;
                       maxLines : integer = 1000);

end;

implementation

uses TailForm;

constructor TTrigoTail2.create(filedir, fileName : string;
                               lines : TMemo; maxLines: integer);
begin
    m_lines := lines;
    m_maxLines := maxLines;
    m_fileDir :=  fileDir;
    m_fileName :=  fileName;
    m_cnt := true;
    m_HelpStr := '';
    m_bCancel:=True;
    inherited create(false);
    ChangeNotificator();  //Prog aufrufen
end;