sowas wie eine abstrakte Klasse gesucht...

[Marco Steinebach]

Hallo zusammen,
nehmen wir an, ich habe Kunden

Delphi-Quellcode:

  TKunde = record
    name: string;
   vorname: string;
    ...
  end;
  TKunden = array of TKunde;

und Artikel

Delphi-Quellcode:

  TArtikel = record
    nummer: word;
    Suchbegriff: string;
    ...
  end;
  TArtikelliste = array of TArtikel;

Nun hab ich noch eine Prozedur sagen wir zum speichern der Kunden

Delphi-Quellcode:

procedure KundenSpeichern;
var
  f: file of TKunde
  i: integer;
begin
  // Datei öffnen, schließen, usw... lasse ich jetzt mal weg
  for i := 0 to high (kundenliste) do
    write (f, kunden[i]);
end;

Bei den Artikeln sieht die prozedur exakt gleich aus, außer das aus TKunde TArtikel wird, und entsprechend aus file of TKunde natürlich file of TArtikel.
Kann man eine Klasse deklarieren, in der noch nicht klar ist, oder es undefiniert bleibt, mit welchen Datentypen sie sich rumschlagen muß?
Ziel wäre, einen Vorfahr von Kunden und Artikel zu haben, der eine Liste hat, speichern und laden kann, usw. sonst hab ich ja allen Code, bis auf Kleinigkeiten, doppelt...
Mit gespannten Grüßen
Marco