Цикл перезапись имени

[detalik]

По событию Ontimer программа делает снимок экрана

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    bmp:=TBitmap.Create;
  jpgImg := TJPEGImage.Create;
    bmp.Height:=Screen.Height;
    bmp.Width:=Screen.Width;
    DC:=GetDC(0);
    bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
      DC, 0, 0, SRCCOPY);

  ReleaseDC(0, DC);
  jpgImg.Assign(bmp); {â JPG ãðóçèì Áèòìàï}
  jpgImg.CompressionQuality:=100; {óñòàíàâëèâàåì êîìïðåññèþ (êà÷åñòâî) (1-100)}
  //SavePictureDialog1.Execute;
  jpgImg.SaveToFile('C:/screen/' +'screen.jpg'); {ñîõðàíÿåì â ôîðìàòå JPG}
  jpgImg.Free;
  bmp.Free;
end;

Как сделать,чтобы программа не перезаписывала один и тот же файл, а сохраняла его в новый в той же директории но с другим именем, например screen1,screen2,screen3 и т.д. Спасибо

[Аватар]

Ввести переменную, например NumbFile Integer, описанную в Private формы. В OnCreate формы присвоить ей начальное значение и в обработчике таймера:

jpgImg.SaveToFile(Format('C:/screen/screen%d.jpg',[NumbFile]));
Inc(NumbFile);

[detalik]

Спасибо, все работает, а не подскажите что значит (Format('C:/screen/screen%d.jpg,[NumbFile]));
а именно Format и %d.Спасибо.

[Аватар]

А в Help по поводу Format заглянуть, там много чего интересного