Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
AXS
-2 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 150
1

Помогите пожалуйста оптимизировать эту часть кода?

20.09.2012, 22:05. Просмотров 424. Ответов 8
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 FPrivateCard.DBEdit1.DataSource:=Datasource1;
  FPrivateCard.DBEdit2.DataSource:=Datasource1;
  FPrivateCard.DBEdit3.DataSource:=Datasource1;
  FPrivateCard.DBEdit4.DataSource:=Datasource1;
  FPrivateCard.DBEdit5.DataSource:=Datasource1;
  FPrivateCard.DBEdit6.DataSource:=Datasource1;
  FPrivateCard.DBEdit7.DataSource:=Datasource1;
  FPrivateCard.DBEdit8.DataSource:=Datasource1;
  FPrivateCard.DBEdit9.DataSource:=Datasource1;
  FPrivateCard.DBEdit10.DataSource:=Datasource1;
  FPrivateCard.DBEdit11.DataSource:=Datasource1;
  FPrivateCard.DBEdit13.DataSource:=Datasource1;
  FPrivateCard.DBEdit14.DataSource:=Datasource1;
  FPrivateCard.DBEdit15.DataSource:=Datasource1;
  FPrivateCard.DBCheckBox1.DataSource:=Datasource1;
  FPrivateCard.DBNavigator2.DataSource:=Datasource1;
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.09.2012, 22:05
Ответы с готовыми решениями:

Помогите пожалуйста подогнать эту программу под Delphi
помогите пожалуйста подогнать эту программу под Delphi, изначально написана в паскале. Очень нужно!...

Объясните пожалуйста эту часть
Объясните пожалуйста эту часть char str; int count = 0; cout << "Enter string:" << endl;...

Объясните эту часть кода
float bpow(float x, int n) { float count = 1; if (!n) return 1; вот это, незнаю...

Оптимизировать часть кода: упростить и сделать меньше строк
В общем код такой но он не полный это тока его часть и там все одно по одному повторяется и этот...

Как ускорить эту часть кода с использованием OpenMp?
я пытаюсь ускорить, но разницы вообще никакой... for (int y = 0; y < src->height -...

8
Ice_and_Fire
484 / 296 / 36
Регистрация: 22.06.2011
Сообщений: 929
20.09.2012, 22:24 2
Что вы подразумеваете под слом "оптимизировать"?
0
AXS
-2 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 150
20.09.2012, 22:26  [ТС] 3
Подразумеваю как-то сократить количество строк если это возможно, так как все они аналогичны...
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27549 / 18459 / 7296
Регистрация: 22.10.2011
Сообщений: 32,445
Записей в блоге: 6
20.09.2012, 23:44 4
Так лучше?
Delphi
1
2
3
4
5
for i := 1 to 15 do
   (FPrivateCard.FindComponent(Format('DBEdit%d', [i])) as TDBEdit).DataSource := DataSource1;
 
FPrivateCard.DBCheckBox1.DataSource:=Datasource1;
FPrivateCard.DBNavigator2.DataSource:=Datasource1;
1
20.09.2012, 23:44
AXS
-2 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 150
21.09.2012, 14:36  [ТС] 5
Спасибо! Только ошибка вылетает

[Error] USearch.pas(54): Undeclared identifier: 'TDBEdit'
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27549 / 18459 / 7296
Регистрация: 22.10.2011
Сообщений: 32,445
Записей в блоге: 6
21.09.2012, 14:39 6
Как же у тебя тогда работал тот код, который ты привел, если не подключен модуль DbCtrls? Добавь его в список Uses.
1
AXS
-2 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 150
21.09.2012, 14:48  [ТС] 7
Спасибо большое за помощь! Хмм...работало)) а что это за модуль?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27549 / 18459 / 7296
Регистрация: 22.10.2011
Сообщений: 32,445
Записей в блоге: 6
21.09.2012, 14:51 8
Это как раз модуль, в котором описаны все DB-контролы.
0
AXS
-2 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 150
21.09.2012, 14:55  [ТС] 9
Впредь буду знать...)
0
21.09.2012, 14:55
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.09.2012, 14:55

Подскажите, как понять эту часть кода Thymeleaf
Добрый день. В google не нашел и давал неверный запрос <li th:class="${persons.number == (page...

Помогите пожалуйста переделать эту программу с процедурами
Здравствуйте!Помогите пожалуйста переделать эту программу с процедурами!ЗАРАНЕЕ ВСЕМ СПАСИБО! ...

Выкладываю часть кода моей программы, хочу чтобы вы мне указали где что лучше здесь оптимизировать исправить
Здравствуйте, я недавно в программировании на C# поэтому тонкостей не знаю, выкладываю часть кода...


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

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

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