wie wärs wenn du ein TMolekül so aufbaust, dass es ein array mit allen im molekül enthaltenen atomen hat und eine liste mit allen bindungen (pseudocode, aus dem handgelenk, nur ein konzept):
Code:
TAtom = record
Ordnungszahl:integer;
end
TBindung=record
Partner1, Partner2:^TAtom;
end;
TMol = record
Atome:array of TAtom;
Bindungen: array of TBindung;
end;
damit dürftest du so ziemlich alles irgendwie konstruieren können. also erst alle atome ins array packen und dann in die bindungen immer schön pointer eintragen.
gruß, Christoph