|
|
Другие темы раздела | ||||||||||||||||||
Delphi Очистить ячейки StringGrid Имеется программа. Меня попросили добавить кнопку Сброс. Она должна очистить формы. Помогите. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type https://www.cyberforum.ru/ delphi-beginners/ thread83602.html |
Масштаб формы и диалоги Delphi Здрасте, уважаемые професионалы, подскажите пжл как в можно в меню сделать следующее, например у меня есть пункт масштаб, в нем сабменю: 50%, 75%, 100%. Не подскажите код чтобы при нажатии на пункт 50% программа уменьшалась вполовину, а например в 100% увеличивалась до своих размеров. PS: подскажите еще пожалуста, как в поле dbmemo запрограмировать кнопки меню: вырезать, копировать, вставить,... | |||||||||||||||||
Delphi Символьная строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом)
https://www.cyberforum.ru/ delphi-beginners/ thread83553.html Символьная строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом). Собственное такакя задача, сам текс програмы я написал, но дело в том что если брать напримар строку "1231" или "aeka" он выдает что это палиндром ,укажите пожалуйста на ошибку . {$APPTYPE CONSOLE} uses SysUtils; |
Delphi Определить, являются ли два введенных числа взаимно простыми
https://www.cyberforum.ru/ delphi-beginners/ thread83529.html 1. Напишите программу, выполняющую поиск наибольшего общего делителя двух целых чисел. (про поиск можно не говорить, варианты написания прог на поиск НОД видела, с function отказывается работать, нужен код именно под оконное приложение). 2. Программа, переносящая строки из одного файла (загруженного в listbox) в другой файл (listbox2), кнопки на перенос одной строки (туда\обратно), несколько... | |||||||||||||||||
Среднее арифметическое строк матрицы Delphi Задача: Сформировать массив из среднего арифметического элементов каждой строки без учета максимального и минимального значения соответствующей строки матрицы. Думал над этой задачей довольно долго. Все не так просто на первый взгляд. Просто сформировать массив из среднего арифметического элементов каждой строки исходной матрицы я могу. Вот функция: function EditMatrix(IntMatrix :... |
Delphi Найти сумму наименьших значений строк матрицы
https://www.cyberforum.ru/ delphi-beginners/ thread83505.html implementation {$R *.dfm} var m,n:integer; A:arrayof integer; procedure TForm1.Button1Click(Sender: TObject); begin m:=strtoint(edit1.Text); n:=strtoint(edit2.Text); | |||||||||||||||||
Delphi Найти сумму положительных и отрицательных чисел матрицы Программа считает сумму положительных и отрицательных чисел матрицы. Подскажите, почему программа положительные числа считает отрицательными. Допустим при заполнении матрицы единицами выдается сообщение, что сумма положительных элементов равно 0, а сумма отрицательных 25 ? type TIntMatrix = array of array of Integer; TMainForm = class(TForm) InputStringGrid: TStringGrid; ... https://www.cyberforum.ru/ delphi-beginners/ thread83470.html |
Delphi Из бит в секунды... В общем...давно писал я этот косячный код...но и сейчас не знаю как его исправить...помогите...нужны минуты и секунды... 'nn:ss' по какой формуле рассчитывать не знаю... FormatDateTime ('hh:mm ', BASS_ChannelGetLength(chan,BASS_POS_BYTE) / (1000 * 60 * 60 * 60)) | |||||||||||||||||
Delphi Пользовательские функции для работы с файлами и папками
https://www.cyberforum.ru/ delphi-beginners/ thread83403.html В Delphi для работы с папками есть набор стандартных функции, но к сожалению они не совершены. К примеру DeleteDir не может удалять папки с содержимым, также нет функции для копирования папок с содержимым. Ниже указаны определения пользовательских процедур и ссылка для загрузки unit'а. Function ExRemoveDirs(RootDir : String) : Boolean; Первая версия, для удаления папки с содержимым не... |
Delphi Работа с Canvas Привет всем, ребят помогите разобраться, вот дошло дело до простых рисунков на форме, нашел как нарисовать линию, точку, квадрат.... и так далее, так вот с параметрами не могу понять что происходит MoveTo(20,50); Это так для примера накидал цифр, что обозначает тут 20 и что 50? Это координаты вроде бы как в математике первое х и второе у в пикселах????? LineTo(120,75); А вот тут методом... https://www.cyberforum.ru/ delphi-beginners/ thread83402.html | |||||||||||||||||
Прозрачность Delphi Как сделать картинку прозрачной? как на windows 7 |
Delphi Вывести на экран таблицу значений функции y(x) и ее разложения в ряд
https://www.cyberforum.ru/ delphi-beginners/ thread83335.html Нарисуйте схему алгоритма. Спроектируйте панель диалога и напишите текст программы. Вывести на экран таблицу значений функции y(x) и ее разложения в ряд s(x) для x изменяющихся от xn до xk с заданным количеством шагов M ( ) и точностью e. Близость значений S(x) и Y(x) во всем диапазоне значений x ука-зывает на правильность вычисле
Наверх
|