Leere Klasse von einer anderen abgeleitet

[Bigeddie]

hallo nochmal,

habe jetzt den Constructor in TWaregroup eingefügt

Code:

TWareGroup.create(TheStructure:TBWTable;Path:String);
begin
inherited create(TheStructure,Path)//ruft nach meinem Verständnis den Constructor in TBWData auf
end;

und in TBWData habe ich ebenfalls den Constructor direkt nach "Begin" um Inherited ergänzt und ich erhalte immernoch den selben FEHLER

Übrigens da ich unter Linux am Netz hänge und ich den Code von Hand eintrage bitte ich den Fehler bei meiner letzten Nachricht zu entschuldigen.

Grüße

Bigeddie

[tigerman33]

Nachdem Flocke und ich uns jetzt darauf geeinigt haben, beide halb Unrecht zu haben :-D :zwinker:

Daran die Zuweisung beim Constructor-Aufruf noch nachzutragen hast du gedacht, oder?

Zitat:

Delphi-Quellcode:

myWaregroup : TWaregroup;
....
mywaregroup.create(structur,Pathstring);

anstelle von

Delphi-Quellcode:

myWaregroup : TWaregroup;
....
mywaregroup := TWaregroup.create(structur,Pathstring);

(@Flocke: Da hast du übrigens vollkommen, zu 100% Recht! :???: :thumb: )

Und dass du den Konstruktor von TBWData nach deinen Angaben so aufrufen kannst wundert mich ehrlich gesagt etwas.

[Bigeddie]

habe jetzt die halbe nach damit verbracht die Variablen in TBWData beim Constructoraufruf von TWaregroup zu überprüfen.
Wwenn ich direkt mit einer Instanz von TBWData arbeite, so ist der Wert von FDatastructure von der Zuweisung des Pointers NIL und enthält nach der Zuweisung den Pointer des übergebenen Objekts.
Mache ich das mit einer Instanz von TWaregroup, so ist der Wert von FDataStructure vor der Zuweisung
Anzeige in der Watchlist

Code:

FDatastructur = Nicht verfügbarer Wert

kann es vielleicht damit zusammenhängen?

[tigerman33]

Vielleicht solltest nochmal den aktuellen Quelltext posten.

[Bigeddie]

hier nochmal der Deklarationsteil der Klasse TBWData:

Code:

TBWData = Class(TObject)
   Private
    FDataStructure: TBWTable;
    DatStrings: Tlist;
    Procedure SetDataStructure(Const Value: TBWTable);
  Published
    Property DataStructure: TBWTable Read FDataStructure Write SetDataStructure;
//    Constructor create(TheStructure: TBWTable; Path: String); Overload;
    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;
  End;

der Deklarationsteil der Klasse TWaregroup

Code:

twaregroup = class(TBWData)
  public
    constructor create(TheStructure: TBWTable; Path: String);
  end;

und die constructoren:

Code:

Constructor TBWData.create(TheStructure: TBWTable; Path: String);
Var
  Buffer: TStringList;
  i: integer;
  DatLine: TDatLine;
Begin
  inherited Create;
  DataStructure := TheStructure;
  DatStrings := Tlist.Create;
  Buffer := TStringlist.Create;
  buffer.LoadFromFile(path + self.FDataStructure.DatFile);
  If self.FDataStructure.LineIdentifier <> chr(254) Then
    Begin
      For i := 0 To buffer.Count - 1 Do
        Begin
          If buffer[i][1] = self.FDataStructure.LineIdentifier Then
            Begin
              DatLine := TDatline.create(buffer[i], i);
              DatStrings.Add(DatLine);
            End;
        End;
    End
  Else
    Begin
      For i := 0 To buffer.Count - 1 Do
        Begin
          DatLine := TDatline.create(buffer[i], i);
          DatStrings.Add(DatLine);
        End;
    End;
End;

constructor twaregroup.create(TheStructure: TBWTable; Path: String);
begin
inherited create(TheStructure,Path);
end;

und der Fehler ist immernoch der gleiche

[SirThornberry]

und wie erstellst du die instanz der klasse?

[Bigeddie]

Code:

var
  myWaregroup : TWareGroup;

und der Aufruf des Constructors

Code:

myWaregroup := TWaregroup.create(TheStructure,Pfad);

[Flocke]

Ich weiß nicht, was du in SetDataStructure machst, aber sollte es im Konstruktor nicht so lauten:

Code:

[u][b]F[/b][/u]DataStructure := TheStructure;

[Bigeddie]

habe ich auch schon probiert, hilfts auch nichts, spart nur einen Aufruf

[Flocke]

Und der Fehler tritt immer noch in eben dieser Zeile auf?
Breakpoint drauf gesetzt? Inhalt von SELF? Inhalt von FDataStructure? Inhalt von TheStructure?