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.