No. See my singleton example: TLoggerGeral = class private {$IFDEF WINDOWS} class var FInstance : TLoggerGeral; {$ELSE} {$STATIC on} FInstance : TLoggerGeral; static; {$ENDIF}
constructor Create; protected pCritSection : TCriticalSection; pLogarDatas : boolean; pLogarTipos : boolean; pArquivoDestino : TextFile; saidaConsole : boolean; class function getData: String; class function tipoText(tipo: ETipoMensagem): String; class procedure executaOperacaoPrioridade(tipo: ETipoMensagem); public destructor Destroy; override; class function GetInstance: TLoggerGeral; class procedure recebeMensagem(const mensagem: String; tipo: ETipoMensagem = NORMAL); end; A normal singleton and it complain! Léo Willian Kölln On Mon, Apr 6, 2009 at 4:41 PM, Graeme Geldenhuys <graemeg.li...@gmail.com> wrote: >> Simply question. Why? > > > What did you do, try and lower the visibility of the constructor? If > so, that is also not allowed in Delphi as far as I know. > > Regards, > - Graeme - > > > _______________________________________________ > fpGUI - a cross-platform Free Pascal GUI toolkit > http://opensoft.homeip.net/fpgui/ > _______________________________________________ > fpc-devel maillist - fpc-de...@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-devel > _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel