|
|
| Другие темы раздела | |
| Delphi Программа Решения Системы уравнений procedure TForm1.Label1Click(Sender: TObject); begin close; end; procedure TForm1.Label1Click(Sender: TObject); const D:= 1.5; var X, B: real; begin X:=StrToFloat (Edit1.Text); if X<1.3 then Pi:=D https://www.cyberforum.ru/ delphi-beginners/ thread1858560.html |
Delphi Не могу прописать значение в if Добрый день не могу прописать полноценно требуемое значение в поле эдит выходят числа вот нужно если число будет со знаком - (пример -3 или -5) делать действие, но не могу реализовать это если ввожу просто минус то не работает когда стоят вместе числа как это исправить if (edit8.Text= '-') then begin // проверка дней label1.Caption:= 'дни закончились'; end else begin ... |
|
Delphi Текстовый файл
https://www.cyberforum.ru/ delphi-beginners/ thread1858417.html Помогите пожалуйста На форме разместить три кнопки (TButton) , надпись (TLabel) , многострочный редактор (TMemo) . При открытии формы первая строчка файла выводится в надпись . При нажатии на первую кнопку - в многострочный редактор будет перенесена эта строчка , все его гласные буквы будут "подняты" к большим(заглавные буквы) , а в надпись выведется следующая строчка файла. При нажатии на 2... |
Delphi Сделать возрастающую последовательность из массива
https://www.cyberforum.ru/ delphi-beginners/ thread1858377.html Создал массив, нужно найти наименьшее число k элементов, которые нужно исключить из последовательности, чтобы осталась возрастающая последовательность. procedure TForm1.Button1Click(Sender: TObject); var a: array of integer; i:integer; begin listbox1.Items.clear; randomize; for i:=1 to 10 do a:= random(50); |
|
Если в каталоге имеется файл с расширением *.txt, то добавьте в этот каталог копию этого файла Delphi Структура записи: имя каталога Имя файла Спецификация( расширение) Дата создания (день, месяц, год) размер файла (в байтах) Задача: записи упорядочены по названиям каталогов . Если в каталоге имеется файл с расширением *.txt, то добавьте в этот каталог копию этого файла(в имени копии дописать фразу《-копия》 Не понимаю даже с чего начать( |
Delphi Динамические списки Подскажите, пожалуйста, как при работе с динамическими списками в паскале можно отсортировать введенные данные (например, фамилии) в алфавитном порядке? https://www.cyberforum.ru/ delphi-beginners/ thread1858320.html |
|
Delphi Запись массива в столбик
https://www.cyberforum.ru/ delphi-beginners/ thread1858315.html Подскажите, пожалуйста, как записать массив в столбик? Дан один массив, из него формируется другой, а как его записать не в строчку, а в столбик? Добавлено через 9 минут Нашел ответ. |
Delphi Требуется написать программу в Delphi 7 с массивами Помогите в написании с данной программой(Delphi 7). Массивы совсем не понимаю:cry: Условие: Задан массив x1, x2, ..., x15. Определить номер первого отрицательно xi и номер последнего отрицательного xi, поменять их местами. Заранее благодарен. |
|
Delphi Создать Windows-приложение для решения: неравенства ax2 +c>0;
https://www.cyberforum.ru/ delphi-beginners/ thread1858293.html Создать Windows-приложение для решения: |
Delphi ComboBox: сделать чтобы один из элементов списка выдавал еще один список
https://www.cyberforum.ru/ delphi-beginners/ thread1858251.html Всем привет, я начинаю изучать делфи, и вот появился вопрос на который не как не могу найти ответ. У меня есть ComboBox, со списком и я хочу что бы 1 из элементов списка выдавал еще 1 список, такое возможно? |
|
Delphi Сворачивание, разворачивание и закрытие горячими клавишами Необходимо сделать программу где-то с 3 пустыми формами, чтобы можно было по горячим клавишам: alt+с свернуть и развернуть окна alt+x сделать активной 2 форму alt+v закрыть форму и выйти из приложения. Помогите пожалуйста, заранее спасибо) |
Delphi Поиск русских символов
https://www.cyberforum.ru/ delphi-beginners/ thread1858241.html Нужно скопировать все слова(латинские и русские) без лишних символов из memo1.text в коллекцию. Удалить все символы кроме латинских получается, а вот оставить латинские и русские символы, не получается. В 6 строке русские символы удаляются вместе с остальными которые не указаны в наборе 'a'. var L : TStringList; i: integer; s1, s2 : string; a: set of char; c: char; |
|
53 / 53 / 5
Регистрация: 22.11.2016
Сообщений: 268
|
||||||
| 24.11.2016, 09:57 | 0 | |||||
При щелчке на кнопке "Нарисовать" появляется изображение зеленой звезды - Delphi - Ответ 980873824.11.2016, 09:57. Показов 738. Ответов 8
Метки (Все метки)
Ответ
Вернуться к обсуждению: При щелчке на кнопке "Нарисовать" появляется изображение зеленой звезды Delphi
0
|
||||||
| 24.11.2016, 09:57 | |
|
Готовые ответы и решения:
8
При щелчке по кнопке, цвет фона становится розовым, и надпись на кнопке меняется на «Желтый». Нарисовать изображение, состоящее из звезды, квадрата, круга
Воспроизвести звуковой файл при щелчке по кнопке |
| 24.11.2016, 09:57 | |
| 24.11.2016, 09:57 | |
|
Помогаю со студенческими работами здесь
0
При щелчке по CheckBox появляется надпись Скопировать кнопку в массиве при щелчке на другой кнопке
Реализовать переход на определенную веб-страницу при щелчке по кнопке
При щелчке на PictureBox загрузить в него изображение |