Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не видит глобальную переменную / 25 сообщений из 27, страница 1 из 2
  1  все
12.01.2018, 19:13:59
    #39583492
terlalex
terlalex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
описал переменную id_user как глобальную. Но почему-то в других модулях её не видит!!
Не пойму почему!
Вот кусок главного модуля :


 
Код: 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.
unit polyclinic;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.DBCtrls,
  Vcl.ComCtrls, System.ImageList, Vcl.ImgList, Vcl.ToolWin, Vcl.StdCtrls,
  Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Image1: TImage;
    ToolButton3: TToolButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Enter(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  id_user :integer ;

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit4, Unit5;



Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2018, 19:20:21
    #39583496
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
terlalex,

модули видят только то, что хотят. Т.обр., добавь "polyclinic" в список uses секции interface каждого модуля.

Код: pascal
1.
2.
interface
uses polyclinic, ...;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2018, 19:20:34
    #39583497
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
В каком месте не видит?

Код покажи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2018, 19:22:24
    #39583498
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
А если ты даже в uses polyclinic не прописал то код можешь не показывать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2018, 19:25:49
    #39583500
terlalex
terlalex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
СПАСИБО!!
Забыл, что юнит назвал нестандартно. )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2018, 19:28:30
    #39583506
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
terlalexСПАСИБО!!
Забыл, что юнит назвал нестандартно. )

"Стандартно" - это "Unit1"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2018, 22:46:35
    #39583570
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
terlalex
Код: pascal
1.
2.
3.
4.
5.
var
  Form1: TForm1;
  id_user :integer ;

implementation

а за глобальные переменные еще не расстреливают?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 02:36:50
    #39583605
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
за Application, Screen тоже расстреливать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 02:38:45
    #39583606
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
DimaBr,

за отрицание священности кода VCL.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 13:00:13
    #39583660
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
DimaBrза Application, Screen тоже расстреливать ?
сначала пишут говнокод

а потом возникают советы вида
чччДterlalex,

модули видят только то, что хотят. Т.обр., добавь "polyclinic" в список uses секции interface каждого модуля.

Код: pascal
1.
2.
interface
uses polyclinic, ...;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 13:03:52
    #39583661
под ван
под ван
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
andreymxDimaBrза Application, Screen тоже расстреливать ?
сначала пишут говнокод

а потом возникают советы вида
чччДterlalex,

модули видят только то, что хотят. Т.обр., добавь "polyclinic" в список uses секции interface каждого модуля.

Код: pascal
1.
2.
interface
uses polyclinic, ...;


Так ты на личном примере покажи, как надо. Что толку от твоих недовольства и порицания. Борись с говнокодом своим кодом! Всегда. Везде. Даже в Запорожье!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 13:42:07
    #39583673
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
под глобальные константы и переменные (если они нужны) выделяю один или два модуля
1. DataModule
2. юнит с константами и глобальными функциями-процедурами текущего проекта

ни в одном проекте нет глобальных перемнных типа форма
Ни в одном подчиненном модуле никогда нет ссылок на главную форму или юнит с главной формой
все подчиненные формы вызываются через функции/интерфейсы вида
Код: 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.
function Create_New_zayavka(
      p_pred, p_cex, p_kodgr_b, p_id_3123, p_NKS_job_id_nsi3119 : variant
      ) : boolean;


implementation

{$R *.dfm}
function Create_New_zayavka(
      p_pred, p_cex, p_kodgr_b, p_id_3123, p_NKS_job_id_nsi3119 : variant
      ) : boolean;
var
  Zayavka_row_form : TZayavka_row_form;
  msg : string;
begin
  msg := '';
  result := false;

  Zayavka_row_form := TZayavka_row_form.Create(Application);
  try
    Zayavka_row_form.ZayavState := TZS_before_new_doc;
    Zayavka_row_form.p_pred     := p_pred;
    Zayavka_row_form.p_cex      := p_cex;
    Zayavka_row_form.p_kodgr_b  := p_kodgr_b;
    Zayavka_row_form.p_id_3123  := p_id_3123;
    Zayavka_row_form.p_NKS_job_id_nsi3119 := p_NKS_job_id_nsi3119;
    Zayavka_row_form.InitData;
    if Zayavka_row_form.p_error_in_created then exit;
    result := Zayavka_row_form.ShowModal = Mr_ok;
  finally
    Zayavka_row_form.Free;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 14:04:18
    #39583678
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
andreymxни в одном проекте нет глобальных перемнных типа форма
Ни в одном подчиненном модуле никогда нет ссылок на главную форму или юнит с главной формой
все подчиненные формы вызываются через функции/интерфейсы вида

Исходный .dpr сразу под нож или основная форма создаётся где?..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 14:26:00
    #39583680
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
alekcvpandreymxни в одном проекте нет глобальных перемнных типа форма
Ни в одном подчиненном модуле никогда нет ссылок на главную форму или юнит с главной формой
все подчиненные формы вызываются через функции/интерфейсы вида

Исходный .dpr сразу под нож или основная форма создаётся где?..сразу правится как надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 14:29:11
    #39583681
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
ессно, из методов формы нет ссылок на саму форму вроде MainForm.Caption := 'Моя Фигня'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 14:56:31
    #39583690
Сюзанна
Сюзанна
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
andreymx,

Взирая на солнце, прищурь глаза свои, и ты смело разглядишь в нём пятна.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 15:10:10
    #39583694
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
andreymx,

чудеса в решете.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 15:26:50
    #39583697
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
andreymxессно, из методов формы нет ссылок на саму форму вроде MainForm.Caption := 'Моя Фигня'Это повод для гордости? ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 15:36:35
    #39583701
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
rgreatandreymxессно, из методов формы нет ссылок на саму форму вроде MainForm.Caption := 'Моя Фигня'Это повод для гордости? ;)нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 15:41:01
    #39583703
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
чччДandreymx,

чудеса в решете.приветствую критические замечания

с уважением, Андрей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 15:57:09
    #39583711
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
andreymx,

нет замечаний.
Если код компилируется без ошибок - он прекрасен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 16:15:52
    #39583725
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
чччДandreymx,

нет замечаний.
Если код компилируется без ошибок - он прекрасен.позвольте с вами не согласится
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 16:20:04
    #39583726
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
andreymx,

на вас не угодишь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 16:23:56
    #39583730
andreymx
andreymx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
чччДandreymx,

на вас не угодишь.и не надо :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2018, 16:51:55
    #39583738
Ваш Кэп
Ваш Кэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не видит глобальную переменную
Делай, делай. Главное, когда бани полезут со всех щелей, опять 'кривая' Delhi виновата не была.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не видит глобальную переменную / 25 сообщений из 27, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 473ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2041344]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 173ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 228ms
total:  473ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]