Ngày tải lên :
28/10/2013, 02:15
... ='Image1' then begin G.SoDinh:=G.SoDinh+1; Setlength(G.DSDinh,G.SoDinh); G.DSDinh[G.SoDinh-1].ToaDo.X:=x; G.DSDinh[G.SoDinh-1].ToaDo.Y:=y; G.DSDinh[G.SoDinh-1].Ten:='T' + InttoStr(G.SoDinh); VeDoThi(G,Pic,imagelist1); ... Vecung(Pic,G.DSDinh[DuongDi[i]].ToaDo,G.DSDinh[DuongDi[i+1]].ToaDo, TrongSo(DuongDi[i],DuongDi[i+1]).Gia,True,RGB(255,0,0),RGB(0,0,255)) //Veline(G.DSDinh[DuongDi[i]].ToaDo,G.DSDinh[DuongDi[i+1]].ToaDo, // TrongSo(DuongDi[i],DuongDi[i+1]).Gia,Pic,RGB(255,0,0),10000) ... duong di tu X den Y} Setlength(DuongDiTuXdenY,M); If not Dist[Y].VoCung then begin DuongDiNganNhat:=true; ChiPhi:=Dist[Y].gia; {Xac dinh cac dinh phai di qua (theo day chuyen nguoc)} {k:=0;DuongDiTuXdenY[k]:=Y;k:=k+1;...