Ver Mensaje Individual
  #2  
Antiguo 13-07-2018
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Creo que el problema está en que el create de la clase base:
Código Delphi [-]
  constructor Create(const FileName: string);
Está definido de esta forma. Ni virtual, ni abstract,...


Si añades un método como este a tu clase:
Código Delphi [-]
  TMyIniFile = class(TIniFile)
  private
  public
    constructor Create(const FileName: string); overload;
    procedure WriteString(const Section, Ident, Value: String); override;
  end;


Comprobará que realmente el objeto es de la clase correcta, porque al ejecutar este código:


Código Delphi [-]
   with config do
    WriteString('prueba', 'prueba', '123');


Realmente ejecuta el método:


Código Delphi [-]
  procedure TMyIniFile.WriteString(const Section, Ident, Value: String);
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita