Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
gijkeee
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 14
#1

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

31.03.2012, 17:53. Просмотров 498. Ответов 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):

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

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

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

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

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

Программа не работает - Delphi
Делфи начал только заниматься. Нашел программу калькулятор набрал ее а она запускается только не отображается. Или иногда выпускает...

2
Psilon
Master of Orion
Эксперт .NET
5917 / 4816 / 634
Регистрация: 10.07.2011
Сообщений: 14,434
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

Не работает программа - Delphi
Здравствуйте дорогие друзья, у меня такая проблема не работает дешифратор, хочу сделать чтобы программа брала слово из мемо 4, и после...

Не работает программа - Delphi
Не работает программа, результат - только мерцание черного окошка. Программа должна выводить массив чисел. Заполнение происходит...

программа не работает - Delphi
вот код программы program comp; {$APPTYPE CONSOLE} uses SysUtils, Windows; const n=3;


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

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

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