数据结构：
Type
EdegNode=record
T,w,next:longint;
End;
Var
E:array[1..m]of longint;
Head:array[1..n]of longint;
读入边：
For i：=1 to n do head[i]:=-1;
For i：=1 to m do
Begin
Readln(u,e[i].t,e[i].w);
E[i].next:=head[u];
Head[u]:=I;
End;
遍历代码：
For i:=1 to n do
Begin
K:=head[i];
While k<>-1 do
Begin
//各项操作
K:=e[k].next;
End;
End;
链式前向星的优点在于除了必要的边信息的储存空间外，只需要非常少的额外空间即可实现，代码和原理的比较简单，可以储存重边，可以应付点和边的数量都很大的情况，应该说除了不能直接用起点和终点确定是否有边外。链式前向星几乎是完美的。
要用链式前向星储存有向边得储存两次。
原文：http://www.cnblogs.com/cxvdzxhb/p/4478823.html