Архив метки: 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
1 комментарий

Создание или открытие 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
5 комментариев

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

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

Автор: | 27.05.2013
Нет комментариев

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