Werte von Variablen der Hauptklasse innerhalb einer abgeleiteten Klasse verwenden

[Bummi]

stimmt beides

[compix]

So, tut mir leid, dass ich mich erst jetzt wieder melde, ihr habt natürlich recht, ich hätte das ganze noch genauer gestalten müssen, also:
unit 1:

procedure TForm1.Button1Click(Sender: TObject);
Var HauptKlasse:THauptKlasse;
begin
HauptKlasse:=THauptKlasse.Create;
HauptKlasse.xInKindKlasse;
end;

unit 2:
interface
type THauptKlasse=class(TObject)
protected
x:integer;
public
procedure xInKindKlasse;
end;

implementation
uses unit3;



procedure THauptKlasse.xInKindKlasse;
var KindKlasse:TKindklasse;
begin
x:=10; //<---x wird hier auf 10 gesetzt
KindKlasse:=TKindKlasse.create;
KindKlasse.xInhalt;
end;

end.

unit 3:
interface
uses unit2,dialogs,sysutils;
type TKindKlasse=class(THauptKlasse)
public
procedure xInhalt;
end;
implementation

procedure TKindKlasse.xInhalt;
begin
Showmessage(inttostr(x)); // der Inhalt ist 0, also x=0... Wieso?
end;

end.

[DeddyH]

Benutze doch bitte Delphi-Tags. Und zum Problem: das x, das Du in der Hauptklasse auf 10 setzt, ist ja deren eigenes x. Nun erzeugst Du erst eine Instanz der Kindklasse, welche wiederum ihr eigenes x besitzt und fragst dieses später ab (also ist der Stand dann: Hauptklasse.x = 10, Kindklasse.x = 0). Übrigens gibst Du die Instanzen nicht frei, erzeugst somit Speicherlecks.

[compix]

Zitat von DeddyH:

Benutze doch bitte Delphi-Tags. Und zum Problem: das x, das Du in der Hauptklasse auf 10 setzt, ist ja deren eigenes x. Nun erzeugst Du erst eine Instanz der Kindklasse, welche wiederum ihr eigenes x besitzt und fragst dieses später ab (also ist der Stand dann: Hauptklasse.x = 10, Kindklasse.x = 0). Übrigens gibst Du die Instanzen nicht frei, erzeugst somit Speicherlecks.

Vielen Dank für deine Hilfe erstmal, dies habe ich auch vermutet, nur wie löse ich nun das Problem, wenn ich 100weitere abgeleitete Klassen habe, sollen alle Klassen auf das x zugreifen, die Hauptklasse ebenso, sobald es irgendwo in einer abgeleiteten Klasse verändert wird soll es auch überall diesen Wert haben(damit die Hauptklasse mit eingeschlossen), es soll praktisch Global aber nur innerhalb der Haupt sowie deren Unterklassen sein.

[DeddyH]

Seit Delphi 2006 gibt es Klassenvariablen, das müsste das sein, was Du suchst.

[compix]

Zitat von DeddyH:

Seit Delphi 2006 gibt es Klassenvariablen, das müsste das sein, was Du suchst.

Vielen Dank für die schnelle Antwort, tatsächlich benötige ich eine class var x:integer in einem solchen Fall, aber wie kann es soetwas wichtiges erst ab der Delphiversion 2006 existieren ? Einfache Alternativen gibt es da nicht ?

[DeddyH]

Du könntest mit einer globalen Variablen hantieren. Das ist zwar nicht sonderlich fein, aber eine andere Möglichkeit will mir nicht einfallen.