CurrentTick:=GetTickCount();
//твои действия в программе
NewTick:=GetTickCount();
Time:=NewTick-CurrentTick;
Я начинающий, подскажите пожалуйста, как...
Уважаемые участники!
Если вы только начинаете осваивать Delphi или считаете, что ваш вопрос простой для более опытных участников форума, то задавайте его здесь, не надо создавать для этого отдельные темы.
Если вы размещаете вопрос здесь, то , пожалуйста, прочтите следующее:
1. когда будете задавать свой вопрос, то делайте это нажимая на "ответ"(не путать с "быстрый ответ") и кратко указывайте в "заголовке" тему своего вопроса;
2. опишите чего вы хотели добиться.
3. если у вас возникла какая-то ошибка, и вы не знаете как её исправить, то обязательно приведите текст самой ошибки;
4. если это необходимо, приведите фрагмент вашего кода(ни в коем случае не надо писать весь код), также при добавлении кода пользуйтесь тегами([code ] и [ /code]);
5. укажите версию Delphi, которую используете и все настройки проекта;
6. если у вас возникли проблемы с нестандартными компонентами, то обязательно приведите ссылку, по которой их можно скачать.
7. соблюдайте правила форума
Удачи.
Модераторы форума Delphi & Kylix: Delpher, kosfiz & OlgaKr
Если вы с чем-то несогласны или у вас есть предложения обращайтесь к модераторам в приват.
Если вы только начинаете осваивать Delphi или считаете, что ваш вопрос простой для более опытных участников форума, то задавайте его здесь, не надо создавать для этого отдельные темы.
Если вы размещаете вопрос здесь, то , пожалуйста, прочтите следующее:
1. когда будете задавать свой вопрос, то делайте это нажимая на "ответ"(не путать с "быстрый ответ") и кратко указывайте в "заголовке" тему своего вопроса;
2. опишите чего вы хотели добиться.
3. если у вас возникла какая-то ошибка, и вы не знаете как её исправить, то обязательно приведите текст самой ошибки;
4. если это необходимо, приведите фрагмент вашего кода(ни в коем случае не надо писать весь код), также при добавлении кода пользуйтесь тегами([code ] и [ /code]);
5. укажите версию Delphi, которую используете и все настройки проекта;
6. если у вас возникли проблемы с нестандартными компонентами, то обязательно приведите ссылку, по которой их можно скачать.
7. соблюдайте правила форума
Удачи.
Модераторы форума Delphi & Kylix: Delpher, kosfiz & OlgaKr
Если вы с чем-то несогласны или у вас есть предложения обращайтесь к модераторам в приват.
Цитата: Malice
WinApi функция GetTickCount. Возвращает количество срабатываний системного таймера(или на процессоре, не помню точно).
вот примерный код
З.Ы: значение в милисекундах.
вот примерный код
Код:
З.Ы: значение в милисекундах.
CurrentTick, NewTick и Time какие должны быть, Word или TDataTime?
zeusgod
DWORD
DWORD
Цитата: kosfiz
zeusgod
DWORD
DWORD
спасибо, работает.
Точно в миллисекундах, а то я проверить это точно не могу, да, выдает значения, надеюсь что правильно
Я только что проверил, всеравно время до и после выполнения операции одинаковое, может есть другой метод, чтоб найти время затраченое на операцию? Выручейте
А может просто сортировка занимает меньше 1мс?
zeusgod, Вам kosfiz давал ссылку на пример использования QueryPerformanceCounter. Это самый точный метод - если и им ничего не измерите, то другого стандартного метода нет. А GetTickCount может не улавливать малое время - у меня вот например не показывает результата меньше 18 мс.
А еще, вот QueryPerformanceCounter-значение в милисикундах или в долях милисикунд?
Простите, я вам наверное надоел с этим вопросом.
Я все попробывал и QueryPerformanceCounter самый оптимольный выбор, он единственный реагирует на время сортировки. Всем большое спасибо за помощь.
Простите, я вам наверное надоел с этим вопросом.
Я все попробывал и QueryPerformanceCounter самый оптимольный выбор, он единственный реагирует на время сортировки. Всем большое спасибо за помощь.
zeusgod
тебе надо смотреть не результат получаемый с помощью QueryPerformanceCounter, а его деление на результат возвращаемый функцией QueryPerformanceFrequency, т.к.
[quote=MSDN(QueryPerformanceFrequency)]Pointer to a variable that receives the current performance-counter frequency, in counts per second.[/quote]
[quote=MSDN(QueryPerformanceCounter)] Pointer to a variable that receives the current performance-counter value, in counts.
[/quote]
так что результат деление одного на другое есть ни что иное как секунда
тебе надо смотреть не результат получаемый с помощью QueryPerformanceCounter, а его деление на результат возвращаемый функцией QueryPerformanceFrequency, т.к.
[quote=MSDN(QueryPerformanceFrequency)]Pointer to a variable that receives the current performance-counter frequency, in counts per second.[/quote]
[quote=MSDN(QueryPerformanceCounter)] Pointer to a variable that receives the current performance-counter value, in counts.
[/quote]
так что результат деление одного на другое есть ни что иное как секунда
Сам по себе QueryPerformanceCounter показывает время в тактах (вроде количества срабатываний таймера счетчика). Для преобразования этого значения в секунды результат делится на значение QueryPerformanceFrequency (возвращает количество тактов в секунду). Умножая на 1000, получим миллисекунды. Поэтому, если Вы используте код примера kosfiz, то значение в миллисекундах.
спасибо всем, все получилось, работает.
Спасибо!!! я попробую!!!
Как отключить CTRL-ALT-DEL в XP
всмысле отключить? совсем, т.е. чтобы работает твое приложение или нет диспетчер задач не вызывался при нажатии этих клавиш?
Чтобы Диспечер задач не вызывался вообще !
эхх... ну допустим можно поправить ключик в реестре(программно сделай - это несложно). вот ключик:
HKEY_CURRENT_USER\Software\Microsoft\CurrentVersion\Policies\System
измени значение DisableTaskMgr с 0 на 1.
P.S. помни статья 273 УК РФ: создание и распространение вредоносных программ наказывается лишением свободы на срок от трех до семи лет.:)
это я так:)
HKEY_CURRENT_USER\Software\Microsoft\CurrentVersion\Policies\System
измени значение DisableTaskMgr с 0 на 1.
P.S. помни статья 273 УК РФ: создание и распространение вредоносных программ наказывается лишением свободы на срок от трех до семи лет.:)
это я так:)
Цитата: kosfiz
эхх... ну допустим можно поправить ключик в реестре(программно сделай - это несложно).
Тогда при нажатии заветных клавиш будет вылетать сообщение о том, что диспетчер задач запрещен администратором... В зависимости от того, чего пытается добиться user13 это может быть не совсем хорошо...
user13, какова конечная цель этих манипуляций с диспетчером?
Не нашол я этот ключ как тока не искал :(
могли бы и в интернете пошарить... Найдено за минуту:
http://www.sources.ru/cpp/system/ctrl_alt_del_winxp.shtml
Ключика если нету, значит не определены политики...Создайте ключик сами или воспользуйтесь gpedit.msc...А где ключик создавать - почитайте в документе по ссылочке...
http://www.sources.ru/cpp/system/ctrl_alt_del_winxp.shtml
Ключика если нету, значит не определены политики...Создайте ключик сами или воспользуйтесь gpedit.msc...А где ключик создавать - почитайте в документе по ссылочке...
Всем спасибо !
Есть текстовый файл с данными (два столбца)
например:
Нужно чтитать каждый столбец в отдельный массив. Началом каждой строки является пробел. Может у кого есть текст данной проги? Или же в Делфи предусмотренны специальные фанкции для этого?
Зарание спасибо.
например:
Код:
3297.100 -16.0
3297.112 -16.0
3297.123 -16.0
3297.135 -16.0
3297.146 -16.0
3297.158 -16.0
3297.112 -16.0
3297.123 -16.0
3297.135 -16.0
3297.146 -16.0
3297.158 -16.0
Нужно чтитать каждый столбец в отдельный массив. Началом каждой строки является пробел. Может у кого есть текст данной проги? Или же в Делфи предусмотренны специальные фанкции для этого?
Зарание спасибо.
Функции эти стары, как сам паскаль :)
read(f, variable), readln(f, variable)...
AndreiPH, такой вопрос лучше бы задать здесь.
read(f, variable), readln(f, variable)...
AndreiPH, такой вопрос лучше бы задать здесь.
У меня такой впрос.
Я передаю данный от клиента сервру при помощи ClietnSocket и ServerSocket.
несколько блоков при передаче по сокету объединяться в один , как этого избежать я пробывал так
Socket.SendText('1');
sleep(1);
Socket.SendText('2');
Пашет если я на свай машине тесчу
а есил с чужой передаю то они обеденяются...
Я передаю данный от клиента сервру при помощи ClietnSocket и ServerSocket.
несколько блоков при передаче по сокету объединяться в один , как этого избежать я пробывал так
Socket.SendText('1');
sleep(1);
Socket.SendText('2');
Пашет если я на свай машине тесчу
а есил с чужой передаю то они обеденяются...
В командной строке нужно подтвердить форматирование(y/n). как это сделать на Делфи?
Заранее спасибо!!!
Заранее спасибо!!!
Цитата: Dart_Sidius
В командной строке нужно подтвердить форматирование(y/n). как это сделать на Делфи?
Вы какое приложение пишете - Console Application?
И какое Вы хотите подтверждение ввести - вот то перед непосредственно форматированием? Чтобы получилось приложение, которое запускаешь - и уже диск отформатирован?
Ещё такой вопрос как мне узнать имя файла 'newreply.php' вот из этой строки :
http://forum.codenet.ru/newreply.php?do=newreply&noquote=1&p=190688
И сохранить его у себя на компе
Программно естественно :)
http://forum.codenet.ru/newreply.php?do=newreply&noquote=1&p=190688
И сохранить его у себя на компе
Программно естественно :)
Цитата: user13
Ещё такой вопрос как мне узнать имя файла 'newreply.php' вот из этой строки :
http://forum.codenet.ru/newreply.php?do=newreply&noquote=1&p=190688
И сохранить его у себя на компе
Программно естественно :)
http://forum.codenet.ru/newreply.php?do=newreply&noquote=1&p=190688
И сохранить его у себя на компе
Программно естественно :)
Искать знак "?" (вопроса) и копировать всё что между "?" и "/"...
Цитата: misha_turist
Искать знак "?" (вопроса) и копировать всё что между "?" и "/"...
Я вот что делаю
function ExtractUrlFileName(const AUrl: string): string;
var
i,a,b: Integer;
begin
i := LastDelimiter('/', AUrl);
a := LastDelimiter('?', AUrl);
Result := copy(AUrl,i,length(AUrl)a);
end;
Но чёта не прокатывает как тока не тыкал :(
2user13
Код:
function ExtractUrlFileName(const AUrl: string): string;
var
i,a: Integer;
begin
i := LastDelimiter('/', AUrl);
a := LastDelimiter('?', AUrl);
Result := copy(AUrl,i+1,a-i-1);
end;
var
i,a: Integer;
begin
i := LastDelimiter('/', AUrl);
a := LastDelimiter('?', AUrl);
Result := copy(AUrl,i+1,a-i-1);
end;
Спасибо =)
Подскажите, как мне передать в прогу при ее вызове из меню винды(правой кнопкой мыши на файле--> а там строчка запускающая мою прогу) ссылку на файл, или что то в этом роде, чтобы потом внутри программы можно было работать именно с тем файлом, для которого она вызывалась...очень нужно.....
В контекстном меню программа обычно прописана как <имя_программы> %1, где %1 - параметр (в частности имя файла). В программе:
ParamCount - кол-во параметров командной строки
ParamStr(i) - i-ый параметр командной строки
ParamCount - кол-во параметров командной строки
ParamStr(i) - i-ый параметр командной строки
спасибо:)
http://read.excode.ru/art186p1.html
вот по ссылке есть пример встраивания в контекстное меню. Я наверно ваще даун, но я не понимаю, как это работает и как это запустить!!!! помогите....здесь написано что это текст длл-библиотеки, но ведь он совсем не так выглядит....Подскажите, как это запустить чтобы это работало.....пожалуйста!!!
вот по ссылке есть пример встраивания в контекстное меню. Я наверно ваще даун, но я не понимаю, как это работает и как это запустить!!!! помогите....здесь написано что это текст длл-библиотеки, но ведь он совсем не так выглядит....Подскажите, как это запустить чтобы это работало.....пожалуйста!!!
Там приведен пример OCX-компонента. Все можно сделать гораздо проще, просто добавив некоторые строки в реестр. В любом приличном FAQ (например тут) есть пример.
разобралась, спасибо
Пожалюйста помогите, очень срочно надо узнать, как число возвести в дробную степень.
Например число 5 надо возвести в степень 2/5, или 7 в степень 4/7.
Зарание огромное спасибо!!!
Например число 5 надо возвести в степень 2/5, или 7 в степень 4/7.
Зарание огромное спасибо!!!
Ну, например, подключить модуль Math и использовать функцию Power. А ежели хочешь поизобретать велосипед, делай так: exp(ln(число)*степень).
Пожалюйста помогите, очень срочно надо узнать, как число возвести в дробную степень.
Например число 5 надо возвести в степень 2/5, или 7 в степень 4/7.
Зарание огромное спасибо!!!
Например число 5 надо возвести в степень 2/5, или 7 в степень 4/7.
Зарание огромное спасибо!!!
а что в power прописать?
Цитата: evdokim
а что в power прописать?
А Help нельзя почитать:
Код:
int result := Power( figure_body, figure_exp );
8 := Power( 2, 3 );
Добавлено:
Точнее так, наверно:
Код:
double result := Power( figure_body, figure_exp );
Где мона почитать про компанент IdTelnetServer