Hallo Leute,
habe momentan ein Problem mit der Vererbung.
Das Ziel ist es, z.b. Produkte, Warengruppen, Kunden, etc... als Objekte darzustellen, welche in einer Datenbank gepsichert sind.
Habe hierfür ein Minimalbeispiel erstellt. Statt viel rumzuschreiben, hier Bild:
http://pilaf.ath.cx/pub/shared_pics/klassen_1.gif
So. Ich will die Methode getPointerByUid in TItemListe implementieren, damit ich den selben Quatsch nicht 1000 mal tippen muss.
Diese Mthode sähe in TItemliste so aus:
Delphi-Quellcode:
function TItemListe.getPointerByUid(uid:Integer):Pointer;
var i:INteger;
begin
for i:=1 to self.Count do
begin
if self.Liste[i-1].uid=uid then
begin
Result:=@self.Liste[i-1];
exit;
end;
end;
raise ERangeError.Create('Kein ItemListeneintrag gefunden! '+#13+'UID: '+IntToStr(uid));
end;
Dabei sieht die TProdListe.Add methode so aus:
Delphi-Quellcode:
procedure TProdListe.add(bez:String; preis:Double; (...));
var i:Integer
begin
i:=length(self.Liste);
setLength(self.Liste, i+1);
self.Liste[i]:=TProdukt.Create(bez, preis, (...));
end;
Nun das Problem:
Wenn die Procedure getPointerByUid in TItemListe läuft, greift diese auf die Liste, deklariert in TItemliste zu. Das ist bad! Diese ist natürlich leer.
Sicherlich hat sich der eine oder andere mit diesem Modellproblemen schon beschäftigt. Wie macht ihr das?
Wäre für Vorschläge aller Art sehr dankbar!
Gruß!