LogonHistory.Add

[Andrey Maximenko. Ukraine]

unit OracleLogon;

  THistoryItems = class(TCollection)
  public
    ....
    function  LoadIni(Filename: string): Boolean;
    ....
  end;

var
  LogonHistory: THistoryItems;

    ....
implementation

    ....
function THistoryItems.LoadIni(Filename: string): Boolean;
begin
   ....
   if (Size = 0) or (i < Size) then LogonHistory.Add(S, '', '', '', False, False);
   ....
end;

LogonHistory - global variable

 

[Marco Kalter]

That can't be right. We'll fix it.