Delphi

[HapKoT]

помогите написать курсовую........ просто мру...... не знаю, как писать пояснительную записку.... курсаовая на делфи! Чего делать? может кто поможет? Отзовитеся !!! Плизз..... :lol:
мыло - hlupik2004@inbox.ru.

 

[Vagor.ini]

HapKoT
Что делать? Учиться...

 

[Barmutik]

Так писать курсовую или записку ? Если записку .. то не на Дельфи ж ты её будеш писать :lol:

 

[Guest]

У меня такой вопрос. Можно ли чтоб сразу выполнялись три процедуры , не по очереди одна за
другой , а в одно время .Или например три цикла тоже не по очереди , а сразу.Мне надо разбить одно
действие на три, просто оно очень долго выполняеться и теоретически я могу разбить его на несколько
.Я думаю если они работали все вместе сразу это конечно забирало больше ресурсов но и время бы уменьшилось.
Надеюсь на помошь.

 

[[sER]]

юзай потоки

 

[zubr]

Создайте 3 потока, чтобы в каждом выполнялся свой цикл. Чтобы потоки быстрее работали, можно дать им высокий приоритет, но правдо это чревато подвисанием системы.

 

[Guest]

Как использовать потоки некогда с ними невстричался , где найти инфу или напишите приблизительный пример , а я разберусь , нужно очень плизззззззз

 

[zubr]

Смотри link removed

 

[Guest]

Огромное спасибо я розобрался и мне это очень поможет. Скажите еще можно ли как-то в потоке зделать паузу и потом дальше продолжить. И как зделать в приложении обычную паузу , ну например когда выполняеться какойто цикл как его остановить и потом продолжить с места остановки?.Еще раз спасибо Zubr .

 

[zubr]

Скажите еще можно ли как-то в потоке зделать паузу и потом дальше продолжить. И как зделать в приложении обычную паузу , ну например когда выполняеться какойто цикл как его остановить и потом продолжить с места остановки?.

У класса TThread есть методы Suspend - остановить поток, Resume- продолжить поток. Цикл останавливать могу посоветовать через событие:

procedure TForm1.FormCreate(Sender: TObject);
var
hev:cardinal;
begin
hev:=CreateEvent(nil, True, True, 'MyEvent');
end;

procedure MyThread.Execute;
var
i:Integer;
begin
For i:=1 to 1000000 do
begin
//какой то код
WaitForSingleObject(hev, infinite);{будет стоять пока событие на будет установлено с помощью SetEvent(hev), а чтобы остановить ResetEvent(hev)}
end;
end;

 

[Guest]

Меня интересует такой вопрос при вызве функции из dll надо её описать
например
function ok(ok:string):boolean;
external 'project1.dll'; - как зделать чтоб файл dll можно было выбрать самому.
Пробовал записывать так
external name - но переменная name должна быть константой, тоесть получаеться тоже самое.
Но люди же как-то делают что в программе выбираеш имя dll плагина и запускаеш.
Я просто хочу использовать dll для создания плагинов для своей программы.Помогите пожалуйста.

 

[zubr]

Для этого надо dll-ку загружать не статически, а динамически с помощью функции LoadLibrary, где параметром является тип PChar - путь к загружаемой dll-ке.