append to ini log file

type
  TLogList = class
  const
    Threshold = 200; // ms - opdateringsinterval. Gider ikke skrive hver gang der tilføjes
  private
    fList: TStringList; // Skal kun bruge få af TStringLists funktioner
    fTickCount: cardinal;
    fFilename: string;
    procedure Flush;
  public
    constructor Create(aFilename: string);
    destructor Destroy; override;
    procedure Add(aString: string); overload;
    procedure Add(aString: string; aArgs: array of const); overload;
  end;

constructor TLogList.Create(aFilename: string);
begin
  inherited Create;
  fList := TStringList;
  fTickCount := GetTickCount + Threshold;
end;

destructor TLogList.Destroy;
begin
  try
    Flush;
    fList.Free;
  finally
    inherited;
  end;
end;

procedure Add(aString: string);
begin
  fList.Add(aString);
  if fTickCount < GetTickCount then
  begin
    Flush;
    fTickCount := GetTickCount + Threshold;
  end;
end;

procedure Add(aString: string; aArgs: array of const);
begin
  Add(format(aString,aArgs); // eks. Add('Opdateret %s',[TimeToStr(now)]);
end;

procedure TLogList.Flush;
var
  i: integer;
  fp: Text;
begin
  if fList.Count > 0 then
  begin
    assignfile(fp,fFilename);
    appendfile(fp);
    try
      for i := 0 to fList.Count - 1 do
        writeln(fp,fList[i]);
      fList.Clear;
    finally
      closefile(fp);
    end;
  end;
end;

procedure TLogList.Flush;
var
  i: integer;
  fp: Text;
begin
  if fList.Count > 0 then
  begin
    try
      assignfile(fp,fFilename);
      appendfile(fp);
      try
        for i := 0 to fList.Count - 1 do
          writeln(fp,fList[i]);
        fList.Clear;
      finally
        closefile(fp);
      end;
    except
    end;
  end;
end;