{-----------------------------------------------------------------------------
   Unit Name: K9Header
   Purpose  : To return ErrorHEadre for log files.
              Format:
   Author   : Vesa Lappalainen
   Date     : 19.1.2002
   Changed  :
   Todo     :
-----------------------------------------------------------------------------}

unit K9Header;

interface
uses KErrHeader;


function GetK9ErrHeader:string;

implementation

uses SysUtils,kdouble,kstring,dialogs,k9cio;

const tab=#9;

function GetK9ErrHeader:string;
var t:double; ts:string; p:integer;
begin
  t := ReadFCounter(clkFys);
//  t := t-trunc(t);
  ts := DoubleToIniStr(t,4);
  p := Pos('.',ts);
  if ( p > 2 ) then Delete(ts,1,p-2);
  Result := NowToStr + ' ' + ts + tab + DoubleToFStr(ReadVCounter(CntFysVirDef),6,1);
end;


initialization begin
  ChangeInternalHeader(GetK9ErrHeader);

end;

finalization begin
end;

end.