|
|
Другие темы раздела | |
Delphi Вызвать функцию при открытии программы
https://www.cyberforum.ru/ delphi-beginners/ thread1543481.html Имеется функция: function PushStringItem(Items: TStrings; const NewItem: string; const Max: Integer = 128): string; var Index, Count: Integer; begin if NewItem = '' then Exit; |
Нарисовать квадраты из точек Delphi 5. Нарисовать квадрат от точки (0, 0) до (255, 255) используя свойства Canvas.Pixels. Цвет точек определять по формуле (256*x + y). 6. Аналогично 5, только размер квадрата 512х512 и цвет каждой точки определять по формуле RGB(z, 0, 0), где z равно: а. sin(x*y/8192); б. sin(x/32)*cos(y/32); в. sin((x-256)*(y-256)/8192). Можно использовать свою формулу. Примечание: при использовании функций... |
Delphi Написать процедуру очистки формы Написать процедуру очистки формы. https://www.cyberforum.ru/ delphi-beginners/ thread1543372.html | Delphi Приоритетность обработки сообщений Приветствую. Функция в длл отправляет сообщения моей проге. В проге объявлена процедура: procedure WMCopyData(var Msg:TWMCopyData); message WM_COPYDATA; все работает нормально, но мне хотелось бы расширить возможности и, например, дополнить длл еще одной функцией, которая будет присылать в прогу другие данные, но подобным же способом. Но, как мне лучше фильровать сообщения в проге? Как... https://www.cyberforum.ru/ delphi-beginners/ thread1543314.html |
Delphi Speed Button и нажатие клавиши Можно ли привязать нажатие клавиши (Speed Button) на экране к нажатию клавиши на клавиатуре? Т.е. когда мы нажимаем на (Speed Button) в самой программе это имитировало нажатие клавиши '1' на клавиатуре. |
Delphi Найти сумму отрицательных чисел в последовательности
https://www.cyberforum.ru/ delphi-beginners/ thread1543187.html 1.С клавиатуры вводится последовательность из n целых чисел. Найти сумму отрицательных чисел. 2.Среди натуральных чисел от 1 до 100 найти все пары чисел, для которых их сумма равна их произведению и количество таких пар. Если таких чисел нет, вывести на экран соответствующее сообщение. |
Delphi По номеру месяца m выдать название следующего за ним месяца Используя оператор выбора, написать программу, которая по номеру месяца m выдает название следующего за ним месяца (при m=1 получаем февраль, 4 – май) https://www.cyberforum.ru/ delphi-beginners/ thread1543186.html |
Составить программу для определения подходящего возраста кандидатуры для вступления в брак. Delphi Как реализовать данную задачу? Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется как удвоенный возраст девушки минус 14 |
Delphi Определить, является ли введенное четырехзначное число палиндромом Delphi( vsl from aplliction). Как реализовать данную задачу? Определить, является ли введенное четырехзначное число палиндромом (палиндром читается одинаково слева направо и справа налево, например, слово «шалаш», число 121). https://www.cyberforum.ru/ delphi-beginners/ thread1543184.html |
Delphi Если x<y<z, то числа x, y, z заменить их квадратами, иначе числа x, y, z заменить на противоположные (VCL)
https://www.cyberforum.ru/ delphi-beginners/ thread1543183.html Даны три числа x,y,z. Если x<y<z,то числа x,y,z заменить их квадратами, иначе числа x,y,z заменить на противоположные. |
Непорядок с печатью в Делфи Delphi { Получить информацию о принтере } procedure TForm2.GetPrinterInfo; begin PixelsX:=GetDeviceCaps(printer.Handle, LogPixelsX); PixelsY:=GetDeviceCaps(printer.Handle, LogPixelsY); end; { переводит координаты из мм в пиксели } function TForm2.PrinterCoordX(x: integer): integer; begin |
Delphi Текущее число, день недели, месяц и год (неправильно отображается день недели)
https://www.cyberforum.ru/ delphi-beginners/ thread1543069.html Всем доброго времени суток. Все перечисленное из название темы показывается как есть, кроме Дня Недели. procedure TForm1.FormCreate(Sender: TObject); const mes:array of string=('Января','Февраля','Марта','Апреля','Мая', 'Июня','Июля','Августа','Сентября','Октября','Ноября','Декабря'); var date:TDateTime; Year, Month, Day:word; |
15 / 15 / 6
Регистрация: 31.01.2011
Сообщений: 178
|
|
04.10.2015, 16:40 | 0 |
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип авто - Delphi - Ответ 814981104.10.2015, 16:40. Показов 2645. Ответов 1
Метки (Все метки)
Ответ Где скопировал? Отдебажить бы не помешало Вернуться к обсуждению: В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип авто Delphi
0
|
04.10.2015, 16:40 | |
Готовые ответы и решения:
1
В справочной автовокзала хранится расписание движения автобусов В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправ в справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пунт назначения, время отбытия и п В справочной автовокзала хранится расписание движения автобусов |
04.10.2015, 16:40 | |
04.10.2015, 16:40 | |
Помогаю со студенческими работами здесь
0
В текстовом файле хранится список товаров. Для каждого товара указаны его название, стоимость единицы товара в тыс. руб Сформировать структуру AEROFLOT для хранения следующей информации номер рейса название пункта назначения рейса тип самолета Расписание движения автобусов Расписание движения автобусов |