Цикл for

[megostudent]

procedure TForm1.Button1Click(Sender: TObject);
const
  CAPTUREBLT = $40000000;
var  ScreenBM:TBitMap;
      SendJPG:TJPEGImage;
      i,a:integer;
begin
for i:=1 to 10 do
  begin
  a:=0;
  a:=a+1;
  ScreenBM:=TBitMap.Create;
  SendJPG:=TJPEGImage.Create;
  ScreenBM.Width:=Screen.Width;
  ScreenBM.Height:=Screen.Height;
  BitBlt(ScreenBM.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
  GetDC(0), 0, 0, SRCCopy or CAPTUREBLT);
  SendJPG.Assign(ScreenBM);
  SendJPG.SaveToFile('c:\temp\'+ inttostr(a) + '.jpg');
  SendJPG.Free;
  ScreenBM.Free;
  sleep(5000);
  end;
end;

сохраняет только 2 скрина с именами 1.jpg и 2.jpg. А должно же до 10 дойти что не так?

[Yurk@]

убери переменную a насовсем, а с ней и

  a:=0;
  a:=a+1;

(просто не вижу в ней смысла)
а строку

 SendJPG.SaveToFile('c:\temp\'+ inttostr(a) + '.jpg');

поправь на

 SendJPG.SaveToFile('c:\temp\'+ inttostr(i) + '.jpg');

[Аватар]

Интересно, как код из #1 мог скрин 2.jpg делать

[Yurk@]

Аватар, мне тоже интересно

[megostudent]

Сообщение от Yurk@

убери переменную a насовсем, а с ней и

  a:=0;
  a:=a+1;

(просто не вижу в ней смысла)
а строку

 SendJPG.SaveToFile('c:\temp\'+ inttostr(a) + '.jpg');

поправь на

 SendJPG.SaveToFile('c:\temp\'+ inttostr(i) + '.jpg');

точно) я дурак брал и i:=1 а добавлять счетчик внутри цикла с одинаковой переменной нельзя. затупил одним словом)
Юра спасибо)

[megostudent]

Сообщение от Аватар

Интересно, как код из #1 мог скрин 2.jpg делать

поправочка, то не тот скрин, сделался то с названием 1.jpg

[Yurk@]

так нельзя, потому что счетчик с нельзя внутрь цикла ставить, будет ошибка, запусти код проверь

О_о ... это с каких пор ???
ты бы проверил