Hallo,
ich habe gerade eine Problem mit dem alten Objectmodell von Pascal.
(Ich denke amn sollte dieses nicht verwenden, aber ich denke, das es unmöglich ist eine Klassse von einem Object erben zu lassen -> Wenn das doch geht,... ich bin dankbar für jeden Tip
)
Das Basisobject sieht im Prinzip so aus:
Code:
type OBJ1 = Object
Nr : Integer;
aStr : String;
procedure Open;
...
end;
Ein zweites Object erbt von OBJ1
Code:
type OBJ2 = Object (OBJ1)
procedure Open;
...
end;
...
...
...
procedure OBJ2.Open;
begin
Nr := 5;
aStr := 'Teststr';
...
end;
Bei der Zuweisung von aStr in OBJ2.Open bekomme ich immer eine Fehlermeldung, des es keinen Zugriff darauf gibt. Wenn ich allerdings aStr in OBJ1 als String[100] deklariere, dann funktioniert das.
Ich will ja nicht ausschliessen, das ich da was falsch verstanden habe, aber eigendlich erbt OBJ2 doch alle Datenfelder und Methoden von OBJ1. Das Datenfeld (Variable) Nr kann ich ja auch mit werten belegen. Delphi kümmert sich doch selbständig um die besorgung von Speicher beim einsatz von Strings. Wie gesagt, ich bin für jeden Tip dankbar.