Zitat:
Bei dir bin ich aber der festen Überzeugung, dass sich das auch über ein geeignetes Klassendesign schöner lösen lässt.
Definitv, bin grade dran, das Ganze ein wenig umzustricken. Das Projekt ist meine erste Baustelle in
OOP, bisher hab ich in C nC Programmiert. Muss eben meine Denke erstmal auf
OOP und Delphi umstellen.
Eine Frage hab ich dazu noch:
Ich habe also
Delphi-Quellcode:
uses UnitAuto;
type
Parkhaus = class
FAuto : TList;
function GetAuto(Index : Integer) : TAuto;
...
property Auto[index : integer] : TAuto read GetAuto;
end;
//In der UnitMain
uses UnitParkhaus;
...
{1}
function meinAuto : TAuto;
begin
result := Parkhaus.Auto[0];
end;
{2}
function AnzahlReifen : Integer;
begin
result := Parkhaus.Auto[0].NReifen;
end;
Demnach geht {1} natürlich nicht, da UnitMain TAuto nicht kennt, wie vorhin schon klargestellt. Aber geht {2}?
Oder braucht es dazu eine
'function TParkhaus.GetNReifen(Index) : integer'?