5 / 5 / 2
Регистрация: 04.10.2010
Сообщений: 205
1

Вызов процедуры из другого модуля

17.11.2015, 13:42. Показов 2086. Ответов 13
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток!
Имеется форма с компонентами Stringgrid, Memo, Checkbox и т.п.
Код сильно разросся, решил перенести его в другой Unit2, оставив в главном Unit1 только вызов процедур. Но не получается грамотно, есть ошибки.
Unit1.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
unit uMain;
 
interface
 
uses
 
type
  TForm3 = class(TForm)
  //описание Memo и т.п.
public
    procedure Xls_Open(XLSFile:string; Grid1:TStringGrid; Grid2:TStringGrid; );
  end;
 
var
  Form3: TForm3;
 
implementation
  {$R *.dfm}
  uses Unit2;
procedure TForm3.Button1Click(Sender: TObject);
begin
           Xls_Open (OpenDialog1.File, StringGrid1, StringGrid2);
end;
Unit2.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
unit Unit2;
 
interface
 
procedure Xls_Open_Z5(XLSFile:string; Grid1:TStringGrid; Grid2:TStringGrid; Grid3:TStringGrid; Grid4:TStringGrid; Grid5:TStringGrid);
 
implementation
 
uses
 
procedure Xls_Open(XLSFile:string; Grid1:TStringGrid; Grid2:TStringGrid);
   begin
       ...
   end;
end.
Если все описано верно, к примеру, то в таком виде ругается сейчас на:
Delphi
1
2
[Error] Unit2.pas(5): Undeclared identifier: 'TStringGrid'
[Error] Unit1.pas(38): Undeclared identifier: 'Memo1'
И все остальные компоненты, что я использую в Unit1 : они используются и в Unit2.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2015, 13:42
Ответы с готовыми решениями:

Вызов процедуры из другого модуля
Помогите пожалуйста, нужно вызвать свою процедуру из другого модуля, что надо для этого написать в...

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

Вызов процедуры-члена объекта из другого модуля
Следующий код вызывает ошибку "Access (ошибка доступа к памяти)": Модуль...

Вызов конструктора из другого модуля
Добрый день! Подскажите пожалуйста, в чём ошибка. Пытаюсь вызвать конструктор класса, объявленного...

13
Житель Земли
3002 / 3004 / 391
Регистрация: 26.07.2011
Сообщений: 11,463
Записей в блоге: 1
17.11.2015, 13:56 2
Цитата Сообщение от Пётр Нефедов Посмотреть сообщение
[Error] Unit2.pas(5): Undeclared identifier: 'TStringGrid'
ясен пень. Unit2 "не знает" где искать описание TStringGrid, т.к. не подключен модуль Grids.
0
5759 / 4507 / 1425
Регистрация: 14.04.2014
Сообщений: 20,092
Записей в блоге: 20
17.11.2015, 14:14 3
не очень хорошая практика
выносить нужно то. что напрямую не связано с формой, всякие вспомогательные утилиты
также подозреваю, что весь код упирается в работу с экранными компонентами вместо модели данных, которая тоже обычно живет в другом модуле
так что лучше рефакторить код, чем измышлять такие странные вещи
0
5 / 5 / 2
Регистрация: 04.10.2010
Сообщений: 205
17.11.2015, 14:24  [ТС] 4
DenNik, в USES все подключено. Я просто думал, что порядок описания Unit-Interface-Procedure- ... нарушил, ведь это критично.

krapotkin, Да, вы правы, все "вертится" вокруг экранных компонентов.
Разве нельзя как-то использовать одну форму и на нее ссылаются два модуля?
Я не нашел другого способа как промежуточные данные хранить в Memo и StringGrid.
0
2664 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
17.11.2015, 14:28 5
Цитата Сообщение от Пётр Нефедов Посмотреть сообщение
в USES все подключено
Где ? Покажи пальцем где у тебя подключен Grids ...
0
5 / 5 / 2
Регистрация: 04.10.2010
Сообщений: 205
17.11.2015, 14:41  [ТС] 6
mss,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
unit Unit2;
 
interface
 
procedure Xls_Open(XLSFile:string; Grid1:TStringGrid; Grid2:TStringGrid);
 
implementation
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls,ComObj, ActiveX, ADODB, DB, ComCtrls, Buttons, Math,
  ExtCtrls, Filectrl, ShlObj, Menus, uMain;
 
procedure Xls_Open(XLSFile:string; Grid1:TStringGrid; Grid2:TStringGrid);
   begin
       ...
   end;
end.
0
2664 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
17.11.2015, 15:11 7
И при этом ты утверждаешь что компиляция юнита Unit2 завершается с ошибкой
Undeclared identifier: 'TStringGrid'
?
0
5 / 5 / 2
Регистрация: 04.10.2010
Сообщений: 205
17.11.2015, 15:30  [ТС] 8
mss, может я где-то ошибаюсь, но пока вот так:
Вызов процедуры из другого модуля
0
5 / 5 / 2
Регистрация: 04.10.2010
Сообщений: 205
17.11.2015, 15:30  [ТС] 9
Я закомментировал код, так как большой лог ошибок, который ссылается на каждый вызов Memo1.Lines
0
Житель Земли
3002 / 3004 / 391
Регистрация: 26.07.2011
Сообщений: 11,463
Записей в блоге: 1
17.11.2015, 15:32 10
uses помести в interface
не тормози!

Добавлено через 1 минуту
тут блин визуально видно же! упоминание на СтрингГрид в пятой строке, а подключение модуля - в 10! и как компилятору прикажешь работать?
0
5 / 5 / 2
Регистрация: 04.10.2010
Сообщений: 205
17.11.2015, 15:49  [ТС] 11
DenNik, бывает, главное мне научится ...

/*-----*/
Виноват, все работает. Видимо я где-то напортачил при объявлении, потому что ранее вот такой код не работал, к сожалению:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls,ComObj, ActiveX, ADODB, DB, ComCtrls, Buttons, Math,
  ExtCtrls, Filectrl, ShlObj, Menus, uMain;
 
procedure Xls_Open(XLSFile:string; Grid1:TStringGrid; Grid2:TStringGrid; Grid3:TStringGrid; Grid4:TStringGrid; 
Grid5:TStringGrid; CheckBox1: TCheckBox; Memo1 : TMemo; Memo2 : TMemo; Memo3 : TMemo);
 
implementation
..... //и далее сама процедура
Хочу отметить, что в таком случае мне как параметры приходится передавать все компоненты, что использую на форме, иначе ругается на необъявленные компоненты.
0
Житель Земли
3002 / 3004 / 391
Регистрация: 26.07.2011
Сообщений: 11,463
Записей в блоге: 1
17.11.2015, 16:09 12
Цитата Сообщение от Пётр Нефедов Посмотреть сообщение
в таком случае мне как параметры приходится передавать все компоненты, что использую на форме, иначе ругается на необъявленные компоненты.

Цитата Сообщение от krapotkin Посмотреть сообщение
не очень хорошая практика
выносить нужно то. что напрямую не связано с формой,
0
5 / 5 / 2
Регистрация: 04.10.2010
Сообщений: 205
17.11.2015, 17:03  [ТС] 13
DenNik, Я имел ввиду, что пришлось вместо:
Delphi
1
procedure Xls_Open(XLSFile:string; Grid1:TStringGrid);
написать:
Delphi
1
procedure Xls_Open(XLSFile:string; Grid1:TStringGrid; CheckBox1: TCheckBox; Memo1 : TMemo);
Я понимаю, что поступаю плохо, буду думать об оптимизации.
0
5759 / 4507 / 1425
Регистрация: 14.04.2014
Сообщений: 20,092
Записей в блоге: 20
17.11.2015, 21:56 14
Компоненты в делфи - это средство взаимодействия с пользователем
в мемо строки отображаются и редактируются
но программа эти строки должна хранить например в TStringList
а как сервера работают? там вообще форм нету. На чем твои мемо будут лежать?
Чекбокс - это визуальный компонент, который отображает некое состояние
программа хранит это состояние как boolean
зачем целый компонент, если это одна переменная типа boolean???
и далее по списку
и форм никаких не надо передавать. Передавать нужно ДАННЫЕ. Данные хранятся В ПЕРЕМЕННЫХ

Добавлено через 1 минуту
procedure Xls_Open(XLSFile:string; arr:TMyStringArray; state:boolean; text : TStringList);
0
17.11.2015, 21:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2015, 21:56
Помогаю со студенческими работами здесь

Вызов функций из другого модуля
В общем есть функции в модуле Unit1, в Unit2 пытаюсь их вызвать, но происходит ошибка "не...

Вызов процедуры OnClick из модуля без формы
Сабж. На форме много компонентов, а форма одна, хочу разделить работу с компонентами по полочкам....

Вызов процедуры из другого файла
Здравствуйте, товарищи программисты! Столкнулся с одной проблемой, которая в очередной раз не дает...

Вызов процедуры из модуля
Имеется код основной программы: .586 ;подключение набора команд Pentium .MODEL flat, stdcall...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

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