2009-06-11 16:40:06 begin SK.Knoten_ID := 1; SK.Autobahnkreuz := False; SK.Mobiler_Kontrollpunkt := False; SK.LKW_Liste := LKW_Listen_Paket.Neue_Liste; Knoten_Einfuegen (SK); SK2.Knoten_ID := 2; SK2.Autobahnkreuz := False; SK2.Mobiler_Kontrollpunkt := False; SK2.LKW_Liste := LKW_Listen_Paket.Neue_Liste; Knoten_Einfuegen (SK2); Kante_Einfuegen (40, SK, SK2); end Graphen_Laden;