Добрый вечер, читатели рассылки. Вот уже сентябрь, закончилось жаркое лето, для кого то началась учёба, многие наши читатели окунулись в рабочую среду после летних отпусков, а в нашем клубе всё по прежнему кипит жизнь. В сегодняшнем выпуске обзор интересных тем с форума.
Новые интересные статьи клуба программистов.
Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.
program Project2;
{$APPTYPE CONSOLE} uses SysUtils; var
Dir : String;
SearchRec: TSearchRec; begin
WriteLn;
Write('What''s directory need dir ? ');
Readln(Dir);
Dir := IncludeTrailingBackslash(Dir); if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then repeat if (SearchRec.Attr and faDirectory) 0 thenbegin if (SearchRec.name '.') and (SearchRec.name '..') then
WriteLn(Dir + SearchRec.name,' ') end else
WriteLn(Dir + SearchRec.name,' ',SearchRec.Size); until FindNext(SearchRec) 0;
FindClose(SearchRec); end.
Выход из бесконечного цикла
Вот, например, использую я бесконечный цикл, активируемый 1-й кнопкой. Что написать во 2-й кнопке, чтобы она остановила цикл?
DeKot:
Application.ProcessMessage позволяет влезть в любой цикл и дать команду на прерывание цикла или же полностью закрыть приложение (Halt).
Простой пример - на форме кнопки Пуск и Стоп цикла. В цикле мигает квадратик.
Тема на форуме
Уроки по программированию графически движущихся объектов
Обобщил некоторые практические наработки по работе с графикой в Дельфи и оформил в виде уроков. Буду признателен за любые замечания и отзывы всем, кто найдет время ознакомиться.
Думаю материал будет полезен всем новичкам в программировании , так как вопросы по графике, канве и т.п. постоянно пооявляются в разделах Основы Дельфи, Студенты, Обсуждение игр.
Тема на форуме
bmp=new Bitmap(openFileDialog1.FileName); int x, y; for (x = 0; x < bmp.Width; x++)//Перебор пикселей for (y = 0; y < bmp.Height; y++)
bmp.GetPixel(x, y);//функция возвращает цвет пикселя с координатами x,y
Работа с com портом
Есть прибор, который подключаеться через com порт к компьютеру. Протокол обмена известен. Как отправить ему 16 ричное значение и как прочитать такое значение от него?
Тема на форуме
Открыть несколько файлов из проводника
Делаю программу. Из проводника надо открыть с помощью нее файлы. Однако, если открываю сразу несколько файлов, то вместо того чтобы добавлять их в Listbox, открывается несколько копий моей программы. Как решить эту проблему?
Тема на форуме
Как быстро выучить английский язык?
Столкнулся с такой проблемой:
Хочу выучить английский язык. учу более года (сначала в школе 1 год, потом в ВУЗе 1 год), а толку не замечаю (вообще то есть небольшой эффект но этого слишком мало). На этом форруме насколько я знаю много людей владеющих английским языком и поэтому я хотел спросить как можно выучить английский быстро. должно быть Вы напишите чтобы быстро выучить нужно целыми днями и ночями изучать, но я думаю есть и другой способ. может есть какие то видеоматериалы самоучители и т.п. посоветуйте что нить. Заранее спасибо
Участники нашего клуба дают советы, как выучить английский язык. Присоеденится.
На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.
Немного юмора.
***
Мой домашний компьютер используется на 300%: на системный блок мы складываем журналы, с клавиатурой и мышкой играется ребенок, а на мониторе сидит плюшевый медведь.
***
Международная выставка компьютерной техники. Демонстрируют суперсовременный компьютер. Обращаются к многочисленной публике, с интересом наблюдающей за происходящим:
- Просьба соблюдать полнейшую тишину, т. к. компьютер работает по голосу, т. е. выполняет комнды, произнесгнные вслух. Публика затихает. Голос из зала:
- Си! Формат! Энтер!
***
- Что такое полное одиночество?
- Это когда с Hовым Годом тебя не поздpавляют даже спаммеpы.
***
Не кажется ли вам символичным, что праздник мелких пакостей и легких ужасов в Штатах назывется "Хелло, Win"?