Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Разбить на процедуры var a:arrayof char; n:integer; begin write('Введите размер матрицы n='); readln(n); setlength(a,n,n); randomize; for var i:=0 to n-1 do begin for var j:=0 to n-1 do https://www.cyberforum.ru/ pascalabc-net/ thread2411354.html PascalABC.NET Создание файла с информацией о книгах
Сформировать файл книг необходимых учителю математики. Написать программу, которая подбирает книги для курса, номер которого вводится, печатает имена их авторов и год издательства. ПОМОГИТЕ, ПОЖАЛУЙСТА!!! Написала программу, но она выводы не все книги, которые соответствуют данному курсу, а только одну и не выводит книги для следующего курса program librare; type book=record...
PascalABC.NET Определить количество элементов массива, значения которых больше K https://www.cyberforum.ru/ pascalabc-net/ thread2411079.html
PascaABC Задание №1 N=12 Ввести число К Определить количество элементов массива, значения которых больше K. Задание №2 Поменять местами значения соседние элементы (1-2, 3-4, …) 		PascalABC.NET В целых числах уравнение ( ax + b ) : ( cx + d ) = 0 https://www.cyberforum.ru/ pascalabc-net/ thread2411041.html
Решить в целых числах уравнение ( ax + b ) : ( cx + d ) = 0. Входные данные Вводятся 4 числа: a, b, c и d; c и d не равны нулю одновременно. Выходные данные Необходимо вывести все целочисленные решения, если их число конечно, “NO” (без кавычек), если целочисленных решений нет, и “INF” (без кавычек), если их бесконечно много. Вот мой код но он проходит не все тесты
PascalABC.NET Нужно сделать программу для выполнения комбинации клавиш Ctrl + Shift + Alt + End
Отключились клавиши Ctrl и Alt, пока выбираю клавиатуру нужны быстрые сочетания Ctrl + Shift + Alt + End. Кто может пожалуйста помогите. 		PascalABC.NET Число прописью Здравствуйте. Ввести целое число до миллиард, которое означает количество рублей. Выдать это число прописью. Спасибо. https://www.cyberforum.ru/ pascalabc-net/ thread2410926.html
PascalABC.NET Строка: Распечатать из текста первые слова из предложений, которые содержат количество слов не больше заданного. Распечатать из заданного текста первые слова только тех предложений, которые содержат количество слов не больше заданного. https://www.cyberforum.ru/ pascalabc-net/ thread2410850.html PascalABC.NET Найти периметр треугольника
Знаком с Паскалем минут 5, объясните что тут не так PROGRAM MY1; VAR A,B,C,P:REAL; BEGIN WRITE('ВВЕДИТЕ СТОРОНУ A'); READ(A); WRITE('ВВЕДИТЕ СТОРОНУ B'); READ(B); WRITE('ВВЕДИТЕ СТОРОНУ C'); READ(C);
PascalABC.NET Проверить программу на несоответствие числа открывающих и закрывающих круглых скобок https://www.cyberforum.ru/ pascalabc-net/ thread2410757.html
Здравствуйте. Нужно решить задачу. Дан текстовый файл f, содержащий программу на языке Паскаль. Проверить эту программу на несоответствие числа открывающих и закрывающих круглых скобок. Считать, что каждый оператор программы занимает не более одной строки файла f. Буду предельно благодарен за помощь. 		PascalABC.NET Задан двумерный массив целых чисел размером n*m. Поменять местами в каждом столбце первый элемент с первым максимальным Здравствуйте. Нужно решить задачу. Задан двумерный массив целых чисел размером n*m. Поменять местами в каждом столбце первый элемент с первым максимальным. Буду предельно благодарен за помощь. https://www.cyberforum.ru/ pascalabc-net/ thread2410756.html
PascalABC.NET Найти все трёхзначные натуральные числа, которые состоят из разных цифр, а само число делится на 3
Здравствуйте. Нужно решить задачу. Найти все трёхзначные натуральные числа, которые состоят из разных цифр, а само число делится на 3. Буду предельно благодарен за помощь. 		PascalABC.NET Перевод программ написанных в PascalABC в Lazarus https://www.cyberforum.ru/ pascalabc-net/ thread2410723.html
Имеется код программы, которая просто переводит системы исчисления. Из 10 в 2, из 16 в 8 и т.д. Код написан в Паскале через CTR , но его необходимо перевести в лазарус. С лазарусом до этого момента ни разу не сталкивался (знаю лишь как кнопки да лейблы создавать). Помогите советом если можете. uses CRT; const a: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; var n: real; rez,...
1 / 1 / 0
Регистрация: 09.01.2017
Сообщений: 55
0

Windows.Forms - Процедуры, цикл for и System.Windows.Forms.Button - PascalABC.NET - Ответ 13368849

01.03.2019, 21:09. Показов 3653. Ответов 1
Метки (Все метки)
Студворк — интернет-сервис помощи студентам
Доброго времени суток. Есть WinForms программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

...
private
ClickedButtonId, ClickedButtonX, ClickedButtonY:Integer;
ClickedButtonPos:String;
balcony_01, balcony_02:Array[1..50] of Button;
...
procedure OnLoad;
begin
// Собственно, описание элементов
end;
procedure OnButtonClick;
begin
...
end;
public constructor;
begin
OnLoad;
for var i := 1 to 50 do
begin
self.balcony_01[i].Click += procedure(Sender:Object; e:EventArgs)->begin ClickedButtonId := i; ClickedButtonX := i; ClickedButtonY := 0; ClickedButtonPos := 'balcony'; OnButtonClick(); end;
self.balcony_02[i].Click += procedure(Sender:Object; e:EventArgs)->begin ClickedButtonId := i; ClickedButtonX := i; ClickedButtonY := 1; ClickedButtonPos := 'balcony'; OnButtonClick(); end;
end;
end;
...
Пожалуйста, подскажите, почему на вызов процедуры OnButtonClick() внутри for такая реакция и как это исправить:
Код
Theatre.pas(19) : Неизвестное имя 'OnButtonClick'


Вернуться к обсуждению:
Windows.Forms - Процедуры, цикл for и System.Windows.Forms.Button PascalABC.NET
0
Лучшие ответы (1)
Сообщение: #13369017
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 01.03.2019, 21:09
Готовые ответы и решения:

Windows.Forms - Array of Button, цикл for и public constructor
Доброго времени суток. Есть WinForms-программа, в public constructor используется цикл for....

Что за классы System, System.Drawing, System.Windows.Forms
Народ, объясните пожалуйста что за классы: System, System.Drawing, System.Windows.Forms. В справке...

System.Drawing и System.Windows.Forms -- как их соединить в одно окно
Вопрос следующий: есть программа, она делится на две части - одна графика, другая текстовое окно. В...

System.Drawing и System.Windows.Forms
Гуглил команды для модулей System.Drawing и System.Windows.Forms, но ничего не нашёл. Дадите пж...

1
01.03.2019, 21:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 01.03.2019, 21:09
Помогаю со студенческими работами здесь

Новые функции для System.Windows.Forms
Делаю модуль для упрощения работы с Windows.Forms То, что уже создал, написал ниже в спойлере....

Как нарисовать прямоугольник в System.Windows.Forms?
Вот код, который сделан неумелым пользователем на System.Windows.Forms и System.Drawing: ...

System.Windows.Forms+GraphABC в одном окне
Здравствуйте, есть графическая программа написанная в обычном pascal abc с использованием модуля...

Как сделать System.Windows.Forms.Panel прозрачной
Баловался с редактором форм, и получилось так, что Panel была на форме прозрачной, т.е. Была дыра в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru