Олимпиада

В России появились б...

Четверг, 30 Август 2012
Компания HEC/COMPUCASE Europe GmbH объявляет о начале продаж в России блоков питания марки COUGAR серии CMX. Новые БП мощные и тихие, с модульным подключением кабелей. Линейка состоит из 4 моделей мощностью 550,...
Читать полностью

ЧП добровольно выпла...

Вторник, 28 Август 2012
Днепропетровска компания "Безопасность, охрана, гарантия", предоставляющая услуги по охране, использовала 14 компьютеров с установленными, на каждом из них, пиратскими копиями операционных систем и офисных приложений Microsoft. Согласно действующего законодательства, за хранение...
Читать полностью

«SMS XL» от «Киевста...

Суббота, 25 Август 2012
До 15 июня 2011 года абоненты предоплаченной связи Киевстар могут воспользоваться новым акционным предложением SMS XL с включенным объемом SMS для отправки на номера сети Киевстар и DJUICE. Киевстар вводит новое акционное...
Читать полностью

Вредоносные программ...

Четверг, 23 Август 2012
Согласно данным мониторинга, абсолютным лидером по количеству заражений в Интернете в этом месяце стал размещаемый на порно-сайтах скрипт из семейства FakeUpdate - Trojan.JS.FakeUpdate.bp. Он предлагает скачать видео соответствующего содержания, однако для...
Читать полностью

Samsung анонсировала...

Понедельник, 20 Август 2012
Компания Samsung Mobile Display анонсировала выход семидюймовых дисплеев, изготовленных по ее технологии Super-AMOLED, пишет ресурс OLED-Display.net со ссылкой на корейское издание Etnews Новые дисплеи имеют разрешение 1200 на 600 пикселей.
Календарь
< Март 2012 >
П В С Ч П С В
      1 2 3
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31  
Анонсы новостей

Демократичные цены на авиабилеты

Кто не желает отправиться в полет на комфортабельном лайнере в увлекательное путешествие? Компания Tickets.by порадует туристов демократичными ценами на авиабилеты на самые популярные международные и локальные рейсы. Фирма пользуется доверием тысяч б...

Читать полностью
Яндекс.Метрика


Рассмотрим два примера программы поиска файла по всему диску...

Рассмотрим два примера программы поиска файла по всему диску и даже по всем дискам с учетом маски:

Пример 1 Uses DOS,CRT; var Stop:boolean; Procedure FileFind(Dir,FindName : PathStr); Procedure SearchDir(Dir : PathStr); Var SRec : SearchRec; i:integer; begin if Stop then Exit; if Dir[Length(Dir)] '\' then Dir := Dir+'\'; ClrEol; Write(Dir,#13); if KeyPressed then Stop := ReadKey = #27; FindFirst(Dir + FindName, AnyFile, SRec); While DosError = 0 do begin With SRec do if Attr and (VolumeID + Directory) = 0 then WriteLn(Dir + Name); FindNext(SRec); end; FindFirst(Dir+'*.*', $17, SRec); While DosError = 0 do begin With SRec do if (Attr and Directory 0) and (Name[1] '.') then SearchDir(Dir+Name); FindNext(SRec); end; end; begin Stop:=False; SearchDir(Dir); end; function GetCurDrive: Char; var r: Registers; begin r.ah := $19; MSDOS(r); GetCurDrive := Char(r.al + $41); end; procedure SetCurDrive(Drive: Char); var r: Registers; begin r.ah := $0E; r.dl := Byte(Drive) - $41; MSDOS(r); end; procedure WalkDrives(Name : String); var SaveDrive, Drive, Ch: Char; begin if Pos('.', Name) = 0 then Name := Name + '*.*'; SaveDrive := GetCurDrive; for Ch := 'C' to 'Z' do begin SetCurDrive(Ch); Drive := GetCurDrive; if Drive = Ch then begin FileFind(Drive + ':\',Name); if Stop then Break; end; end; SetCurDrive(SaveDrive); end; begin FileFind('C:','*.bak'); {search *.bak in C:} WalkDrives('*.pas'); {search *.pas in all drives} end.
 
Новости

Демократичные цены н...

Суббота, 17 Февраль 2018
Кто не желает отправиться в полет на комфортабельном лайнере в увлекательное путешествие? Компания Tickets.by порадует туристов демократичными ценами на авиабилеты на самые популярные международные и локальные рейсы. Фирма пользуется доверием тысяч...
Читать полностью

Особенности нулевой...

Понедельник, 29 Январь 2018
Даже если коммерческая организация на время приостановила деятельность и не получает дохода вообще, ей все равно приходится иметь дело с налоговыми органами. В этом случае ежегодно и ежеквартально предоставляется нулевая отчетность...
Читать полностью

Современные возможно...

Суббота, 28 Ноябрь 2015
Современные возможности программирования и качественный ламинат в интернет магазине На сегодня в интернете есть немало сайтов, на которых можно приобрести отличные строительные материалы для отделочных работ.

Сетевые экраны: реко...

Пятница, 27 Ноябрь 2015
сетевые экраныНаиболее важным средством защиты сетей являются сетевые экраны, называемые межсетевыми или брандмауэрами. Главная задача сетевого экрана - экранировать сетевой трафик для недопущения несанкционированного доступа между компьютерными сетями.

Язык программировани...

Суббота, 10 Октябрь 2015
Язык программирования В современном мире существует множество профессий, среди которых профессия программиста довольно таки востребована, потому как все в мире компьютеризировано и автоматизировано, и надо создавать дополнительные программы для слаженной работы многофункциональных устройств.
Опрос
На каком языке Вы программируете?
 
Яндекс.Метрика