Post Views: 2 194 Программно открыть dvd привод: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] mciSendString(‘set cdaudio door open wait’,nil,0,0); // uses , mmsystem; [/cc] Программно закрыть (если поддерживается железом) dvd привод: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] mciSendString(‘set cdaudio door closed wait’,nil,0,0); // работает только когда в системе 1 физический dvd привод. [/cc]
Post Views: 2 744 Текст задания : Написать программу, определяющую по введенным с клавиатуры значениям координаты точки (x,y) её принадлежность к одному из образов. Решение :
Post Views: 3 371 Текст задания : Ввести список чисел из файла, затем сортировать их методом Шелла, а после поиск по списку методом Фибоначчи. Решение :
Post Views: 3 301 Текст задания : Необходимо проиграть мелодию на системном динамике. Решение :
Post Views: 4 809 Текст задания : Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку «5»? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.
Post Views: 3 419 Текст задания : Вова купил билет в трамвае 13-го маршрута и сразу посчитал суммы первых трёх цифр и последних трёх цифр номера билета (номер у билета шестизначный). Оказалось, что суммы отличаются ровно на единицу. «Я в одном шаге от счастья», — подумал Вова, — «или предыдущий или следующий билет точно счастливый». Прав ли он?
Post Views: 2 249 Текст задания : Вывести значение аргумента при изменении которого от нуля до данного значения, число локальных минимумов и максимумов функции y=sin(a*x^2) достигнет 20. Решение :
Post Views: 2 598 В Windows7 компонент ADOConnection при переносе на другие компьютеры готового исходника, сбрасывает строку подключения на собственную «C:\Windows\system32″ или подобную. Выхода и данной ситуации может быть два. Или переносить файл с базой данных в эту папку, или поставить ниже следующий костыль. Данный костыль формирует строку подключения во время запуска программы, а именно создания… Читать далее »
Чехов. Lets Read — что в переводе на русский «Давай читай» или просто «Читай»
20 причин читать больше
Post Views: 2 272 Задача : Поcтавить закладку, пробежаться по всей таблице и вернуть курсор на место закладки. Решение : [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] procedure TForm1.SomeDBOperations; var b: string; begin b := myGrid.DataSource.DataSet.Bookmark; myGrid.DataSource.DataSet.DisableControls; {какие-то операции с Table1} ….. ….. myGrid.DataSource.DataSet.EnableControls; myGrid.DataSource.DataSet.Bookmark := b; end; [/cc]