Abstracter Fehler bei Parsefunktion

[Blup]

Eigentlich kommt als Ursache nur in Betracht, dass nicht die richtige Klasse erzeugt oder die falsche Methode zum Parsen benutzt wird.

Die Klassenstruktur scheint mir so nicht wirklich sinnvoll. Die Klasse sollte entscheiden wie der Text zu verarbeiten ist, nicht derjenige der die Klasse benutzt.

Delphi-Quellcode:

TMyBaseParser = class 
  private 
    Data: String; 
    DataPointer: Integer; 
    function OemToAnsi(const OemStr: string): string; 
    procedure SkipSpaces; 
    procedure SkipTrash; 
    function GetTextLength(UpToLineEnd: Boolean): Integer; 
    function ReadLine: String; 
  public 
    procedure Parse(Text: String); virtual; abstract; 
  end; 

  //Der Teil der Klasse wo es eigendlich passieren muss 

  TMyParserMB256 = class(TMyBaseParser) 
  private 
    EntriesMB256: array of TMyDataEntryMB256; 
  public 
    procedure Parse(Text: String); override; 
  end; 

  TMyParserMB100 = class(TMyBaseParser) 
  private 
    EntriesMB100: array of TMyDataEntryMB100; 
  public 
    procedure Parse(Text: String); override; 
  end; 

{usw.}

Damit entfällt die Notwendigkeit Klassen zu verwenden, die noch abstrakte Methoden besitzen.