Купил Swap, оригинал стоит дорого, а вот китайская подделка самое то Professional Hot-Swap 3.5" SATA Hard Disk Drive Rack Mount Drawer, теперь удобное менять Hard-диски для мусора с интернета :)

Купил 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 - пауза в секукндах.
При использовании данной функции, программа не будет уходить в Даун, а будет дальше функционировать.

За время нахождения в г. Оренбург, однажды на утро проснулся с дискомфортом в глазах, дискомфорт проявлялся - чувством песка в глазах, при взгляде на освещённое место глаза начинали слезиться, подумав нечего страшного - пройдет, промыв глаза. Ощущения так и оставались даже спустя неделю. По приезду в Актюбинск я пошел в местное больничное учреждение под названием "Айгерим" (г.Актобе ул.Пацаева7, корп.1), там, после нескольких процедур поставили диагноз: Вирусный Коньюктивит, выписали лекарства: Макситрол и Офтальмоферон (и никаких сквозняков и улиц), через неделю прийти на повторный осмотр, также дали распечатку, что процентаж зрения составляет у одного глаза 20% у второго 40%. В связи с моим отъездом, не смог прийти в клинику, решил по приезду обращусь.


Мороз и солнце; день чудесный!
Еще ты дремлешь, друг прелестный -
Пора, красавица, проснись:
Открой сомкнуты негой взоры
Навстречу северной Авроры,
Звездою севера явись!