Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 90 из 116 • <  1 ... 87  88  89  90  91  92  93 ... 116  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  Xupyp1

Member
Статус: Не в сети
Регистрация: 02.12.2004
Mike3000
Не прет. Ошибка таже.
Сейчас работаю с помощью метода ModifyQuastion. Все пучком :?:
Код такой:
Код:
var
  tmpQuastion : TQuastion;
{------------------------------------------------}
tmpQuastion.Text:=frmAddQ.mQText.Text;
Case frmAddQ.cbAnswerType.ItemIndex of
  0: tmpQuastion.QType:=0;//Open
  1: tmpQuastion.QType:=1;//Closed
End;
Реклама

Партнер
  Just`Ice

Member
Статус: Не в сети
Регистрация: 22.01.2007
Откуда: Самара
Mike3000 писал(а):
Just`Ice писал(а):
Здесь вы не правы. Заголовок цикла for читается только один раз, перед началом запуска цикла. Присваивание будет лишним.

Ошибаетесь
Код:
for i:=0 to Table.RecordCount-1 do ...
попробуйте открыть dbf'ку весом мегов на 500-600 и пробегитесь пошагово... всегда лучше делать так:
Код:
var rc: integer;
begin
  rc:=Table.RecordCount;
  for i:=0 to rc-1 do ...

:) а еще лучше так
Код:
while not Table.eof do...
если конечно не собираетесь выводить ProgressBar


Не верю. Не знаю с чем связаны тормоза при работе с dbf у вас, но заголовок цикла for читается один раз. Вот вам простой пример:

Код:
var i,j:integer;
begin
  j:=1;
  for i:=1 to j do
    j:=j+1;
  ShowMessage(IntToStr(j));
end;


По вашей логике здесь должно бы случиться зацикливание. Но зацикливания нет

_________________
No pain - no gain

  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
Цитата:
По вашей логике здесь должно бы случиться зацикливание. Но зацикливания нет

Да, вы правы - зацикливания нет

Но, в таком случае почему же возникают тормоза когда в заголовке стоит не явное число, а свойство объекта!? По идее ведь если он сохраняет заголовок for, то нет смысла обращаться к объекту, однако, судя по тормозам, он это все таки это делает.
Хотя это наверное вопрос к Борланду...
(А я, собственно, из-за этих тормозов сделал для себя неправильные выводы)

