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.