|
|
| Другие темы раздела | |||||||||||||||||||||||||||||||||||||||
|
Delphi Получить список установленных приложений на смартфоне через ADB
https://www.cyberforum.ru/ delphi-beginners/ thread3087867.html Всем привет. Долгое время бьюсь над тем, чтобы получить список установленных приложений с телефона, подключенного к компьютеру. В программе, которую пишу, список устройств отображается, а список приложений- нет. Предпринималось много всего, чтобы таки решить задачу. Ниже привожу текст модуля. unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,... |
Delphi Элементы масива, большие 9, заменить на 1 Квесшенс по массивчику для про программистов. здравствуйте. вот код массива через рандом: var N,I: integer; M: array of integer; procedure TForm10.Button1Click(Sender: TObject); begin Randomize; | ||||||||||||||||||||||||||||||||||||||
|
Delphi Асинхронная работа с ComPort
https://www.cyberforum.ru/ delphi-beginners/ thread3087333.html Приветствую великих умов форума, столкнулся с проблемой работы с comPort, а конкретнее я использую модем который поддерживает ComPort и вот больше тут задача моя склоняется к тому как обуздать асинхронность? Я использую компонент https://github.com/CWBudde/ComPort-Library. Итак суть какая у меня есть ComPort1RxChar и вот он является как понимаю событием при получении символа, а читая я... |
Delphi Увеличение размера canvas pixel по нажатия на кнопку в PaintBox
https://www.cyberforum.ru/ delphi-beginners/ thread3087285.html Нужно сделать так, чтобы по нажатию на кнопку размер появляющихся пикселей увеличивался. С каждым последующим нажатием размер появляющихся пикселей должен увеличиваться. Всего должно быть 4 размера пикселей. type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; PaintBox1: TPaintBox; | ||||||||||||||||||||||||||||||||||||||
|
Delphi Текстовый редактор И вот, я снова тут, и не думала что у Delphi тут такой большой раздел, это наверное хорошо. Хотя я больше по VB6 и VBA и JS, но в какой-то момент поняла, что не воспринимаю ничего хоть как либо адекватное кроме Dreamweaver и NPP, вот и ищу видео курсы по созданию текстовых редакторов, по VB, JS, пускай и Delphi и исходники... а так же есть исходники AkelPad и NPP, но один на C другой на С++, хоть... |
Delphi Исправить ошибку в коде игры "пятнашки"
https://www.cyberforum.ru/ delphi-beginners/ thread3087043.html Ошибка в коде пятнашки делпфи Культин unit Unit1; //СТРАНИЦА 150 interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, System.UITypes; type | ||||||||||||||||||||||||||||||||||||||
|
Delphi Сравнение двух файлов идёт очень медленно
https://www.cyberforum.ru/ delphi-beginners/ thread3086881.html Здрасте, сделал сравнение двух файлов на одинаковые строки с дальнейшей записью, почему то сравнивает как то медленно, в качестве поисковика использовал ATStreamSearch из компонентов ATViewer, но пробовал и другие алгоритмы поисков в файле с заявленными быстрыми алгоритмами, не заметил разницы в скорости: program Project2; {$APPTYPE CONSOLE} uses System.SysUtils, ATStreamSearch, |
Как правильно преобразовать integer в char? Delphi Здрасте, мне нужно размножить рандомную цифру, но никак не получается преобразовать integer в нужный тип char procedure TForm2.Button1Click(Sender: TObject); begin Randomize; randseed:=strtoint(StringOfChar(char(random(10)), Random(10))); memo1.Lines.Add(inttostr(Random(500))); end; | ||||||||||||||||||||||||||||||||||||||
| Delphi Как сделать, чтобы объект мог передвигаться в определенную сторону, при этом не выходя за определенную границу? Не ругайтесь, я всего лишь студент) В общем, задание такое: Запрограммируем кнопку Вверх, которая будет сдвигать Рабочую панель вверх на 10 до тех пор пока расстояние до верхнего края будет больше 10: if WorkPanel.Top > 10 then WorkPanel.Top := WorkPanel.Top - 10; Запрограммируйте кнопки Вниз, Влево и Вправо для перемещения Рабочей панели в соответствующие стороны. Рабочая панель не... https://www.cyberforum.ru/ delphi-beginners/ thread3086318.html | Delphi Лаба по DES Добрый день. У меня есть все подпрограммы по des шифрованию, но собрать воедино их не могу. Я не понимаю, как они работают, так как нас разделили на группы и каждый писал свою подпрограмму, чтобы потом собрать их воедино. Но я не могу понять как это сделать. Помогите, пожалуйста. Задание -разбить текст на блоки по 8 байт, последний блок дополнить нулями -разбить блок на биты - и уложить... https://www.cyberforum.ru/ delphi-beginners/ thread3086226.html | ||||||||||||||||||||||||||||||||||||||
|
Delphi Проверка и сохранение дублирующих строк Я проверяю дубликаты строк до символа =. И если строки есть то сохранить не удаляя дубликаты. var f, s: TStringDynArray; i, j, k: integer; L, L1: TStringList; index: array of integer; begin L := TStringList.Create; L1 := TStringList.Create; j := 0; |
Delphi Добавление букв из алфавита, следующих да указанной
Здравствуйте, подскажите пожалуйста как добавить в строку буквы следующие за буквой в строке (9 букв),
например:
s := 'a';
после добавления:
s := 'abcdefghij'
s := 'k';
после добавления:
s
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Наверх
| ||||||||||||||||||||||||||||||||||||||
