Überschreiben von Feldern in OOP

[mojo777]

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ß!