Unedlich viele Pointer

[sakura]

Wenn oben nicht geht, keine Zeit zum Testen , dann aber so

Delphi-Quellcode:

type 
  TBeleg = record 
    belegdatum: TDateTime; 
    betrag: double; 
    spendenbescheinigungsnr: string; 
    ausgestelltam: TDateTime; 
    sachlicherichtigkeit:string; 
    rechnericherichtigkeit:string; 
    einnahme:boolean; 
  end; 
  TBelegArray = record 
    BelegArray: array of TBeleg;
  end;