hallo,
könnte das etwa so funktionieren:
Delphi-Quellcode:
type
Tgroup = record
fgroupno: integer
fgroupquote : TStringlist
end;
Tgroups = array of Tgroup
Tgroupevent = record
feventno : Integer;
feventlist : eventlist;
Tgroupeventlist = array of Tgroupevent;
var
lliste : tstringlist --- die L Liste
grouplist : Tstringlist ---> die groupenliste
eventlist : tstringlist ---> die eventliste
1.) den tgroups array mit den group record füllen
2.) die group liste mit den groupen füllen
grouplist.addobject('groupeno', Tgroups[indeger]);
3.) dann die eventliste mit der groupliste und der lliste füllen
eventlist.addobject('groupno',grouplist);
eventlist.addobject('llist',lliste);
4.) den array tgroupevents mit dem record tgrouprecord füllen
gruss
ismail