Einzelnen Beitrag anzeigen

paritycheck

Registriert seit: 8. Feb 2005
51 Beiträge
 
Delphi 2009 Professional
 
#6

Re: Klasse mit mehreren "ebenen"?

  Alt 20. Jul 2006, 22:53
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.
  Mit Zitat antworten Zitat