Klassen-Funktionen erweitern und Weitervererben

[Sereby]

Hallo,

also ich habe eine eigene neue Unit mit ein paar erweiterungen für z.B. die TStrings Klasse

Delphi-Quellcode:

TStrings = class(Classes.TStrings)
public
  function IndexOf2(AKey: String): Integer;
  function GetLineByPos(const MyPosition: Integer): Integer;
  procedure GetSimilarLines(const ALikeKey: String; var AddToList: TStringList);
  function DelLine(const AKey: String): Boolean;
  function LineExist(const AKey: String): Boolean;
end;

So das funktioneirt auch so weit.
Vorher hatte ich das übrigens folgendermaßen geregelt (Delphi 2007)
TStringsHelper = class helper for TStrings Aber da ich gehört hab dass das vllt in der nächsten Delphi Version nicht mehr vorhanden ist und da ich das gerne Delphi 5(,6 oder 7) Kompatiblel hätte, wollte ich es gleich richtig machen

Naja ich möchte jedenfalls, dass die selben funktionen auch bei TStringList, welche ja von TStrings abgeleitet ist, vorhanden sind. Allerdings ohne diese neu zu definieren wie oben also sodass ich den code nicht doppelt schreiben muss.

wenn ich z.B.
TStringList = class of TStrings; unterhalb der oben dargestellten klasse schreibe dann wirft er mir folgendes an den Kopf:

Zitat:

[Pascal Fehler] ClassHelpers.pas(157): E2037 Deklaration von 'GetSimilarLines' unterscheidet sich von vorheriger Deklaration

Ich hoffe ihr könnt mir da weiterhelfen