Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
gijkeee
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 14
1

Медлено работает программа.

31.03.2012, 17:53. Просмотров 535. Ответов 2
Метки нет (Все метки)

Здравствуйте помогите увеличить скорость работы программы.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
 Canvas:TCanvas;
 ScreenV:HDC;
 i: String;
begin
  i:='1';
 
  ScreenV := GetDC(0);
  Canvas:=TCanvas.Create();
  Canvas.Handle:=ScreenV;
  Image1.Canvas.Copyrect(Rect(0,0,Image1.Width,Image1.Height),Canvas, Rect(0,0,Screen.Width,Screen.Height));
  ReleaseDC(0,ScreenV);
  Canvas.Free;
 
  Label3.Caption:=IntToStr(StrToInt(Label3.Caption)+StrToINt(i));
 
  if CheckBox1.Checked = True then
  Image1.Picture.SaveToFile(extractfilepath(paramstr(0)) + '\Screens\Новая папка1\'+IntTOStr(StrToInt('0')+StrToInt(Label3.Caption))+'.jpg');
 
  if CheckBox2.Checked = True then
  Image1.Picture.SaveToFile(extractfilepath(paramstr(0)) + '\Screens\Новая папка2\' + IntTOStr(StrToInt('0')+StrToInt(Label3.Caption))+'.jpg');
 
  if CheckBox3.Checked = True then
    Image1.Picture.SaveToFile(extractfilepath(paramstr(0)) + '\Screens\Новая папка8\' + IntTOStr(StrToInt('0')+StrToInt(Label3.Caption))+'.jpg');
 
  if CheckBox4.Checked = True then
    Image1.Picture.SaveToFile(extractfilepath(paramstr(0)) + '\Screens\Новая папка3\' + IntTOStr(StrToInt('0')+StrToInt(Label3.Caption))+'.jpg');
 
  if CheckBox5.Checked = True then
  Image1.Picture.SaveToFile(extractfilepath(paramstr(0)) + '\Screens\Новая папка4\' + IntTOStr(StrToInt('0')+StrToInt(Label3.Caption))+'.jpg');
 
  if CheckBox6.Checked = True then
  Image1.Picture.SaveToFile(extractfilepath(paramstr(0)) + '\Screens\Новая папка5\' + IntTOStr(StrToInt('0')+StrToInt(Label3.Caption))+'.jpg');
 
  if CheckBox7.Checked = True then
  Image1.Picture.SaveToFile(extractfilepath(paramstr(0)) + '\Screens\Новая папка6\' + IntTOStr(StrToInt('0')+StrToInt(Label3.Caption))+'.jpg');
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 17:53
Ответы с готовыми решениями:

Программа работает на Delphi 2007 или более ранней но не работает на старших версиях (10.1 например)
В программе используются дополнительные файлы и dll написанные на fortran их...

не пойму в чем дело, программа должна работать, но она черт побери не работает :( (программа по работе с реестром)
Программа предназначена для поиска какого-нить слова по реестру и удаления...

Программа работает в WinXP и не работает в Win7
Приветствую! Есть программа - пишет в текстовый файл некую информацию. в...

Граф. приложение+библиотеки+консольное приложение! Не работает программа без использования консоли. Если использую, то всё прекрасно работает.
Ребята нужна помощь,все вроде сделал, но приложение начинает зависать при...

Не работает программа.
В общем суть моей проблемы заключается в следующем. Написал программу, всё...

2
Psilon
Master of Orion
Эксперт .NET
6000 / 4850 / 902
Регистрация: 10.07.2011
Сообщений: 14,460
Записей в блоге: 5
Завершенные тесты: 4
31.03.2012, 18:13 2
gijkeee, для начала использовать TCheckListBox вмесо кучи CheckBox...
Во-вторых нет смысла писать
Delphi
1
if CheckBox1.Checked = True then
достаточно
Delphi
1
if CheckBox1.Checked then
0
gijkeee
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 14
31.03.2012, 19:58  [ТС] 3
Спасибо, попробую.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 19:58

Не работает программа
Суть проблемы: при замене вот этих вот строк Vx:=Vx-(G*Mc)/(r*r*r)*x*dt2;...

Не работает программа
Написал код var Form1: TForm1; A:char; s:string; I:integer;...

Программа не работает
Делфи начал только заниматься. Нашел программу калькулятор набрал ее а она...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru