关于Timage和pagecontrol，求助！给分！

Question

1、Image1.AutoSize := True;
2、
for i := 0 to pagecontrol1.pagecount - 1 do
begin
  for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
    if pagecontrol1.pages[i].Controls[i] is TImage then
    begin
      TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j) + '.bmp');
      Break;
    end;
end

Answer 1

for  i  :=  0  to  pagecontrol1.pagecount  -  1  do
  begin
      for  j  :=  0  to  pagecontrol1.pages[i].ControlCount  -  1  do
          if  pagecontrol1.pages[i].Controls[i]  is  TImage  then
          begin
              TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j)  +  '.bmp');
              Break;
          end;
  end
我在运行上面的代码时，会出现：[Error] Unit1.pas(127): Undeclared identifier: 'SaveToFile'信息。这是为什么？

Answer 2

for  i  :=  0  to  pagecontrol1.pagecount  -  1  do
  begin
      for  j  :=  0  to  pagecontrol1.pages[i].ControlCount  -  1  do
          if  pagecontrol1.pages[i].Controls[i]  is  TImage  then
          begin
              TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j)  +  '.bmp');
              Break;
          end;
  end
我在运行上面的代码时，会出现：[Error] Unit1.pas(127): Undeclared identifier: 'SaveToFile'信息。这是为什么？

Answer 3

表示没有这个方法！
其实你可以换一种方法！试试吧！
for  i  :=  0  to  pagecontrol1.pagecount  -  1  do
  begin
      for  j  :=  0  to  pagecontrol1.pages[i].ControlCount  -  1  do
          if  pagecontrol1.pages[i].Controls[i]  is  TImage  then
          begin
              TImage(pagecontrol1.pages[i].Controls[i]).Picture.SaveToFile(IntToStr(j)  +  '.bmp');
              Break;
          end;
  end

Answer 4

TImage(pagecontrol1.pages[i].Controls[i]).Picture.SaveToFile(IntToStr(j)  +  '.bmp');