Zitat von
Morfio:
Hi,
ne, das wir mir auch klar. Die Frage, die ich mir stelle ist, wie man solche Konstrukte selber bauen kann in eigenen Klassen, da sie von der Bedienung her relativ praktisch sind.
Morfio ...
Hi,
das sehe jeweils so aus
Delphi-Quellcode:
type
TTest = class(TObject)
private
function GetVal: Integer;
procedure SetVal(Val: Integer)
public
property Val: Integer read GetVal write SetVal;
Nun, das ist in etwas selbe, wie mit Label.Font.Color. Damit kannst du ganz einfach den Lese/Schreibzugriff kontrollieren. Ist eigentlich ganz praktisch.
Das Zweite ginge in etwa so.
Delphi-Quellcode:
type
TAClass = class(TObject)
public
procedure EineMethode;
end;
type
TBClass = class(TObject)
private
FClass: TAClass;
FClass2: TAClass;
// Eins von den beiden wird je nach "Parameter" übergeben
// Du könntest in "Methode" auch eine neue Instanz erzeugen,
// aber das kann eventuell zu Speicherlöchern führen, wenn diese Objekte nicht mehr freigegeben werden...
public
function Methode(Parameter: Integer): TAClass;
end;
mfG
mirage228