Delphi Graphentheorie

gistfile1.pas

type
  PKnoten = ^TKnoten;
  TKnoten = Record
            folgeKnoten:PKnoten;
            nachbarKnoten:PKnoten;
            name:integer;
            end;

var
Liste: PKnoten;


procedure init
var
begin
Liste := nil;  
end

procedure insertElement( name:string )
var
neuesElement: PKnoten;
hilfsKnoten: PKnoten;
begin
     neuesElement^.name := name;
     neuesElement^.folgeKnoten := nil;
     neuesElement^.nachbarKnoten := nil;
 
     if(Liste = nil) then
       Liste = neuesElement
     else if(Liste^.folgeKnoten = nil) then
       Liste^.folgeKnoten := neuesElement
     else
     begin
        hilfsKnoten := Liste;
        while(hilfsKnoten <> nil) do
          hilfsKnoten := hilfsKnoten^.folgeKnoten;
        hilfsKnoten := neuesElement;
     end;
end;