Klasse mit mehreren "ebenen"?

[paritycheck]

Hi,

Wenn Du einfach nur die Daten speichern willst geht das doch Problemlos mit einem Record.

Delphi-Quellcode:

type
  TAbsender = record
    Name: string;
    PLZ: Cardinal;
  end;
  TEmpfaenger = record
    PLZ: Cardinal;
  end;
  TBestellung = record
    Absender: TAbsender;
    Empfänger: TEmpfaenger;
  end;

....

procedure TForm1.Button1Click(Sender: TObject);
var Bestellung: TBestellung;
begin
  if CheckBestellDaten then begin  
     Bestellung.Absender.Name:= 'Name';
     Bestellung.Absender.PLZ:= 55555;
     Bestellung.Empfänger.PLZ:= 55555;
  else
     Showmessage('Bitte überprüfen Sie das Formular.'); //ka ob deine Daten von einem Formular stammen ;)
end;

Eine Klasse würde ich nur hernehmen um einen array von TBestellung zu verwalten/durchsuchen oder einzelne Datensätze abzuspeichern.