我的程序的目的是这样的:我用idhttp从xml上得到很多图片,现在用三个image控件分页显示,用两个button做前后翻页.我的程序代码是这样的:
procedure TForm1.Button1Click(Sender: TObject);
var
    oXml: TXMLDocument;
    i, j: integer;
    s,t,AttributeValue:string;
    arr:array of string;
    jpgArr:array of TjpegImage;      //   储存图片
    jpg:TjpegImage;
    nNode: IXMLNode;
    MemoryStream:TMemoryStream;
    Idhttp:TIdhttp;
begin
     oXml := TXMLDocument.Create(self);
     oXml.LoadFromFile('F:\test\test.xml');
     oXml.Active:=true;     nNode:=oXml.ChildNodes.FindNode('menu');     setlength(arr,36);
     setlength(jpgArr,36);     for i:=0 to nNode.ChildNodes.Count-1 do
     begin
        for j:=0 to nNode.ChildNodes[i].AttributeNodes.Count-1 do                   //遍历节点的属性
        begin
           t:=nNode.ChildNodes[i].AttributeNodes[j].NodeName ;                      //获得属性名
            AttributeValue:=nNode.ChildNodes[i].AttributeNodes[j].NodeValue ;        //获得属性值             if t='img' then
            begin
                arr[i]:=AttributeValue;
                self.Memo2.Lines.Add(arr[i]);
                MemoryStream:=TMemoryStream.Create ;
                Idhttp:=Tidhttp.Create(nil);
                Jpg:=TjpegImage.Create ;
                try
                      Idhttp.Get(arr[i],MemoryStream);
                      Memorystream.Position :=0;
                      jpg.LoadFromStream(MemoryStream);
                      jpgArr[i]:=jpg;
                  //    self.Image1.Picture.Bitmap.Assign(jpgArr[i]);
                finally
                      MemoryStream.Free ;
                      Idhttp.Free;
                      Jpg.Free ;
                end;            end;         end;
      end;      oxml.Free ;
end;
我现在只能做到这步,能得到图片,但是用jpgArr数组储存图片不知道可不可以?请高手求救怎么样才能做出点击前后button做翻页呢?我得到的图片有36张.一次只能显示3张.最好能给个代码..谢谢了..