Leere Klasse von einer anderen abgeleitet

[Bigeddie]

Code:

TBWData = Class(TObject)
  Private
    FDataStructure: TBWTable;
    DatStrings: Tlist;    
    FFilter: String;
    Procedure SetDataStructure(Const Value: TBWTable);
    Procedure SetFilter(Const Value: String);
  Published
    Property DataStructure: TBWTable Read FDataStructure Write SetDataStructure;
    Property Filter: String Read FFilter Write SetFilter;
    Function GetLine(Number: word): String;
    Function Count: Integer;
    Function GetFieldContent(FieldName: String; LineNumber: Word): String;
    Function GetFieldContentwhereFieldIncl(InclField: String; InclContent:
      String; FieldName: String): TStringlist; Overload;
    Function GetColumn(FieldName: String): TStringList;
    Function GetLinesWhereFieldContains(FieldName: String; ContString: String):
      Tlist;
  Public
    Function GetFieldContentwhereFieldIncl(InclField: Word; InclContent: String;
      Fieldnr: word): TStringlist; Overload;
    Constructor create(TheStructure: TBWTable; FieldList: TList); Overload;
    Constructor create(TheStructure: TBWTable; Path: String); Overload;

ist die Deklaration.

TBWTable wird aus einem anderen Objekt bezogen und kann im Parameter TheStructure innerhalb des Constructors eingesehen werden.