Werte von Variablen der Hauptklasse innerhalb einer abgeleiteten Klasse verwenden

[compix]

Hallo erstmal :), ich hätte mal ne Frage bezüglich OOP.
Ich habe nun ziehmlich lange nach einer Antwort gesucht, leider ohne Erfolg.
Hoffentlich könnt ihr mir ja helfen =/.

Ich habe eine protected Variable x:integer in einer THauptklasse=class(TObject),
diese Variable erhält den Wert 500. Ich greife mit einer abgeleiteten Klasse TKindKlasse=class(THauptklasse)
auf diese Variable zu, überprüfe ihren Inhalt mit showmessage(inttostr(x)), der Wert ist 0.
Wieso ? Wie kann ich auf diese Variable mit ihrem eigentlichen Inhalt zugreifen?
Ich möchte dafür nicht von Set/Get gebrauch machen, sollte eigentlich nicht nötig sein,
außerdem möchte ich diese Variable selbstverständlich auch nicht Global machen, nur die Hauptklasse selbst
sowie die abgeleiteten Klassen sollen auf den INHALT zugreifen können.

MfG,
compix;

[s.h.a.r.k]

Eigentlich funktioniert das schon. Liegt wohl eher an einem Fehler im Code. Zeig mal die relevanten Stellen her!

PS: Herzlich Willkommen in der DP :dp:

[himitsu]

Zitat:

Zitat von s.h.a.r.k (Beitrag 1110196)

PS: Herzlich Willkommen in der DP :dp:

Also die Deklarationen der Klassen und auch die Stellen wo das Objekt erstellt wird, sowie den Aufruf, wo dann die Ausgabe des Wertes erfolgt.

und :hi:

[DeddyH]

Sind das verschiedene Instanzen, also einmal TElternklasse und einmal TKindklasse? Wird die 500 initial gesetzt? Ich denke auch, Du solltest mal etwas Code zeigen.

Achja: Willkommen in der DP :dp:

[Bummi]

Probier mal das, das zeigt schön was passiert, heißt nicht umsonst private

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TK1=Class
    private
    FX:Integer;
    public
    Constructor Create;
    Property x:Integer Read FX;
  End;
  TK2=Class(Tk1)
    private
    FX:Integer;
    public
    Constructor Create;

  End;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TK1 }

constructor TK1.Create;
begin
   FX := 1;
end;

{ TK2 }

constructor TK2.Create;
begin
  inherited;
  Showmessage(IntToStr(FX));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TK2.Create do
    begin
      FX := 10;
      Showmessage(IntToStr(fx) + '-'+ IntToStr(x))
    end;

end;

end.

[DeddyH]

private <> protected, außerdem wird Deine Instanz nirgends freigegeben.

[Bummi]

stimmt beides :oops:

[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:

Zitat von DeddyH (Beitrag 1110312)

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.