Just`Ice Спасибо, что разъеснили

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  }{acker

Member
Статус: Не в сети
Регистрация: 01.07.2006
Откуда: Челябинск
Подскажите как симитировать нажатие кнопок мыши и клавиш на клавиатуре. Нада чтоб программа делала вид для другой программы что я нажимаю кнопки.
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
на контроле
Код:
procedure app_PressButton(Vk: byte; CustomControl: TCustomControl);
begin
  CustomControl.SetFocus;
  CustomControl.Perform(WM_NEXTDLGCTL,0,0);
  keybd_event(Vk,0,0,0);
  keybd_event(Vk,0,KEYEVENTF_KEYUP,0);
end;//app_PressButton


или просто
Код:
  keybd_event(Vk,0,0,0);
  keybd_event(Vk,0,KEYEVENTF_KEYUP,0);

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  }{acker

Member
Статус: Не в сети
Регистрация: 01.07.2006
Откуда: Челябинск
1 Это будет работать в окне полноэкранной игры?
2 Как сделать с кнопками мыши?
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
}{acker писал(а):
1 Это будет работать в окне полноэкранной игры?

хз, в теории должно
}{acker писал(а):
2 Как сделать с кнопками мыши?

Vk - Virtual key codes (смотри help)
Код:
VK_LBUTTON   Left mouse button
VK_RBUTTON   Right mouse button
VK_MBUTTON   Middle mouse button

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  }{acker

Member
Статус: Не в сети
Регистрация: 01.07.2006
Откуда: Челябинск
Что то неработает. Делаю прогу с кнопкой на событие таймера ставлю:
keybd_event(VK_LBUTTON,0,0,0);
keybd_event(VK_LBUTTON,0,KEYEVENTF_KEYUP,0);
навожу мышь на кнопку кнопка не нажимается.
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
1. Приведи код таймера
2. Вспомнил, для мышки можно так попробовать:
Код:
  mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
  mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0, 0);


x, y - координаты курсора мышки

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  }{acker

Member
Статус: Не в сети
Регистрация: 01.07.2006
Откуда: Челябинск
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_LBUTTON,0,0,0);
keybd_event(VK_LBUTTON,0,KEYEVENTF_KEYUP,0);
end;

А с этими заработало
mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0, 0);

Еще надо так же кнопки на клаве нажимать

Да, и какие VK у буквенных клавиш, а то в хелпе ненашел;
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
Открываем хелп, в предметном указателе пишем Virtual key codes

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  Anoss

Member
Статус: Не в сети
Регистрация: 01.04.2005
Откуда: Москва-Лубянка
}{acker писал(а):
Это будет работать в окне полноэкранной игры?

Если игра работает через DirectInput, то не будет, он работает с драйвером напрямую…

_________________
AnossovPavel в проекте F@H (TSC!Russia)
退屈な祖父 ¤ παππούς ¤ («клан дедов»)

  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
Он там прокачку для какой-н. игры пишет :) - на ночь поставил, утром скиллы распределил

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  SM.YURBAN

Member
Статус: Не в сети
Регистрация: 13.08.2006
Откуда: Калининград
Lord_of_Darkness писал(а):
Shader 3.0 убери из кода расчета ВСЕ обращения к визуальным компонентам. Если оные присутствуют в каких-то циклах, то эта оптимизация позволит выиграть очень много.

А если прога будет консольной, или вообще не будет работать при подсчете с GUI, то скорость возрастёт значительно.
Для компилирования исходников Delphi, можно использовать другой компилятор их в интернете полно должно быть.
Добавлено спустя 2 минуты, 57 секунд
DEF-JAM писал(а):
Товарищи , кто знает , опишите , как в Delphi 7 подключить компонент отчетов Quick Reports – TQuickRep . Ф файлах компонентов он физически присутствует ,
пробывал все варианты , никак ............... Срочно Please

Component-->Install Component? Или если он в Package то Install package, по подробнее напиши про физическое расположение (расширения файла).
Добавлено спустя 5 минут, 39 секунд
Недавно мучился с проблемой записи в реестр типа REG_MULTI_SZ, наконец получилось, если кому надо могу выложить исходник функций (чтение, запись).

_________________
youtube.com/hwmasters

  DEF-JAM

Member
Статус: Не в сети
Регистрация: 15.09.2006
SM.YURBAN уже сделал .

Кто знает хорошие сайты по Delphi.NET?
Отредактировано модератором: mein. Дата: 02.06.2007 21:30
  bios_must_die

Люди подскажите, пожалуйста, как реализовать следующее:
Задана таблица
___________________________________________________
d,мкм _!____<2_____!___ 2-5_____!___5-10____!__>10___
V,м/с__!_0.01...0.02_!_0.02...0.03_!_0.03...0.05_!_0.05...0.1

Из нее найти значене V при заданной d, если V=f(d),м/с
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
bios_must_die
А внутри одного промежутка соответствие то хоть линейное?
напр при d=3.5 значение V=0.025? или я не так понял?
Добавлено спустя 1 минуту, 27 секунд
Да и как обрабатывать d<2 и d>10? Напр. какому V соответствует d=1?

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  bios_must_die

Mike3000 вот в этом как раз и вся бадяга замешана. Меня терзают смутные сомнения на счет того, что по этим данным надо построить график. А потом из него, при указании d, получать значение V.
PS: при создании я схитрил и, т.к. значения довольно таки малы, с помощью условий устанавливал из промежутка значения или средние, или граничные.
PPS: я со своей прогой (это один из ее подпунктов) занял первое место по институту, потому что кроме меня никто не написал прогу на языке высокого уровня (про Асс вообще молчу). А вот теперь её надо улучшить (преподы полный ноль, кроме Екселя нихрена не знают). И вот столкнулся с этой блин фигней.
Некоторые говорят, что это возможно провернуть в Екселе или в Си. Но переписывать заново не охота :x
  Mike3000

Member
Статус: Не в сети
Регистрация: 08.11.2005
ну у вас и институт, никто, кроме тебя, не знает ЯВУ
bios_must_die писал(а):
Некоторые говорят, что это возможно провернуть в Екселе или в Си

Без четкой математической задачи они нифига не смогут "провернуть".

Вообще, если бы мне надо сделать по правилам, то нормальные промежутки я бы обрабатывал как пропорции(линейно), т.е.
d=5, V=0.03; d=6, V=0.034; d=7, V=0.038;
А где d<2 и d>10, то обрабатывал бы как пределы:
lim(V)->0.1, при d->(бесконечность)
lim(V)->0.01, при d->(минус бесконечность)

_________________
AM4/B550-F/5950X/128Gb/4070S/4x4Tb NVMe

  bios_must_die

кстати, что вы скажете на этот счет:
Цитата:
ладно, тогда в результате расчетов
http://usera.imagecave.com/inside/help-1.gif
приходим к функция имеет следующий вид: y=((0.03*x)+0,1)/8
Кто хочет, может проверить в EXCEL, вроде все подходит.

Код попозже напишу, но я думаю ты уже и сам догадался
Добавлено спустя 2 минуты, 2 секунды
вот
Код:
D = Val(InputBox("D=?")) 'Enter D
V = ((0.03 * D) + 0.1) / 8

Это из ближнего топика по VBA. На картинке график + ур-ние.
Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 90 из 116 • <  1 ... 87  88  89  90  91  92  93 ... 116  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan