Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Lazarus Определить наибольший отрицательный и наименьший положительный компонент типизированного файла Создать типизированный файл, куда записать n целых чисел. Из исходного файла сформировать массивы четных и нечетных чисел. Определить наибольший отрицательный компонент файла и наи- меньший положительный. (P.S) Задачу нужно решить в Lazarus, при условии, что файл у меня уже есть и его создавать не требуется. Всем заранее спасибо! https://www.cyberforum.ru/ lazarus/ thread2515258.html Фильтрация в StringGrid с последующей сортировкой Lazarus
Здравствуйте, есть StringGrid, 1 строка заполняется рандомно цифрами от 25 до 75. Далее 1 строка копируется на 2 строку и в ней нужно отфильтровать цифры (то есть если в ячейке цифра меньше чем цифра в edit1.text, ее удаляем и смещаем на ее место следующую цифру), после чего оставшиеся цифры нужно отсортировать, сортировку я знаю как сделать, но вот отфильтровать. Подскажите пожалуйста:( Вот...
Lazarus Как нарисовать график функции в lazarus https://www.cyberforum.ru/ lazarus/ thread2515037.html
Можно сказать неделю назад делал калькулятор в lazarus и дали вот эту задачу. Вообще ничего не знаю, помогите. Нарисовать надо параболу и гиперболу. Данные вводятся в edit.
Lazarus Массив: Вычислить значения 30 элементов массива в интервале -6 ,6 c использованием генератора случайных чисел https://www.cyberforum.ru/ lazarus/ thread2514711.html
Вычислить значения 30 элементов одномерного целочисленного массива в интервале -6 ,6 c использованием генератора случайных чисел И если можно объясните как вы сделаете рандом и почему там будут такие цифры? Второе задание найти среднеарифметическое значение найти,четных по значению, последней четверти
Unit1.pas(41,5) Fatal: Syntax error, ";" expected but "identifier Y" found Lazarus
Привет всем.Сделал программу,вроде как должна работать,не пойму в чем проблема(программа вся составлена вроде верна.т.к. мне нужно будет вводить ей рандом число в альфу и должно выводить ответ.а вот сами уравнения y=ln(x+a) если x<o y=1/ln(x+a) если 0<=x<=1 y=2-ln(x+a) если x>1 x=sin(a)*tg(a) a=вводить рандом значение.препод проверяет.а вот и сам код сделал 3 лейбла 3 едита. alpha...
Lazarus Отсортировать список. https://www.cyberforum.ru/ lazarus/ thread2514285.html
В поле Memo вводится список класса (фамилии на русском языке). Написать программу, которая позволяет при нажатии на кнопку отсортировать список.
Lazarus Написать программу, которая находит первую от начала строку с минимальным количеством цифр https://www.cyberforum.ru/ lazarus/ thread2514221.html
1. Заполнить поле Memo текстом, состоящим из нескольких строк (в строках - любые символы кроме русских букв). 2. Написать программу, которая находит первую от начала строку с минимальным количеством цифр и первую от конца строку с максимальным количеством цифр. 3. Меняет эти строки местами. Если цифр нет ни в одной строке, то поле Memo остается без изменений. В среде Лазарус.
Вывод данных массива в прямоугольники на canvas? Lazarus
Всем привет, что почитать и как такое реализовать? https://youtu.be/bTJnmDPX1gc?t=146 С графикой собственно не особо имел дело, а тут просто зацепил проект и хотел повторить, думал смогу, а не получилось ((( procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Pen.Color:=clDefault; Canvas.Brush.Style:=bsClear; Canvas.Rectangle(200,200,400,400);
Lazarus Массив: Внести в массив простые и совершенные числа, расположенные в файле между минимальным и максимальным элементами. https://www.cyberforum.ru/ lazarus/ thread2513939.html
Создать типизированный файл, куда записать n целых чисел. Массив создать из исходного файла. Внести в него простые и совершенные числа, расположенные в файле между минимальным и максимальным элементами.
Lazarus При очистке Array of Double в OSX, программа перестает работать https://www.cyberforum.ru/ lazarus/ thread2513861.html
Стоит задача очищать Array of Double при очередном заполнении. Вроде простая процедура. Но при DataX := nil; программа после второго цикла перестает работать (висит). Этот же код в Windows проблем не вызывает, программа работает. К сожалению, у меня в OSX отладчик не работает, есть только в Windows. Может кто сталкивался с подобным? Нашел еще команду инициализации массива Initialize(DataX); ,...
Lazarus Unit1.pas(57,4) Fatal: Syntax error, ";" expected but "." found
вот фулл прога unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
Lazarus Вычисление по формуле x=(y^2/a)-1,y - число от 0 до 50,а - число введенное с клавиатуры https://www.cyberforum.ru/ lazarus/ thread2513671.html
...
178 / 68 / 13
Регистрация: 22.12.2015
Сообщений: 2,648
20.10.2019, 06:26  [ТС] 0

Как выделить класс-перехватчик в отдельный модуль? - Lazarus - Ответ 13917361

20.10.2019, 06:26. Показов 1832. Ответов 5
Метки (Все метки)

Ответ

Всем спасибо. У меня были проблемы с тем куда вставить Uses. Для основного модуля он в interface, для выделенного модуля класса - в inplementation. Иначе - конфликт. Понимаю что связывать выделенный класс-перехватчик с конкретным модулем незачем. Делаю это чисто для демонстрации.
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit EditEx;
 
{$mode objfpc}{$H+}
 
interface
 
uses
    Classes, SysUtils, StdCtrls;
 
{ TEdit }
type
    TEdit = class(StdCtrls.TEdit)
    public
        procedure Click; override; 
    end;
 
implementation
uses Unit1;
procedure TEdit.Click;
begin
  inherited;
 
  Form1.Memo1.Lines.Add('Клик по некоторому окну редактирования');
end;
end.  
 
+
 
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, EditEx;
type
{ TForm1 }
  TForm1 = class(TForm)
      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Memo1: TMemo;
  private
 
  public
 
  end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
 
end.
если не трудно приведите пример на паскале как добавить своё свойство в этот класс-перехватчик.
Как переопределить событие с параметрами, например, OnKeyPress? Наверное это нужно выделить в отдельную тему?

Вернуться к обсуждению:
Как выделить класс-перехватчик в отдельный модуль? Lazarus
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2019, 06:26
Готовые ответы и решения:

Выделить отдельный класс двоичных чисел
Здравствуйте, нужна помощь, в программировании полный ноль, написал кое-как простенький...

Как добавить компоненту новое свойство используя класс-перехватчик?
Всем здравствуйте. Ознакомился с содержимым статьи...

Класс перехватчик, заполнить пустые ячейки грида строкой (при повторном нажатии - очистить как было)
Задание: при нажатии клавиши F11 все пустые ячейки Cells заполняются строкой из трех символов ###,...

Как выделить отдельный пункт меню жирным шрифтом
Добрый День Друзья! Не могу найти информацию, как сделать отдельный пункт меню в joomla...

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

Класс перехватчик к TForm
Добрый день, добавляю к TForm доп строку namespace SLE { class TF : public Vcl::Forms::TForm...

Как введёному числу выделить отдельный регион памяти через функцию virtualAlloc?
Как введёному числу выделить отдельный регион памяти через функцию virtualAlloc?

Как правильно вывести код в отдельный модуль
У меня есть код public void getFahrenheit(String celsius) { SoapObject request = new...

Как из программы написанной на PyQT5 сделать отдельный модуль?
Вот у меня есть небольшая программа которая отображает картинку(капчу), и поле для ввода капчи. ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru