Архив метки: Delphi

Работа с Microsoft Office Excel

Автор: | 07.10.2013

Инициализация переменной Excel — Excel := CreateOleObject(‘Excel.Application’); // var Excel: Variant; uses ComObj; Создание новой книги — Excel.Workbooks.Add; // var Excel: Variant; uses ComObj; Открытие существующей книги — Excel.Workbooks.Open[‘Эксель.xls’]; // var Excel: Variant; uses ComObj; Открытие существующей книги только для чтения — Excel.Workbooks.Open[path, 0, True]; // var Excel: Variant; uses ComObj; Закрытие Excel — Excel.ActiveWorkbook.Close;… Читать далее »

Работа с Microsoft Office Word

Автор: | 07.10.2013

uses ComObj; var MSWord: Variant; Создаём экземпляр Ворда — MsWord := CreateOleObject(‘Word.Application’); Делаем видимым документ — MsWord.Visible := True; Скрываем документ — MSWord.Visible:=false; Создаём новый документ — MSWord.Documents.Add; Открываем документ — MSWord.Documents.Open(‘C:\ex.doc’); Записываем текст в документ — MSWord.Selection.TypeText(‘Текст’); Сохраняем документ — MSWord.ActiveDocument.SaveAs(‘C:\ex.doc’); Устанавливаем размер шрифта — MSWord.Selection.Font.Size:=12; Перенос текста на новую строку — MSWord.Selection.TypeText(#13#10’Текст на… Читать далее »

Атрибуты файлов

Автор: | 07.10.2013

Установить атрибут «Скрытый» — SetFileAttributes(PChar(‘1.txt’),faHidden); Установить атрибут «Только для чтения» — SetFileAttributes(PChar(‘1.txt’),faReadOnly); Установить атрибут «Системный» — SetFileAttributes(PChar(‘1.txt’),faSysFile); Установить атрибут «Архивный» — SetFileAttributes(PChar(‘1.txt’),faArchive); Снять атрибут «Только для чтения» с файла — FileSetAttr(PChar(‘1.txt’),Not(faReadOnly)); Снять атрибут «Скрытый» — FileSetAttr(PChar(‘1.txt’),Not(faHidden)); Снять атрибут «Системный» — FileSetAttr(PChar(‘1.txt’),Not(faSysFile)); Снять атрибут «Архивный» — FileSetAttr(PChar(‘1.txt’),Not(faArchive)); Вывести сообщение если файл имеет атрибут «Скрытый» — if… Читать далее »

Работа с ini файлами

Автор: | 07.10.2013

Создание или открытие Ini файла — Ini:= TIniFile.Create(‘Ini.ini’); // Var Ini : TIniFile; uses , inifiles Создается, если не задан путь в папке Виндовс. Создание или открытие Ini.ini файла в директории программы — Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+’Ini.ini’); // Var Ini : TIniFile; uses , inifiles Освобождение памяти от переменной — Ini.Free; // Var Ini : TIniFile; uses ,… Читать далее »

Работа с CD/DVD приводом

Автор: | 06.10.2013

Программно открыть 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]

Попадание в определенную область сетки координат

Автор: | 03.06.2013

Текст задания : Написать программу, определяющую по введенным с клавиатуры значениям координаты точки (x,y) её принадлежность к одному из образов. Решение :

Сортировка массива методом Шелла, поиск методом Фибоначчи

Автор: | 28.05.2013

Текст задания : Ввести список чисел из файла, затем сортировать их методом Шелла, а после поиск по списку методом Фибоначчи. Решение :

Подсчет числа оценок без использования условного оператора

Автор: | 27.05.2013

Текст задания : Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку «5»? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.

В одном шаге от счастья

Автор: | 27.05.2013

Текст задания : Вова купил билет в трамвае 13-го маршрута и сразу посчитал суммы первых трёх цифр и последних трёх цифр номера билета (номер у билета шестизначный). Оказалось, что суммы отличаются ровно на единицу. «Я в одном шаге от счастья», — подумал Вова, — «или предыдущий или следующий билет точно счастливый». Прав ли он?