Klassen ableiten

[r2d2] · Beiträge: 109 WinXP D5 Enterprise

Hallo
Ich habe mir folgende Klasse erstellt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

TObj = class
 cfg:Integer;
 ...
 procedure laba(fgz:real);
 procedure doblablabla(xyz:Integer);
 ...
end;

Jetzt will eine weitere klasse, nämlich TSObj, die alle Proceduren, Funktionen und Variablen von TObj hat und mit der ich auch die gleichen Operationen ausführen kann wie mit TObj, Ich müsste also auch in Prozeduren, in denen ich eine Variable vom Typ TObj übergebe eine Variable vom Typ TSObj übergeben können.

Sowas geht doch mit Vererbung, oder? Ich hab davon blos gar keine Ahnung :cry:

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

TObj = class
 cfg:Integer;
 ...
 procedure laba(fgz:real);
 procedure doblablabla(xyz:Integer);
 ...
end;

TSObj = class(TObj)
  .
  .
  .
end;

[r2d2] · Beiträge: 109 WinXP D5 Enterprise

lol, is ja einfach :lol:

danke

[r2d2] · Beiträge: 109 WinXP D5 Enterprise

Ich hätte noch eine Frage, sie hat aber nicht direkt mit dem topic zu tun. Wie kriegt man sowas denn zum laufen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

TAtype = record
 B: TBtype;
end;

TBtype = record
 A: TBtype;
end;

barfuesser · Beiträge: 324

Ich nehme mal an, Du meinst im 2. Record: A: TAtype.

In diesem Fall, solltest Du mit Klassen statt der Records arbeiten. Dazu brauchst Du nur record durch class ersetzen und für TBtype eine forward-Deklararion zu schreiben.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

TBtype = class;

TAtype = class 
 B: TBtype; 
end; 

TBtype = class 
 A: TAtype; 
end;

barfuesser

Motzi · Verfasst: Do 04.12.03 12:38

Anscheinend hast du noch generelle Probleme mit OOP... schau dir vielleicht meine Ausarbeitung darüber an: www.x-spy.net/personal

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme