Пост
Hello :)

Офигенный денёк, сегодня ко мне, в Оренбург, приехал друг с Cтерлитамака родом Актюбинска. Урааа....)))))

Гуляем...

  • Serj
  • 20 ноября 2011

Всем, часто приходилось использовать в 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 - пауза в секукндах. 

 

При использовании данной функции, программа не будет уходить в Даун, а будет дальше функционировать.

 

  • Serj
  • 20 ноября 2011

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

 

  • Serj
  • 19 ноября 2011

 

 

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

  • Serj
  • 17 ноября 2011



© SERJ.WS 2011-2021