Андроид Андроиду рознь
Post Views: 4 651 Добрый день уважаемые читатели моего блога. В данной заметке я хочу поделиться своими мыслями по поводу разработки для Android на Delphi XE5.
Робот для Хедхантера
Post Views: 5 743 Добрый день уважаемые читатели. На повестке моего дня стоит поиск работы, и для этого я традиционно пользуюсь сайтом www.hh.ru . На данном сайте размещаются резюме людей, ищущих работу. Сайт очень популярен в среде IT специалистов и можно смело сказать, что в другие места ходить не придется – все работодатели уже здесь. Сайт… Читать далее »
Работа с Microsoft Office Excel
Post Views: 4 158 Инициализация переменной 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; Закрытие… Читать далее »
Работа с Microsoft Office Word
Post Views: 3 815 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; Перенос текста на новую строку… Читать далее »
Атрибуты файлов
Post Views: 5 379 Установить атрибут “Скрытый” – 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)); Вывести сообщение если файл имеет атрибут… Читать далее »
Работа с ini файлами
Post Views: 6 639 Создание или открытие 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 :… Читать далее »
Автозагрузка программы
Post Views: 4 815 Во время запуска программы пропишем её в реестр Windows, в раздел автозагрузки [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] uses Registry; procedure TForm1.FormCreate(Sender: TObject); var reg: TRegistry; path: string; begin path := Application.EXEname; // узнаем путь к программе и ее имя reg := TRegistry.Create; // открываем реестр reg.RootKey := HKEY_CURRENT_USER; // ветка текущего пользователя… Читать далее »
Работа с CD/DVD приводом
Post Views: 2 071 Программно открыть 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 612 Текст задания : Написать программу, определяющую по введенным с клавиатуры значениям координаты точки (x,y) её принадлежность к одному из образов. Решение :
Сортировка массива методом Шелла, поиск методом Фибоначчи
Post Views: 3 250 Текст задания : Ввести список чисел из файла, затем сортировать их методом Шелла, а после поиск по списку методом Фибоначчи. Решение :