Понравилось пару роликов, во время танца меняют музыку, и мужичок меняет стиль танца. Классно получилось...
Всё время, приходилось покупать Hard-диски для Бэков данных, а теперь, все проблемы решаются одной BD-RE 25GB (REWRITABLE), есть и 50GB, но пока, для тестов пойдет...
Ранее утро, горячее кофе, немного скучно. Решил исправить свое настроение, взял пятилитровая баклажка - кормушка, и вот первая особь :)
Купил Swap, оригинал стоит дорого, а вот китайская подделка самое то Professional Hot-Swap 3.5" SATA Hard Disk Drive Rack Mount Drawer, теперь удобное менять Hard-диски для мусора с интернета :)
Офигенный денёк, сегодня ко мне, в Оренбург, приехал друг с Cтерлитамака родом Актюбинска. Урааа....)))))
Гуляем...
Всем, часто приходилось использовать в Delphi Функцию Sleep, в результате которой программа не отвечает N количество миллисекунд затормаживая процесc, предлагаю использовать альтернативу:
procedure pause(col:integer);
var wtim:ttime;
begin
wtim:=encodetime(0,0,col,0)+time;
repeat
application.processmessages;
sleep(10);
until time>=wtim;
end;
col - пауза в секукндах.
При использовании данной функции, программа не будет уходить в Даун, а будет дальше функционировать.
