Post Views: 5 255 Добрый день уважаемые читатели.Примерно месяц назад прочитал просьбу Всеволода Леонова и подумал, что помочь зоопарку не могу. О своих устройствах я уже рассказывал, но как я их подключал, на момент прочтения просьбы, уже хорошо забыл. Вспомнить танцы с бубном, помогла слетевшая «внезапно» винда.
Post Views: 4 804 Текст задания: Создайте Базу Данных для магазина. Структура её должна обеспечить получение информации в следующих разрезах: — список товаров с указанием цены; — список категорий товаров с количеством видов товаров в заданной категории. Имеется в виду не запасы на складе, а количество видов товаров в категории. Например, швейные машины — 3 шт.… Читать далее »
Post Views: 5 768 Текст задания: На форме располагаются компоненты: редактор Memo, кнопка «+», кнопка «-», кнопка «Очистить» и кнопка «Закрыть». Изначально в первой строке редактора находится число 0. Нажатие кнопки «+» приводит к увеличению содержимого редактора на 1, а кнопки «-» , к уменьшению на 1. Аналогичный результат может быть достигнут с помощью нажатия соответствующих… Читать далее »
Post Views: 4 810 Добрый день уважаемые читатели моего блога. В данной заметке я хочу поделиться своими мыслями по поводу разработки для Android на Delphi XE5.
Post Views: 5 927 Добрый день уважаемые читатели. На повестке моего дня стоит поиск работы, и для этого я традиционно пользуюсь сайтом www.hh.ru . На данном сайте размещаются резюме людей, ищущих работу. Сайт очень популярен в среде IT специалистов и можно смело сказать, что в другие места ходить не придется — все работодатели уже здесь. Сайт… Читать далее »
Post Views: 4 269 Инициализация переменной 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; Закрытие… Читать далее »
Post Views: 3 942 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 544 Установить атрибут «Скрытый» — 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)); Вывести сообщение если файл имеет атрибут… Читать далее »
Post Views: 6 768 Создание или открытие 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 940 Во время запуска программы пропишем её в реестр 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; // ветка текущего пользователя… Читать далее »