|
|
Другие темы раздела | |
Delphi FormCreate: программа зависает procedure TForm1.FormCreate(Sender: TObject); begin sum:=100; DrawBones(image1,0); Drawbones(image2,0); sMemo1.Lines.Add('Начальная сумма очков - 100'); // не запускается end; После того как пишу этот код и запускаю программу, она зависает. Подскажите в чем дело https://www.cyberforum.ru/ delphi-beginners/ thread2593208.html |
Delphi Муха в графине Сделать летающую точка внутри графина чтоб она не выходила за стенки самого графина и отскакивала от них |
Delphi Универсальные регистронезависимые юникодовские таблицы Один из актуальных вопросов - регистронезависимая работа с тестом. Тем более в юникоде. Может быть кому-то нравится использовать API, но я могу предложить несколько другой метод, который работает намного быстрее, что важно, например при поиске в больших текстовых файлах. Это использование простых таблиц. Собственно весь процесс сводится к превращению символа в код и чтению таблицу. Независимо... https://www.cyberforum.ru/ delphi-beginners/ thread2592706.html |
Delphi Даны натуральное число n, символы s1,.,Sn. Преобразовать последовательность s1,.sn, заменив в ней все восклицательны
https://www.cyberforum.ru/ delphi-beginners/ thread2592621.html 1. Даны натуральное число n, символы s1,...,Sn. Преобразовать последовательность s1,...sn, заменив в ней все восклицательные знаки точкой и запятой. 2.Даны натуральное число n, символы s1,...,Sn. Изменить последовательность s1,...,Sn, заменив в ней каждую точку на многоточие. 3.Даны натуральное число n, символы s1,...,Sn. Изменить последовательность s1,...,Sn, удалив из нее всее знаки +, за... |
AnsiString не так работает как в delphi7 (библиотека MediaInfoDLL) Delphi Нашел в сети вот такой код (получается программа - аналог MediaInfo) uses MediaInfoDll; ... var Path: AnsiString; Handle: Cardinal; begin if not OpenDialog1.Execute then exit; Path := OpenDialog1.Filename; Handle := MediaInfoA_New(); |
Delphi Смена фотографий при нажатии на кнопку Delphi ( есть два фото ( нужно при нажатии на одну и туже кнопку фото менялись между собой) ) procedure TForm1.Button1Click(Sender: TObject); begin Image3.Visible:=False; Image2.Visible:=True; Image2.Width := 590; Image2.Height := 363; end; procedure TForm1.Button1Click(Sender: TObject); https://www.cyberforum.ru/ delphi-beginners/ thread2592502.html |
Delphi Очень непростая задача. Поворот кнопки мышкой вокруг оси
https://www.cyberforum.ru/ delphi-beginners/ thread2592455.html Задача: Нужно осуществить вращение кнопки, путем SetBounds При нажатии на правый край кнопки, в MouseMove ее нужно "поворачивать"(на самом деле изменять размеры) вокруг противоположной стороны этой кнопки и наоборот, при нажатии на левый край - вращать вокруг правого края. Как это осуществить? |
Ханойские башни (TStack<T>, стек, игра) Delphi Ковырял дженерики. В процессе набросал игру, использующую обобщённый стек TStack<T>. Раздаю двоешникам и не только по акционной цене - бесплатно unit DataModel; interface uses System.Generics.Collections, Vcl.Graphics; |
Delphi Баг в ежедневнике Здравствуйте, такая проблема. Программа полностью написана, но присутствует баг. Постараюсь описать его подробно: 1)Заходим в программу 2)Добавляем 2 и больше записи 3)Сохраняем файл 4)Выходим из программы 5)Запускаем программу 6)Загружаем файл 7)Все записи, кроме одной, удалились. Как сделать так, чтобы все записи оставались? https://www.cyberforum.ru/ delphi-beginners/ thread2592404.html |
Delphi Что не так в коде?
https://www.cyberforum.ru/ delphi-beginners/ thread2592187.html Всем привет.Программа вместо гиперболы рисует параболу. procedure TGrafic.ГиперболаClick(Sender: TObject); Var a,b,c,x,y,xn,xk:real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=StrToFloat(Edit3.Text); xn:=StrToFloat(Edit4.Text); xk:=StrToFloat(Edit5.Text); |
Подсчет количества каждого символа в тексте Delphi По условию задачи необходимо определить, сколько раз в тексте введенном в мемо1 встречается каждый из символов (не считая пробела и знаков препинания), и вывести в мемо2 статистику (в идеале с % от общего числа всех символов) Пытался сделать таким образом, но выводит только "?=0" var i:byte; b,j,f:integer; r:arrayof char; t:arrayof integer; begin b:=192; |
Delphi Как записать в файл текст из другого приложения
https://www.cyberforum.ru/ delphi-beginners/ thread2592165.html Здравсвуйте. Знаком с Паскалем,а с Делфи только начинаю плотное знакомство. Есть такой код Function GetOtherWindowMemoText(const sCaption : String) : WideString; var hWindow : THandle; hChild : THandle; aTemp : array of Char; sClassName : String; |
05.03.2020, 00:14 | 0 |
Как скопировать текст из чата, если он не является окном? - Delphi - Ответ 1430735005.03.2020, 00:14. Показов 415. Ответов 2
Метки (Все метки)
Ответ
С точки зрения ОС - это просто обычное окно, на которое код приложения что-то там себе нарисовал. Через API ОС - никак.
Возможно у Flash Player есть какой-то доступ ActiveX или COM... Или перехватывать трафик... Распознавание скриншотов... Вернуться к обсуждению: Как скопировать текст из чата, если он не является окном? Delphi
0
|
05.03.2020, 00:14 | |
Готовые ответы и решения:
2
Определить, является ли текст правильной записью римскими цифрами целого числа от 1 до 999, и, если является, вывести на экран число арабским Является ли текст правильной записью римскими цифрами целого числа от 1 до 999, и, если является, распечатать это число арабскими цифрами Как выводить текст чата и юзерпик пользователя Дан файл, содержащий строки. Если третья строка не является самой длинной или самой короткой, то скопировать в новый |
05.03.2020, 00:14 | |
05.03.2020, 00:14 | |
Помогаю со студенческими работами здесь
0
Как сделать удаление чаттера из чата, если он ничего ни делает 3 мин.? Если число является простым, то функция возвращает true, если не является false Если файл содержит текст, удовлетворяющий определённым условиям, то скопировать этот файл в заданную папку Как скопировать текст? Как скопировать текст из webBrowser Как скопировать текст из Flash? |