Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Werte von Variablen der Hauptklasse innerhalb einer abgeleiteten Klasse verwenden
6. Jul 2011, 14:02
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.
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|
|
Zitat
|