構想是降ㄉ.... 首先有個XML格式ㄉplaylist如下:    〈XML〉 〈playlist〉 〈name〉test1〈/name〉 〈src〉test1.swf〈/src〉 〈description〉Moby〈/description〉    〈name〉test2〈/name〉 〈src〉test2.swf〈/src〉 〈description〉Buddha Bar〈/description〉    〈name〉test3〈/name〉 〈src〉test3.swf〈/src〉 〈description〉New Order〈/description〉    〈/playlist〉 〈/XML〉    ******************************************************************** 然後我透過TXMLDocument元件去load他(XML playlist) 但是我不會寫event去判別XML節點數(nodes)來跑迴圈... 另外,如何讓程式能播完test1後能繼續播test2...然後一直循環..    procedure TForm1.FormCreate(Sender: TObject); <===希望能自動load XML與播放flash var Playlist: IXMLNode; Src: String; i:Integer; begin if XMLDocument1.Active = false then XMLDocument1.Active:=true; ShowMessage(XMLDocument1.XML.Text);    for i := 0 to 2 do <===不會寫event去判別XML節點數(nodes)來跑迴圈 begin Playlist:= XMLDocument1.DocumentElement.ChildNodes[i]; Src:= Playlist.ChildNodes['Src'].Text; Src:='D:\4090資料夾\7_程式軟體\flash\radio\'+Src; ShockwaveFlash1.Movie:= Src; <=== 如何讓程式能播完test1後能繼續播test2...然後一直循環.. end; end;    end.    謝謝...非常感恩各位大俠相救!

procedure TForm1.FormCreate(Sender: TObject); <===希望能自動load XML與播放flash var Playlist: IXMLNode; Src: String; i:Integer; begin //設定要載入檔名 XMLDocument1.FileName:='要載入的檔名'; if XMLDocument1.Active = false then XMLDocument1.Active:=true; ShowMessage(XMLDocument1.XML.Text); //用下列方法 for i :=0 to XmlDocument1.DocumentElement.ChildNodes.Count -1 do begin Playlist:= XMLDocument1.DocumentElement.ChildNodes[I]; For J:=0 to PlayList.ChildNodes.Count-1 do begin if PlayList.ChildNodes[J].NodeName='src' then begin Src:=PlayList.ChildNodes[J].Text; Src:='D:\4090資料夾\7_程式軟體\flash\radio\' Src; //以下因為沒有該元件,所以無法為你測試 //ShockwaveFlash1.Movie:= Src;// <=== 如何讓程式能播完test1後能繼續播test2...然後一直循環.. Listbox1.Items.Add(Src); end; end; end; end; end.