Unedlich viele Pointer

[Sharky]

Hai

Zitat von theomega:

... Da ich aber im voraus nicht weiß, wieviele Belege vorhanden sind, kann ich dass nicht wie oben lösen ....

Verknüpfe doch einfach den einzelnen Records.

Delphi-Quellcode:

type 
      PBeleg = ^TBeleg;

      TBeleg=record
        belegdatum: TDateTime;
        betrag: double;
        spendenbescheinigungsnr: string;
        ausgestelltam: TDateTime;
        sachlicherichtigkeit:string;
        rechnericherichtigkeit:string;
        einnahme:boolean;
        next_beleg : PBeleg      //Pointer auf den Nächsten Beleg

end;

Bei dem letzten Beleg setzt du next_beleg aufl NIL.
Wenn Du nun noch einen Beleg anhängen möchtest, musst Du die Kette so lange durchlaufen bis du zu dem Record mit next_beleg = NIL kommst. Dann next_beleg auf den Pointer des neuen Records setzen und nex_beleg des neuen auf NIL.


Ich hoffe ich habe es einigermaßen verständlich beschrieben.