Добрый день уважаемые читатели! Сегодня разберем пример установки библиотеки по работе с последовательным портом. Перед установкой необходимо скачать компонент TComPort и распаковать архив в папку с установленной программой Delphi: Далее запускаем среду разработки приложений Delphi 10.4 и переходим во вкладку Tools - Options: Далее в "Library path" указываем путь к папке "Source" из только что распакованного архива:...

Наконец-то свершилось, теперь существует бесплатная версия Delphi (хотя это было сделано уже более года назад), редакция которой называется Community Edition. Теперь многие могут не искать взломанные версии Delphi на различных сайтах и торрентах, а официально скачать бесплатную версию и начать разрабатывать кроссплатформенные приложения. Теперь вы можете создавать приложения для iOS, Android, Windows, а также macOS используя синтаксис и компоненты Delphi. Конечно, данная версия является ограниченной по функционалу, но поверьте, этого достаточно, чтобы делать довольно «мощные» приложения...

Обработка клавиатуры. Для того чтобы отловить нажатия клавишь, нужно подключить таймер, это если вы хотите прослеживать клавиатуру без подключения API функций. При работе в среде разработки Delphi Borland Enterprise кидаем на форму будущей программы таймер. Ставим интервал 70 миллисекунд. Энаблед ставим в true. Так же кинем на форму edit.text и в свойствах в значении энаблед поставим false. Дважды щелчек мышки по таймеру в окне программы и переходим в редактор кода в таймере. procedure Timer... begin if getasyncekeystate (49) <> 0 then edit.text1:=edit.text1 +'1'; end getasyncekeystate - понимает что мы хотим узнать нажата или нет клавиша...

1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт) 2. Для компонента Label1 свойство Caption пишем: Введите текст 3. Для компонента Label2 свойство Caption пишем: В тексте 4. Для компонента Edit1 свойство Text делаем пустым 5. Для компонента Button1 свойство Caption пишем: Вычислить 6. Должно получиться как на рис.1 7. Для Button1 пишем код: procedure TForm1.Button1Click(Sender: TObject); var n: integer; s: string; begin n:=length(Edit1.Text); label2.Caption:='В тексте '; if n>20 then n:=n mod 10; case n of 1:s:=' символ'; 2...